delphi MD5加密
时间: 2023-05-25 18:00:50 浏览: 626
Delphi 中可以使用 TIdHashMessageDigest5 类来进行 MD5 加密。
首先需要添加 IdHashMessageDigest 单元到项目中,然后可以像下面这样进行加密:
```delphi
uses
IdHashMessageDigest;
function MD5(const str: string): string;
var
hash: TIdHashMessageDigest5;
begin
hash := TIdHashMessageDigest5.Create;
try
Result := LowerCase(hash.HashStringAsHex(str));
finally
hash.Free;
end;
end;
```
然后就可以调用该函数进行 MD5 加密了:
```delphi
Memo1.Text := MD5('hello world');
```
输出就是 `5eb63bbbe01eeed093cb22bb8f5acdc3`。
相关问题
Delphi MD5加密
Delphi 中可以使用 IdHashMessageDigest.TIdHashMessageDigest5 类来实现 MD5 加密。
以下是一个简单的 Delphi 程序示例,演示如何使用 TIdHashMessageDigest5 类进行 MD5 加密:
```delphi
uses
IdHashMessageDigest;
function MD5(const AStr: string): string;
var
IdHashMessageDigest5: TIdHashMessageDigest5;
begin
IdHashMessageDigest5 := TIdHashMessageDigest5.Create;
try
Result := IdHashMessageDigest5.HashStringAsHex(AStr);
finally
IdHashMessageDigest5.Free;
end;
end;
```
在上面的示例中,MD5 函数接受一个字符串参数并返回一个字符串结果。要使用该函数,只需调用 MD5 函数并将要加密的字符串作为参数传递给它即可。
例如:
```delphi
var
EncryptedStr: string;
begin
EncryptedStr := MD5('Hello World!');
ShowMessage(EncryptedStr);
end;
```
运行上面的代码,将在消息框中显示字符串 "ed076287532e86365e841e92bfc50d8c",这就是 "Hello World!" 的 MD5 加密结果。
阅读全文