码迷，mamicode.com
首页 > Windows程序 > 详细

开发支付宝支付用DELPHI实现 RSA签名

时间：2016-08-17 13:56:59      阅读：380      评论：0      收藏：0      [点我收藏+]

标签：

近来根据业务需求 在ERP中集成了微信支付，支付宝支付，开发支付宝支付时最大的障碍就是RSA签名，找了很多资料，最终用 下了个libeay32.pas  根据网上资料最终解决了问题

 

 

 

[delphi] view plain copy
 
  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());    //将需要使用的摘要算法存入ctxl中  
  37.     EVP_SignUpdate(@ctx,buf_in,Length(buf_in));//存入编码值  
  38.    EVP_DigestFinal(@ctx,m,m_len);    //求取编码的长度为m_len摘要值存入m中  
  39.  rSA_sign(EVP_sha1()._type,m,m_len,buf_out,@outl,pkey.pkey.rsa); //64为SHA1的NID  
  40.  EVP_MD_CTX_cleanup(@ctx);  
  41.   
  42.    Result:=EncodeString(StrPas(buf_out)) ;  
  43.   
  44. end;  

 

QQ:24177885

http://blog.csdn.net/star1010/article/details/47809449

http://bbs.2ccc.com/topic.asp?topicid=514109

开发支付宝支付用DELPHI实现 RSA签名

标签：

原文地址：http://www.cnblogs.com/findumars/p/5779639.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！