今天一直在研究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转为小写后两者结果就一致了。
时间: 2024-11-04 13:19:56