ABAP创建MD5签名加密

FUNCTION ZJR_GETFBT_SIGN.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_JSONDATA) TYPE  STRING
*"     VALUE(I_TIMESTAMP) TYPE  STRING
*"  EXPORTING
*"     REFERENCE(E_SIGN) TYPE  STRING
*"----------------------------------------------------------------------
  DATA STRINGA  TYPE STRING.
  DATA STRINGAX  TYPE HASH160.
  DATA LV_TSTMP1 TYPE P.
  DATA LV_TSTMP2 TYPE P.
  DATA LV_SECS TYPE TIMESTAMP.
  DATA:I_SIGNKEY TYPE STRING."企业开通后提供的sign_key
  IF SY-MANDT = '310' OR SY-MANDT = '200' OR  SY-MANDT = '400'.
    I_SIGNKEY = ''."企业开通后提供的sign_key(分贝通提提供的)
  ELSE.
    I_SIGNKEY = ''."企业开通后提供的sign_key(分贝通提提供的)
  ENDIF.

  "  MD5  的加密算法（规则）
  "String signStr = StrUtils.formatString("timestamp={0}&data={1}&sign_key={2}", timestamp, jsonData, signKey);

  STRINGA = 'timestamp=' && I_TIMESTAMP &&  '&data=' && I_JSONDATA &&  '&sign_key=' && I_SIGNKEY.
  CALL FUNCTION 'CALCULATE_HASH_FOR_CHAR'
    EXPORTING
      ALG            = 'MD5'
      DATA           = STRINGA
*     LENGTH         = 500
    IMPORTING
      HASH           = STRINGAX
*     HASHLEN        =
*     HASHX          =
*     HASHXLEN       =
*     HASHSTRING     =
*     HASHXSTRING    =
*     HASHB64STRING  =
    EXCEPTIONS
      UNKNOWN_ALG    = 1
      PARAM_ERROR    = 2
      INTERNAL_ERROR = 3
      OTHERS         = 4.
  IF SY-SUBRC = 0.
    E_SIGN = STRINGAX.
  ENDIF.

ENDFUNCTION.