829
社区成员
发帖
与我相关
我的任务
分享delphi xe2下如何使用md5加密
在D7下可以正确的对密码进行MD5加密，但是在XE2下就不行，大概也知道这个字符串的不同，大事目前有什么办法可以解决?
...全文
请发表友善的回复…
发表回复
一如当初 2012-02-23
- 打赏
- 举报
uses
IdHashMessageDigest;
function MD5String(Text: string): string;
var
MD5: TIdHashMessageDigest5;
begin
MD5 := TIdHashMessageDigest5.Create;
Result := MD5.HashStringAsHex(Text, TEncoding.UTF8);
MD5.Free;
end;
funxu 2012-02-23
- 打赏
- 举报
没在xe2下试过，你可以尝试修改加密模块中的string->ansistring，还有注意字符串处理函数中的数字已经是字符而不是字节了
funxu 2012-02-23
- 打赏
- 举报
d7是ansi字符集，xe2是unicode字符集
