微信公众平台——验证消息真实性

最新推荐文章于 2021-09-29 09:26:12 发布

转载最新推荐文章于 2021-09-29 09:26:12 发布 · 258 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hnxxcxg/p/8987580.html

本文介绍了一种用于微信公众平台的消息真实性验证方法。通过对接收到的消息进行签名检查，确保消息来源的有效性和安全性。具体实现包括获取请求参数、排序组合、计算哈希值并与接收到的签名进行比对。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

微信公众平台——验证消息真实性

uses IdHashSHA, IdGlobal;

function SHA1(Input: String): String;
begin
with TIdHashSHA1.Create do
try
Result := LowerCase(HashBytesAsHex(TidBytes(Bytesof(Input))));
finally
Free;
end;
end;

function CheckSignature(ARequestInfo: TIdHTTPRequestInfo): boolean;
var
signature, timestamp, nonce, echostr: String;
tmpstr: TStringList;
temp: String;
begin
tmpstr := TStringList.Create;
try
signature := ARequestInfo.Params.Values['signature'];
timestamp := ARequestInfo.Params.Values['timestamp'];
nonce := ARequestInfo.Params.Values['nonce'];

echostr := ARequestInfo.Params.Values['echostr'];
tmpstr.Add(Token);
tmpstr.Add(timestamp);
tmpstr.Add(nonce);
tmpstr.Sort;
temp := StringReplace(tmpstr.text, #13#10, '', [rfReplaceAll]);
Result := SHA1(temp) = signature;
finally
tmpstr.Free;
end;
end;

procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
if CheckSignature(ARequestInfo) then
if ARequestInfo.Params.Values['echostr'] <> '' then
begin
AResponseInfo.ContentType := 'text/html; charset=UTF-8';
AResponseInfo.ContentText := ARequestInfo.Params.Values['echostr'];
end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/p/8987580.html