delphi中使用aes算法加解密示例

源码资源网

delphi中使用aes算法加解密示例


在 Delphi 中使用 AES 算法进行加密和解密，可以使用第三方库，例如 "Delphi Encryption Compendium (DEC)"。以下是一个示例代码，展示如何使用 DEC 库进行 AES 加密和解密：

1. uses
   
2.   DECUtil, DECCipher, DECHash, DECFormat;
   
3. function AESEncrypt(const plainText, key: string): string;
   
4. var
   
5.   cipher: TDECCipher;
   
6.   keyBytes, plainBytes, cipherBytes: TBytes;
   
7. begin
   
8.   keyBytes := TEncoding.UTF8.GetBytes(key);
   
9.   plainBytes := TEncoding.UTF8.GetBytes(plainText);
   
10.    cipher := TDECCipher.Create(TCipherMode.ECB);
    
11.   try
    
12.     cipher.InitEncrypt(keyBytes, TDECCipherClass.AES);
    
13.     cipherBytes := cipher.Update(plainBytes);
    
14.     cipherBytes := cipher.Final(cipherBytes);
    
15.   finally
    
16.     cipher.Free;
    
17.   end;
    
18.    Result := TEncoding.UTF8.GetString(cipherBytes);
    
19. end;
    
20. function AESDecrypt(const encryptedText, key: string): string;
    
21. var
    
22.   cipher: TDECCipher;
    
23.   keyBytes, cipherBytes, plainBytes: TBytes;
    
24. begin
    
25.   keyBytes := TEncoding.UTF8.GetBytes(key);
    
26.   cipherBytes := TEncoding.UTF8.GetBytes(encryptedText);
    
27.    cipher := TDECCipher.Create(TCipherMode.ECB);
    
28.   try
    
29.     cipher.InitDecrypt(keyBytes, TDECCipherClass.AES);
    
30.     plainBytes := cipher.Update(cipherBytes);
    
31.     plainBytes := cipher.Final(plainBytes);
    
32.   finally
    
33.     cipher.Free;
    
34.   end;
    
35.    Result := TEncoding.UTF8.GetString(plainBytes);
    
36. end;
    
37. var
    
38.   plainText, key, encryptedText, decryptedText: string;
    
39. begin
    
40.   plainText := 'Hello, World!';
    
41.   key := 'MySecretKey123456';
    
42.    encryptedText := AESEncrypt(plainText, key);
    
43.   Writeln('Encrypted Text: ' + encryptedText);
    
44.    decryptedText := AESDecrypt(encryptedText, key);
    
45.   Writeln('Decrypted Text: ' + decryptedText);
    
46. end.

复制代码

在上述代码中，我们使用了 DEC 库提供的 AES 加密和解密功能。 AESEncrypt  函数接受明文和密钥作为参数，使用 AES 算法对明文进行加密，并返回加密后的字符串。 AESDecrypt  函数接受加密后的字符串和密钥作为参数，使用 AES 算法对密文进行解密，并返回解密后的明文。  在主程序中，我们使用示例的明文和密钥进行加密和解密，并打印结果。  请确保在使用前安装并引入 DEC 库，并将相关的单元添加到 uses 子句中。