关于delphi的MD5算法 各位兄弟姐妹有没有delphi的MD5算法的denmo,小弟在项目中遇到棘手就是客户那边的要求用MD5加密,而且要用密钥的,但是我网上找了很多资料都没见到带密钥参数的算法,现在项目就卡在这里了,各位帮帮忙 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 MD5 是破坏性加密,加密时是不存在密钥的。但是也有一种方法是人工添加密钥混合进明文中: 比如: 明文是“ABCDEFG” ,密钥是“ABC123” 那么用MD5加密前把 明文+密钥 “ABCDEFGABC123” 后再用 MD5加密。 给你个函数,XE中没问题,其他版本没试过uses IdHashMessageDigest;function MD5(input:string):string;var MyMD5 : TIdHashMessageDigest5;begin MyMD5 := TIdHashMessageDigest5.Create;try result:= MyMD5.HashStringAsHex(input);finally MyMD5.Free;end;end; 关于在dbgird 中加鼠标滚动遇到的问题 高分求助 事物处理 中Exit 没有效果 关于Beep()函数的使用 急需用DELPHI做过VISIO二次开发的大侠!! 怎样使ComboBox只能选择不能修改。在线给分 请教发音问题~~~急!!! midas做的多层数据库中M/D数据不能正确显示,是何道理? 我该如何才能做到处理完一个再处理一个 帮我看看我的SQL语句哪 有问题 我想打印一张表格,请问有哪些办法?(不断加分中) 我想问一个问题。关于delphi、数据库的 如何结束以system运行的进程,exe文件?
那么用MD5加密前把 明文+密钥 “ABCDEFGABC123” 后再用 MD5加密。
var
MyMD5 : TIdHashMessageDigest5;
begin
MyMD5 := TIdHashMessageDigest5.Create;
try
result:= MyMD5.HashStringAsHex(input);
finally
MyMD5.Free;
end;end;