使用delphi+intraweb进行微信开发4—微信消息加解密
来源:互联网 发布:java prim算法 编辑:程序博客网 时间:2024/05/21 11:16
在上一讲当中我做了个简单的微信文本消息回显应用,当时是以微信明文方式实现的,其实微信推荐的是消息应该加密传输以增加安全性,所以这讲说说微信消息的加解密。
在微信的帮助页面上可以下载微信消息加解密的例程,可惜的是没有Delphi语言的示例,网上搜索一番,没有人贡献出写好的Delphi版的微信加解密算法单元,好在有官方示例的C#版的,那就按照C#的改一个吧。
微信消息是以AES算法进行的加密处理,而遗憾的是Delphi并没有内置的AES算法单元,必须找第三方实现的,不过一般第三方实现的算法都因为种种原因并不完善,需要使用者酌情修改,所以在基础算法支持上Delphi确实和.net以及java这类的开发语言比不了。
呵呵,上网找Delphi版AES算法吧。在在这里要感谢cnpack开发组,他们不但推出一流的delphi开发环境增强组件还有开源组件包cnvcl,这个组件包中有SHA1、AES、MD5等多种算法单元,我打开AES算法单元查看,发现封装的很完美,ECB、CBC模式均支持,呵呵,幸福了。
参考C#示例代码一通修改测试,省略几昼夜苦干的吐槽终于开花结果:
呵呵,这个或者是网上目前唯一的开源的Delphi版的微信加解密算法单元吧,激动!
{*****************************************************************************}
{ }
{ 泛思微平台 }
{ }
{ 版权所有 (C) 2016 石家庄泛思电子商务有限公司 }
{ }
{ 微信消息加密解密单元,使用DelphiXE2版本编写 }
{ 作者:Delphi力量 }
{ QQ:404328970 }
{ EMail: heblxy@163.com }
{ Blog:www.cnblogs.com/dpower }
{ 参考链接: }
{ http://mp.weixin.qq.com/wiki/14/70e73cedf9fd958d2e23264ba9333ad2.html }
{ }
{*****************************************************************************}
unit uWxMsgCrypt;
interface
uses
System.Classes, System.SysUtils;
type
WXBizMsgCryptErrorCode = (
WXBizMsgCrypt_OK = 0,
WXBizMsgCrypt_ValidateSignature_Error = -40001,
WXBizMsgCrypt_ParseXml_Error = -40002,
WXBizMsgCrypt_ComputeSignature_Error = -40003,
WXBizMsgCrypt_IllegalAesKey = -40004,
WXBizMsgCrypt_ValidateAppid_Error = -40005,
WXBizMsgCrypt_EncryptAES_Error = -40006,
WXBizMsgCrypt_DecryptAES_Error = -40007,
WXBizMsgCrypt_IllegalBuffer = -40008,
WXBizMsgCrypt_EncodeBase64_Error = -40009,
WXBizMsgCrypt_DecodeBase64_Error = -40010
);
/// <summary>
/// 提供微信加密消息解密和微信明文消息加密功能
/// </summary>
TWxMsgCrypt = class
private
function CreateRandCode(codeLen: Integer): string;
function AES_decrypt(const sEncodingAESKey, sMsgEncrypt: string; var cpid: string): string;
function AES_encrypt(const sEncodingAESKey, sMsg, cpid: string): string;
public
/// <summary>
/// 解密微信消息
/// </summary>
/// <param name="sToken">Token,看公众号设置</param>
/// <param name="sTimeStamp">时间戳,随微信消息一起传入,可以通过Url参数获取</param>
/// <param name="sNonce">随机字符串,随微信消息一起传入,可以通过Url参数获取</param>
/// <param name="sMsgEncrypt">微信消息xml的Encrypt字段内容</param>
/// <param name="sSigture">签名,随微信消息一起传入,可以通过Url参数获取</param>
/// <param name="sAppID">AppID,看公众号设置</param>
/// <param name="sEncodingAESKey">EncodingAESKey,看公众号设置</param>
/// <param name="sMsg">sMsg: 解密后的Encrypt字段内容原文,当return返回WXBizMsgCrypt_OK时有效</param>
/// <returns>成功WXBizMsgCrypt_OK,失败返回对应的错误码</returns>
function DecryptMsg(const sToken, sTimeStamp, sNonce, sMsgEncrypt, sSigture,
sAppID, sEncodingAESKey: string; var sMsg: string): WXBizMsgCryptErrorCode;
/// <summary>
/// 加密微信消息
/// </summary>
/// <param name="sMsg">全部xml内容(明文)</param>
/// <param name="sAppID">AppID,看公众号设置</param>
/// <param name="sEncodingAESKey">EncodingAESKey,看公众号设置</param>
/// <param name="sMsgEncrypt">sMsgEncrypt: 输出的是加密后的全部xml(可以直接发送无需再编组xml),当return返回WXBizMsgCrypt_OK时有效</param>
/// <returns>成功WXBizMsgCrypt_OK,失败返回对应的错误码</returns>
function EncryptMsg(const sMsg, sToken, sAppID, sEncodingAESKey: string;
var sMsgEncrypt: string): WXBizMsgCryptErrorCode;
end;
完整代码下载地址:http://download.csdn.net/detail/netwizard/9421608
呵呵,看看效果图吧:
- 使用delphi+intraweb进行微信开发4—微信消息加解密
- 使用delphi+intraweb进行微信开发3—微信消息处理
- 使用delphi+intraweb进行微信开发1~4代码示例
- 使用delphi+intraweb进行微信开发1--微信平台接入
- 使用delphi+intraweb进行微信开发5—准备实现微信API,先从获取AccessToken开始
- 使用delphi+intraweb进行微信开发2—intraweb以.net方式发布(以asp.net mvc4模式部署)在IIS(.net虚拟主机)上
- 微信公众平台消息加解密
- java微信消息加解密
- 微信开发(五)微信消息加解密 (EncodingAESKey)
- 微信公众号开发教程[005]-消息管理-消息加解密
- 微信消息体加解密及EncodingAESKey
- 微信公众平台消息体加解密实现
- 微信第三方平台开发三(消息加解密)
- 微信开发消息体的加密解密
- 微信公众平台消息体签名及加解密实例(Java)
- 微信公众平台安全模式消息体签名及加解密PHP代码示例
- 微信开发 模板消息
- 微信开发:接收消息
- 使用delphi+intraweb进行微信开发3—微信消息处理
- codefroces#337 A Pasha and Stick【思维】
- gulp教程之gulp-autoprefixer
- 浮点数在内存中的存储
- 值班 查看及重启系统
- 使用delphi+intraweb进行微信开发4—微信消息加解密
- OGNL实现List数据转换
- 号称性能最好的JDBC连接池:HikariCP
- ios高效开发-理解属性和正确的使用属性
- Angular 2 开发环境搭建
- 软核 固核 硬核
- linux命令(1):scp命令
- Log4J日志配置详解
- OC--NSString和NSData之间的转换