php 的md5('123456789', TRUE)换成Delphi怎么写

Qun~~ 2020-03-18 04:35:53
要原始16字符二进制格式,PHP的结果是:
...全文
379 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
uses System.Hash;
然后直接:THashMD5.GetHashString('123456789');

BlueStorm 2020-03-25
  • 打赏
  • 举报
回复
你还不如直接把PHP的结果用Hex字符串写出来。是'25f9e794323b453885f5181f1b624d0b'吗?
引用 楼主 wzqcjq 的回复:
要原始16字符二进制格式,PHP的结果是:
bwsoft1 2020-03-24
  • 打赏
  • 举报
回复
function MD5ToStr(D: MD5Digest): ansistring; var i:Integer; begin result:=''; for i:=0 to 15 do result:=Result+ansichar(d[i]); end;
bwsoft1 2020-03-24
  • 打赏
  • 举报
回复
function GetStringMd5(str: string; UTF8_Encode: Boolean = true; tolow: Boolean = false;key:string='';tohex:Boolean=true): string; var s:string; begin s:=str+key; if tolow then s := LowerCase(s); if UTF8_Encode = false then begin if tohex then result := MD5Print(MD5String(s)) else result := MD5ToStr(MD5String(s)); end else begin if tohex then result := MD5Print(MD5String(UTF8Encode(s))) else result := MD5ToStr(MD5String(UTF8Encode(s))); end;

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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