ABAP RSA方式调用银行API

盛世宏图  金牌会员 | 2022-6-24 13:35:49 | 显示全部楼层 | 阅读模式
打印 上一主题 下一主题
楼主

主题 880|帖子 880|积分 2640

一、RSA简介

RSA是非对称加密的一种。
对称加密算法在加密和解密时使用的是同一个秘钥；
非对称加密算法需要一对密钥来加密解密，这两个密钥是公开密钥（public key，简称公钥）和私有密钥（private key，简称私钥）。一个加密，一个解密，由双方各保留一个进行操作。这样，在不传输秘钥的情况下，双方可以针对信息进行加解密，避免了直接传输秘钥可能导致的安全问题。
二、RSA加解密与签名验签

一般来说，有两种场景：加密解密和签名验签
加密解密：使用公钥加密，私钥解密
签名验签：使用私钥加密（签名），公钥解密（验签）
例如：B生成一对密钥，向A提供公钥，B保留私钥
加密：防止信息泄露
当A系统传输数据给B系统，担心报文明文传输会导致信息泄露，则可使用公钥对报文进行加密，以防传输过程中信息泄露。B接收加密报文，通过私钥进行解密
签名：防止信息篡改
当B接收后返回消息给A，担心返回消息被修改，A接收到错误消息，则可使用秘钥进行签名，并将签名和返回报文一起发送给A。A通过公钥进行验签，发现签名解析后和返回报文数据一致，证明报文没有被中间拦截篡改
三、代码实现

1、证书加密解密与签名验签

使用秘钥生成PSE证书方式进行加密解密与签名验签
生成一对密钥后，将私钥文件RSA.key上传到SAP服务器，前后需要加标注，否则不能正常使用

通过命令生成PSE文件，此操作需要BASIS协助
  1. /tmp/rsa > openssl req -x509 -sha256 -key rsa.key -out user1.cer -days 3650 -subj '/CN=user1'
  2. /tmp/rsa > openssl pkcs12 -export -inkey rsa.key -in user1.cer -out user1.pfx -nodes
  3. Enter Export Password:
  4. Verifying - Enter Export Password:
  5. /tmp/rsa > setenv SECUDIR $PWD
  6. /tmp/rsa > sapgenpse import_p12 -x "" -p user1.pse user1.pfx
  7. Found key 'INDEX=0,SIG=YES,ENC=YES,MD5-FINGERPRINT=3B9E 77DD E5E4 3371 19FA 2FCF D1CA 512F,KEYID=3D1E2BC7E33500A3D2A098B63FE9962A6B63318C'
  9. !!! WARNING: For security reasons it is recommended to use a PIN/passphrase
  10. !!! WARNING: which is at least 8 characters long and contains characters in
  11. !!! WARNING: upper and lower case, numbers and non-alphanumeric symbols.
  13. PSE "/tmp/rsa/user1.pse" was written
