请高手把“MD5的Linux版”写个DLL

Question

MD5的Linux版 的DELPHI源代码 下载地址  http://www.cn700.com/Down_155/20041117154035.html本人非常需要这个DLL，但高手写的POWERDLL里没有这个函数，请高手写一个DLL，谢谢，加多少分都愿意。

Answer 1

N多地方有MD5的算法，搞成DLL没什么难度的http://lysoft.7u7.net

Answer 2

把Md5.pas当中的
procedure MD5Init(var Context: MD5Context);
procedure MD5Update(var Context: MD5Context; Input: pChar; Length: longword);
procedure MD5Final(var Context: MD5Context; var Digest: MD5Digest);function MD5String(M: string): MD5Digest;
function MD5File(N: string): MD5Digest;
function MD5Print(D: MD5Digest): string;
function MD5Match(D1, D2: MD5Digest): Boolean;function RivestStr(Str: string): string;       //MD5 string
function RivestFile(FileName: string): string; //MD5 file
这几个过程、函数后加入";export;stdcall;"声明
然后新建一个DLL Project，然后添在{$...}前加入exports MD5Init,MD5Update,MD5Final,MD5String,MD5File,MD5Print,MD5Match;
然后编译就生成DLL了。
至于怎么使用就……

Answer 3

记得md5.pas这个单元要加入工程当中。

Answer 4

library MD5Library;
uses
  SysUtils,
  Classes,
  Md5 in 'Md5.pas';
exports
  MD5Init,
  MD5Update,
  MD5Final,
  MD5String,
  MD5File,
  MD5Print,
  MD5Match,
  RivestStr,
  RivestFile;
{$R *.res}begin
end.

Answer 5

lead001 我以收到，但无法使用，我用易语言调入POWERDLL没问题，但你的MD5.DLL无法使用，请检查错误。

Answer 6

请 unsigned(僵哥) 出招，不要光说不练！

Answer 7

lead001制作的MD5.DLL及源码（不能用，请大家指错）：
http://www.dywt.com.cn/vbs/viewFile.asp?Boardid=1&ID=26429
http://www.dywt.com.cn/vbs/dispbbs.asp?boardID=1&ID=52704&page=1我用易语言无法调用。