求一段.NET的MD5函数转换为Delphi 本帖最后由 xeqtrl982 于 2011-03-20 10:37:12 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 直接使用delphi版的MD5函数不行吗?网上搜索多的是。如果找不到合适的,可参见我的BLOG:http://blog.csdn.net/maozefa/archive/2007/06/15/1653560.aspx use CnMD5;//CNPACK中的MD5单元MD5Print(MD5StringW('xxxxxx')) function MD5(toCryString:Widestring):Widestring; { //异常处理自己加一下 result:=MD5Print(MD5StringW(toCryString)) } MD5都是一样的,Delphi自带也有XE下的代码uses IdHashMessageDigest;function MD5String(Text: string): string;var MD5: TIdHashMessageDigest5;begin MD5 := TIdHashMessageDigest5.Create; Result := MD5.HashStringAsHex(Text); MD5.Free;end; 为什么我的IdTCPClient连接成功了,IdTCPServer却没有任何反应?? 出现Runtime error 216 at xxxxxxx错误提示 TCPIP服务器端向客户端发送数据,为什么我这报错? 新手求助:DLL中添加控件事件的问题 扩展ASCII码的显示问题 需要一个可以用的cxgrid 权限控制问题 安装delphi7出项的问题,请大家帮忙看看是什么原因? 关于事务提交的问题 在delphi中怎样利用TTbale控件来实现数据库的修改,就是update了。急!!!! 鼠标移动到柱状图时,柱状图显示value的事件是什么 寻求高手帮助
如果找不到合适的,可参见我的BLOG:
http://blog.csdn.net/maozefa/archive/2007/06/15/1653560.aspx
use
CnMD5;//CNPACK中的MD5单元MD5Print(MD5StringW('xxxxxx'))
function MD5(toCryString:Widestring):Widestring;
{
//异常处理自己加一下
result:=MD5Print(MD5StringW(toCryString))
}
XE下的代码uses
IdHashMessageDigest;function MD5String(Text: string): string;
var
MD5: TIdHashMessageDigest5;
begin
MD5 := TIdHashMessageDigest5.Create;
Result := MD5.HashStringAsHex(Text);
MD5.Free;
end;