[转]Delphi中的加密算法(MD5,MD4,MD3…)

14 6月

今天写课程设计的时候要用md5加密,就到网上搜索了下,发现了这个东东。很不错的。。。

在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。
在Uses单元中引用IdHashMessageDigest单元,再写如下代码即可以达到MD5的实现。

示例代码

说明:
MyMD5.HashValue函数中可以是一个字符串或是一个流对象,它返回的结果类型为T4x4LongWordRecord的MD5签名后结果
MyMD5.AsHex函数是将T4x4LongWordRecord的Md5签名转换成为十六进制的MD5签名字符串。

转载自:http://txf2004.javaeye.com/blog/500274

发表评论

电子邮件地址不会被公开。 必填项已用*标注