尊敬的delphi 老人们 都上年纪了,谁都不愿意 做个MD5分享下,我们这些年轻一代,多么痛苦,学习 处处受卡,为什么delphi不自己做个md5,1999年一位好人做了一个MD5.pas,供后人使用,如今delphi升级了,1999年的MD5.pas要做修改,我修改后英文可以正常出来,中文又不行了(可能需要编码什么的可是我不会,低手),
// MD5 Message-Digest for Delphi 4
//
// Delphi 4 Unit implementing the
// RSA Data Security, Inc. MD5 Message-Digest Algorithm
//
// Implementation of Ronald L. Rivest's RFC 1321
//
// Copyright ?1997-1999 Medienagentur Fichtner & Meyer1999年 至今 就没有一位人士能出个简单的MD5,供后人使用了!!真是痛苦,delphi老人们,能否垂怜 下 我们年轻一代,做出来个简单的MD5 能够支持新版delphi和中文,delphi界,谁能再做个新的MD5.pas,让我们不再修改1999年的md5.pas!!!可以上传到这个免费空间里:http://www.ys168.com/ 供后人使用。
// MD5 Message-Digest for Delphi 4
//
// Delphi 4 Unit implementing the
// RSA Data Security, Inc. MD5 Message-Digest Algorithm
//
// Implementation of Ronald L. Rivest's RFC 1321
//
// Copyright ?1997-1999 Medienagentur Fichtner & Meyer1999年 至今 就没有一位人士能出个简单的MD5,供后人使用了!!真是痛苦,delphi老人们,能否垂怜 下 我们年轻一代,做出来个简单的MD5 能够支持新版delphi和中文,delphi界,谁能再做个新的MD5.pas,让我们不再修改1999年的md5.pas!!!可以上传到这个免费空间里:http://www.ys168.com/ 供后人使用。
unit MD5_ANSI;
{
MD5加密处理单元 ANSI版
}
interfacetype
TIntData = array of Integer; TMd5Digest = class(TObject)
protected
function Add(X, Y: Integer): Integer;
function Rol(X, n: Integer): Integer;
function Cmn(q, a, b, x, s, t: Integer): Integer;
function Cvt(S: AnsiString): TIntData;
function rHex(X: Integer): AnsiString;
function ff(a, b, c, d, x, s, t: Integer): Integer;
function gg(a, b, c, d, x, s, t: Integer): Integer;
function hh(a, b, c, d, x, s, t: Integer): Integer;
function ii(a, b, c, d, x, s, t: Integer): Integer; public
function Md5(S: AnsiString; AOption:Integer=0): AnsiString;
end;
function Encode_MD5(S: AnsiString): AnsiString;overload;
function Encode_MD5(pData:Pointer; Size:Integer):AnsiString;overload;
function Encode_MD5_BIN(S:AnsiString):AnsiString;
function Core_MD5(S: AnsiString; AOption:Integer=0): AnsiString;
implementationuses Classes;
{ TMd5Digest }function TMd5Digest.Add(X, Y: Integer): Integer;
var
lsw, msw: Integer;
begin
// 完成两个整数的相加
// 两个整数相加,对 2^32 取整. This uses 16-bit operations internally
//to work around bugs in some JS interpreters.
lsw := (X and $ffff) + (Y and $ffff);
msw := (X shr 16) + (Y shr 16) + (lsw shr 16);
Result := (msw shl 16) or (lsw and $ffff);
end;function TMd5Digest.Cmn(q, a, b, x, s, t: Integer): Integer;
begin
Result := Add(Rol(Add(Add(a, q), Add(x, t)), s), b);
end;function TMd5Digest.Cvt(S: AnsiString): TIntData;
var
nblk: Integer;
len, i: Integer;
begin
len := Length(S);
nblk := ((len + 8) shr 6) + 1;
SetLength(Result, nblk * 16);
for i := 0 to (nblk * 16 - 1) do Result[i] := 0;
for i := 0 to len - 1 do
Result[i shr 2] := Result[i shr 2] or
(Ord(S[i + 1]) shl ((i mod 4) * 8));
Result[len shr 2] := Result[len shr 2] or
($80 shl ((len mod 4) * 8));
Result[nblk * 16 - 2] := len * 8;
end;function TMd5Digest.ff(a, b, c, d, x, s, t: Integer): Integer;
begin
Result := Cmn((b and c) or (not b and d), a, b, x, s, t);
end;function TMd5Digest.gg(a, b, c, d, x, s, t: Integer): Integer;
begin
Result := Cmn((b and d) or (c and not d), a, b, x, s, t);
end;function TMd5Digest.hh(a, b, c, d, x, s, t: Integer): Integer;
begin
Result := Cmn(b xor c xor d, a, b, x, s, t);
end;function TMd5Digest.ii(a, b, c, d, x, s, t: Integer): Integer;
begin
Result := Cmn(c xor (b or not d), a, b, x, s, t);
end;function TMd5Digest.Md5(S: AnsiString;AOption:Integer=0): AnsiString;
var
x: TIntData;
a, b, c, d: Integer;
olda, oldb, oldc, oldd: Integer;
len, i: Integer;
MS:TMemoryStream;
begin
x := Cvt(S);
len := Length(x);
a := 1732584193;
b := -271733879;
c := -1732584194;
d := 271733878; i := 0;
while i < len do begin
olda := a;
oldb := b;
oldc := c;
oldd := d; a := ff(a, b, c, d, x[i+ 0], 7 , -680876936);
d := ff(d, a, b, c, x[i+ 1], 12, -389564586);
c := ff(c, d, a, b, x[i+ 2], 17, 606105819);
b := ff(b, c, d, a, x[i+ 3], 22, -1044525330);
a := ff(a, b, c, d, x[i+ 4], 7 , -176418897);
d := ff(d, a, b, c, x[i+ 5], 12, 1200080426);
c := ff(c, d, a, b, x[i+ 6], 17, -1473231341);
b := ff(b, c, d, a, x[i+ 7], 22, -45705983);
a := ff(a, b, c, d, x[i+ 8], 7 , 1770035416);
d := ff(d, a, b, c, x[i+ 9], 12, -1958414417);
c := ff(c, d, a, b, x[i+10], 17, -42063);
b := ff(b, c, d, a, x[i+11], 22, -1990404162);
a := ff(a, b, c, d, x[i+12], 7 , 1804603682);
d := ff(d, a, b, c, x[i+13], 12, -40341101);
c := ff(c, d, a, b, x[i+14], 17, -1502002290);
b := ff(b, c, d, a, x[i+15], 22, 1236535329); a := gg(a, b, c, d, x[i+ 1], 5 , -165796510);
d := gg(d, a, b, c, x[i+ 6], 9 , -1069501632);
c := gg(c, d, a, b, x[i+11], 14, 643717713);
b := gg(b, c, d, a, x[i+ 0], 20, -373897302);
a := gg(a, b, c, d, x[i+ 5], 5 , -701558691);
d := gg(d, a, b, c, x[i+10], 9 , 38016083);
c := gg(c, d, a, b, x[i+15], 14, -660478335);
b := gg(b, c, d, a, x[i+ 4], 20, -405537848);
a := gg(a, b, c, d, x[i+ 9], 5 , 568446438);
d := gg(d, a, b, c, x[i+14], 9 , -1019803690);
c := gg(c, d, a, b, x[i+ 3], 14, -187363961);
b := gg(b, c, d, a, x[i+ 8], 20, 1163531501);
a := gg(a, b, c, d, x[i+13], 5 , -1444681467);
d := gg(d, a, b, c, x[i+ 2], 9 , -51403784);
c := gg(c, d, a, b, x[i+ 7], 14, 1735328473);
b := gg(b, c, d, a, x[i+12], 20, -1926607734); a := hh(a, b, c, d, x[i+ 5], 4 , -378558);
d := hh(d, a, b, c, x[i+ 8], 11, -2022574463);
c := hh(c, d, a, b, x[i+11], 16, 1839030562);
b := hh(b, c, d, a, x[i+14], 23, -35309556);
a := hh(a, b, c, d, x[i+ 1], 4 , -1530992060);
d := hh(d, a, b, c, x[i+ 4], 11, 1272893353);
c := hh(c, d, a, b, x[i+ 7], 16, -155497632);
b := hh(b, c, d, a, x[i+10], 23, -1094730640);
a := hh(a, b, c, d, x[i+13], 4 , 681279174);
d := hh(d, a, b, c, x[i+ 0], 11, -358537222);
c := hh(c, d, a, b, x[i+ 3], 16, -722521979);
b := hh(b, c, d, a, x[i+ 6], 23, 76029189);
a := hh(a, b, c, d, x[i+ 9], 4 , -640364487);
d := hh(d, a, b, c, x[i+12], 11, -421815835);
c := hh(c, d, a, b, x[i+15], 16, 530742520);
b := hh(b, c, d, a, x[i+ 2], 23, -995338651); a := ii(a, b, c, d, x[i+ 0], 6 , -198630844);
d := ii(d, a, b, c, x[i+ 7], 10, 1126891415);
c := ii(c, d, a, b, x[i+14], 15, -1416354905);
b := ii(b, c, d, a, x[i+ 5], 21, -57434055);
a := ii(a, b, c, d, x[i+12], 6 , 1700485571);
d := ii(d, a, b, c, x[i+ 3], 10, -1894986606);
c := ii(c, d, a, b, x[i+10], 15, -1051523);
b := ii(b, c, d, a, x[i+ 1], 21, -2054922799);
a := ii(a, b, c, d, x[i+ 8], 6 , 1873313359);
d := ii(d, a, b, c, x[i+15], 10, -30611744);
c := ii(c, d, a, b, x[i+ 6], 15, -1560198380);
b := ii(b, c, d, a, x[i+13], 21, 1309151649);
a := ii(a, b, c, d, x[i+ 4], 6 , -145523070);
d := ii(d, a, b, c, x[i+11], 10, -1120210379);
c := ii(c, d, a, b, x[i+ 2], 15, 718787259);
b := ii(b, c, d, a, x[i+ 9], 21, -343485551); a := add(a, olda);
b := add(b, oldb);
c := add(c, oldc);
d := add(d, oldd);
i := i + 16;
end;
if AOption = 0 then
Result := rHex(a) + rHex(b) + rHex(c) + rHex(d)
else
begin
MS := TMemoryStream.Create();
MS.Write(A,4);
MS.Write(B,4);
MS.Write(C,4);
MS.Write(D,4);
SetLength(Result,16);
MS.Position := 0;
MS.Read(Result[1],16);
MS.Free();
end;
end;function TMd5Digest.rHex(X: Integer): AnsiString;
const
HexChs: AnsiString = '0123456789abcdef';
var
i: Integer;
begin
SetLength(Result, 8);
//for i := 1 to 8 do
// Result[i] := HexChs[(X shr ((8 - i) shl 2)) and $f + 1];
//转换为16进制的表示方法和IntToHex的不同
for i := 0 to 3 do begin
Result[i * 2 + 1] := HexChs[(X shr (i * 8 + 4)) and $f + 1];
Result[i * 2 + 2] := HexChs[(X shr (i * 8)) and $f + 1];
end;
end;function TMd5Digest.Rol(X, n: Integer): Integer;
begin
//Bitwise rotate a 32-bit number to the left
Result := (X shl n) or (X shr (32 - n));
end;
function Encode_MD5(S:AnsiString):AnsiString;
var
Obj:TMd5Digest;
begin
obj := TMd5Digest.Create();
try
Result := obj.Md5(S);
finally
obj.Free();
end;
end;function Encode_MD5_BIN(S: AnsiString): AnsiString;
var
Obj:TMd5Digest;
begin
obj := TMd5Digest.Create();
try
Result := obj.Md5(S,1); //输出二进制
finally
obj.Free();
end;
end;
function Encode_MD5(pData:Pointer;Size:Integer):AnsiString;
var
S:AnsiString;
begin
if Size <= 0 then
begin
Result := '';
Exit;
end;
SetLength(S,Size);
Move(pData^,S[1],Size);
Result := Encode_MD5(S);
end;function Core_MD5(S: AnsiString; AOption:Integer=0): AnsiString;
var
obj: TMd5Digest;
begin
obj := TMd5Digest.Create;
Result := obj.Md5(s, AOption);
end;end.
Indy只适合32位系统,64位系统下 无论什么值算出来的结果都是6E692400E5C684B74314252E341B92C7可能是才疏学浅,您也可以 自己试下。