package md5 should have a String to md5 conversion StrtoMD5 (to do the reverse of MD5Print)
Original Reporter info from Mantis: gvs
Description:
//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;
Mantis conversion info:
-
Mantis ID: 23397
-
Fixed in version: 3.0.0
-
Fixed in revision: 26350 (#2a4385c1)