CnPack Forum


 
Subject: cnmd5发现在delphi xe有问题,转向采用自带的MessageDigest_5.pas。
mrlong
新警察
Rank: 1



UID 2268
Digest Posts 0
Credits 12
Posts 5
点点分 12
Reading Access 10
Registered 2006-6-16
Status Offline
Post at 2011-8-18 21:59  Profile | Site | Blog | P.M. 
cnmd5发现在delphi xe有问题,转向采用自带的MessageDigest_5.pas。

MessageDigest_5.pas 在  C:\Program Files\Embarcadero\RAD Studio\8.0\source\soap\wsdlimporter 下面

uses
  Types,
  MessageDigest_5;

function MD5Str(AStr:string):string;
var
  MD5: IMD5;
begin
  MD5 := GetMD5;
  MD5.Init;
  MD5.Update(TByteDynArray(RawByteString(AStr)), Length(AStr));
  Result := LowerCase(MD5.AsString);
end;
Top
 




All times are GMT++8, the time now is 2022-1-25 00:53

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.007146 second(s), 7 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP