支付宝签名验证实现-Delphi版-调用libeay32库.docxVIP

首先介结下支付宝签名验证流程:一支付宝密钥生成支付宝提供秘钥生成工具/291/105971/用此下载此工具，生成相关RSA密钥.官网提供的PKCS8 和PKCS1 如果不是JAVA的请用PKCS1。如果已经用了PKCS8的,Delphi要如何用呢?官网的工具也提供了转换工具那么这串就是其它要用到的密钥.打开密钥文件路径:就可以看到其它语言专用的密钥。长度1024，2048多行.打开密钥文件：其标准格式如上:我们可以看出其格式，头尾多以----注释---包围，很重要，这个是标明此密钥的格式。二支付宝签名过程:/291/106118前面的多不难，很多人死在这一部。因为Delphi没有提供标准库证书算法.三Delpi如何实现:我们去看DELPHI Indy得知要实现这一功能需要引用在各自的不同平台多有其对应的库.DELPHI indy也实现了对这些功能的扩展，其单元IdSSLOpenSSLHeaders此单元是indy基libeay32库扩展的PAS 里面实现了对接Libery32.dll用什么版本号.其实Delphi自代libery32.dll的我直接用自代的，最好用新版本会比较稳托.我的开发环境是10.2.1其DELPHI所要的DLL目录如下在其安装目录下就自代这货了。。MSVCP100高版本的DLL需要这个配合使用，不然会提示少MSVCP100.DLL把相关DLL直接COPY到EXE所在目录即可有的低版本delphi其自代的DLL版本太低，或其DLL和现有的DELPHI IDDSLL单元不匹配.因此很多人重写了Libery32.pas对接libery32.dll 这样在什么样的版本DELPHI 多可以适用。而且DELPHI自代的有的没有把LIBER32.DLL功能实现，经过多方查找，终于找到一个重写libery32.pas写的比较好的库,这个很重要,真的很重要。本人SVN地址：08:8443/svn/Super/OpenSSL账号:read密码:read请自行下载签名实现代码如下programmysign;{$APPTYPE CONSOLE}{$R *.res}usesSystem.SysUtils,ssl_evp,ssl_bio,ssl_err,ssl_const,ssl_types,ssl_pem,ssl_engine, ssl_x509;varcertFile: AnsiString;PrivKey: AnsiString;signFile: AnsiString; Path: AnsiString;pkey: PEVP_PKEY;bp, mbp: PBIO;md_ctx: EVP_MD_CTX;Buf: AnsiString; Len: Integer;SigBuf: Array [0..4095] of AnsiChar;SigLen: Integer;InBuf: Array[0..511] of AnsiChar; _x509: PX509; b64: PBIO;a, i : Integer;begintry{ TODO -oUser -cConsole Main : Insert code here }Writeln(DEMO: mysign); //初始化工作SSL_InitPEM;SSL_InitERR;SSL_InitBIO;SSL_InitEVP;SSL_InitENGINE; SSL_InitX509;ENGINE_load_builtin_engines;OpenSSL_add_all_ciphers;OpenSSL_add_all_digests;Path :=ExtractFilePath(ParamStr(0)); //支付宝生成的密钥文件加载进来PrivKey := Path + private.pem; //sha1withRSA 签名后得到的保存地址signFile := Path+sign.pem;if (not FileExists(PrivKey)) then raise Exception.Create(PrivKey密钥文件不存在); //签名sign_type=RSA2 或RSABuf := app_idiz_content={out_trade_no:2017090517245110464476}+ charset=UTF-8format=JSONmethod=alipay.trade.querysign_type=RSA2timestamp=2017-09-26 15:16:25version=1.0;//如果用UTF-8请UTF8编码Buf := UTF8Encode(Buf);Le