原文链接: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
加密签名后的字符串:
加密签名后的字符串:
直接上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==一致。
以上。