DELPHI实现支付宝支付 微信支付 RSA签名

2016-11-16 18:57:02来源:CSDN作者:yaojp7519人点击

近来根据实际业务需求,在POS收费系统中集成了微信支付和支付宝支付,本人在开发支付宝支付时最大的障碍就是RSA签名,找了很多资料,最终找到了一个方法可以解决,顺利的实现了支付宝支付的代码,根据网上资料最终解决了问题。微信支付和支付宝支付的代码都是使用Delphi直接提交微信和支付宝网站的接口进行支付的,非常方便,尤其对于Delphi做的收费系统,集成效率很高。先将本人的部分核心代码列出如下,如有需要请联系交流。QQ:810262881

  1. function LoadPrivateKey(filename:string ): PEVP_PKEY;  
  2. var  
  3.   bp : PBIO  ;  
  4.  A,pkey :PEVP_PKEY ;  
  5. begin  
  6.   a:=nil;  
  7.   bp := BIO_new(BIO_s_file()) ;  
  8.   BIO_read_filename(bp, PChar(filename));  
  9.   pkey := PEM_read_bio_PrivateKey(bp, a, nil,NIL);  
  10.   BIO_free(bp);  
  11.   Result:= pkey;  
  12. end;  
  13.   
  14.   
  15.   
  16.   
  17. function Sign(filename,msg : String):string;  
  18. var  
  19.      ctx : EVP_MD_CTX   ;  
  20.      buf_in:Pchar;  
  21.      m_len,outl :cardinal;  
  22.      pKey : PEVP_PKEY;  
  23.      m,buf_out:array   [0..1024]   of   char;  
  24.      p:array   [0..255]   of   char;  
  25.      i:Integer;  
  26.  begin  
  27.  buf_out:='';  
  28.  if filename='' then  
  29.  begin  
  30.    Result:='';  
  31.    Exit;  
  32.  end;  
  33.   pKey := LoadPrivateKey(filename);  
  34.    buf_in := PChar(msg);  
  35.    EVP_MD_CTX_init(@ctx);            
  36.    EVP_SignInit(@ctx,EVP_sha1());    
  37.     EVP_SignUpdate(@ctx,buf_in,Length(buf_in));
  38.    EVP_DigestFinal(@ctx,m,m_len);    
  39.  rSA_sign(EVP_sha1()._type,m,m_len,buf_out,@outl,pkey.pkey.rsa); 
  40.  EVP_MD_CTX_cleanup(@ctx);  
  41.   
  42.    Result:=EncodeString(StrPas(buf_out)) ;  
  43.   
  44. end;  

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台