Delphi MD5加密
2014-04-17 12:05
363 查看
Delphi MD5加密
1、 引用两个单元
uses IdHash,IdHashMessageDigest;
2、编写加密函数
function TEncryption.StrtoMd5(str: string): string;
var
md5 : TIdHashMessageDigest5;
longWordRec : T4x4LongWordRecord;
begin
md5 := TIdHashMessageDigest5.Create;
longWordRec:=md5.HashValue(str);
Result:=copy(LowerCase(md5.AsHex(longWordRec)),9,16);
end;
3、调用
Password:= StrtoMd5('abcd123');//加密password；
showmessage(Password);//show 加密后的文本
1、 引用两个单元
uses IdHash,IdHashMessageDigest;
2、编写加密函数
function TEncryption.StrtoMd5(str: string): string;
var
md5 : TIdHashMessageDigest5;
longWordRec : T4x4LongWordRecord;
begin
md5 := TIdHashMessageDigest5.Create;
longWordRec:=md5.HashValue(str);
Result:=copy(LowerCase(md5.AsHex(longWordRec)),9,16);
end;
3、调用
Password:= StrtoMd5('abcd123');//加密password；
showmessage(Password);//show 加密后的文本
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- delphi 开发的系统在win7下出现的 'Invalid data type for 'UserPreferencesMask'的解决
- delphi公用函数
- Delphi 实现对注册表的监视和扫描
- Delphi的RTTI（许多参考链接）
- VC调用Delphi的DLL时遇到的问题及解决
- 关于Delphi中Interface的作用
- 用Delphi实现快闪窗体信息提示
- Delphi 中的引用 (2008-07-25 11:04:32)
- win32中SetCapture 和 ReleaseCapture的使用
- Delphi XE6,Rad Studio XE6 Update 1 官方下载(附Delphi XE6破解)
- Delphi Excel 操作大全
- 基于Delphi的融合DLL中的窗口
- delphi身份证验证
- delphi7 dbgrid中加入COMBOBOX
- delphi绘图
- Delphi FastReport组件下载，包含多个版本，自己选择
- Delphi中的TIdSMTP和TIdMessage控件的使用说明
- PCX Image是一款针对Borland Delphi and C++ Builder开发者提供的使用工具
- delphi fileclose和closefile的区别
- delphi中copy函数