|
|
在 Delphi 中使用 AES 算法进行加密和解密，可以使用第三方库，例如 "Delphi Encryption Compendium (DEC)"。以下是一个示例代码，展示如何使用 DEC 库进行 AES 加密和解密：- uses
- DECUtil, DECCipher, DECHash, DECFormat;
- function AESEncrypt(const plainText, key: string): string;
- var
- cipher: TDECCipher;
- keyBytes, plainBytes, cipherBytes: TBytes;
- begin
- keyBytes := TEncoding.UTF8.GetBytes(key);
- plainBytes := TEncoding.UTF8.GetBytes(plainText);
- cipher := TDECCipher.Create(TCipherMode.ECB);
- try
- cipher.InitEncrypt(keyBytes, TDECCipherClass.AES);
- cipherBytes := cipher.Update(plainBytes);
- cipherBytes := cipher.Final(cipherBytes);
- finally
- cipher.Free;
- end;
- Result := TEncoding.UTF8.GetString(cipherBytes);
- end;
- function AESDecrypt(const encryptedText, key: string): string;
- var
- cipher: TDECCipher;
- keyBytes, cipherBytes, plainBytes: TBytes;
- begin
- keyBytes := TEncoding.UTF8.GetBytes(key);
- cipherBytes := TEncoding.UTF8.GetBytes(encryptedText);
- cipher := TDECCipher.Create(TCipherMode.ECB);
- try
- cipher.InitDecrypt(keyBytes, TDECCipherClass.AES);
- plainBytes := cipher.Update(cipherBytes);
- plainBytes := cipher.Final(plainBytes);
- finally
- cipher.Free;
- end;
- Result := TEncoding.UTF8.GetString(plainBytes);
- end;
- var
- plainText, key, encryptedText, decryptedText: string;
- begin
- plainText := 'Hello, World!';
- key := 'MySecretKey123456';
- encryptedText := AESEncrypt(plainText, key);
- Writeln('Encrypted Text: ' + encryptedText);
- decryptedText := AESDecrypt(encryptedText, key);
- Writeln('Decrypted Text: ' + decryptedText);
- end.
|
|
发表于 2024-2-26 21:20:56
扫码关注微信公众号，及时获取最新资源信息！【