ABAP AES加密实现

已于 2022-05-20 22:47:57 修改
阅读量2k 收藏 16
点赞数 6
分类专栏： 功能 ABAP 文章标签： aes abap 加密
于 2022-05-18 21:06:59 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xiefireworks/article/details/124832051
版权
ABAP 同时被 2 个专栏收录
61 篇文章 12 订阅
订阅专栏
功能
43 篇文章 5 订阅
订阅专栏

目录

一、标准方法（cl_sec_sxml_writer）实现

AES加密示例

AES解密示例

密钥生成

参考

二、openssl命令行实现

实现示例

参考

三、开源代码实现

一、标准方法（cl_sec_sxml_writer）实现

        标准方法中AES加密模式为CBC，填充为pkcs7padding，支持aes128，aes192，aes256

  • AES加密示例

DATA: lv_base64 TYPE string,
      lv_str    TYPE string.

DATA: lv_data      TYPE string,
      lv_data_xstr TYPE xstring,
      lv_key_xstr  TYPE xstring,
      lv_key_str   TYPE string,
      lv_iv_xstr   TYPE xstring,
      lv_iv_str    TYPE string,
      lv_en_xstr   TYPE xstring,
      lv_de_xstr   TYPE xstring,
      lv_de_str    TYPE string,
      lv_en_str    TYPE string.

lv_data = '待加密字符串'.
lv_data_xstr = cl_bcs_convert=>string_to_xstring( iv_string   = lv_data iv_codepage = '4110' ).

" key aes256 32字节 aes192 24字节 aes128 16字节
lv_key_str = 'ABCDEFGHIJKLMNOP'.
lv_key_xstr = cl_bcs_convert=>string_to_xstring( iv_string   = lv_key_str iv_codepage = '4110' ).

" 偏移量 cbc模式使用
lv_iv_str = '1234567890123456'.
lv_iv_xstr = cl_bcs_convert=>string_to_xstring( iv_string   = lv_iv_str iv_codepage = '4110' ).

TRY.
    cl_sec_sxml_writer=>encrypt_iv(
      EXPORTING
        plaintext =  lv_data_xstr
        key       =  lv_key_xstr
        iv        =  lv_iv_xstr
        algorithm =  cl_sec_sxml_writer=>co_aes128_algorithm
      IMPORTING
        ciphertext = lv_en_xstr ).
  CATCH cx_root.
ENDTRY.

" 移除偏移量
lv_en_str =  lv_en_xstr.
IF strlen( lv_en_str ) > 32.
  SHIFT lv_en_str LEFT BY 32 PLACES.
  lv_en_xstr = lv_en_str.
ENDIF.

CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
  EXPORTING
    input  = lv_en_xstr
  IMPORTING
    output = lv_str.

WRITE:/ lv_str.

        结果验证

  • AES解密示例

DATA: lv_base64 TYPE string,
      lv_str    TYPE string.

DATA: lv_data      TYPE string,
      lv_data_xstr TYPE xstring,
      lv_key_xstr  TYPE xstring,
      lv_key_str   TYPE string,
      lv_iv_xstr   TYPE xstring,
      lv_iv_str    TYPE string,
      lv_en_xstr   TYPE xstring,
      lv_de_xstr   TYPE xstring,
      lv_de_str    TYPE string,
      lv_en_str    TYPE string.

lv_base64 = '7pSa8sj9sCWvzgQIMgr/0AtKolaS/K54V3MUCEE0mXg='.
CALL FUNCTION 'SCMS_BASE64_DECODE_STR'
  EXPORTING
    input  = lv_base64
*   UNESCAPE       = 'X'
  IMPORTING
    output = lv_en_xstr
  EXCEPTIONS
    failed = 1
    OTHERS = 2.

" 前置8位补位 偏移量
lv_iv_str = '1234567890123456'.
lv_iv_xstr = cl_bcs_convert=>string_to_xstring( iv_string   = lv_iv_str iv_codepage = '4110' ).
lv_en_xstr = lv_iv_xstr && lv_en_xstr.

" DES key 8字节，如果为TDEA加密（3DES）key为24字节，转化为十六进制使用
lv_key_str = 'ABCDEFGHIJKLMNOP'.
lv_key_xstr = cl_bcs_convert=>string_to_xstring( iv_string   = lv_key_str iv_codepage = '4110' ).