复制代码
证书加密解密代码：
  1. DATA: lv_output         TYPE xstring,
  2.       lv_input_x        TYPE xstring,
  3.       lv_input          TYPE string,
  4.       lt_recipient_list TYPE STANDARD TABLE OF ssfinfo,
  5.       ls_recipient_list LIKE LINE OF lt_recipient_list,
  6.       lv_crc            TYPE ssfparms-ssfcrc.
  8. DATA: lf_output        TYPE xstring.
  9. DATA: lf_plain_input_x TYPE xstring.
  10. DATA: lf_plain_input   TYPE string.
  11. DATA: msg_file_name    TYPE string.
  12. DATA: it_recipient_list TYPE STANDARD TABLE OF ssfinfo,
  13.       wa_recipient_list LIKE LINE OF it_recipient_list.
  15. "原文
  16. lf_plain_input = '一段需要处理的报文'.
  18. "转为xstring
  19. CALLFUNCTION'SCMS_STRING_TO_XSTRING'
  20.   EXPORTING
  21.     text =lf_plain_input
  22.   IMPORTING
  23.     buffer =lf_plain_input_x.
  25. "证书域名
  26. wa_recipient_list-id ='CN=user1'.
  27. APPENDwa_recipient_listTOit_recipient_list.
  29. "加密函数
  30. CALLFUNCTION'SSFW_KRN_ENVELOPE'
  31.   EXPORTING
  32.     str_format ='PKCS1-V1.5'
  33.     str_pab ='/tmp/rsa/user1.pse'"服务器中证书路径
  34.     ostr_input_data =lf_plain_input_x
  35.   IMPORTING
  36.     ostr_enveloped_data =lf_output
  37.   TABLES
  38.     recipient_list =it_recipient_list
  39.   EXCEPTIONS
  40.     OTHERS =1.
  42. "展示加密后信息
  43. PERFORMshow_dataUSINGlf_output.
  44. SKIP.
  46. CLEARlv_input_x.
  47. CLEARlt_recipient_list.
  48. ls_recipient_list-id ='CN=user1'."一般为证书域名
  49. ls_recipient_list-profile ='/tmp/rsa/user1.pse'.
  50. APPENDls_recipient_listTOlt_recipient_list.
  52. "解密
  53. CALLFUNCTION'SSFW_KRN_DEVELOPE'
  54.   EXPORTING
  55.     str_format ='PKCS1-V1.5'
  56.     ostr_enveloped_data =lf_output
  57. *b_outdec =''
  58.   IMPORTING
  59.     ostr_output_data =lv_input_x
  60.     crc =lv_crc
  61.   TABLES
  62.     recipient =lt_recipient_list
  63.   EXCEPTIONS
  64.     ssf_krn_error =1
  65.     ssf_krn_noop =2
  66.     ssf_krn_nomemory =3
  67.     ssf_krn_opinv =4
  68.     ssf_krn_nossflib =5
  69.     ssf_krn_recipient_error =6
  70.     ssf_krn_input_data_error =7
  71.     ssf_krn_invalid_par =8
  72.     ssf_krn_invalid_parlen =9
  73.     ssf_fb_input_parameter_error =10
  74.     OTHERS =11.
  76. "根据UTF-8格式转为string类型数据
  77. lv_input =cl_bcs_convert=>xstring_to_string(iv_xstr =lv_input_xiv_cp ='4110').
  79. WRITE:/lv_input.
  81. FORM show_data USING data_x TYPE xstring.
  82.   DATA:data_lenTYPEi,
  83.         i1TYPEiVALUE0,
  84.         i2TYPEiVALUE32.
  85.   data_len =xstrlen(data_x).
  86.   WHILE(i1<data_len).
  87.     i2 =nmin(val1 =i2
  88.                val2 =data_len).
  89.     WRITE:/data_x+i1(i2).
  90.     i1 =i1+32.
  91.   ENDWHILE.
  92. ENDFORM.
复制代码
四、简述调用API过程

