lazarus：以AES方式加密字符串

 

引入这两个单元：

DCPrijndael, DCPsha256

加密过程：

procedure TForm1.ButtonEnCryptClick(Sender: TObject);
var
  i: integer;
  Cipher: TDCP_rijndael;
begin
  if EditKey.Text<>'' then begin
    Cipher:=TDCP_rijndael.Create(Self);
    Cipher.InitStr(EditKey.Text,TDCP_sha256);
    EditEncrypted.Text:=Cipher.EncryptString(EditClear.Text);
    Cipher.Burn;
    Cipher.Free;
    EditClear.Clear;
  end;
end; 

解密过程：

procedure TForm1.ButtonDeCryptClick(Sender: TObject);
var
  i: integer;
  Cipher: TDCP_rijndael;
begin
  if EditKey.Text<>'' then begin
    Cipher:=TDCP_rijndael.Create(Self);
    Cipher.InitStr(EditKey.Text,TDCP_sha256);
    EditClear.Text:=Cipher.DecryptString(EditEncrypted.Text);
    Cipher.Burn;
    Cipher.Free;
    EditEncrypted.Clear;
  end;
end; 

加密前：

加密后：

解密：