ABAP 实现MD5加密

原创于 2025-11-19 10:36:54 发布 · 119 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#abap

ABAP 专栏收录该内容

7 篇文章

订阅专栏

本文展示了一个ABAP程序实现MD5加密和BASE64编码的过程。程序首先对输入字符串进行URI编码和UTF-8转换，然后使用CALCULATE_HASH_FOR_RAW函数进行MD5加密，最后通过SCMS_BASE64_ENCODE_STR函数将加密结果转换为BASE64格式。该流程可用于生成数字签名或数据加密场景。程序包含完整的错误处理机制，确保加密过程的可靠性。

*&---------------------------------------------------------------------*
*& Report  Z_TEST_MD5
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  z_test_md5.

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

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

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

* 将需要加密的字符串转换成RUI格式
*l_input = escape( val = l_input format = cl_abap_format=>e_uri_full ).
CALL METHOD cl_http_utility=>escape_url
  EXPORTING
    unescaped = l_input  " 输入：原始字符串
  RECEIVING
    escaped   = l_input.  " 输出：编码后字符串
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     =
  hashx            = l_xhstring
*   hashb64string  = l_64
EXCEPTIONS
  unknown_alg    = 1
  param_error    = 2
  internal_error = 3
  OTHERS         = 4.
* 通过BASE64生成数字签名
DATA:lv_cover TYPE xstring.
lv_cover = l_xhstring.
CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
  EXPORTING
    input  = lv_cover
  IMPORTING
    output = l_base64.
WRITE:/ '最终经过MD5、BASE64加密后的字符串:',l_base64.