今天一直在研究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)