paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 12:26:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* simple strtomd5 function from mantis #23397

Browse Source 
git-svn-id: trunk@26350 -
This commit is contained in:
marco 2014-01-01 19:52:21 +00:00
parent 988b742d71
commit 2a4385c196
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/hash/src/md5.pp
View File

@ -147,10 +147,13 @@ function MD4Print(const Digest: TMD4Digest): String; inline;
function MD4Match(const Digest1, Digest2: TMD4Digest): Boolean; inline;
function MD5Print(const Digest: TMD5Digest): String; inline;
function StrtoMD5(const MD5String:String):TMDDigest;
function MD5Match(const Digest1, Digest2: TMD5Digest): Boolean; inline;
implementation
uses sysutils;
// inverts the bytes of (Count div 4) cardinals from source to target.
procedure Invert(Source, Dest: Pointer; Count: PtrUInt);
var
@ -664,4 +667,21 @@ begin
Result := MDMatch(Digest1, Digest2);
end;
//convert the String representation of a digest to a TMDDigest
//on error all fields are set to $00
function StrtoMD5(const MD5String:String):TMDDigest;
var I: Byte;
t: integer;
f: boolean;
begin
f:= Length(MD5String) = 32;
if f then
for I := 0 to 15 do
begin
f:= f and TryStrToInt('$'+copy(MD5String,i*2+1, 2), t);
Result[I]:= t;
end;
if not f then
FillChar(Result, Sizeof(Result), 0);
end;
end.