{"id":51,"date":"2009-10-09T18:10:44","date_gmt":"2009-10-09T10:10:44","guid":{"rendered":"http:\/\/blog.infinity.idv.tw\/index.php\/2009\/10\/09\/delphi%e4%bd%bf%e7%94%a8aes%e5%8a%a0%e8%a7%a3%e5%af%86%e5%af%86%e7%a2%bc\/"},"modified":"2009-10-09T18:10:44","modified_gmt":"2009-10-09T10:10:44","slug":"delphi%e4%bd%bf%e7%94%a8aes%e5%8a%a0%e8%a7%a3%e5%af%86%e5%af%86%e7%a2%bc","status":"publish","type":"post","link":"http:\/\/blog.infinity.idv.tw\/?p=51","title":{"rendered":"DELPHI\u4f7f\u7528AES\u52a0\u89e3\u5bc6\u5bc6\u78bc"},"content":{"rendered":"

\u9019\u901a\u5e38\u662f\u904b\u7528\u5728\u8cc7\u6599\u5eab\u5167\u6709\u5bc6\u78bc\u7684\u6642\u5019\uff0c\u4e0d\u5e0c\u671b\u986f\u793a\u7684\u662f\u660e\u78bc\uff0c\u6240\u4ee5\u8981\u900f\u904e\u52a0\u5bc6\u89e3\u5bc6\u7684\u52d5\u4f5c\u4f86\u5be6\u73fe\u9019\u500b\u9700\u6c42\uff0c\u9019\u908a\u4f7f\u7528\u7684\u662fAES\u52a0\u5bc6\u529f\u80fd\u3002<\/p>\n

DELPHI \u7528\u7684 AES \u6a94\u6848 \u4e0b\u8f09<\/a><\/p>\n

\u6b64\u7bc4\u4f8b\u7a0b\u5f0f(D7)\u5df2\u542bAES\u6a94\u6848\uff1a\u4e0b\u8f09<\/a><\/p>\n

\u7a0b\u5f0f\u57f7\u884c\uff1a<\/p>\n

\u5c07\u5b57\u4e32\u52a0\u5bc6
\"1\"<\/a> <\/p>\n

\u5c07\u5b57\u4e32\u89e3\u5bc6\u9084\u539f
\"2\"<\/a> <\/p>\n

 <\/p>\n

\u5c07 28295_AESDemo.zip \u89e3\u58d3\u7e2e\u5f8c\u4e09\u500b\u6a94\u6848
ElAES.dcu
ElAES.pas
ElAES.txt
COPY \u6b32\u64b0\u5beb\u7a0b\u5f0f\u7684\u540c\u4e00\u76ee\u9304\u4e0b\u9762 <\/p>\n

\u5c07(ElAES, Math) USES\u9032\u7a0b\u5f0f <\/p>\n

unit hoststatus; <\/strong><\/font><\/p>\n

interface <\/strong><\/font><\/p>\n

uses
    ……….ElAES, Math;<\/strong><\/font> <\/p>\n

 <\/p>\n

\/\/AES\u52a0\u89e3\u5bc6\u7528\u5230\u7684 Function ===========================
function Tform1.StringToHex(S: string): string;
var
    i: integer; <\/font><\/strong><\/p>\n

begin
  Result := ”; <\/font><\/strong><\/p>\n

  \/\/ Go throught every single characters, and convert them
  \/\/ to hexadecimal…
    for i := 1 to Length( S ) do
      Result := Result + IntToHex( Ord( S[i] ), 2 );
end; <\/font><\/strong><\/p>\n

function Tform1.HexToString(S: string): string;
var
    i: integer; <\/font><\/strong><\/p>\n

begin
  Result := ”; <\/font><\/strong><\/p>\n

  \/\/ Go throught every single hexadecimal characters, and convert
  \/\/ them to ASCII characters…
  for i := 1 to Length( S ) do
  begin
    \/\/ Only process chunk of 2 digit Hexadecimal…
      if ((i mod 2) = 1) then
          Result := Result + Chr( StrToInt( ‘0x’ + Copy( S, i, 2 )));
  end;
end; <\/font><\/strong><\/p>\n

\/\/AES\u52a0\u5bc6Function
function Tform1.Encrypt(Passwd: String): String;
var
  Source: TStringStream;
  Dest: TStringStream;
  Start, Stop: cardinal;
  Size: integer;
  Key: TAESKey128;
  PWD: String;
begin
  \/\/\u8a2d\u5b9a\u52a0\u5bc6\u5bc6\u78bc;
  PWD := ‘\/.,mnbvcxz’; <\/font><\/strong><\/p>\n

  Source := TStringStream.Create( Passwd );
  Dest   := TStringStream.Create( ” ); <\/font><\/strong><\/p>\n

  try
    \/\/ Save data to memory stream…
    Size := Source.Size;
    Dest.WriteBuffer( Size, SizeOf(Size) ); <\/font><\/strong><\/p>\n

    \/\/ Prepare key…
    FillChar( Key, SizeOf(Key), 0 );
    Move( PChar(PWD)^, Key, Min( SizeOf( Key ), Length( PWD ))); <\/font><\/strong><\/p>\n

    \/\/ Start encryption…
    Start := GetTickCount;
    EncryptAESStreamECB( Source, 0, Key, Dest );
    Stop := GetTickCount; <\/font><\/strong><\/p>\n

    \/\/ Display encrypted text using hexadecimals…
    Result := StringToHex( Dest.DataString ); <\/font><\/strong><\/p>\n

  finally
    Source.Free;
    Dest.Free;
  end;
end; <\/font><\/strong><\/p>\n

\/\/AES\u89e3\u5bc6Function
function Tform1.Decypt(Passwd: String): String;
var
  Source: TStringStream;
  Dest: TStringStream;
  Start, Stop: cardinal;
  Size: integer;
  Key: TAESKey128;
  EncryptedText: TStrings;
  S: string;
  PWD: String;
begin
  \/\/\u8a2d\u5b9a\u52a0\u5bc6\u5bc6\u78bc;
  PWD := ‘\/.,mnbvcxz’; <\/font><\/strong><\/p>\n

  \/\/ Convert hexadecimal to a strings before decrypting…
  Source := TStringStream.Create( HexToString( Passwd ));
  Dest   := TStringStream.Create( ” ); <\/font><\/strong><\/p>\n

  try
    \/\/ Start decryption…
    Size := Source.Size;
    Start := GetTickCount;
    Source.ReadBuffer(Size, SizeOf(Size)); <\/font><\/strong><\/p>\n

    \/\/ Prepare key…
    FillChar(Key, SizeOf(Key), 0);
    Move(PChar(PWD)^, Key, Min(SizeOf(Key), Length(PWD))); <\/font><\/strong><\/p>\n

    \/\/ Decrypt now…
    DecryptAESStreamECB(Source, Source.Size – Source.Position, Key, Dest);
    Stop := GetTickCount; <\/font><\/strong><\/p>\n

    \/\/ Display unencrypted text…
    Result := Dest.DataString; <\/font><\/strong><\/p>\n

  finally
    Source.Free;
    Dest.Free;
  end;
end;
<\/font><\/strong>\/\/AES\u52a0\u89e3\u5bc6\u7528\u5230\u7684 Function =========================== <\/p>\n

procedure TForm1.Button1Click(Sender: TObject);
begin
  \/\/showmessage(Encrypt(Edit1.Text));
  Memo1.Text:= Encrypt(Edit1.Text);
  Memo2.Text:=”;
end; <\/font><\/strong><\/p>\n

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Trim(Memo1.Text) <> ” then
  begin
    \/\/showmessage(Decypt(Memo1.Text));
    Memo2.Text:= Decypt(Memo1.Text);
  end else
    MessageDlg(‘\u6c92\u6709\u5df2\u52a0\u5bc6\u8cc7\u6599\u53ef\u4f9b\u89e3\u5bc6!’, mtError, [mbOk], 0);
end; <\/font><\/strong><\/p>\n

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Enabled := false;
  Memo2.Enabled := false;
end;<\/font><\/strong><\/p>\n","protected":false},"excerpt":{"rendered":"

\u9019\u901a\u5e38\u662f\u904b\u7528\u5728\u8cc7\u6599\u5eab\u5167\u6709\u5bc6\u78bc\u7684\u6642\u5019\uff0c\u4e0d\u5e0c\u671b\u986f\u793a\u7684\u662f\u660e\u78bc\uff0c\u6240\u4ee5\u8981\u900f\u904e\u52a0\u5bc6\u89e3\u5bc6\u7684\u52d5\u4f5c\u4f86\u5be6\u73fe\u9019\u500b\u9700\u6c42\uff0c\u9019\u908a\u4f7f\u7528\u7684\u662fAES\u52a0\u5bc6\u529f\u80fd\u3002<\/p>\n

DELPHI \u7528\u7684 AES \u6a94\u6848 \u4e0b\u8f09<\/p>\n

\u6b64\u7bc4\u4f8b\u7a0b\u5f0f(D7)\u5df2\u542bAES\u6a94\u6848\uff1a\u4e0b\u8f09<\/p>\n

\u7a0b\u5f0f\u57f7\u884c\uff1a<\/p>\n

\u5c07\u5b57\u4e32\u52a0\u5bc6 <\/p>\n

\u5c07\u5b57\u4e32\u89e3\u5bc6\u9084\u539f <\/p>\n

 <\/p>\n

\u5c07 28295_AESDemo.zip \u89e3\u58d3\u7e2e\u5f8c\u4e09\u500b\u6a94\u6848 ElAES.dcu ElAES.pas ElAES.txt COPY \u6b32\u64b0\u5beb\u7a0b\u5f0f\u7684\u540c\u4e00\u76ee\u9304\u4e0b\u9762 <\/p>\n

\u5c07(ElAES, Math) USES\u9032\u7a0b\u5f0f <\/p>\n

unit hoststatus; <\/p>\n

interface <\/p>\n

uses     ……….ElAES, Math; <\/p>\n

 <\/p>\n

\/\/AES\u52a0\u89e3\u5bc6\u7528\u5230\u7684 Function =========================== function Tform1.StringToHex(S: string): […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[36],"tags":[],"_links":{"self":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/51"}],"collection":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=51"}],"version-history":[{"count":0,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/51\/revisions"}],"wp:attachment":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=51"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=51"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=51"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}