Delphi中的加密算法(MD5,MD4,MD3...)

标签: delphi 算法 加密 dll
2331人阅读 评论(1) 收藏 举报
分类:
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。
在Uses单元中引用 IdHashMessageDigest 单元,再写如下代码即可以达到MD5的实现。

示例代码
procedure TForm1.Button1Click(Sender: TObject);
var
  MyMD5: TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;
begin
  MyMD5 := TIdHashMessageDigest5.Create;
  Digest := MyMD5.HashValue('');
  ShowMessage('32: ' + MyMD5.AsHex(Digest));  //显示32个字符长度的MD5签名结果
  ShowMessage('16: ' + Copy(MyMD5.AsHex(Digest), 9, 16));   //显示16个字符长度的MD5签名结果
end;
说明:
   MyMD5.HashValue 函数中可以是一个字符串或是一个流对象,它返回的结果类型为 T4x4LongWordRecord 的MD5签名后结果
   MyMD5.AsHex  函数是将T4x4LongWordRecord的Md5签名转换成为十六进制的MD5签名字符串。
查看评论

快速内存比较函数CompareMem(Delphi SSE优化算法应用之二)

function CGCompareMem(P1, P2: Pointer; Length: Integer): Integer; assembler; asm PUSH E...
  • codegame
  • codegame
  • 2010-09-04 17:33:00
  • 2120

Python rsync 服务器之间文件夹同步脚本

About  rsync:https://download.samba.org/pub/rsync/rsync.html 配置两台服务器之间ssh-key后,可以实现自动化无需手动输入密码,脚本如下...
  • u013573047
  • u013573047
  • 2017-04-20 17:15:45
  • 1731

delphi 自我删除和线程池

unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F...
  • earbao
  • earbao
  • 2015-06-16 10:41:31
  • 1618

delphi 遍历文件算法(含遍历目录算法)

delphi 遍历文件算法(含遍历目录算法)  5 谁能帮我解释一下这个遍历文件算法.... if (SearchRec.Name'..') and (SearchRec.Name 是大于...
  • hcwp2008
  • hcwp2008
  • 2014-01-28 09:55:31
  • 1103

用Delphi实现程序间的数据传递

用Delphi实现程序间的数据传递 在实际应用中,我们经常需要多个程序相互配合来完成某些特定功能。例如两个应用程序间的同步、互斥;应用程序在起第二份实例时的参数自动传递…。要实现这些功能,就必须能实现...
  • iiprogram
  • iiprogram
  • 2005-03-03 11:32:00
  • 1897

Delphi中的加密算法(MD5,MD4,MD3...)

在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMes...
  • xzknet
  • xzknet
  • 2006-06-02 10:51:00
  • 2331

利用Indy组件进行MD5验证简例

需要引用的单元:IdHashMessageDigest 和 IdHash (不知道对应那个组件,我是直接在uses里引用的)代码简例:var  md5 : TIdHashMessageDigest5;...
  • gaoyunpeng
  • gaoyunpeng
  • 2007-03-13 15:43:00
  • 1386

HASH加密算法:MD4、MD5、SHA1

Hash,一般翻译做“散列”,也有直接音译为"哈希"的,就是把任意长度的输入(又叫做预映射, pre-image),通过散列算法,变换成固定长度的输出,该输出就是散列值。这种转换是一种压缩映射,也就是...
  • wanmdb
  • wanmdb
  • 2011-07-19 11:18:47
  • 13757

RSA加解密在Delphi代码中的实现Demo

本例直接利用<em>Indy</em>的封装类及OpenSSL的DLL,并用Delphi来实现RAS的密钥对生成、加...rsa<em>加密算法</em>(Delphi实现).zip 立即下载 上传者: npkaida 时间: 2016-09-22...
  • 2018年04月08日 00:00

Delphi中的SHA256算法

在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法,代码如下 uses IdHashSHA, IdSSLOpenSSLHeaders; var SHA256 :...
  • webouse
  • webouse
  • 2017-04-24 09:06:57
  • 1637
    个人资料
    等级:
    访问量: 164万+
    积分: 1万+
    排名: 723
    文章存档
    最新评论