ABAP字符串的加密与解密

FIEB_PASSWORD_DECRYPT:字符串解密；
FIEB_PASSWORD_ENCRYPT:字符串加密。
旧版本的可以用。

 1 PARAMETERS:str1 type char32 OBLIGATORY,
 2             str2 TYPE char32,
 3             str3 TYPE char32.
 4 INITIALIZATION.
 5 clear:str2,str3.
 6 AT SELECTION-SCREEN output.
 7   if not str1 is INITIAL.
 8   CALL FUNCTION 'FIEB_PASSWORD_ENCRYPT'
 9     EXPORTING
10        im_decrypted_password        = STR1
11    IMPORTING
12       EX_ENCRYPTED_PASSWORD         = STR2 .
13   CALL FUNCTION 'FIEB_PASSWORD_DECRYPT'
14     EXPORTING
15        im_encrypted_password        = STR2
16    IMPORTING
17       EX_DECRYPTED_PASSWORD         = STR3   .
18 endif.

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

 1 DATA:   o_encryptor        TYPE REF TO cl_hard_wired_encryptor,
 2         o_cx_encrypt_error TYPE REF TO cx_encrypt_error.
 3 DATA:   v_ac_string  TYPE string VALUE 'Welcome to ABAP',
 4         v_ac_xstring TYPE xstring,
 5         v_en_string  TYPE string,
 6         v_en_xstring TYPE xstring,
 7         v_de_string  TYPE string,
 8         v_de_xstring TYPE xstring,
 9         v_error_msg  TYPE string.
10 START-OF-SELECTION.
11   CREATE OBJECT o_encryptor.
12   WRITE / 'Encryption - String to String'.
13   TRY.
14       CALL METHOD o_encryptor->encrypt_string2string
15         EXPORTING
16             the_string = v_ac_string
17           RECEIVING
18             result       = v_en_string.
19     CATCH cx_encrypt_error INTO o_cx_encrypt_error.
20       CALL METHOD o_cx_encrypt_error->if_message~get_text
21           RECEIVING
22             result = v_error_msg.
23       MESSAGE v_error_msg TYPE 'E'.
24   ENDTRY.
25   WRITE:/ 'Actual String: ', v_ac_string.
26   WRITE:/ 'Encrypted String: ', v_en_string.
27   SKIP.
28   WRITE / 'Decryption - String to String'.
29   TRY.
30       CALL METHOD o_encryptor->decrypt_string2string
31         EXPORTING
32             the_string = v_en_string
33           RECEIVING
34             result       = v_de_string.
35     CATCH cx_encrypt_error INTO o_cx_encrypt_error.
36       CALL METHOD o_cx_encrypt_error->if_message~get_text
37           RECEIVING
38             result = v_error_msg.
39       MESSAGE v_error_msg TYPE 'E'.
40   ENDTRY.
41 
42   WRITE:/ 'Encrypted String: ', v_en_string.
43   WRITE:/ 'Decrypted String: ', v_de_string.
44   SKIP. 

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

 1 report ztest1 MESSAGE-ID F4.
 2 DATA: o_encryptor        TYPE REF TO cl_hard_wired_encryptor,
 3       o_cx_encrypt_error TYPE REF TO cx_encrypt_error.
 4 
 5 DATA: v_ac_string  TYPE string VALUE 'Welcome to ABAP',
 6       v_ac_xstring TYPE xstring,
 7       v_en_string  TYPE string,
 8       v_en_xstring TYPE xstring,
 9       v_de_string  TYPE string,
10       v_de_xstring TYPE string,
11       v_error_msg  TYPE string.
12 
13 START-OF-SELECTION.
14 
15 * Create object for Encryption
16   CREATE OBJECT o_encryptor.
17 * *&---------------------------------------------------------------------*
18 * Encryption - String to String
19 *&---------------------------------------------------------------------*
20 WRITE / 'Encryption - String to String'.
21   TRY.
22       CALL METHOD o_encryptor->encrypt_string2string
23         EXPORTING
24           the_string = v_ac_string
25         RECEIVING
26           result     = v_en_string.
27     CATCH cx_encrypt_error INTO o_cx_encrypt_error.
28       CALL METHOD o_cx_encrypt_error->if_message~get_text
29         RECEIVING
30           result = v_error_msg.
31       MESSAGE v_error_msg TYPE 'E'.
32   ENDTRY.
33 
34   WRITE:/ 'Actual String: ', v_ac_string.
35   WRITE:/ 'Encrypted String: ', v_en_string.
36   SKIP.
37 
38 *&---------------------------------------------------------------------*
39 * Decryption - String to String
40 *&---------------------------------------------------------------------*
41 WRITE / 'Decryption - String to String'.
42   TRY.
43       CALL METHOD o_encryptor->decrypt_string2string
44         EXPORTING
45           the_string = v_en_string
46         RECEIVING
47           result     = v_de_string.
48     CATCH cx_encrypt_error INTO o_cx_encrypt_error.
49       CALL METHOD o_cx_encrypt_error->if_message~get_text
50         RECEIVING
51           result = v_error_msg.
52       MESSAGE v_error_msg TYPE 'E'.
53   ENDTRY.
54 
55   WRITE:/ 'Encrypted String: ', v_en_string.
56   WRITE:/ 'Decrypted String: ', v_de_string.