ABAP字符串的加密与解密

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.

新版中可以使用类接口CL_HARD_WIRED_ENCRYPTOR的静态方法实现。

 DATA:   o_encryptor        TYPE REF TO cl_hard_wired_encryptor,
         o_cx_encrypt_error TYPE REF TO cx_encrypt_error.
 DATA:   v_ac_string  TYPE string VALUE 'Welcome to ABAP',
         v_ac_xstring TYPE xstring,
         v_en_string  TYPE string,
         v_en_xstring TYPE xstring,
         v_de_string  TYPE string,
         v_de_xstring TYPE xstring,
         v_error_msg  TYPE string.
 START-OF-SELECTION.
   CREATE OBJECT o_encryptor.
   WRITE / 'Encryption - String to String'.
   TRY.
       CALL METHOD o_encryptor->encrypt_string2string
         EXPORTING
             the_string = v_ac_string
           RECEIVING
             result       = v_en_string.
     CATCH cx_encrypt_error INTO o_cx_encrypt_error.
       CALL METHOD o_cx_encrypt_error->if_message~get_text
           RECEIVING
             result = v_error_msg.
       MESSAGE v_error_msg TYPE 'E'.
   ENDTRY.
   WRITE:/ 'Actual String: ', v_ac_string.
   WRITE:/ 'Encrypted String: ', v_en_string.
   SKIP.
   WRITE / 'Decryption - String to String'.
   TRY.
       CALL METHOD o_encryptor->decrypt_string2string
         EXPORTING
             the_string = v_en_string
           RECEIVING
             result       = v_de_string.
     CATCH cx_encrypt_error INTO o_cx_encrypt_error.
       CALL METHOD o_cx_encrypt_error->if_message~get_text
           RECEIVING
             result = v_error_msg.
       MESSAGE v_error_msg TYPE 'E'.
   ENDTRY.

   WRITE:/ 'Encrypted String: ', v_en_string.
   WRITE:/ 'Decrypted String: ', v_de_string.
   SKIP. 

-----------------------------------------------------------------------------

 report ztest1 MESSAGE-ID F4.
 DATA: o_encryptor        TYPE REF TO cl_hard_wired_encryptor,
       o_cx_encrypt_error TYPE REF TO cx_encrypt_error.

 DATA: v_ac_string  TYPE string VALUE 'Welcome to ABAP',
       v_ac_xstring TYPE xstring,
       v_en_string  TYPE string,
       v_en_xstring TYPE xstring,
       v_de_string  TYPE string,
       v_de_xstring TYPE string,
       v_error_msg  TYPE string.

 START-OF-SELECTION.

 * Create object for Encryption
   CREATE OBJECT o_encryptor.
 * *&---------------------------------------------------------------------*
 * Encryption - String to String
 *&---------------------------------------------------------------------*
 WRITE / 'Encryption - String to String'.
   TRY.
       CALL METHOD o_encryptor->encrypt_string2string
         EXPORTING
           the_string = v_ac_string
         RECEIVING
           result     = v_en_string.
     CATCH cx_encrypt_error INTO o_cx_encrypt_error.
       CALL METHOD o_cx_encrypt_error->if_message~get_text
         RECEIVING
           result = v_error_msg.
       MESSAGE v_error_msg TYPE 'E'.
   ENDTRY.

   WRITE:/ 'Actual String: ', v_ac_string.
   WRITE:/ 'Encrypted String: ', v_en_string.
   SKIP.

 *&---------------------------------------------------------------------*
 * Decryption - String to String
 *&---------------------------------------------------------------------*
 WRITE / 'Decryption - String to String'.
   TRY.
       CALL METHOD o_encryptor->decrypt_string2string
         EXPORTING
           the_string = v_en_string
         RECEIVING
           result     = v_de_string.
     CATCH cx_encrypt_error INTO o_cx_encrypt_error.
       CALL METHOD o_cx_encrypt_error->if_message~get_text
         RECEIVING
           result = v_error_msg.
       MESSAGE v_error_msg TYPE 'E'.
   ENDTRY.

   WRITE:/ 'Encrypted String: ', v_en_string.
   WRITE:/ 'Decrypted String: ', v_de_string.