使用HTTP方式调用银行API
  1. DATA: lv_output         TYPE xstring,
  2.       lv_input_x        TYPE xstring,
  3.       lv_input          TYPE string,
  4.       lt_recipient_list TYPE STANDARD TABLE OF ssfinfo,
  5.       ls_recipient_list LIKE LINE OF lt_recipient_list,
  6.       lv_crc            TYPE ssfparms-ssfcrc.
  8. DATA: lf_input_data    TYPE xstring,
  9.           lf_signed_data   TYPE xstring,
  10.           ls_signer        TYPE ssfinfo,          "ssfinfoext is tested by CL_SMIME
  11.           lt_signer        TYPE TABLE OF ssfinfo, "ssfinfoext is tested by CL_SMIME
  12.           lf_crc           TYPE ssfreturn,
  13.           lf_signer_name   TYPE string,
  14.           lf_chain_dataTYPExstring,
  15.           lf_output_dataTYPExstring,
  16.           lf_inputv_dataTYPExstring,
  17.           ls_certificateTYPEssfcertlin,
  18.           lt_certificatesTYPETABLEOFssfcertlin,
  19.           lf_subject(256)TYPEc.
  21. "原文
  22. lv_input ='一段需要处理的报文'.
  23. CALLFUNCTION'SCMS_STRING_TO_XSTRING'
  24.   EXPORTING
  25.     text =lv_input
  26.   IMPORTING
  27.     buffer =lv_input_x.
  29. "签名
  30. ls_signer-id ='CN=user1'."一般为证书域名
  31. ls_signer-profile ='/tmp/rsa/user1.pse'.
  32. APPENDls_signerTOlt_signer.
  34. CALLFUNCTION'SSFW_KRN_SIGN'
  35.       EXPORTING
  36.         ssftoolkit ='SAPSECULIB'
  37.         str_format ='PKCS1-V1.5'
  38.         b_inc_certs =''
  39.         b_detached ='X'
  40.         b_inenc =''
  41.         str_hashalg ='SHA256'"'SHA1'
  42.         str_chainfmt =''
  43.         ostr_input_data =lv_input_x
  44.       IMPORTING
  45.         ostr_signed_data =lf_signed_data
  46.         str_signer_name =lf_signer_name
  47. *ostr_signer_keyid =
  48.         ostr_chain_data =lf_chain_data
  49.         crc =lf_crc
  50.       TABLES
  51.         signer =lt_signer
  52.       EXCEPTIONS
  53.         ssf_krn_error =1
  54.         ssf_krn_noop =2
  55.         ssf_krn_nomemory =3
  56.         ssf_krn_opinv =4
  57.         ssf_krn_nossflib =5
  58.         ssf_krn_signer_list_error =6
  59.         ssf_krn_input_data_error =7
  60.         ssf_krn_invalid_par =8
  61.         ssf_krn_invalid_parlen =9
  62.         ssf_fb_input_parameter_error =10
  63.         OTHERS =11.
  65. PERFORMshow_dataUSINGlf_signed_data.
  66. SKIP.
  68. lf_inputv_data =lv_input_x.
  69. "验签
  70. CLEARlt_signer.
  71. *verifysignature
  72.     CALLFUNCTION'SSFW_KRN_VERIFY'
  73.       EXPORTING
  74.         ssftoolkit ='SAPSECULIB'
  75.         str_format ='PKCS1-V1.5'
  76.         b_inc_certs =''
  77.         b_inenc =''
  78.         b_outdec =''
  79.         str_pab ='/tmp/rsa/user1.pse'
  80. *str_pab_password =
  81.         ostr_signed_data =lf_signed_data
  82.         ostr_input_data =lf_inputv_data
  83.         str_hashalg ='SHA256'"'SHA1'
  84.         str_chainfmt =''
  85. *ostr_chain_data =''
  86.         str_signer_name =lf_signer_name
  87. *ostr_signer_keyid =
  88.         crl_profile =''
  89.       IMPORTING
  90.         ostr_output_data =lf_output_data
  91.         crc =lf_crc
  92.       TABLES
  93.         signer_result_list =lt_signer
  94.         certificatelist =lt_certificates
  95.       EXCEPTIONS
  96.         ssf_krn_error =1
  97.         ssf_krn_noop =2
  98.         ssf_krn_nomemory =3
  99.         ssf_krn_opinv =4
  100.         ssf_krn_nossflib =5
  101.         ssf_krn_input_data_error =6
  102.         ssf_krn_invalid_par =7
  103.         ssf_krn_invalid_parlen =8
  104.         ssf_fb_input_parameter_error =9
  105.         OTHERS =10.
  106. IFsy-subrc<>0.
  107. *Implementsuitableerrorhandlinghere
  108.   WRITE:/sy-subrc.
  109. ENDIF.
  112. lv_input =cl_bcs_convert=>xstring_to_string(iv_xstr =lf_output_dataiv_cp ='4110').
  114. WRITE:/lv_input.
  117. FORM show_data USING data_x TYPE xstring.
  118.   DATA:data_lenTYPEi
  119.       ,i1TYPEiVALUE0
  120.       ,i2TYPEiVALUE32.
  121.   data_len =xstrlen(data_x).
  122.   WHILE(i1<data_len).
  123.     i2 =nmin(val1 =i2
  124.                val2 =data_len).
  125.     WRITE:/data_x+i1(i2).
  126.     i1 =i1+32.
  127.   ENDWHILE.
  128. ENDFORM.
