MD5 delPhi 加密

最新推荐文章于 2024-07-28 21:24:05 发布

云中雁012345

最新推荐文章于 2024-07-28 21:24:05 发布

阅读量2.1k

点赞数

分类专栏： delphi菜鸟成长之道

本文链接：https://blog.csdn.net/peixiaobin_blog/article/details/50742332

版权

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdHashMessageDigest,IdGlobal, IdHash,util_utf8;

type
TForm1 = class(TForm)
btn1: TButton;
procedure btn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function MD5Ecryption(source:String):string;//MD5加密
var
MyMD5:TIdHashMessageDigest5;
Digest:T4x4LongWordRecord;
ciphertext:String;//返回密文
begin
Result := '';
MyMD5 := TIdHashMessageDigest5.Create;
Digest := MyMD5.Hash