paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 08:30:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed range/overflow errors

Browse Source 
git-svn-id: trunk@12704 -
This commit is contained in:
Jonas Maebe 2009-02-07 21:27:34 +00:00
parent 0a14c8824e
commit 1f75d8734d
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -233,6 +233,9 @@ end;
procedure MD4Transform(var Context: TMDContext; Buffer: Pointer);
{$push}
{$r-,q-}
procedure R1(var a: Cardinal; b,c,d,x: Cardinal; s: Byte);
// F(x,y,z) = (x and y) or ((not x) and z)
begin
@ -251,6 +254,8 @@ procedure MD4Transform(var Context: TMDContext; Buffer: Pointer);
a := roldword(dword(a + {H(b,c,d)}(b xor c xor d) + x + $6ED9EBA1), s);
end;
{$pop}
var
a, b, c, d: Cardinal;
Block: array[0..15] of Cardinal;
@ -279,16 +284,22 @@ begin
R3(a,b,c,d,Block[1], 3); R3(d,a,b,c,Block[9], 9); R3(c,d,a,b,Block[5], 11); R3(b,c,d,a,Block[13],15);
R3(a,b,c,d,Block[3], 3); R3(d,a,b,c,Block[11], 9); R3(c,d,a,b,Block[7], 11); R3(b,c,d,a,Block[15],15);
{$push}
{$r-,q-}
inc(Context.State[0], a);
inc(Context.State[1], b);
inc(Context.State[2], c);
inc(Context.State[3], d);
{$pop}
inc(Context.Length,64);
end;
procedure MD5Transform(var Context: TMDContext; Buffer: Pointer);
{$push}
{$r-,q-}
procedure R1(var a: Cardinal; b,c,d,x: Cardinal; s: Byte; ac: Cardinal);
// F(x,y,z) = (x and y) or ((not x) and z)
begin
@ -313,6 +324,8 @@ procedure MD5Transform(var Context: TMDContext; Buffer: Pointer);
a := b + roldword(dword(a + {I(b,c,d)}(c xor (b or (not d))) + x + ac), s);
end;
{$pop}
var
a, b, c, d: Cardinal;
Block: array[0..15] of Cardinal;
@ -347,10 +360,13 @@ begin
R4(a,b,c,d,Block[8] , 6,$6fa87e4f); R4(d,a,b,c,Block[15],10,$fe2ce6e0); R4(c,d,a,b,Block[6] ,15,$a3014314); R4(b,c,d,a,Block[13],21,$4e0811a1);
R4(a,b,c,d,Block[4] , 6,$f7537e82); R4(d,a,b,c,Block[11],10,$bd3af235); R4(c,d,a,b,Block[2] ,15,$2ad7d2bb); R4(b,c,d,a,Block[9] ,21,$eb86d391);
{$push}
{$r-,q-}
inc(Context.State[0],a);
inc(Context.State[1],b);
inc(Context.State[2],c);
inc(Context.State[3],d);
{$pop}
inc(Context.Length,64);
end;