我想使用aes的方法，const StartKey = 981; {Start default key} MultKey = 12674; {Mult default key} AddKey = 35891; {Add default key} function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; implementation {$R *.dfm} function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; var I : Byte; begin Result := ''; for I := 1 to Length(InString) do begin Result := Result CHAR(Byte(InString[I]) xor (StartKey shr 8)); StartKey := (Byte(Result[I]) StartKey) * MultKey AddKey; end; end; end. 這個function，請問怎麼讓access加密呢？

檔案加密，直接用 TFileStream 即可。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

不好意思，我不太會用耶，可以教我嗎？

procedure TForm1.Button1Click(Sender: TObject);
Const
  SourceFile = 'C:\Test.Mdb';
  MaxBufSize = 255;
var
  SrcFile : TFileStream;
  BufSize,Count,N ,PS: Integer;
  Buffer:String;
begin
  SrcFile := TFileStream.Create(SourceFile,fmOpenReadWrite);
  try
    SrcFile.Position := 0;
    Count := SrcFile.Size;
    if Count > MaxBufSize then BufSize := MaxBufSize else BufSize := Count;
    SetLength(Buffer,BufSize);        while Count <> 0 do
    begin
      if Count > BufSize then N := BufSize else N := Count;
      PS := SrcFile.Position;
      SrcFile.ReadBuffer(Buffer[1], N);
      Buffer := Encrypt(Buffer,123,123,123);
      SrcFile.Position := PS;
      SrcFile.WriteBuffer(Buffer[1],N);
      Dec(Count, N);
    end;
  finally
    SrcFile.Free;
  end;
end;

解密把 Encrypt 換為Decrypt ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

路徑那有問題耶，好奇怪喔，我明明放一個資料庫test在c槽底下，可是怎麼還是會出現在錯誤，出現';'expected but identifier 'c' found missing operator or semicolon could not compile used unit 'unit1.pas' 出現這三行錯誤，不知道該怎麼辦才好，教教我？

自己檢查一下吧！ 是不是哪裡多了 End or .....。 這一段程式碼應該沒什麼好說的！ 我都試過了。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

我成功了，謝謝你，可是我都看不太懂耶，怎麼辦，可以寫一下注解嗎？請問是不是我打開access無法辨試就是成功了。