字符串的加密与解密

*FIEB_PASSWORD_DECRYPT:字符串加密
*FIEB_PASSWORD_ENCRYPT:字符串解密
PARAMETERS:str1 TYPE char32 OBLIGATORY,
           str2 TYPE char32,
           str3 TYPE char32.

INITIALIZATION.
  CLEAR:str2,str3.

AT SELECTION-SCREEN OUTPUT.
  IF NOT str1 IS INITIAL.
    CALL FUNCTION \'FIEB_PASSWORD_ENCRYPT\'
      EXPORTING
        im_decrypted_password = str1
      IMPORTING
        ex_encrypted_password = str2.

    CALL FUNCTION \'FIEB_PASSWORD_DECRYPT\'
      EXPORTING
        im_encrypted_password = str2
      IMPORTING
        ex_decrypted_password = str3.
  ENDIF.