今天一直在研究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)
原文：http://jyb2014.blog.51cto.com/9155315/1545737