前言
最近在做一个Delphi的对接第三方支付的接口,接口签名机制模仿微信的签名方式,把参数按ascii码进行排序后再加上key进行md5的加密,因为调用接口的的Post里面的参数是TStrings类型的,但是在TStrings类型里面没有Sorted排序这个方法。所以我自己重写了一个函数用于处理这个。
实现方式
其实使用这个实现也非常的简单,虽然在TStrings里面没有Sort的排序,但是在TStringList里面有这个排序的,所以我们只要再建一个TStringList的变量,把值赋过去后再排序,然后再用Md5进行签名即可实现了。
实现代码
function GetSign(Params: TStrings): string;
var
tmpParams: TStringList;
str: string;
i: Integer;
begin
try
//创建TStringList
tmpParams := TStringList.Create;
//将TStrings的数据全部存进TStringList
tmpParams.AddStrings(Params);
//给TStringList进行ascii码的排序
tmpParams.Sorted := True;
//根据排序我们拼接成要实现的字符串
str := '';
for i := 0 to tmpParams.Count - 1 do
str := str + tmpParams.Strings[i] + '&';
//加上最后的key后反回,再加这个生成的字符串进行md5的签名即可
str := str + 'key=' + ZfPayCfg.appsecret;
Result := str;
finally
tmpParams.Free;
end;
end;
上面的方法就是实现排序后的Tstrings生成的字符串,然后把这个生成的字符串进行MD5的加密,delphi里面MD5的加密网上很好找,我在这就不再写了
-END-
扫码关注腾讯云开发者
领取腾讯云代金券
Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号:粤B2-20090059 深公网安备号 44030502008569
腾讯云计算(北京)有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287
Copyright © 2013 - 2025 Tencent Cloud.
All Rights Reserved. 腾讯云 版权所有