复制代码
根据上述签名之后，得到签名字符串拼接到发送报文中

 发送数据并获得返回消息即可
  1. DATA:lv_input_x        TYPE xstring,
  2.       lv_data TYPE string,
  3.       lv_xdata TYPE xstring,
  4.       lv_input          TYPE string,
  5.       lf_signed_data   TYPE xstring,
  6.       lf_signer_name   TYPE string,
  7.       lf_chain_data    TYPE xstring,
  8.       lf_output_data   TYPE xstring,
  9.       ls_signer        TYPE ssfinfo,          "ssfinfoext is tested by CL_SMIME
  10.       lt_signer        TYPE TABLE OF ssfinfo, "ssfinfoext is tested by CL_SMIME
  11.       lt_certificates  TYPE TABLE OF ssfcertlin,
  12.       lf_crc           TYPE ssfreturn.
  14. DATA: lv_base64    TYPE string,
  15.       lv_pubkey    TYPE xstring,
  16.       lv_pubbase64 TYPE string,
  17.       lv_str       TYPE string.
  18. <br>"签名模板
  19. lv_data = 'json字符串签名模板'.
  20. lv_xdata = cl_abap_codepage=>convert_to( source   = lv_data
  21.                                          codepage = 'UTF-8' ).
  23.   "签名
  24.   lv_input = 'g0r+iYM0FYAHworrKa+XzL/4FO/ci+S0HZr1pJFAf1/Dtkr+pnpFUWM'
  25.           && 'zf3oHBeJDL3rcCgCqzUOYhpss3MKtOAR/rttdu8a5FQ1G456uYF7D5r'.
  27. CALL FUNCTION 'SCMS_BASE64_DECODE_STR'
  28.   EXPORTING
  29.     input  = lv_input
  30. *   UNESCAPE       = 'X'
  31.   IMPORTING
  32.     output = lv_input_x
  33.   EXCEPTIONS
  34.     failed = 1
  35.     OTHERS = 2.
  37.   "公钥
  38.   lv_pubbase64 = 'MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQCwFgHD4kzEVPdOj0'
  39.               && 'YCX+zp5r6R52MY0O7BsTCLT7aHaxsANsvI9ABGx3OaTVlPB59M6GPb'.
  41. CALL FUNCTION 'SCMS_BASE64_DECODE_STR'
  42.   EXPORTING
  43.     input  = lv_pubbase64
  44. *   UNESCAPE       = 'X'
  45.   IMPORTING
  46.     output = lv_pubkey
  47.   EXCEPTIONS
  48.     failed = 1
  49.     OTHERS = 2.
  51. " 模数
  52. lv_str = lv_pubkey.
  53. DATA(length) = strlen( lv_str ).
  54. IF length > 514." 2048位密钥
  55.   DATA(pos) = length - 10 - 514.
  56.   lv_str = lv_str+pos(514).
  57. ELSEIF length > 256." 1024位密钥
  58.   pos = length - 10 - 256.
  59.   lv_str = lv_str+pos(256).
  60. ENDIF.
  62. " 函数使用密钥格式
  63. lv_str = 'R:m=' && lv_str && ':e=010001:'.
  64. lv_pubkey = cl_bcs_convert=>string_to_xstring( lv_str ).
  66.   CALL FUNCTION 'SSFW_KRN_VERIFY'
  67.       EXPORTING
  68.         ssftoolkit                   = 'SAPSECULIB'
  69.         str_format                   = 'PKCS1-V1.5'
  70.         b_inc_certs                  = ''
  71.         b_inenc                      = ''
  72.         b_outdec                     = ''
  73.         str_pab                      = '<no_certificate_check>'
  74. *       str_pab_password             =
  75.         ostr_signed_data             = lv_input_x
  76.         ostr_input_data              = lv_xdata
  77.         str_hashalg                  = 'SHA1'
  78.         str_chainfmt                 = 'KEYVALUE'
  79.         ostr_chain_data              = lv_pubkey
  80. *       ostr_signer_keyid            =
  81.         crl_profile                  = ''
  82.       IMPORTING
  83.         ostr_output_data             = lf_output_data
  84.         crc                          = lf_crc
  85.       TABLES
  86.         signer_result_list           = lt_signer
  87.         certificatelist              = lt_certificates
  88.       EXCEPTIONS
  89.         ssf_krn_error                = 1
  90.         ssf_krn_noop                 = 2
  91.         ssf_krn_nomemory             = 3
  92.         ssf_krn_opinv                = 4
  93.         ssf_krn_nossflib             = 5
  94.         ssf_krn_input_data_error     = 6
  95.         ssf_krn_invalid_par          = 7
  96.         ssf_krn_invalid_parlen       = 8
  97.         ssf_fb_input_parameter_error = 9
  98.         OTHERS                       = 10.
  99. IF sy-subrc <> 0.
  100. * Implement suitable error handling here
  101.   WRITE:/ sy-subrc.
  102. ENDIF.
  103. WRITE:/ lf_crc.
  104. lv_input = cl_bcs_convert=>xstring_to_string( iv_xstr =  lf_output_data iv_cp = '4110' ).
  106. WRITE:/ lv_input.
