谁知道AES的加密算法~~大家帮帮忙~~Up有分~~高分相送~~~

Question

我记得在CSDN中看到过一个叫AES的加密算法把。可是我把它弄丢了。
再找不到了。
好像这个算法的压缩包里面，有一个繁体中文的DEMO
谁能帮忙找到，高分相送~~~

Answer 1

比较熟悉的加密算法是md5和rsa...
aes不太清楚..
帮你up..

Answer 2

//这是EldoS的ElPack 中的一个单元。你可以找一下。用法如下：unit Crypt;interface
uses Classes, Math, SysUtils;function Encrypt(s, Pwd: string): string;
function Decrypt(s, Pwd: string): string;implementationuses ElAES;function Encrypt(s, Pwd: string): string;
    function StringToHex(S: string): string;
    var i: integer;
    Begin
        Result := '';
            for i := 1 to Length( S ) do
            Result := Result + IntToHex( Ord( S[i] ), 2 );
    end;
var
  Source: TStringStream;
  Dest: TStringStream;
  Size: integer;
  Key: TAESKey128;begin
  Source := TStringStream.Create( S );
  Dest   := TStringStream.Create( '' );
  try
    Size := Source.Size;
    Dest.WriteBuffer( Size, SizeOf(Size) );
    FillChar( Key, SizeOf(Key), 0 );
    Move( PChar( Pwd )^, Key, Min( SizeOf( Key ), Length( Pwd )));
    EncryptAESStreamECB( Source, 0, Key, Dest );
    Result:= StringToHex( Dest.DataString );  finally
    Source.Free;
    Dest.Free;
  end;
end;function Decrypt(s, Pwd: string): string;
    function HexToString(S: string): string;
    var i: integer;
    Begin
      Result := '';
      for i := 1 to Length( S ) do
      begin
            if ((i mod 2) = 1) then
                    Result := Result + Chr( StrToInt( '0x' + Copy( S, i, 2 )));
      end;
    end;
var
  Source: TStringStream;
  Dest: TStringStream;
  Size: integer;
  Key: TAESKey128;begin
  Source := TStringStream.Create( HexToString( s ));
  Dest   := TStringStream.Create( '' );  try
    Size := Source.Size;
    Source.ReadBuffer(Size, SizeOf(Size));
    FillChar(Key, SizeOf(Key), 0);
    Move(PChar( Pwd )^, Key, Min(SizeOf(Key), Length( Pwd )));
    DecryptAESStreamECB(Source, Source.Size - Source.Position, Key, Dest);
    Result := Dest.DataString;
  finally
    Source.Free;
    Dest.Free;
  end;
end;end.

Answer 3

我的Email是[email protected]是一个很严谨的加密算法，可没有楼上说的那样简单，呵呵~~~

Answer 4

诶亚，不好意思，刚才没有看清楚。~~foxyy8888(斧头) 兄弟发的那个是它的调用接口单元，那他的那个声明单元呢？
能不能发给我，我收到后立刻结分~~
要把DEMO也发给我~谢谢~`