LeeChange,为什么你给我的MD5加密算法在delphi7中无法编译？(0分)

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-07

• #1

似乎缺少文件什么的

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-07

• #2

留下email,留下所缺的文件名,明天一上班就发.

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-07

• #3

AI_Player@hotmail.com
CRYPTDEF.INC
找不到单元Cryptcon
还有很多类型没有定义

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-07

• #4

呵呵，别急.明早一起寄给你.

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #5

已经收到，谢谢！不过我要今晚回家才能继续测试。

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #6

这回编译通过了，但是该怎么用啊？
它自带的例子md5.inputtype是sourcefile,我改为sourcestring居然通不过调试
只能从文件读入原串吗？

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #7

呵呵，不会吧,我一直用file的,明天试一下string.

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #8

我刚刚强行更改类型，加密后居然得一串乱嘛。我记得MD加密后应该只有英文和数字吧？
怎么会这样？

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #9

比如123456加密后居然得
??I篩?V郬???

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #10

如果我没有记错,给你的版本已经是我改过的了.
我把对文件的访问改成了流的形式,你只要看一下那部分,把filestream换成stringstream,
应该就可以了吧.

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #11

……
我是学TP的，对流不是很了解

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #12

呵呵，我对学TP的很有好感.
明天我看看吧.

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #13

您以前也是参加NOI的高手吧？
您是哪儿的人啊？

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #14

var
md5hash: TMD5;
outarray: array[0..15] of char;
i: Integer;
begin
md5hash := TMD5.Create;
try
md5hash.InputType := SourceFile;
md5hash.InputFilePath := FileName;
md5hash.pOutputArray := @outarray;
md5hash.MD5_Hash;
for i:=0 to 15do
Result:=Result+IntToStr(Ord(outarray))
finally
md5hash.free
end;
end;
你是这么用的吗?

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #15

for i:=0 to 15do
Result:=Result+IntToStr(Ord(outarray))
这句我写的是
Result:=strpas(outarray);

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #16

呵呵，其实结果本是Byte数组，但你要用string,所以想了这个歪点子.

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #17

我是照着md5unit里的样例写的

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #18

AI参加过NOI?
哪个省的?哪几年?进过省或国家集训队吗?

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #19

我是重庆的，今年进了省队，NOI在8月，还没到
以前没进去过

 

花

花无泪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #20

给我也发一个可以吗？
xiaorou00@sina.com 谢谢你！