复制代码
调用时报错
  1. "创建HTTP对象
  2. CALL METHOD cl_http_client=>create_by_url
  3.     EXPORTING
  4.       url    = ls_ghinfo-zurl
  5.     IMPORTING
  6.       client = lo_http_client.
  8. lo_http_client->propertytype_redirect = lo_http_client->co_disabled .
  10.   CALL METHOD lo_http_client->request->set_header_field
  11.     EXPORTING
  12.       name  = '~request_method'
  13.       value = 'POST'.                 "
  15.   CALL METHOD lo_http_client->request->set_header_field
  16.     EXPORTING
  17.       name  = '~request_protocol'
  18.       value = 'HTTP/1.1'.
  20.   CALL METHOD lo_http_client->request->set_header_field
  21.     EXPORTING
  22.       name  = 'Content-Type'
  23.       value = 'application/x-www-form-urlencoded; charset=UTF-8'.
复制代码
 这是因为调用HTTPS地址，没有将网页证书导入到SAP系统。可以在浏览器中下载对应地址的证书，导入SAP系统即可

五、致谢

这是一篇站在前人肩膀上完成的博客，各位前辈的资料，给予了本人极大的帮助，尤其感谢CSDN博主​​Fireworks_me​​对我疑惑的耐心解答，非常感谢！
参考文档：
​​https://blogs.sap.com/2021/04/13/rsa-encryption-in-abap/ ​
​​https://blog.csdn.net/xiefireworks/article/details/124809161?spm=1001.2014.3001.5501 ​​
​​https://blog.csdn.net/somehow1002/article/details/117092352 ​​​
​​​https://blog.51cto.com/wushank/1915795​​​
 

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！
回复

使用道具 举报

0 个回复

倒序浏览
返回列表

快速回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 or 立即注册

本版积分规则

盛世宏图

金牌会员
这个人很懒什么都没写!

楼主热帖

标签云

挺好的 服务器
微信订阅号
微信服务号
微信客服
小程序
H5
关于我们 商务合作 网站地图
©Copyright 2022-2024 杭州祥升科技有限公司 版权所有 浙ICP备20004199号
快速回复 返回顶部 返回列表