diff options
-rw-r--r-- | Dbx_mmap_SA/Cryptors/Athena/md5_unit.pas | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Dbx_mmap_SA/Cryptors/Athena/md5_unit.pas b/Dbx_mmap_SA/Cryptors/Athena/md5_unit.pas index 500a2eb..f9a130b 100644 --- a/Dbx_mmap_SA/Cryptors/Athena/md5_unit.pas +++ b/Dbx_mmap_SA/Cryptors/Athena/md5_unit.pas @@ -17,7 +17,8 @@ const function Int2Hex(Value:dword;Digits:integer=0):AnsiString;
var
- i:dword;
+ i:cardinal;
+ buf:array [0..31] of AnsiChar;
begin
if Digits<=0 then
begin
@@ -28,13 +29,14 @@ begin inc(Digits);
until i=0;
end;
- result:='';
- result[Digits]:=#0;
+
+ buf[Digits]:=#0;
repeat
- result[Digits]:=AnsiChar(HexDigitChr[Value and $F]);
- Value:=Value shr 4;
Dec(Digits);
+ buf[Digits]:=AnsiChar(HexDigitChr[Value and $F]);
+ Value:=Value shr 4;
until Digits=0;
+ result:=buf;
end;
//==============================================================================
function MD5_arr(const s: AnsiString): TMD5;
|