ABAP-AES加密解密

  1 REPORT ytestdzp.
  2 
  3 FORM b .
  4 
  5   DATA:lv_encrypt TYPE string.     "加密前的string类型
  6   DATA:lv_encrypt_x TYPE xstring.  "加密前的xstring类型
  7 
  8   DATA:lv_encrypt_after TYPE string.    "加密后的string类型
  9   DATA:lv_encrypt_after_x TYPE xstring. "加密后的xstring类型
 10 
 11   DATA:lv_key TYPE string VALUE 'y5red17ocg5voImq', "key  密钥
 12        lv_iv  TYPE string VALUE '0000000000000000'. "iv   向量
 13 
 14   DATA : lv_key_x TYPE xstring.
 15   DATA : lv_iv_x  TYPE xstring.
 16 
 17   lv_encrypt = '5d1ceafcbd05470ca2fe969bed2e6151'.  "加密前的数据
 18 
 19   "string --> xstring
 20   CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
 21     EXPORTING
 22       text   = lv_key
 23     IMPORTING
 24       buffer = lv_key_x
 25     EXCEPTIONS
 26       failed = 1.
 27 
 28   "string --> xstring
 29   CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
 30     EXPORTING
 31       text   = lv_iv
 32     IMPORTING
 33       buffer = lv_iv_x
 34     EXCEPTIONS
 35       failed = 1.
 36 
 37   "string --> xstring
 38   CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
 39     EXPORTING
 40       text   = lv_encrypt
 41     IMPORTING
 42       buffer = lv_encrypt_x
 43     EXCEPTIONS
 44       failed = 1.
 45 
 46   " encrypt using AES256
 47   zcl_aes_utility=>encrypt_xstring(
 48     EXPORTING
 49       i_key                   = lv_key_x
 50       i_data                  = lv_encrypt_x
 51       i_initialization_vector = lv_iv_x
 52       i_padding_standard      = zcl_byte_padding_utility=>mc_padding_standard_pkcs_7 "字节填充模式
 53       i_encryption_mode       = zcl_aes_utility=>mc_encryption_mode_cbc
 54     IMPORTING
 55       e_data                  = lv_encrypt_after_x
 56   ).
 57 
 58   WRITE:'加密前：', lv_encrypt.
 59 
 60   CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
 61     EXPORTING
 62       input  = lv_encrypt_after_x
 63     IMPORTING
 64       output = lv_encrypt_after.
 65 
 66   WRITE:/ '加密后：', lv_encrypt_after.
 67 
 68 ENDFORM .
 69 
 70 FORM a .
 71 
 72   DATA:lv_decrypt   TYPE string,      "解密前的string类型
 73        lv_decrypt_x TYPE xstring.     "解密前的xstring类型
 74 
 75   DATA:lv_decrypt_after   TYPE string,   "解密后的string类型
 76        lv_decrypt_after_x TYPE xstring.  "解密后的xstring类型
 77 
 78   DATA:lv_key TYPE string VALUE 'IGcHiC4QUCXUlOx0', "key 设置对称算法的密钥
 79        lv_iv  TYPE string VALUE '0000000000000000'. "iv  设置对称算法的初始化向量
 80 
 81   DATA lv_key_x TYPE xstring .
 82   DATA lv_iv_x  TYPE xstring .
 83 
 84 
 85   lv_decrypt = 'GQ3225d7mwmj3pbHoBRsL5piGEdiYWy9pB9YwpkLkNdKMuPOd5etReMf3hgES0zdCxGsHoOjCnPLru BgeXPz1tLEXGlp3' &&
 86   'q+Xk2K3Re+PMMs+qK1RAmpJpLB5w2pKMhqTKXeh2nKlGFgyHn6tgjRiAzwTM0nWM' &&
 87   'cYFoDJZPw6kJOHLEF40zv6FSfnk7NvFrG44TdF/B/NAR4FGOKC+AmJhtYxUnXlvkt3wDxqGjHML3//b B1xLWmluBEANj5NXveq+'.
 88 
 89   " base64 --> xstring
 90   CALL FUNCTION 'SSFC_BASE64_DECODE'
 91     EXPORTING
 92       b64data                  = lv_decrypt
 93     IMPORTING
 94       bindata                  = lv_decrypt_x
 95     EXCEPTIONS
 96       ssf_krn_error            = 1
 97       ssf_krn_noop             = 2
 98       ssf_krn_nomemory         = 3
 99       ssf_krn_opinv            = 4
100       ssf_krn_input_data_error = 5
101       ssf_krn_invalid_par      = 6
102       ssf_krn_invalid_parlen   = 7.
103 
104   "string --> xstring
105   CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
106     EXPORTING
107       text   = lv_key
108     IMPORTING
109       buffer = lv_key_x
110     EXCEPTIONS
111       failed = 1.
112 
113   "string --> xstring
114   CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
115     EXPORTING
116       text   = lv_iv
117     IMPORTING
118       buffer = lv_iv_x
119     EXCEPTIONS
120       failed = 1.
121 
122   " AES解密
123   zcl_aes_utility=>decrypt_xstring(
124   EXPORTING
125     i_key                   = lv_key_x
126     i_data                  = lv_decrypt_x
127     i_initialization_vector = lv_iv_x
128     i_encryption_mode       = zcl_aes_utility=>mc_encryption_mode_cbc
129     i_padding_standard = zcl_byte_padding_utility=>mc_padding_standard_pkcs_7  "字节填充模式
130   IMPORTING
131     e_data                  = lv_decrypt_after_x ).
132 
133   WRITE: / '解密前：' , lv_decrypt.
134 
135   "Xstring --> string
136   lv_decrypt_after = cl_abap_codepage=>convert_from(
137   EXPORTING
138     source = lv_decrypt_after_x
139   ).
140 
141   WRITE: / '解密后：' , lv_decrypt_after.
142 
143 ENDFORM .