Delphi XE 中的字符串生成哈希值（MD5 / SHA-1 / Jenkins）

本文整理自网络，侵删。

 
Delphi XE8和更高版本具有在System.Hash单元中生成哈希值的功能。

System.Hash.THashMD5 
实现MD5哈希的记录。
System.Hash.THashSHA1 
实现SHA-1哈希的记录。

System.Hash.THashBobJenkins 
实现Jenkins哈希的记录。

以下代码是使用THashMD5的示例。

md5

uses System.Hash;

procedure TForm1.Button1Click(Sender: TObject);
const
  MSG = 'Hello, world';
var
  MD5: THashMD5;
  Hash: string;
begin
  MD5 := THashMD5.Create;
  MD5.Update(MSG);
  Hash := MD5.HashAsString;

  Edit1.Text := Hash;
end;
您还可以从字节字符串生成哈希值。

procedure TForm1.Button2Click(Sender: TObject);
const
  MSG = 'Hello, world';
var
  MD5: THashMD5;
  Bytes: TBytes;
  Hash: string;
begin
  MD5 := THashMD5.Create;
  Bytes := TEncoding.UTF8.GetBytes(MSG);
  MD5.Update(Bytes, Length(Bytes));
  Hash := MD5.HashAsString;

  Edit2.Text := Hash;
end;
 

相关阅读 >>

Delphi 把字符串复制到剪贴板

Delphi 如果判断一个网络文件是否存在？

cnpack sqlite tool 2.04

Delphi 如何从html格式的字符串中提取纯文本？

Delphi编写dll(以及静态和动态方式调用)

Delphi api 函数: getcursorpos 与转换

Delphi 下保存真彩彩图标的方法实例

Delphi 获取当天是星期几，计算两个日期相隔时间

Delphi 获得memo、richedit的光标位置

Delphi中动态加载image控件图片的方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE 中的字符串生成哈希值（MD5 / SHA-1 / Jenkins）