Delphi XE7 用indy开发微信公众平台（3）- 验证消息真实性

加我微信：Leedege一起交流Delphi开发经验 uses IdHashSHA, IdGlobal; function SHA1(Input: String): String; begin   with TIdHashSHA1.Create do     try       Result := LowerCase(HashBytesAsHex(TidBytes(Bytesof(Input)))

>>阅读原文<<