菜鸟救助Delphi调用人家的md5.pas方法

gxpang 2006-12-07 12:47:36
偶在网上下载一个 md5.pas 但用Delphi不知怎么调用md5.pas里面的函数
请帮帮忙,先谢谢

...全文
170 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
gxpang 2006-12-07
  • 打赏
  • 举报
回复

谢谢 kv2002(笑三少) (
kv2002 2006-12-07
  • 打赏
  • 举报
回复
定义函数
function MyFun(Dig: MD5Digest): string;
begin
Result := Format('%s', [MD5Print(Dig)]);
end;

调用
加密后 = MyFun(MD5String(String(用户名)+String(口令)));
gxpang 2006-12-07
  • 打赏
  • 举报
回复

自己顶了

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