关于Encode64加密算法在数据量大时很慢的问题？

2013-10-18 10:00:46 287 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【Python】关于加密算法的实现笔记梳理前言：因为主管数据，数据安全问题比较常见，今天遇到一个业务场景，较多数据加密的处理，结合最近优化数据安全流程的问题，分享下对数据加密算法的理解。定义数据加密：对原来为明文的文件或数据按某种算法进行处理，使其成为不可读的一段代码为“密文”，只能在输入相应的密钥之后才能显示出原容，通过这样的途径来达到保护数据不被非法人窃取、阅读的目的。该过程的逆过程为解密，即将该编码信息转化为其原来数据的过程。简单理解：算法分类目前主流的分法有2类，对称加密、非对称加密，当然也还有分3类的，新增单向加密（Hash 阅读详情

方法：function Encode64(const test:string): string;
test量大时算法效率很低，需要几分钟才运算完。。。



function Encode64(const test:string): string;

var

  s, s1: string;

  i, p, len, n, Addnum: integer;



begin

  result := '';



  S := '';

  for i := 1 to length(test) do

    S := S + IntToHex(Ord(test[I]), 2);

  //将字符串的十六进制数以字符串的形式表示出来

  case (length(s) mod 3) of

    0: addnum := 0;

    1:

    begin

      s := s + '00';

      addnum := 2;

    end;

    2:

    begin

      s := s + '0';

      addnum := 1;

    end;

    else

      addnum := 0;

  end;

  len := length(s) div 3;

  for i := 1 to len do

  begin

    s1 :=Midstr(S, i*3-2,3);

    p := strtoint('$' + s1);

    n := p div 64;

    result := result + basetable[n+1];

    n := p mod 64;

    result := result + basetable[n+1];

  end;

  if addnum = 1 then

    result := result + '==';

  if addnum = 2 then

    result[length(result)] := '=';

end;

...全文

从PCB走线到天线：用史密斯圆图搞定2.4GHz频段的阻抗匹配陷阱本文深入探讨了2.4GHz频段PCB设计中阻抗匹配的挑战与解决方案，重点介绍了史密斯圆图在射频和天线阻抗匹配中的应用。通过实战案例和详细步骤，帮助工程师有效解决高频信号传输中的阻抗失配问题，提升物联网设备的通信性能。阅读详情

znhyz1

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

蓝色光芒 2013-10-21

打赏
举报

从你的算法来看: S := ''; for i := 1 to length(test) do S := S + IntToHex(Ord(test[I]), 2); //只取了2位,因此只支持AnsiString 这是一个专为AnsiString而设计的函数. 另外楼主的函数和EncodeString的结果不一致,比如字符串长度>=56的时候. 100M AnsiString用EncodeString的时间大概1秒左右.应该是可以接受的,而且这个函数是标准函数.加和解都没问题.(D7,Win7,i5,4G环境测试的) 另:发一个优化后的代码给你,是完全根据你的函数改写的,结果只和你的函数结果一致.仅作为代码算法研究参考,建议用系统自带的那2个函数. 100M AnsiString执行时间0.23秒,同样只能使用AnsiString

function Encode64Fast(const Input : AnsiString): AnsiString;
var
  pDest , pSour : PChar;
  i , Count : integer;
  w : DWORD;
  B : Boolean;
begin
  if Input='' then begin
    Result := '';
    exit;
  end;
  SetLength(Result , Length(Input)*3 DIV 2 + 100);//预设长度
  pDest := Pointer(Result);
  pSour := Pointer(Input);
  Count := 0;
  B := False;
  for i:=1 to (Length(Input)+1)*2 DIV 3 do begin  //计算部分
    w := ((PByte(pSour)^ SHL 8) or (PByte(pSour+1)^));//不支持BSWAP,因此只能这样了
    inc(pSour);
    if not B then w := w SHR 4
    else begin
      w := w AND $0FFF;
      inc(pSour);
    end;
    B := Not B;

    pDest^ := BaseTable[(w SHR 6 ) + 1];  //代替 DIV 64
    inc(pDest);
    pDest^ := BaseTable[(w and 63) + 1];  //代替 MOD 64
    inc(pDest);
    inc(Count , 2);
  end;

  case (Length(Input)*2 mod 3) of
    1: (pDest-1)^ := '=';
    2: begin
         pDest^ := '=';
         inc(pDest);
         pDest^ := '=';
         inc(Count , 2);
       end;
  end;
  Delete(Result , Count+1 , Length(Result));
end;

znhyz1 2013-10-20

打赏
举报

引用 1 楼 kiboisme 的回复:

如果指定了用这个算法,那就对这个算法作优化,优化如下: 1.给S,Result字符串预设长度,并用Move,或者PWORD^/PDWORD^进行操作 2.用PChar来循环字符串 3.针对该算法专门写一个IntToHex2,StrToInt2,以及Midstr(这个其实可以不要),来提交速度理论上,100M的数据,这个算法,2秒内应该可以完成,内存足够的话,100M test数据需要400M左右的内存

如何改进？能给个具体的例子吗？

chenpingqq 2013-10-20

打赏
举报

几分钟有点夸张吧。自带就有这个函数，在EncdDecd单元里。 function EncodeString(const Input: string): string; //加密 function DecodeString(const Input: string): string; //解密

蓝色光芒 2013-10-18

打赏
举报

如果指定了用这个算法,那就对这个算法作优化,优化如下: 1.给S,Result字符串预设长度,并用Move,或者PWORD^/PDWORD^进行操作 2.用PChar来循环字符串 3.针对该算法专门写一个IntToHex2,StrToInt2,以及Midstr(这个其实可以不要),来提交速度理论上,100M的数据,这个算法,2秒内应该可以完成,内存足够的话,100M test数据需要400M左右的内存

关于Encode64加密算法在数据量大时很慢的问题？

相关推荐