SAP与顺丰快递接口签名验证加密ABAP程序例子(MD5加密、转换为Base64字符串) ＜转载＞

原文链接：http://www.baidusap.com/abap/7408
1, 顺丰平台数字签名简介
SAP系统和顺丰快递平台中的API接口对接时，需要将传输的JSON字符串进行数字签名加密。数字签名具体使用的是MD5方式，格式如下：msgData（业务报文）+ timestamp(时间戳，1970.01.01至今的毫秒数)+checkWord(顺丰平台提供的客户校验码，每个客户唯一的)，经过后进行MD5加密，最后在转换为Base64字符串。

原始顺丰文档网址：http://qiao.sf-express.com/pages/developDoc/index.html?level2=922308

截图如下：

2, SAP实现代码
可以在上图顺丰技术文档中发现一个实际例子，需要签名的内容：

{"language":"zh-CN","orderId":"QIAO-20200618-004"}12312334453453fjcg5PGKaNpPSHFAZ4QsCOkV71R3zVci

加密签名后的字符串：

加密签名后的字符串：IIKJtuLVzoFTu4kHI8M8vA==

直接上abap代码，具体参见代码中的注释，

DATA:l_xstring  TYPE xstring,
     l_base64   TYPE string,
     l_xhstring TYPE xstring.

DATA:l_input TYPE string VALUE '{"language":"zh-CN","orderId":"QIAO-20200618-004"}12312334453453fjcg5PGKaNpPSHFAZ4QsCOkV71R3zVci'.

WRITE:`需要加密的字符串：                `,l_input.

* 将需要加密的字符串转换成RUI格式
l_input = escape( val = l_input format = cl_abap_format=>e_uri_full ).
WRITE:/ `URI转换后的字符串:                `,l_input.

* 转换成UTF-8
CALL METHOD cl_http_utility=>if_http_utility~encode_utf8
  EXPORTING
    unencoded         = l_input
  RECEIVING
    encoded           = l_xstring
  EXCEPTIONS
    conversion_failed = 1
    OTHERS            = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

* 进行Md5加密
CALL FUNCTION 'CALCULATE_HASH_FOR_RAW'
  EXPORTING
    alg            = 'MD5'
    data           = l_xstring
*   LENGTH         = 0
  IMPORTING
*   hash           = l_h160
*   HASHLEN        =
*   HASHX          =
*   HASHXLEN       =
*   hashstring     =
    hashxstring    = l_xhstring
*   hashb64string  = l_64
  EXCEPTIONS
    unknown_alg    = 1
    param_error    = 2
    internal_error = 3
    OTHERS         = 4.
* 通过BASE64生成数字签名
CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
  EXPORTING
    input  = l_xhstring
  IMPORTING
    output = l_base64.
WRITE:/ '最终经过MD5、BASE64加密后的字符串:',l_base64.

测试运行：

可以看到加密后的数字签名和顺丰技术文档中的结果IIKJtuLVzoFTu4kHI8M8vA==一致。

以上。