Delphi开发微信公众号SHA1哈希问题

本文,其他语言的开发者请绕开,用SDK直接解决!!

Delphi开发微信公众号SHA1哈希问题

 

 这里先说一下,加密时要用的不是AESKey,而是AppID。

然后,我们在做消息回复加密时,要用到一个签名,

验证方式:

1. 开发者计算签名,dev_msg_signature=sha1(sort(Token、timestamp、nonce, msg_encrypt))

2. 比较dev_msg_signature和URL上带的msg_signature是否相等,相等则表示验证通过。

解密方式如下:

原文这样写的。正常的做法我们都是用TStringList进行排序,先 Add,然后 sort  最后再进行SHA。OK,这是正确的做法。

但是,在某些情况下,Delphi Sort之后的结果会和微信公众号的Sort结果不同(准确的来说应该是其他语言)。

所以我有时加密,签名后回复消息,有时回复得了,有时回复不了。用开发者开具调试后发现,提示这个,原来是签名错了,再之后才发现是Delphi Sort的问题!

Delphi开发微信公众号SHA1哈希问题

 

解决方法是用TStringList的自定义排序,

Delphi里自义定排序的定义
procedure TStringList.CustomSort(Compare: TStringListSortCompare);
begin
  if not Sorted and (FCount > 1) then
  begin
    Changing;
    QuickSort(0, FCount - 1, Compare);
    Changed;
  end;
end;
  TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer;
我这样定义
function Compare(List: TStringList; Index1, Index2: Integer): Integer;
var
  S1, S2: string;
begin
  S1 := List[Index1];
  S2 := List[Index2];
  Result := CompareStr(S1, S2)  //注意不是CompareText, CompareStr 区分大小写; CompareText 不区分大小写. 
end;
然后不调用 Sort,调用的是
 Strlist.CustomSort(Compare);

 

上一篇:15.ThinkPhP5 视频教程(十六讲):查询范围


下一篇:分析 TStringList 存取对象的特点 - 还是回复 Test1234 的问题