求购MD5算法的源文件For Delphi6或者Dll什么的(100分)

D

doll_paul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-02

• #21

To:叮叮当当，me too，EM:doll-paul@263.net
可以50给回报，谢谢了~~~~(要保证可用哦~~)

 

H

happyzxj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-02

• #22

有赖于数学的发展。

 

叮

叮叮当当

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #23

To: do
ll_paul
已发。

 

D

doll_paul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #24

to 叮叮当当 ，已收到，稍后EM联系~~
测试后，给分，万分感谢!!!!!

 

叮

叮叮当当

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #25

To: do
ll_paul
呵呵，不用客气，分给不给无所谓，只要交个朋友。[8D]

 

天

天空还下着沙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-05

• #26

http://www.gdchunyu.com/md5.rar

 

J

jiarui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-12

• #27

uses
md5;
function LogEntry(Cmd, Msg: string;
Dig: MD5Digest): string;
begin
Result := Format('%s(''%s'') =' + #13#10 + ' %s', [Cmd, Msg, MD5Print(Dig)]);
end;

procedure TMain.SDigestClick(Sender: TObject);
begin
with Display.Lines do
begin
if Count > 0 then
Add('');
Add(LogEntry('MD5String', SEdit.Text, MD5String(SEdit.Text)));
end;
end;

上面是MD5 的加密过程,不过是32bit的,怎么样才能得到16bit呢?

 

J

jiarui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-12

• #28

to happyzxj:
请来一份DELPHI的,谢谢!
lhb2008@168lhb.com

 

H

honestman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-20

• #29

测试时，发现cola的代码最后漏了“end.
”。