delphi xe2下怎么使用md5加密
delphi xe2下如何使用md5加密
在D7下可以正确的对密码进行MD5加密,但是在XE2下就不行,大概也知道这个字符串的不同,大事目前有什么办法可以解决?
------解决方案--------------------
在D7下可以正确的对密码进行MD5加密,但是在XE2下就不行,大概也知道这个字符串的不同,大事目前有什么办法可以解决?
------解决方案--------------------
- Delphi(Pascal) code
uses IdHashMessageDigest; function MD5String(Text: string): string; var MD5: TIdHashMessageDigest5; begin MD5 := TIdHashMessageDigest5.Create; Result := MD5.HashStringAsHex(Text, TEncoding.UTF8); MD5.Free; end;