TRY.
    cl_sec_sxml_writer=>decrypt(
      EXPORTING
        ciphertext = lv_en_xstr
        key        = lv_key_xstr
         algorithm  = cl_sec_sxml_writer=>co_aes128_algorithm
       IMPORTING
         plaintext  = lv_de_xstr
           ).
  CATCH cx_root.
ENDTRY.

lv_de_str = cl_bcs_convert=>xstring_to_string( iv_xstr = lv_de_xstr iv_cp = '4110' ).

WRITE: / '解密后字符串：', lv_de_str.

         结果验证

  • 密钥生成

lv_key_xstr = cl_sec_sxml_writer=>generate_key( algorithm = cl_sec_sxml_writer=>co_aes128_algorithm ).

        aes256 32字节密钥，aes192 24字节密钥，aes128 16字节密钥

  • 参考

        AES Encryption in ABAPAES Encryption in ABAP | SAP Blogs

        AES 加密文件 File encryption and decryption using ABAP | SAP Blogs

二、openssl命令行实现

  • 实现示例

DATA: lv_output TYPE xstring,
      lv_input  TYPE string.

DATA: lv_base64   TYPE string,
      lv_key_xstr TYPE xstring,
      lv_key_str  TYPE string,
      lv_iv_xstr  TYPE xstring,
      lv_iv_str   TYPE string.

DATA: lv_inputfile  TYPE string,
      lv_outputfile TYPE string.

DATA:lv_parameters    TYPE sxpgcolist-parameters,
     lv_status        TYPE extcmdexex-status,
     lv_exitcode      TYPE extcmdexex-exitcode,
     lt_exec_protocol  TYPE TABLE OF btcxpm.

DATA: timestamp TYPE timestampl,
      str       TYPE string.

GET TIME STAMP FIELD timestamp.
str = timestamp.
REPLACE ALL OCCURRENCES OF '.' IN str WITH ''.
CONDENSE str NO-GAPS.
lv_inputfile  = '/tmp/temp_input'   && '.txt'.
lv_outputfile = '/tmp/temp_output'  && '.txt'.

lv_input = 'AES128待加密字符串'.

" 写入 明文
OPEN DATASET lv_inputfile FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
TRANSFER lv_input TO lv_inputfile.
CLOSE DATASET lv_inputfile.

"  偏移量
lv_iv_str = '1234567890123456'.
lv_iv_str = cl_bcs_convert=>string_to_xstring( iv_string   = lv_iv_str iv_codepage = '4110' ).
lv_iv_str = to_lower( lv_iv_str ).


" DES key
lv_key_str = 'ABCDEFGHIJKLMNOP'.
lv_key_str = cl_bcs_convert=>string_to_xstring( iv_string   = lv_key_str iv_codepage = '4110' ).
lv_key_str = to_lower( lv_key_str ).

lv_parameters = |enc -e -aes-128-cbc -in { lv_inputfile } -out { lv_outputfile } -K { lv_key_str } -iv { lv_iv_str }|.

CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
  EXPORTING
    commandname                   = 'ZRSA'
    additional_parameters         = lv_parameters
    operatingsystem               = sy-opsys
  IMPORTING
    status                        = lv_status
    exitcode                      = lv_exitcode
  TABLES
    exec_protocol                 = lt_exec_protocol
  EXCEPTIONS
    no_permission                 = 1
    command_not_found             = 2
    parameters_too_long           = 3
    security_risk                 = 4
    wrong_check_call_interface    = 5
    program_start_error           = 6
    program_termination_error     = 7
    x_error                       = 8
    parameter_expected            = 9
    too_many_parameters           = 10
    illegal_command               = 11
    wrong_asynchronous_parameters = 12
    cant_enq_tbtco_entry          = 13
    jobcount_generation_error     = 14
    OTHERS                        = 15.

" 读取加密后文件
IF sy-subrc = 0 AND lv_status <> 'E'.
  OPEN DATASET lv_outputfile FOR INPUT IN BINARY MODE.
  READ DATASET lv_outputfile INTO lv_output.
  CLOSE DATASET lv_outputfile.
ENDIF.

" 删除临时文件
DELETE DATASET lv_inputfile  .
DELETE DATASET lv_outputfile .

CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
  EXPORTING
    input  = lv_output
  IMPORTING
    output = lv_base64.

WRITE: / lv_base64.

        结果验证

  • 参考

     openssl 加密实例介绍实战篇-OpenSSL之AES加密算法-CBC模式_百里杨的博客-CSDN博客_aes加密cbc模式https://blog.csdn.net/zyhse/article/details/112282293

三、开源代码实现

        参考git地址 GitHub - Sumu-Ning/AES: ABAP Utilities for AES/Rijndael encryption, decryption

Fireworks  https://mp.csdn.net/mp_blog/creation/editor/124832051

谢图图
关注
  • 6
    点赞
  • 踩
  • 16
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
ABAP 实现AES加密
qq_36376980的博客
09-04 289
1.Github下载工具类https://github.com/Sumu-Ning/AES，利用abapGit上传至SAP系统。3.将明文转XSTRING，密钥BASE64解码，调用zcl_aes_utility=>encrypt_xstring方法。2.AES加密需要四个参数 ①密钥②加密模式③字节填充模式④偏移量。
AES:ABAP实用程序用于AESRijndael加密，解密
05-05
ABAP实现的AES算法 ABA实用程序，用于AES加密，根据MIT许可进行解密。 实际实现是通过更通用的Rijndael方法完成的，AES被视为特例。 支持： 加密方式：ECB，CBC，PCBC，CFB，OFB，CTR。 填充标准：无，PKCS＃5，PKCS＃7。 （请使用PKCS＃7，无填充和PKCS＃5在AES上不能很好地工作，除非您清楚知道它们在做什么。） 请仅将源代码文件复制到ABAP编辑器（基于源代码的模式）中，然后将其激活。 或通过安装。 班级： ZIF_AES_MODE：不同加密模式的接口。 ZCL_AES_MODE_CBC：CBC模式。 ZCL_AES_MODE_CFB：CFB模式。 ZCL_AES_MODE_CTR：点击率模式。 ZCL_AES_MODE_ECB：ECB模式。 ZCL_AES_MODE_OFB：OFB模式。 ZCL_AES_MO
AES加密解密（ECB模式）
最新发布
2401_84123077的博客
04-21 639
将矩阵中的每个横列进行循环式移位。MixColumns — 为了充分混合矩阵中各个直行的操作。这个步骤使用线性转换来混合每列的四个字节。最后一个加密循环中省略MixColumns步骤，而以另一个AddRoundKey取代。加密标准对称密码体制的发展趋势将以分组密码为重点。分组密码算法通常由密钥扩展算法和加密（解密）算法两部分组成。密钥扩展算法将b字节用户主密钥扩展成r个子密钥。加密算法由一个密码学上的弱函数f与r个子密钥迭代r次组成。混乱和密钥扩散是分组密码算法设计的基本原则。
ABAP AES加密解密
我的心是烈日簇拥的花，在你的眼里找到了家
06-08 2180
导语：最近修改一个银企直连的接口，涉及到用AES对内容进行加密，首先进行需要用abapgit导入一个类，地址如下https://github.com/Sumu-Ning/AES，然后使用这个类里的方法实现加密。 一、加密
ABAP-AES加密解密
qq_42489747的博客
09-22 238
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. ...
AES256 加密解密 Encryption in SAP ABAP
SAP ABAP PO PI 银企直连
05-04 1549
AES256 加密解密 Encryption in SAP ABAP
ABAP加密和解密.doc
05-22
ABAP加密和解密
ABAP-AES-JAVA加密解密（带附件SE24-AES.RAR、JAVA-AES.RAR及测试案例）
11-08
ABAP对JAVA加密的内容进行AES解密，或JAVA对ABAP的加密内容进行解密 提供现成所有源代码（包括ABAP的AES工具类 ），直接拷贝即可使用，达成与JAVA项目互通加密解密。
AES对称加密
08-17
使用AES 对称加密实现加密，代码有详细说明，欢饮下载
ABAP RSA加密实现（加解密及签名）- 测试用pse证书文件
05-27
ABAP RSA加密实现（加解密及签名）- 测试用pse证书文件 使用对应私钥生成 ID位CN=user
AES加密工具类
11-30
可用于登陆时对密码进行加密public static byte[] encrypt(String cleartext, String dataPassword) { Date startDate = new Date(); logger.info("encrypt begin : " + startDate); byte[] encryptedData = null; try { IvParameterSpec zeroIv = new IvParameterSpec(VIPARA.getBytes()); SecretKeySpec key = new SecretKeySpec(dataPassword.getBytes(), "AES"); Cipher cipher = Cipher.getInstance("AES/CBC/PKCS5Padding"); cipher.init(Cipher.ENCRYPT_MODE, key, zeroIv); encryptedData = cipher.doFinal(cleartext.getBytes(bm)); } catch (Exception e) { logger.error("encrypt error :", e); } logger.info("encrypt run end(s) : " + DateUtil.calLastedTime(startDate)); return encryptedData; }
aescrypt-helper：用于处理AES-256-CBC加密和解密任意长度数据的简单工具
02-12
aescrypt-helper aescrypt-helper是一组简单的工具，用于处理AES-256加密和任意长度的数据解密。 npm install @outofsync/aescrypt-helper const AESCryptHelper = require ( '@outofsync/aescrypt-helper' ) ; const secret = '41e8c08ff31f97547ac11cc47c29f8ce5cb187a70ef09226c0f025c25c55b5b3' ; const iv = '3816d1474cf82f3182b83c390d3e8eb5' ; const creds = { secret : null , iv : null } ; creds . secret = Buffer . from ( secret , 'hex' )
ABAP AES128 CBC/NOPADDING加密
qq_28505833的博客
06-18 586
ABAP AES128 CBC/NOPADDING加密
SAP-AES加密
qq_38304013的博客
09-26 321
在AES标准规范中，分组长度只能是128位，也就是说，每个分组为16个字节（每个字节8位）。密钥的长度可以使用128位、192位或256位。密钥的长度不同，推荐加密轮数也不同。AES为最常见的对称加密算法(微信小程序加密传输就是用这个加密算法的)。
SAP AES encrypt
Damon的 SAP BLOG
07-17 450
在实际的操作过程中，我们通常采用的方式是：采用非对称加密算法管理对称算法的密钥，然后用对称加密算法加密数据，这样我们就集成了两类加密算法的优点，既实现了加密速度快的优点，又实现了安全方便管理密钥的优点。比如明文：{1,2,3,4,5,a,b,c,d,e},缺少6个字节，则可能补全为{1,2,3,4,5,a,b,c,d,e,5,c,3,G,$,6}比如明文：{1,2,3,4,5,a,b,c,d,e},缺少6个字节，则补全为{1,2,3,4,5,a,b,c,d,e,6,6,6,6,6,6}
SAP ABAP DES加密实现
matinal 當冬夜漸暖 。公众号：matinal
08-07 338
标准方法中DES加密模式为CBC，填充为pkcs7padding。
SAP ABAP编程 字符串加密-MD5_CALCULATE_HASH_FOR_CHAR
she_smiled的博客
04-23 4218
在Java中，我们使用md5进行字符串加密，那么在ABAP中，用MD5_CALCULATE_HASH_FOR_CHAR进行加密。DATA: str1 TYPE c LENGTH 12 VALUE 'asd',      str2 TYPE c LENGTH 32,      str3 TYPE c LENGTH 32.CALL FUNCTION 'MD5_CALCULATE_HASH_FOR_CH...
SAP ABAP如何隐藏你写的程序代码（危险，请小心谨慎）
全欣 的专栏
01-07 9326
不管是出于什么样的原因, 你偶尔会想到把自己写的程序代码隐藏, 当然, 这些代码一定不是项目中用到的, 比如你自己写的小程序 SAP提供隐藏代码功能, 但是需要注意的是, 代码一旦被隐藏, 则终生无法恢复, so, 在做这个隐藏代码的动作前, 一定要备份好你自己的代码, 切记切记. 1. 撰写插入隐藏码的程序 *&———————————————————————* *& Re
abap rsa加密
10-27
ABAP RSA加密是一种基于RSA算法的加密方式，它可以用于保护数据的安全性，防止数据被未经授权的人员访问和篡改。RSA算法是一种非对称加密算法，它使用公钥和私钥来加密和解密数据。在ABAP中，可以使用RSA算法来实现加解密和签名等功能。ABAP RSA加密实现需要使用pse证书文件和对应的私钥来＊＊＊函数组，可以用于RSA加密示例，使用公钥字符串加密。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值