hi guys i need the string of a md5 digest
(something like "9e107d9d372bb6826bd81d3542a419d6"),
im trying this way, but it is not working right
function LCStrMD5(const str: string): string;
const
Digits: array[0..15] of Char =
('0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f');
var
i: Integer;
begin
Result := MD5(str);
for i := 1 to 16 do
Result := Result + Digits[Byte(Result[i]) shr 4] +
Digits[Byte(Result[i]) and $f];
Result := AnsiLowerCase(Result);
end;
someone can help me?
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
