NODE.JS使用AES加密，在DELPHI7中进行解密

源码资源网

在Node.js中使用AES加密并在Delphi 7中进行解密涉及几个步骤。由于Delphi 7相对较旧，你可能需要使用一些第三方库或手动实现AES算法。以下是一个简化的示例，展示了如何在Node.js中使用crypto库进行AES加密，并在Delphi 7中使用Indy库（一个流行的网络和安全库）进行解密。

Node.js 加密代码

首先，在Node.js中，你可以使用内置的crypto库进行AES加密。这里是一个简单的示例：

1. const crypto = require('crypto');
   
2. const algorithm = 'aes-256-cbc';
   
3. const key = crypto.randomBytes(32); // 使用32字节的密钥（对于AES-256）
   
4. const iv = crypto.randomBytes(16); // 初始化向量（IV）对于CBC模式需要16字节
   
5. 
   
6. function encrypt(text, key, iv) {
   
7.   let cipher = crypto.createCipheriv(algorithm, key, iv);
   
8.   let encrypted = cipher.update(text, 'utf8', 'hex');
   
9.   encrypted += cipher.final('hex');
   
10.   return {
    
11.     encryptedText: encrypted,
    
12.     key: key.toString('hex'), // 将密钥转换为hex字符串以进行传输
    
13.     iv: iv.toString('hex') // 将IV转换为hex字符串以进行传输
    
14.   };
    
15. }
    
16. 
    
17. let textToEncrypt = 'Hello, World!';
    
18. let encryptedData = encrypt(textToEncrypt, key, iv);
    
19. console.log(encryptedData);

复制代码

Delphi 7 解密代码

在Delphi 7中，你可以使用Indy库（也称为IdHTTPComponents）进行AES解密。首先，你需要下载并安装Indy库到你的Delphi环境中。

以下是一个简化的Delphi 7解密示例，它假设你已经有了加密的文本、密钥和IV（作为hex字符串）：

1. uses
   
2.   ..., IdAES, IdCoderMIME, IdGlobal;
   
3. 
   
4. function DecryptAES256CBC(const AEncryptedText, AKeyHex, AIVHex: string): string;
   
5. var
   
6.   AES: TIdAES;
   
7.   Decoder: TIdDecoderMIME;
   
8.   Key, IV: TIdBytes;
   
9.   Decrypted: TIdBytes;
   
10. begin
    
11.   // 初始化AES解密器
    
12.   AES := TIdAES.Create(nil);
    
13.   try
    
14.     // 将hex字符串转换为字节数组
    
15.     Key := IdGlobal.HexToBytes(AKeyHex);
    
16.     IV := IdGlobal.HexToBytes(AIVHex);
    
17. 
    
18.     // 设置密钥和IV
    
19.     AES.Key := Key;
    
20.     AES.InitVector := IV;
    
21.     AES.Mode := cbcAES;
    
22.     AES.Padding := pkcs7;
    
23. 
    
24.     // 解密
    
25.     Decrypted := AES.DecryptCBC(IdGlobal.StringToBytes(AEncryptedText, IndyTextEncoding_UTF8));
    
26. 
    
27.     // 将解密后的字节数组转换为字符串
    
28.     Decoder := TIdDecoderMIME.Create(nil);
    
29.     try
    
30.       Result := Decoder.DecodeBytes(Decrypted, IndyTextEncoding_UTF8);
    
31.     finally
    
32.       Decoder.Free;
    
33.     end;
    
34.   finally
    
35.     AES.Free;
    
36.   end;
    
37. end;
    
38. 
    
39. // 使用示例
    
40. var
    
41.   EncryptedText, KeyHex, IVHex: string;
    
42.   DecryptedText: string;
    
43. begin
    
44.   // 这里你应该从某处获取EncryptedText, KeyHex, IVHex的值（可能是从文件、网络或其他地方）
    
45.   DecryptedText := DecryptAES256CBC(EncryptedText, KeyHex, IVHex);
    
46.   ShowMessage(DecryptedText); // 显示解密后的文本
    
47. end;

复制代码

注意：

• 你需要确保在Delphi 7项目中正确地安装了Indy库，并将其包含在你的uses子句中。
• 这个示例使用了AES-256-CBC模式和PKCS7填充。确保Node.js和Delphi中的设置相匹配。
• 密钥和IV在Node.js中作为随机字节生成，但在实际应用中，你可能需要一种更安全的方式来管理和共享这些值。
• 加密和解密过程中使用的字符编码（在这个例子中是UTF-8）应该在两端保持一致。
•