DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 34
在线用户: 19
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2019/6/13 11:04:26
标题:
TIdHashMessageDigest5 不支持中文计算md5? 浏览:856
加入我的收藏
楼主: var
  mymd5:TIdHashMessageDigest5;
begin
  mymd5:=TIdHashMessageDigest5.Create;
  try
    Result := mymd5.HashStringAsHex('中坚');
    Result := mymd5.HashStringAsHex('中在');
    Result := mymd5.HashStringAsHex('子子');
    Result := mymd5.HashStringAsHex('经过');
    // Result 'EA03FCB8C47822BCE772CF6C07D0EBBB' 全部是这个md5.. 显然不对. 

  finally
    FreeAndNil(mymd5);
  end;
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2019/6/13 14:24:10
1楼: uses IdGlobal;
//
var
  mymd5:TIdHashMessageDigest5;
begin
  mymd5:=TIdHashMessageDigest5.Create;
  try
    Result := mymd5.HashStringAsHex('中坚', enUTF8);
    Result := mymd5.HashStringAsHex('中在', enUTF8);
    Result := mymd5.HashStringAsHex('子子', enUTF8);
    Result := mymd5.HashStringAsHex('经过', enUTF8);
    // Result 'EA03FCB8C47822BCE772CF6C07D0EBBB' 全部是这个md5.. 显然不对. 

  finally
    FreeAndNil(mymd5);
  end;
--------
此帖子包含附件:
PNG 图像
大小:45.4K
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。又不靠它 delphi 吃饭,怕甚?
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2019/6/13 14:39:14
2楼: @sail2000

提示不是这个类型. enUTF8
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行101.5625毫秒 RSS