http://delphi.ktop.com.tw/topic.php?topic_id=28295 這個網址的範例，可是怎麼我連資料庫時，會無法讓資料庫裡的資粦加解密啊？不好意思我是新手。會的人可教教我嗎？

參考後修改一下為EncryptString / DecryptString function   不知道您是那邊有問題呢?

function EncryptString(SrcStr, KeyStr:String):String;
var
  Source: TStringStream;
  Dest: TStringStream;
  Size: integer;
  Key: TAESKey128;
begin
  // Encryption
  Source := TStringStream.Create( SrcStr );
  Dest   := TStringStream.Create( '' );      try
    // Save data to memory stream...
    Size := Source.Size;
    Dest.WriteBuffer( Size, SizeOf(Size) );        // Prepare key...
    FillChar( Key, SizeOf(Key), 0 );
    Move( PChar(KeyStr)^, Key, Min( SizeOf( Key ), Length( KeyStr)));        // Start encryption...
    EncryptAESStreamECB( Source, 0, Key, Dest );
 
    Result:=Dest.DataString;      finally
    Source.Free;
    Dest.Free;
  end;
end;    function DecryptString(SrcStr, KeyStr:String):String;
var
  Source: TStringStream;
  Dest: TStringStream;
  Size: integer;
  Key: TAESKey128;
begin
  // Convert hexadecimal to a strings before decrypting...
  Source := TStringStream.Create( SrcStr ));
  Dest   := TStringStream.Create( '' );      try
    // Start decryption...
    Size := Source.Size;
    Source.ReadBuffer(Size, SizeOf(Size));        // Prepare key...
    FillChar(Key, SizeOf(Key), 0);
    Move( PChar(KeyStr)^, Key, Min( SizeOf( Key ), Length( KeyStr)));        // Decrypt now...
    DecryptAESStreamECB(Source, Source.Size - Source.Position, Key, Dest);        Result:=Dest.DataString;      finally
    Source.Free;
    Dest.Free;
  end;
end;

＠瞭解越多.懂得越少＠ 發表人 - Chris_Shieh 於 2005/03/26 21:28:35

請問一下我是想要連access資料庫，讓access裡的資料加解密，可是不知道要修改什麼？請問一下你說修改那兩個function，那請問加在哪啊，因為我怎麼找不到那兩個function的東西？不好意思，我是新手，

我想你需要先 1. 從Access把未加密資料讀出來 2. 把資料丟進EncryptString function 回傳的就是加密後資料 解密則相反 1. 從Access把加密資料讀出來 2. 把資料丟進DecryptString function 回傳的就是解密後資料 這兩個function 放在您主程式中即可 ＠瞭解越多.懂得越少＠

不好意思，還是不行耶，不好意思，我是新手，是一位想學aes的新手，不好意思喔。

不好意思我是新手，真的不太懂，可以請寄到我信箱裡嗎？不好意思，我真的不太會，想學習。

不太清楚您的問題是什麼 請您先把問題說請清楚 只是說不行 我想大家也很難幫您 發表人 - Chris_Shieh 於 2005/03/27 09:58:13

我是想學習aes，站長之前po上去的那個程式，edit1可以選取路徑，之後button2是讓檔案加密，button3是讓檔案解密，可是怎麼我想讓access檔案加密和檔案解密，可是怎麼不行啊？你說要加那兩function，但我不知道要加在哪，我直接在程式裡，也有錯，想說是不是加在檔案加密和檔案解密裡，也會有錯？不好意思，我是新手，真的很想學習。

如果你是指你無法順利操作站長的範例來進行檔案加解密的話 我假設你應該是這樣的問題：(您的問題描述還是不夠清楚)     如果是這樣 原因是因為沒有指定目的檔案名稱 不管你是要進行檔案加密或解密 你除了選擇來源檔案之外 都要在按下 "檔案加密" "檔案解密" 之前 先指定目的檔案名稱 程式才能把結果寫到你指定的檔案 至於那兩個function 就跟這無關了... ＠瞭解越多.懂得越少＠

謝謝你的詳答，我想說自已寫一個程式，有空的話，幫我解解答。謝謝喔 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=68145