ABAP AES加密
加密说明:AES128 CBC/NOPADDING
前言
SAP:ABAP AES加密算法:
例如:含有AES ECB/CBC/CFB/OFB等加密解密方法。
一、AES UTIL安装
下载: https://github.com/Sumu-Ning/AES
二、使用步骤
1.导入ABAP AES工具类
如下(示例):
2.调用案例
代码如下(示例):
DATA: lv_encrypt_x TYPE xstring, "加密前的xstring类型
lv_key_x TYPE xstring,
lv_iv_x TYPE xstring,
lv_encrypt_after_x TYPE xstring.
lv_encrypt_x = cl_bcs_convert=>string_to_xstring( iv_string = i_data iv_codepage = '4110' ).
lv_iv_x = lv_key_x = cl_bcs_convert=>string_to_xstring( iv_string = i_appsecret iv_codepage = '4110' ).
"AES128 CBC/NOPADDING
zcl_aes_utility=>encrypt_xstring(
EXPORTING
i_key = lv_key_x
i_data = lv_encrypt_x
i_initialization_vector = lv_iv_x
i_padding_standard = zcl_byte_padding_utility=>mc_padding_standard_none "字节填充模式
i_encryption_mode = zcl_aes_utility=>mc_encryption_mode_cbc
IMPORTING
e_data = lv_encrypt_after_x
).
"BASE64
CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
EXPORTING
input = lv_encrypt_after_x
IMPORTING
output = e_requestbody.
测试结果
>ABAP加密如下:
>解密工具解密如下: