首页 > 代码库 > delphi base64 md5与sha1加密单(cnvcl)

delphi base64 md5与sha1加密单(cnvcl)

今天一直在研究delphi中的base64和sha1,使用的是http://www.cnpack.org的cnvcl中的单元,CnSHA1.pas和CnBase64.pas,很感谢cnpack组的贡献,让我们方便的在delphi中使用base64与sha1加密,还有md5。

在使用单次加密时还和php的结果还可以说一样,就是php都是小写,delphi是大写,但两次加密后结果就完全不一样的,因为大小写二次加密结果是不一样的,这一点要注意。

使用这三种加密方式时要分别引用CnSHA1,CnBase64,CnMD5单元。

delphi代码

str2 := LowerCase(SHA1Print(SHA1StringA(‘123‘)));

str3 := LowerCase(SHA1Print(SHA1StringA(str2)));

php代码

echo sha1(‘123‘)."\n";

echo sha1(sha1(‘123‘))."\n";

delphi加LowerCase转为小写后两者结果就一致了。


delphi base64 md5与sha1加密单(cnvcl)