[qwwwq]

Как вычислисть MD5 сумму от String?
Есть S : String;
Нужно от S вычислить MD5 функцию. Заранее спасибо

[NewQuake]

Поищи какие нить md5 функции

[qwwwq]

Ну вот есть такая вот:

Код:

function MD5String(const S: string): TMD5Digest;

только не понятно че с ней делать.

[NewQuake]

Гдето откопал:

Код:

Function md5(s:string):string; 

{©Drkb v.3(2007): www.drkb.ru, 
®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

var a:array[0..15] of byte; 
i:integer; 

LenHi, LenLo: longword; 
Index: DWord; 
HashBuffer: array[0..63] of byte; 
CurrentHash: array[0..3] of DWord; 

procedure Burn; 
begin 
LenHi:= 0; LenLo:= 0; 
Index:= 0; 
FillChar(HashBuffer,Sizeof(HashBuffer),0); 
FillChar(CurrentHash,Sizeof(CurrentHash),0); 
end; 

procedure Init; 
begin 
Burn; 
CurrentHash[0]:= $67452301; 
CurrentHash[1]:= $efcdab89; 
CurrentHash[2]:= $98badcfe; 
CurrentHash[3]:= $10325476; 
end; 

function LRot32(a, b: longword): longword; 
begin 
Result:= (a shl b) or (a shr (32-b)); 
end; 

procedure Compress; 
var 
Data: array[0..15] of dword; 
A, B, C, D: dword; 
begin 
Move(HashBuffer,Data,Sizeof(Data)); 
A:= CurrentHash[0]; 
B:= CurrentHash[1]; 
C:= CurrentHash[2]; 
D:= CurrentHash[3]; 

A:= B + LRot32(A + (D xor (B and (C xor D))) + Data[ 0] + $d76aa478,7); 
D:= A + LRot32(D + (C xor (A and (B xor C))) + Data[ 1] + $e8c7b756,12); 
C:= D + LRot32(C + (B xor (D and (A xor B))) + Data[ 2] + $242070db,17); 
B:= C + LRot32(B + (A xor (C and (D xor A))) + Data[ 3] + $c1bdceee,22); 
A:= B + LRot32(A + (D xor (B and (C xor D))) + Data[ 4] + $f57c0faf,7); 
D:= A + LRot32(D + (C xor (A and (B xor C))) + Data[ 5] + $4787c62a,12); 
C:= D + LRot32(C + (B xor (D and (A xor B))) + Data[ 6] + $a8304613,17); 
B:= C + LRot32(B + (A xor (C and (D xor A))) + Data[ 7] + $fd469501,22); 
A:= B + LRot32(A + (D xor (B and (C xor D))) + Data[ 8] + $698098d8,7); 
D:= A + LRot32(D + (C xor (A and (B xor C))) + Data[ 9] + $8b44f7af,12); 
C:= D + LRot32(C + (B xor (D and (A xor B))) + Data[10] + $ffff5bb1,17); 
B:= C + LRot32(B + (A xor (C and (D xor A))) + Data[11] + $895cd7be,22); 
A:= B + LRot32(A + (D xor (B and (C xor D))) + Data[12] + $6b901122,7); 
D:= A + LRot32(D + (C xor (A and (B xor C))) + Data[13] + $fd987193,12); 
C:= D + LRot32(C + (B xor (D and (A xor B))) + Data[14] + $a679438e,17); 
B:= C + LRot32(B + (A xor (C and (D xor A))) + Data[15] + $49b40821,22); 

A:= B + LRot32(A + (C xor (D and (B xor C))) + Data[ 1] + $f61e2562,5); 
D:= A + LRot32(D + (B xor (C and (A xor B))) + Data[ 6] + $c040b340,9); 
C:= D + LRot32(C + (A xor (B and (D xor A))) + Data[11] + $265e5a51,14); 
B:= C + LRot32(B + (D xor (A and (C xor D))) + Data[ 0] + $e9b6c7aa,20); 
A:= B + LRot32(A + (C xor (D and (B xor C))) + Data[ 5] + $d62f105d,5); 
D:= A + LRot32(D + (B xor (C and (A xor B))) + Data[10] + $02441453,9); 
C:= D + LRot32(C + (A xor (B and (D xor A))) + Data[15] + $d8a1e681,14); 
B:= C + LRot32(B + (D xor (A and (C xor D))) + Data[ 4] + $e7d3fbc8,20); 
A:= B + LRot32(A + (C xor (D and (B xor C))) + Data[ 9] + $21e1cde6,5); 
D:= A + LRot32(D + (B xor (C and (A xor B))) + Data[14] + $c33707d6,9); 
C:= D + LRot32(C + (A xor (B and (D xor A))) + Data[ 3] + $f4d50d87,14); 
B:= C + LRot32(B + (D xor (A and (C xor D))) + Data[ 8] + $455a14ed,20); 
A:= B + LRot32(A + (C xor (D and (B xor C))) + Data[13] + $a9e3e905,5); 
D:= A + LRot32(D + (B xor (C and (A xor B))) + Data[ 2] + $fcefa3f8,9); 
C:= D + LRot32(C + (A xor (B and (D xor A))) + Data[ 7] + $676f02d9,14); 
B:= C + LRot32(B + (D xor (A and (C xor D))) + Data[12] + $8d2a4c8a,20); 

A:= B + LRot32(A + (B xor C xor D) + Data[ 5] + $fffa3942,4); 
D:= A + LRot32(D + (A xor B xor C) + Data[ 8] + $8771f681,11); 
C:= D + LRot32(C + (D xor A xor B) + Data[11] + $6d9d6122,16); 
B:= C + LRot32(B + (C xor D xor A) + Data[14] + $fde5380c,23); 
A:= B + LRot32(A + (B xor C xor D) + Data[ 1] + $a4beea44,4); 
D:= A + LRot32(D + (A xor B xor C) + Data[ 4] + $4bdecfa9,11);

Admin: Пользуемся тегами!