如何取一个文件(图片)的MD5值?
解决方案 »
- 如何把整型转为String?
- 哪位仁兄给我讲解一下数据库那几个东东的关系
- TCP多连接问题
- 有用过ExpressQuantumTreeList 4 的TcxDBTreeList的吗?请教下怎样创建兄弟节点和子节点?3Q
- 自动登陆网站的软件(用idhttp做的),运行报错,请高手帮我看看问题在哪?
- 请教 延迟时间用什么函数 多谢
- ★★★★★用Delphi的ado连接sql 2000桌面版的困难★★★★★
- 共享 EhLib_Build_6.2.153_FS_d7-xe5 最新版,
- DELPHI 三层 架构中问题
- 小弟想编一套公司管理软件 ,可是客户提出了像EXCEL里面的公式输入 ,小弟现在没有足够的时间写公式编译器了不知哪位大哥有现成的代码借给小弟参考以下
- CSDN论坛搜索很垃圾
- 有关Delphi的TTable组件的问题。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
function MD5(S: String): String;
type
TIntData = array of Integer;
function rHex(X: Integer): String;
const
HexChs: String = '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];
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 Rol(X, n: Integer): Integer;
begin
Result := (X shl n) or (X shr (32 - n));
end; function Add(X, Y: Integer): Integer;
var
lsw, msw: Integer;
begin
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 Cmn(q, a, b, x, s, t: Integer): Integer;
begin
Result := Add(Rol(Add(Add(a, q), Add(x, t)), s), b);
end; function Cvt(S: String): 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 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 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 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 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;var
x: TIntData;
a, b, c, d: Integer;
olda, oldb, oldc, oldd: Integer;
len, i: Integer;
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;
Result := rHex(a) + rHex(b) + rHex(c) + rHex(d);
end;
function GetFileMD5(FileName:String):String;
var
FS:TFileStream;
Buffer:String;
begin
FS:=TFileStream.Create(FileName,fmOpenRead or fmShareDenyNone);
SetLength(Buffer,FS.Size);
FS.ReadBuffer(Buffer[1],FS.Size);
Result:=MD5(Buffer);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetFileMD5('c:\haohao.jpg'));
end;end.
那就什么算法都有的