Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

md5 complete + md5sum added as a prog.

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@971 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
2020-07-11 00:44:05 +00:00
parent 86013b1125
commit 739898068b
7 changed files with 338 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

208
src/include/md5.pas
View File

@ -41,6 +41,7 @@ var
I : uInt32;
begin
tracer.push_trace('MD5.Invert');
S := Source;
T := Dest;
for I := 1 to (Count div 4) do begin
@ -50,65 +51,94 @@ begin
end;
end;
procedure MD5Transform(context : PMD5Context; buffer : PuInt8);
procedure R1(a : PuInt32; b,c,d,x : uInt32; s : uInt8; ac : uInt32);
begin
a^ := b + RolDWord(uInt32(a^ + ((b and c) or ((not b) and d)) + x + ac), s);
end;
procedure R2(a : PuInt32; b,c,d,x : uInt32; s : uInt8; ac : uInt32);
begin
a^ := b + RolDWord(uInt32(a^ + ((b and d) or (c and (not d))) + x + ac), s);
end;
procedure R3(a : PuInt32; b,c,d,x : uInt32; s : uInt8; ac : uInt32);
begin
a^ := b + RolDWord(uInt32(a^ + (b xor c xor d) + x + ac), s);
end;
procedure R4(a : PuInt32; b,c,d,x : uInt32; s : uInt8; ac : uInt32);
begin
a^ := b + RolDWord(uInt32(a^ + (c xor (b or (not d))) + x + ac), s);
end;
procedure MD5Transform(Context: PMD5Context; Buffer: Pointer);
type
TBlock = array[0..15] of Cardinal;
PBlock = ^TBlock;
var
a, b, c, d : uInt32;
Block : array[0..15] of uInt32;
a, b, c, d: Cardinal;
//Block: array[0..15] of Cardinal absolute Buffer;
Block: PBlock absolute Buffer;
begin
Invert(Buffer, @Block, 64);
a := context^.State[0];
b := context^.State[1];
c := context^.State[2];
d := context^.State[3];
tracer.push_trace('MD5.MD5Transform');
//Invert(Buffer, @Block, 64);
a := Context^.State[0];
b := Context^.State[1];
c := Context^.State[2];
d := Context^.State[3];
// Round 1
R1(PuInt32(@a),b,c,d,Block[0] , 7,$d76aa478); R1(PuInt32(@d),a,b,c,Block[1] ,12,$e8c7b756); R1(PuInt32(@c),d,a,b,Block[2] ,17,$242070db); R1(PuInt32(@b),c,d,a,Block[3] ,22,$c1bdceee);
R1(PuInt32(@a),b,c,d,Block[4] , 7,$f57c0faf); R1(PuInt32(@d),a,b,c,Block[5] ,12,$4787c62a); R1(PuInt32(@c),d,a,b,Block[6] ,17,$a8304613); R1(PuInt32(@b),c,d,a,Block[7] ,22,$fd469501);
R1(PuInt32(@a),b,c,d,Block[8] , 7,$698098d8); R1(PuInt32(@d),a,b,c,Block[9] ,12,$8b44f7af); R1(PuInt32(@c),d,a,b,Block[10],17,$ffff5bb1); R1(PuInt32(@b),c,d,a,Block[11],22,$895cd7be);
R1(PuInt32(@a),b,c,d,Block[12], 7,$6b901122); R1(PuInt32(@d),a,b,c,Block[13],12,$fd987193); R1(PuInt32(@c),d,a,b,Block[14],17,$a679438e); R1(PuInt32(@b),c,d,a,Block[15],22,$49b40821);
a := b + roldword(dword(a + ((b and c) or ((not b) and d)) + Block^[0] + $d76aa478), 7);
d := a + roldword(dword(d + ((a and b) or ((not a) and c)) + Block^[1] + $e8c7b756), 12);
c := d + roldword(dword(c + ((d and a) or ((not d) and b)) + Block^[2] + $242070db), 17);
b := c + roldword(dword(b + ((c and d) or ((not c) and a)) + Block^[3] + $c1bdceee), 22);
a := b + roldword(dword(a + ((b and c) or ((not b) and d)) + Block^[4] + $f57c0faf), 7);
d := a + roldword(dword(d + ((a and b) or ((not a) and c)) + Block^[5] + $4787c62a), 12);
c := d + roldword(dword(c + ((d and a) or ((not d) and b)) + Block^[6] + $a8304613), 17);
b := c + roldword(dword(b + ((c and d) or ((not c) and a)) + Block^[7] + $fd469501), 22);
a := b + roldword(dword(a + ((b and c) or ((not b) and d)) + Block^[8] + $698098d8), 7);
d := a + roldword(dword(d + ((a and b) or ((not a) and c)) + Block^[9] + $8b44f7af), 12);
c := d + roldword(dword(c + ((d and a) or ((not d) and b)) + Block^[10] + $ffff5bb1), 17);
b := c + roldword(dword(b + ((c and d) or ((not c) and a)) + Block^[11] + $895cd7be), 22);
a := b + roldword(dword(a + ((b and c) or ((not b) and d)) + Block^[12] + $6b901122), 7);
d := a + roldword(dword(d + ((a and b) or ((not a) and c)) + Block^[13] + $fd987193), 12);
c := d + roldword(dword(c + ((d and a) or ((not d) and b)) + Block^[14] + $a679438e), 17);
b := c + roldword(dword(b + ((c and d) or ((not c) and a)) + Block^[15] + $49b40821), 22);
// Round 2
R2(PuInt32(@a),b,c,d,Block[1] , 5,$f61e2562); R2(PuInt32(@d),a,b,c,Block[6] , 9,$c040b340); R2(PuInt32(@c),d,a,b,Block[11],14,$265e5a51); R2(PuInt32(@b),c,d,a,Block[0] ,20,$e9b6c7aa);
R2(PuInt32(@a),b,c,d,Block[5] , 5,$d62f105d); R2(PuInt32(@d),a,b,c,Block[10], 9,$02441453); R2(PuInt32(@c),d,a,b,Block[15],14,$d8a1e681); R2(PuInt32(@b),c,d,a,Block[4] ,20,$e7d3fbc8);
R2(PuInt32(@a),b,c,d,Block[9] , 5,$21e1cde6); R2(PuInt32(@d),a,b,c,Block[14], 9,$c33707d6); R2(PuInt32(@c),d,a,b,Block[3] ,14,$f4d50d87); R2(PuInt32(@b),c,d,a,Block[8] ,20,$455a14ed);
R2(PuInt32(@a),b,c,d,Block[13], 5,$a9e3e905); R2(PuInt32(@d),a,b,c,Block[2] , 9,$fcefa3f8); R2(PuInt32(@c),d,a,b,Block[7] ,14,$676f02d9); R2(PuInt32(@b),c,d,a,Block[12],20,$8d2a4c8a);
a := b + roldword(dword(a + ((b and d) or (c and (not d))) + Block^[1] + $f61e2562), 5);
d := a + roldword(dword(d + ((a and c) or (b and (not c))) + Block^[6] + $c040b340), 9);
c := d + roldword(dword(c + ((d and b) or (a and (not b))) + Block^[11] + $265e5a51), 14);
b := c + roldword(dword(b + ((c and a) or (d and (not a))) + Block^[0] + $e9b6c7aa), 20);
a := b + roldword(dword(a + ((b and d) or (c and (not d))) + Block^[5] + $d62f105d), 5);
d := a + roldword(dword(d + ((a and c) or (b and (not c))) + Block^[10] + $02441453), 9);
c := d + roldword(dword(c + ((d and b) or (a and (not b))) + Block^[15] + $d8a1e681), 14);
b := c + roldword(dword(b + ((c and a) or (d and (not a))) + Block^[4] + $e7d3fbc8), 20);
a := b + roldword(dword(a + ((b and d) or (c and (not d))) + Block^[9] + $21e1cde6), 5);
d := a + roldword(dword(d + ((a and c) or (b and (not c))) + Block^[14] + $c33707d6), 9);
c := d + roldword(dword(c + ((d and b) or (a and (not b))) + Block^[3] + $f4d50d87), 14);
b := c + roldword(dword(b + ((c and a) or (d and (not a))) + Block^[8] + $455a14ed), 20);
a := b + roldword(dword(a + ((b and d) or (c and (not d))) + Block^[13] + $a9e3e905), 5);
d := a + roldword(dword(d + ((a and c) or (b and (not c))) + Block^[2] + $fcefa3f8), 9);
c := d + roldword(dword(c + ((d and b) or (a and (not b))) + Block^[7] + $676f02d9), 14);
b := c + roldword(dword(b + ((c and a) or (d and (not a))) + Block^[12] + $8d2a4c8a), 20);
// Round 3
R3(PuInt32(@a),b,c,d,Block[5] , 4,$fffa3942); R3(PuInt32(@d),a,b,c,Block[8] ,11,$8771f681); R3(PuInt32(@c),d,a,b,Block[11],16,$6d9d6122); R3(PuInt32(@b),c,d,a,Block[14],23,$fde5380c);
R3(PuInt32(@a),b,c,d,Block[1] , 4,$a4beea44); R3(PuInt32(@d),a,b,c,Block[4] ,11,$4bdecfa9); R3(PuInt32(@c),d,a,b,Block[7] ,16,$f6bb4b60); R3(PuInt32(@b),c,d,a,Block[10],23,$bebfbc70);
R3(PuInt32(@a),b,c,d,Block[13], 4,$289b7ec6); R3(PuInt32(@d),a,b,c,Block[0] ,11,$eaa127fa); R3(PuInt32(@c),d,a,b,Block[3] ,16,$d4ef3085); R3(PuInt32(@b),c,d,a,Block[6] ,23,$04881d05);
R3(PuInt32(@a),b,c,d,Block[9] , 4,$d9d4d039); R3(PuInt32(@d),a,b,c,Block[12],11,$e6db99e5); R3(PuInt32(@c),d,a,b,Block[15],16,$1fa27cf8); R3(PuInt32(@b),c,d,a,Block[2] ,23,$c4ac5665);
a := b + roldword(dword(a + (b xor c xor d) + Block^[5] + $fffa3942), 4);
d := a + roldword(dword(d + (a xor b xor c) + Block^[8] + $8771f681), 11);
c := d + roldword(dword(c + (d xor a xor b) + Block^[11] + $6d9d6122), 16);
b := c + roldword(dword(b + (c xor d xor a) + Block^[14] + $fde5380c), 23);
a := b + roldword(dword(a + (b xor c xor d) + Block^[1] + $a4beea44), 4);
d := a + roldword(dword(d + (a xor b xor c) + Block^[4] + $4bdecfa9), 11);
c := d + roldword(dword(c + (d xor a xor b) + Block^[7] + $f6bb4b60), 16);
b := c + roldword(dword(b + (c xor d xor a) + Block^[10] + $bebfbc70), 23);
a := b + roldword(dword(a + (b xor c xor d) + Block^[13] + $289b7ec6), 4);
d := a + roldword(dword(d + (a xor b xor c) + Block^[0] + $eaa127fa), 11);
c := d + roldword(dword(c + (d xor a xor b) + Block^[3] + $d4ef3085), 16);
b := c + roldword(dword(b + (c xor d xor a) + Block^[6] + $04881d05), 23);
a := b + roldword(dword(a + (b xor c xor d) + Block^[9] + $d9d4d039), 4);
d := a + roldword(dword(d + (a xor b xor c) + Block^[12] + $e6db99e5), 11);
c := d + roldword(dword(c + (d xor a xor b) + Block^[15] + $1fa27cf8), 16);
b := c + roldword(dword(b + (c xor d xor a) + Block^[2] + $c4ac5665), 23);
// Round 4
R4(PuInt32(@a),b,c,d,Block[0] , 6,$f4292244); R4(PuInt32(@d),a,b,c,Block[7] ,10,$432aff97); R4(PuInt32(@c),d,a,b,Block[14],15,$ab9423a7); R4(PuInt32(@b),c,d,a,Block[5] ,21,$fc93a039);
R4(PuInt32(@a),b,c,d,Block[12], 6,$655b59c3); R4(PuInt32(@d),a,b,c,Block[3] ,10,$8f0ccc92); R4(PuInt32(@c),d,a,b,Block[10],15,$ffeff47d); R4(PuInt32(@b),c,d,a,Block[1] ,21,$85845dd1);
R4(PuInt32(@a),b,c,d,Block[8] , 6,$6fa87e4f); R4(PuInt32(@d),a,b,c,Block[15],10,$fe2ce6e0); R4(PuInt32(@c),d,a,b,Block[6] ,15,$a3014314); R4(PuInt32(@b),c,d,a,Block[13],21,$4e0811a1);
R4(PuInt32(@a),b,c,d,Block[4] , 6,$f7537e82); R4(PuInt32(@d),a,b,c,Block[11],10,$bd3af235); R4(PuInt32(@c),d,a,b,Block[2] ,15,$2ad7d2bb); R4(PuInt32(@b),c,d,a,Block[9] ,21,$eb86d391);
inc(context^.State[0],a);
inc(context^.State[1],b);
inc(context^.State[2],c);
inc(context^.State[3],d);
inc(context^.Length,64);
a := b + roldword(dword(a + (c xor (b or (not d))) + Block^[0] + $f4292244), 6);
d := a + roldword(dword(d + (b xor (a or (not c))) + Block^[7] + $432aff97), 10);
c := d + roldword(dword(c + (a xor (d or (not b))) + Block^[14] + $ab9423a7), 15);
b := c + roldword(dword(b + (d xor (c or (not a))) + Block^[5] + $fc93a039), 21);
a := b + roldword(dword(a + (c xor (b or (not d))) + Block^[12] + $655b59c3), 6);
d := a + roldword(dword(d + (b xor (a or (not c))) + Block^[3] + $8f0ccc92), 10);
c := d + roldword(dword(c + (a xor (d or (not b))) + Block^[10] + $ffeff47d), 15);
b := c + roldword(dword(b + (d xor (c or (not a))) + Block^[1] + $85845dd1), 21);
a := b + roldword(dword(a + (c xor (b or (not d))) + Block^[8] + $6fa87e4f), 6);
d := a + roldword(dword(d + (b xor (a or (not c))) + Block^[15] + $fe2ce6e0), 10);
c := d + roldword(dword(c + (a xor (d or (not b))) + Block^[6] + $a3014314), 15);
b := c + roldword(dword(b + (d xor (c or (not a))) + Block^[13] + $4e0811a1), 21);
a := b + roldword(dword(a + (c xor (b or (not d))) + Block^[4] + $f7537e82), 6);
d := a + roldword(dword(d + (b xor (a or (not c))) + Block^[11] + $bd3af235), 10);
c := d + roldword(dword(c + (a xor (d or (not b))) + Block^[2] + $2ad7d2bb), 15);
b := c + roldword(dword(b + (d xor (c or (not a))) + Block^[9] + $eb86d391), 21);
inc(Context^.State[0],a);
inc(Context^.State[1],b);
inc(Context^.State[2],c);
inc(Context^.State[3],d);
inc(Context^.Length,64);
end;
procedure MD5Init(context : PMD5Context);
@ -121,7 +151,7 @@ begin
context^.State[2] := $98badcfe;
context^.State[3] := $10325476;
context^.Length := 0;
context^.BufferCount := 0;
context^.BufferCount := 0;
end;
procedure MD5Update(context : PMD5Context; buffer : PuInt8; bufferLen : uInt32);
@ -129,38 +159,35 @@ var
Align : uInt32;
Src : PuInt8;
Num : uInt32;
begin
i : uint32;
begin
tracer.push_trace('MD5.MD5Update');
if bufferLen = 0 then Exit;
Align := context^.Align;
Src := buffer;
Num := 0;
if context^.BufferCount > 0 then begin
Num := Align - context^.BufferCount;
if Num > bufferLen then
num := bufferLen;
memcpy(uInt32(Src), uInt32(@context^.Buffer[0]), Num);
context^.BufferCount := context^.BufferCount + Num;
Src := PuInt8(uInt32(Src) + Num);
if context^.BufferCount = Align then begin
MD5Transform(context, @context^.buffer[0]);
if context^.BufferCount > 0 then begin
Num := Align - context^.BufferCount;
if Num > bufferLen then num := bufferLen;
memcpy(uInt32(Src), uInt32(@context^.Buffer[Context^.BufferCount]), Num);
context^.BufferCount := context^.BufferCount + Num;
Src := PuInt8(uInt32(Src) + uint32(Num));
if context^.BufferCount = Align then begin
MD5Transform(context, @context^.buffer[0]);
context^.BufferCount := 0;
end;
end;
end;
Num := bufferLen - Num;
While Num >= Align do begin
MD5Transform(context, Src);
Src := PuInt8(uInt32(Src) + Align);
Num := Num - Align;
end;
if Num > 0 then begin
context^.BufferCount := Num;
if Num > 0 then begin
context^.BufferCount := Num;
memcpy(uInt32(Src), uInt32(@context^.Buffer[0]), Num);
end;
end;
end;
function MD5Final(context : PMD5Context) : PMD5Digest;
@ -170,6 +197,8 @@ var
Length : uInt64;
Pads : uInt32;
Digest : PMD5Digest;
i : uint32;
begin
tracer.push_trace('MD5.MD5Final');
Length := 8 * (context^.Length + context^.BufferCount);
@ -178,15 +207,12 @@ begin
else
Pads := 56 - context^.BufferCount;
MD5Update(context, PuInt8(@MD5_Padding[0]), Pads);
MD5Update(context, PuInt8(@Length), 8);
Digest := PMD5Digest(kalloc(SizeOf(TMD5Digest)));
memset(uInt32(Digest), 0, SizeOf(TMD5Digest));
Invert(PuInt8(@context^.State[0]), PuInt32(@Digest[0]), 16);
memset(uInt32(context), 0, SizeOf(TMD5Context));
MD5Final := Digest;
MD5Update(context, PuInt8(@Length), 8);
Digest := PMD5Digest(kalloc(SizeOf(TMD5Digest)));
memset(uInt32(Digest), 0, SizeOf(TMD5Digest));
Invert(PuInt8(@context^.State), PuInt32(Digest), 16);
memset(uInt32(context), 0, SizeOf(TMD5Context));
MD5Final := Digest;
end;
function MD5Buffer(buffer : PuInt8; bufferLen : uInt32) : PMD5Digest;
@ -195,22 +221,10 @@ var
begin
tracer.push_trace('MD5.MD5Buffer');
context := PMD5Context(kalloc(SizeOf(TMD5Context)));
memset(uInt32(context), 0, SizeOf(TMD5Context));
outputln('md5', 'Init');
console.redrawwindows;
MD5Init(@context);
outputln('md5', 'Init Done');
console.redrawwindows;
outputln('md5', 'Update');
console.redrawwindows;
MD5Update(@context, buffer, bufferLen);
outputln('md5', 'Update Done');
console.redrawwindows;
outputln('md5', 'Final');
console.redrawwindows;
MD5Buffer := MD5Final(@context);
outputln('md5', 'Final Done');
console.redrawwindows;
MD5Init(context);
MD5Update(context, buffer, bufferLen);
MD5Buffer := MD5Final(context);
kfree(void(context));
end;
end.

1
src/include/system.pas
View File

@ -21,7 +21,6 @@ type
hresult = cardinal;
dword = cardinal;
integer = longint;
pchar = ^char;
//Standard Types

4
src/include/util.pas
View File

@ -502,7 +502,7 @@ begin
for i:=0 to Dist-1 do begin
asm
MOV EAX, result
ROL result, 1
ROL EAX, 1
MOV result, EAX
end;
end;
@ -525,7 +525,7 @@ begin
for i:=0 to Dist-1 do begin
asm
MOV EAX, result
ROR result, 1
ROR EAX, 1
MOV result, EAX
end;
end;