DELPHI7 base64加解密

源码资源网

DELPHI7  base64加解密
在Delphi 7中，可以使用内置的Indy组件库中的TIdEncoderMIME和TIdDecoderMIME来进行Base64加解密。以下是一个简单的例子：

1. uses
   
2.   IdCoderMIME, IdGlobal;
   
3. 
   
4. function EncodeBase64(const AData: string): string;
   
5. begin
   
6.   Result := TIdEncoderMIME.EncodeString(AData);
   
7. end;
   
8. 
   
9. function DecodeBase64(const AData: string): string;
   
10. begin
    
11.   Result := TIdDecoderMIME.DecodeString(AData);
    
12. end;
    
13. 
    
14. // 使用示例
    
15. var
    
16.   OriginalText: string;
    
17.   EncodedText: string;
    
18.   DecodedText: string;
    
19. begin
    
20.   OriginalText := 'Hello, World!';
    
21.   
    
22.   // 加密
    
23.   EncodedText := EncodeBase64(OriginalText);
    
24.   // EncodedText 现在是 "SGVsbG8sIFdvcmxkIQ=="
    
25.   
    
26.   // 解密
    
27.   DecodedText := DecodeBase64(EncodedText);
    
28.   // DecodedText 现在是 "Hello, World!"
    
29. end;

复制代码

在这个例子中，EncodeBase64 函数负责将字符串数据进行Base64编码，而 DecodeBase64 函数负责将Base64编码的字符串数据进行解码。TIdEncoderMIME.EncodeString 和 TIdDecoderMIME.DecodeString 是Indy组件库提供的用于Base64编码和解码的方法。

请确保在项目中包含了IdCoderMIME和IdGlobal单元，并且安装了Indy组件库。如果没有安装Indy组件库，你可能需要从官方网站下载并安装。