summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Dbx_mmap_SA/Cryptors/Athena/md5_unit.pas12
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;