ABAP实现Blowfish加密算法
看到SAP社区中有人问是否存在ABAP实现的Blowfish加密算法，无人回答。于是动手实现了一个blowfish-abap。通过blowfish-abap可以在SAP系统中使用Blowfish对数据进行加密。
什么是Blowfish？
Blowfish是一种对称密钥分组密码算法，它有实现简单、不需要授权、完全免费、密钥长度可变、加密效率高等特点，在某些领域有所应用。关于这几个特点的具体介绍，
- 快速。Blowfish在32位微处理器上的加密速度达到每字节26个时钟周期。
- 紧凑。Blowfish能在容量小于5K的存储器中运行。
- 简单。Blowfish仅使用了一些简单运算：基于32位的加、异或和查表。它的设计容易分析，且可阻止它的错误实现。
- 可变的安全性，Blowfish的密钥长度是可变的，且能达到448位。在密钥不需要经常更改的应用中，如通信连接和自动文件加密器，
Blowfish是最优秀的一个算法，当在32位具有大内存的微处理器上实现时，其速度比DES快得多。Blowfish不适合于分组交换、经常更换密钥和单向函数中。它需要大的存储器，使得它不能有效地在智能卡应用中实现。
（参考《应用密码学》第二版，14.3 Blowfish算法）
它是由Bruce Schneier提出的：http://www.schneier.com/paper-blowfish-fse.html
本文链接：https://www.cnblogs.com/hhelibeb/p/11714225.html
原创内容，转载请注明
blowfish-abap
blowfish-abap是blowfish的ABAP语言实现，大约包含1000行代码，它的Github地址如下：https://github.com/hhelibeb/blowfish-abap
如果你在使用当中遇到任何问题，请在本文评论，或在Github提issue。
使用
使用ABAPGIT安装后即可使用，调用代码如下，
DATA(blowfish) = NEW zcl_blowfish( CONV #( '04B915BA43FEB5B6' ) ). DATA(plain) = 'The quick brown fox jumped over the lazy dog.'. DATA(cipher) = blowfish->encrypt_cbc( CONV #( plain ) ). plain = blowfish->decrypt_cbc( cipher ). cl_demo_output=>display( plain && cl_abap_char_utilities=>newline && cipher ).
结果，
（密文字符串过长，未完全展示）
测试用例
项目中包含单元测试（zcl_blowfish.clas.testclasses.abap），用例来源于 https://www.schneier.com/code/vectors.txt
源代码
下面是当前的源代码，最新版代码请到Github查看，
CLASS zcl_blowfish DEFINITION PUBLIC FINAL CREATE PUBLIC . PUBLIC SECTION. TYPES: ty_byte_t TYPE STANDARD TABLE OF x WITH EMPTY KEY. DATA: non_standard_method TYPE abap_bool. METHODS: constructor IMPORTING !hexkey TYPE xstring RAISING cx_me_illegal_argument. METHODS: decrypt_cbc IMPORTING !cipher_text TYPE string RETURNING VALUE(plain_text) TYPE string. METHODS: encrypt_cbc IMPORTING !plain_text TYPE string RETURNING VALUE(cipher_text) TYPE string. METHODS: decrypt_ecb IMPORTING !cipher_text TYPE string RETURNING VALUE(plain_text) TYPE string. METHODS: encrypt_ecb IMPORTING !plain_text TYPE string RETURNING VALUE(cipher_text) TYPE string. METHODS: set_iv IMPORTING !iv TYPE ty_byte_t RAISING cx_me_illegal_argument. METHODS: get_iv RETURNING VALUE(iv) TYPE ty_byte_t. PROTECTED SECTION. PRIVATE SECTION. TYPES: p1 TYPE p LENGTH 16 DECIMALS 7. TYPES: ty_string_t TYPE string_table. TYPES: ty_sblock_t TYPE xstring_table. CONSTANTS: c_utf8 TYPE abap_encod VALUE 'UTF-8'. DATA: init_vector TYPE ty_byte_t. DATA: bf_s0 TYPE ty_sblock_t. DATA: bf_s1 TYPE ty_sblock_t. DATA: bf_s2 TYPE ty_sblock_t. DATA: bf_s3 TYPE ty_sblock_t. DATA: bf_p TYPE ty_sblock_t. DATA: xl_par TYPE xstring. DATA: xr_par TYPE xstring. DATA: iv_set TYPE abap_bool. METHODS: setup_key IMPORTING cipher_key TYPE ty_byte_t. METHODS: set_random_iv. METHODS: setup_p RETURNING VALUE(p) TYPE ty_sblock_t. METHODS: setup_s0 RETURNING VALUE(s0) TYPE ty_sblock_t. METHODS: setup_s1 RETURNING VALUE(s1) TYPE ty_sblock_t. METHODS: setup_s2 RETURNING VALUE(s2) TYPE ty_sblock_t. METHODS: setup_s3 RETURNING VALUE(s3) TYPE ty_sblock_t. METHODS: hex_to_byte IMPORTING !hex TYPE xstring RETURNING VALUE(byte_tab) TYPE ty_byte_t. METHODS: byte_to_hex IMPORTING !byte_tab TYPE ty_byte_t RETURNING VALUE(hex) TYPE xstring. METHODS: round1 IMPORTING !a TYPE xstring !b TYPE xstring !n TYPE int4 RETURNING VALUE(r) TYPE xstring. METHODS: decipher. METHODS: encipher. METHODS: get_block CHANGING !block TYPE ty_byte_t. METHODS: set_block IMPORTING !block TYPE ty_byte_t. METHODS: block_decrypt CHANGING !block TYPE ty_byte_t. METHODS: block_encrypt CHANGING !block TYPE ty_byte_t. METHODS: xor_block IMPORTING !iv TYPE ty_byte_t CHANGING !block TYPE ty_byte_t. METHODS: table_reverse CHANGING !itab TYPE STANDARD TABLE. METHODS: table_copy IMPORTING !src TYPE STANDARD TABLE !src_offset TYPE i !dst_offset TYPE i !count TYPE i CHANGING !dst TYPE STANDARD TABLE. METHODS: word_byte0 IMPORTING !word TYPE xstring RETURNING VALUE(b) TYPE int4. METHODS: word_byte1 IMPORTING !word TYPE xstring RETURNING VALUE(b) TYPE int4. METHODS: word_byte2 IMPORTING !word TYPE xstring RETURNING VALUE(b) TYPE int4. METHODS: word_byte3 IMPORTING !word TYPE xstring RETURNING VALUE(b) TYPE int4. METHODS: crypt_cbc IMPORTING !text TYPE ty_byte_t !decrypt TYPE abap_bool RETURNING VALUE(plain_text) TYPE ty_byte_t. METHODS: crypt_ecb IMPORTING !text TYPE ty_byte_t !decrypt TYPE abap_bool RETURNING VALUE(plain_text) TYPE ty_byte_t. METHODS: to_int4 IMPORTING !xdata TYPE xstring RETURNING VALUE(int4) TYPE xstring. ENDCLASS. CLASS ZCL_BLOWFISH IMPLEMENTATION. METHOD block_decrypt. set_block( block ). decipher( ). get_block( CHANGING block = block ). ENDMETHOD. METHOD block_encrypt. set_block( block ). encipher( ). get_block( CHANGING block = block ). ENDMETHOD. METHOD byte_to_hex. LOOP AT byte_tab ASSIGNING FIELD-SYMBOL(<byte>). hex = hex && <byte>. ENDLOOP. ENDMETHOD. METHOD constructor. DATA(key_len) = xstrlen( hexkey ). IF key_len = 0 OR key_len > 56. "448bits. RAISE EXCEPTION TYPE cx_me_illegal_argument EXPORTING name = 'HEXKEY' value = 'Incorrect key length'. ENDIF. setup_key( EXPORTING cipher_key = hex_to_byte( hexkey ) ). ENDMETHOD. METHOD crypt_cbc. IF iv_set = abap_false. RETURN. ENDIF. table_copy( EXPORTING src = text src_offset = 1 dst_offset = 1 count = lines( text ) CHANGING dst = plain_text ). DATA: block TYPE ty_byte_t, preblock TYPE ty_byte_t, iv TYPE ty_byte_t. table_copy( EXPORTING src = init_vector src_offset = 1 dst_offset = 1 count = 8 CHANGING dst = iv ). DATA(plain_length) = lines( plain_text ). DATA(padded_length) = COND int4( WHEN plain_length MOD 8 = 0 THEN plain_length ELSE plain_length + 8 - ( plain_length MOD 8 ) ). DATA(copy_index) = 1. IF decrypt = abap_true. WHILE copy_index <= padded_length. table_copy( EXPORTING src = plain_text src_offset = copy_index dst_offset = 1 count = 8 CHANGING dst = block ). table_copy( EXPORTING src = block src_offset = 1 dst_offset = 1 count = 8 CHANGING dst = preblock ). block_decrypt( CHANGING block = block ). xor_block( EXPORTING iv = iv CHANGING block = block ). table_copy( EXPORTING src = preblock src_offset = 1 dst_offset = 1 count = 8 CHANGING dst = iv ). table_copy( EXPORTING src = block src_offset = 1 dst_offset = copy_index count = 8 CHANGING dst = plain_text ). copy_index = copy_index + 8. ENDWHILE. ELSE. WHILE copy_index <= padded_length. table_copy( EXPORTING src = plain_text src_offset = copy_index dst_offset = 1 count = 8 CHANGING dst = block ). xor_block( EXPORTING iv = iv CHANGING block = block ). block_encrypt( CHANGING block = block ). table_copy( EXPORTING src = block src_offset = 1 dst_offset = 1 count = 8 CHANGING dst = iv ). table_copy( EXPORTING src = block src_offset = 1 dst_offset = copy_index count = 8 CHANGING dst = plain_text ). copy_index = copy_index + 8. ENDWHILE. ENDIF. ENDMETHOD. METHOD crypt_ecb. table_copy( EXPORTING src = text src_offset = 1 dst_offset = 1 count = lines( text ) CHANGING dst = plain_text ). DATA: block TYPE ty_byte_t. DATA(plain_length) = lines( plain_text ). DATA(padded_length) = COND int4( WHEN plain_length MOD 8 = 0 THEN plain_length ELSE plain_length + 8 - ( plain_length MOD 8 ) ). DATA(copy_index) = 1. WHILE copy_index <= padded_length. table_copy( EXPORTING src = plain_text src_offset = copy_index dst_offset = 1 count = 8 CHANGING dst = block ). IF decrypt = abap_true. block_decrypt( CHANGING block = block ). ELSE. block_encrypt( CHANGING block = block ). ENDIF. table_copy( EXPORTING src = block src_offset = 1 dst_offset = copy_index count = 8 CHANGING dst = plain_text ). copy_index = copy_index + 8. ENDWHILE. ENDMETHOD. METHOD decipher. DATA(rounds) = 18. xl_par = xl_par BIT-XOR bf_p[ rounds ]. rounds = rounds - 1. WHILE rounds > 2. xr_par = round1( a = xr_par b = xl_par n = rounds ). xl_par = round1( a = xl_par b = xr_par n = rounds - 1 ). rounds = rounds - 2. ENDWHILE. xr_par = xr_par BIT-XOR bf_p[ rounds ]. DATA(swap) = xl_par. xl_par = xr_par. xr_par = swap. ENDMETHOD. METHOD decrypt_cbc. IF strlen( cipher_text ) < 16. RETURN. ENDIF. DATA(iv) = cipher_text(16). DATA(cipher_text_x) = CONV xstring( cipher_text+16 ). set_iv( hex_to_byte( CONV #( iv ) ) ). DATA(string_text) = CONV string( byte_to_hex( crypt_cbc( text = hex_to_byte( cipher_text_x ) decrypt = abap_true ) ) ). REPLACE ALL OCCURRENCES OF |00| IN string_text WITH ``. DATA(xstring_text) = CONV xstring( string_text ). CALL FUNCTION 'ECATT_CONV_XSTRING_TO_STRING' EXPORTING im_xstring = xstring_text im_encoding = c_utf8 IMPORTING ex_string = plain_text EXCEPTIONS other = 2. ENDMETHOD. METHOD decrypt_ecb. DATA(string_text) = CONV string( byte_to_hex( crypt_ecb( text = hex_to_byte( CONV #( cipher_text ) ) decrypt = abap_true ) ) ). REPLACE ALL OCCURRENCES OF |00| IN string_text WITH ``. DATA(xstring_text) = CONV xstring( string_text ). CALL FUNCTION 'ECATT_CONV_XSTRING_TO_STRING' EXPORTING im_xstring = xstring_text im_encoding = c_utf8 IMPORTING ex_string = plain_text EXCEPTIONS other = 2. ENDMETHOD. METHOD encipher. DATA(rounds) = 1. xl_par = xl_par BIT-XOR bf_p[ rounds ]. WHILE rounds < 16. xr_par = round1( a = xr_par b = xl_par n = rounds + 1 ). xl_par = round1( a = xl_par b = xr_par n = rounds + 2 ). rounds = rounds + 2. ENDWHILE. xr_par = xr_par BIT-XOR bf_p[ rounds + 1 ]. DATA(swap) = xl_par. xl_par = xr_par. xr_par = swap. ENDMETHOD. METHOD encrypt_cbc. IF iv_set = abap_false. set_random_iv( ). ENDIF. DATA: plaint_text_x TYPE xstring. CALL FUNCTION 'ECATT_CONV_STRING_TO_XSTRING' EXPORTING im_string = plain_text im_encoding = c_utf8 IMPORTING ex_xstring = plaint_text_x EXCEPTIONS other = 2. DATA(in1) = CONV string( byte_to_hex( init_vector ) ). DATA(ct1) = CONV string( byte_to_hex( crypt_cbc( text = hex_to_byte( plaint_text_x ) decrypt = abap_false ) ) ). cipher_text = in1 && ct1. ENDMETHOD. METHOD encrypt_ecb. DATA: plaint_text_x TYPE xstring. CALL FUNCTION 'ECATT_CONV_STRING_TO_XSTRING' EXPORTING im_string = plain_text im_encoding = c_utf8 IMPORTING ex_xstring = plaint_text_x EXCEPTIONS other = 2. cipher_text = byte_to_hex( crypt_ecb( text = hex_to_byte( plaint_text_x ) decrypt = abap_false ) ) . ENDMETHOD. METHOD get_block. DATA: block1 TYPE ty_byte_t, block2 TYPE ty_byte_t. IF non_standard_method = abap_true. block1 = hex_to_byte( xr_par ). block2 = hex_to_byte( xl_par ). table_reverse( CHANGING itab = block1 ). table_reverse( CHANGING itab = block2 ). ELSE. block1 = hex_to_byte( xl_par ). block2 = hex_to_byte( xr_par ). ENDIF. table_copy( EXPORTING src = block1 src_offset = 1 dst_offset = 1 count = 4 CHANGING dst = block ). table_copy( EXPORTING src = block2 src_offset = 1 dst_offset = 5 count = 4 CHANGING dst = block ). ENDMETHOD. METHOD get_iv. iv = init_vector. ENDMETHOD. METHOD hex_to_byte. DATA: byte TYPE x. DATA: hex_index TYPE i. DO xstrlen( hex ) TIMES. byte = hex+hex_index(1). INSERT byte INTO TABLE byte_tab. hex_index = hex_index + 1. ENDDO. ENDMETHOD. METHOD round1. DATA: x1 TYPE xstring, x2 TYPE xstring, x3 TYPE xstring, x4 TYPE xstring. x1 = to_int4( CONV #( CONV int8( bf_s0[ word_byte0( b ) + 1 ] + bf_s1[ word_byte1( b ) + 1 ] ) ) ) . x2 = x1 BIT-XOR bf_s2[ word_byte2( b ) + 1 ]. x3 = to_int4( CONV #( CONV int8( x2 + bf_s3[ word_byte3( b ) + 1 ] ) ) ). x4 = x3 BIT-XOR bf_p[ n ]. r = x4 BIT-XOR a. ENDMETHOD. METHOD setup_key. bf_p = setup_p( ). bf_s0 = setup_s0( ). bf_s1 = setup_s1( ). bf_s2 = setup_s2( ). bf_s3 = setup_s3( ). DATA: key TYPE ty_byte_t. DATA(key_len) = lines( cipher_key ). key = cipher_key. DATA(j) = 0. DATA(p_index) = 1. DO 18 TIMES. DATA(d) = CONV xstring( ( ( CONV int8( key[ j MOD key_len + 1 ] ) * 256 + key[ ( j + 1 ) MOD key_len + 1 ] ) * 256 + key[ ( j + 2 ) MOD key_len + 1 ] ) * 256 + key[ ( j + 3 ) MOD key_len + 1 ] ). bf_p[ p_index ] = bf_p[ p_index ] BIT-XOR d. j = ( j + 4 ) MOD key_len. p_index = p_index + 1. ENDDO. xl_par = 0. xr_par = 0. p_index = 1. WHILE p_index < 18. encipher( ). bf_p[ p_index ] = xl_par. bf_p[ p_index + 1 ] = xr_par. p_index = p_index + 2. ENDWHILE. p_index = 1. WHILE p_index < 256. encipher( ). bf_s0[ p_index ] = xl_par. bf_s0[ p_index + 1 ] = xr_par. p_index = p_index + 2. ENDWHILE. p_index = 1. WHILE p_index < 256. encipher( ). bf_s1[ p_index ] = xl_par. bf_s1[ p_index + 1 ] = xr_par. p_index = p_index + 2. ENDWHILE. p_index = 1. WHILE p_index < 256. encipher( ). bf_s2[ p_index ] = xl_par. bf_s2[ p_index + 1 ] = xr_par. p_index = p_index + 2. ENDWHILE. p_index = 1. WHILE p_index < 256. encipher( ). bf_s3[ p_index ] = xl_par. bf_s3[ p_index + 1 ] = xr_par. p_index = p_index + 2. ENDWHILE. ENDMETHOD. METHOD setup_p. p = VALUE #( ( |243F6A88| ) ( |85A308D3| ) ( |13198A2E| ) ( |03707344| ) ( |A4093822| ) ( |299F31D0| ) ( |082EFA98| ) ( |EC4E6C89| ) ( |452821E6| ) ( |38D01377| ) ( |BE5466CF| ) ( |34E90C6C| ) ( |C0AC29B7| ) ( |C97C50DD| ) ( |3F84D5B5| ) ( |B5470917| ) ( |9216D5D9| ) ( |8979FB1B| ) ). ENDMETHOD. METHOD setup_s0. s0 = VALUE ty_string_t( ( |D1310BA6| ) ( |98DFB5AC| ) ( |2FFD72DB| ) ( |D01ADFB7| ) ( |B8E1AFED| ) ( |6A267E96| ) ( |BA7C9045| ) ( |F12C7F99| ) ( |24A19947| ) ( |B3916CF7| ) ( |0801F2E2| ) ( |858EFC16| ) ( |636920D8| ) ( |71574E69| ) ( |A458FEA3| ) ( |F4933D7E| ) ( |0D95748F| ) ( |728EB658| ) ( |718BCD58| ) ( |82154AEE| ) ( |7B54A41D| ) ( |C25A59B5| ) ( |9C30D539| ) ( |2AF26013| ) ( |C5D1B023| ) ( |286085F0| ) ( |CA417918| ) ( |B8DB38EF| ) ( |8E79DCB0| ) ( |603A180E| ) ( |6C9E0E8B| ) ( |B01E8A3E| ) ( |D71577C1| ) ( |BD314B27| ) ( |78AF2FDA| ) ( |55605C60| ) ( |E65525F3| ) ( |AA55AB94| ) ( |57489862| ) ( |63E81440| ) ( |55CA396A| ) ( |2AAB10B6| ) ( |B4CC5C34| ) ( |1141E8CE| ) ( |A15486AF| ) ( |7C72E993| ) ( |B3EE1411| ) ( |636FBC2A| ) ( |2BA9C55D| ) ( |741831F6| ) ( |CE5C3E16| ) ( |9B87931E| ) ( |AFD6BA33| ) ( |6C24CF5C| ) ( |7A325381| ) ( |28958677| ) ( |3B8F4898| ) ( |6B4BB9AF| ) ( |C4BFE81B| ) ( |66282193| ) ( |61D809CC| ) ( |FB21A991| ) ( |487CAC60| ) ( |5DEC8032| ) ( |EF845D5D| ) ( |E98575B1| ) ( |DC262302| ) ( |EB651B88| ) ( |23893E81| ) ( |D396ACC5| ) ( |0F6D6FF3| ) ( |83F44239| ) ( |2E0B4482| ) ( |A4842004| ) ( |69C8F04A| ) ( |9E1F9B5E| ) ( |21C66842| ) ( |F6E96C9A| ) ( |670C9C61| ) ( |ABD388F0| ) ( |6A51A0D2| ) ( |D8542F68| ) ( |960FA728| ) ( |AB5133A3| ) ( |6EEF0B6C| ) ( |137A3BE4| ) ( |BA3BF050| ) ( |7EFB2A98| ) ( |A1F1651D| ) ( |39AF0176| ) ( |66CA593E| ) ( |82430E88| ) ( |8CEE8619| ) ( |456F9FB4| ) ( |7D84A5C3| ) ( |3B8B5EBE| ) ( |E06F75D8| ) ( |85C12073| ) ( |401A449F| ) ( |56C16AA6| ) ( |4ED3AA62| ) ( |363F7706| ) ( |1BFEDF72| ) ( |429B023D| ) ( |37D0D724| ) ( |D00A1248| ) ( |DB0FEAD3| ) ( |49F1C09B| ) ( |075372C9| ) ( |80991B7B| ) ( |25D479D8| ) ( |F6E8DEF7| ) ( |E3FE501A| ) ( |B6794C3B| ) ( |976CE0BD| ) ( |04C006BA| ) ( |C1A94FB6| ) ( |409F60C4| ) ( |5E5C9EC2| ) ( |196A2463| ) ( |68FB6FAF| ) ( |3E6C53B5| ) ( |1339B2EB| ) ( |3B52EC6F| ) ( |6DFC511F| ) ( |9B30952C| ) ( |CC814544| ) ( |AF5EBD09| ) ( |BEE3D004| ) ( |DE334AFD| ) ( |660F2807| ) ( |192E4BB3| ) ( |C0CBA857| ) ( |45C8740F| ) ( |D20B5F39| ) ( |B9D3FBDB| ) ( |5579C0BD| ) ( |1A60320A| ) ( |D6A100C6| ) ( |402C7279| ) ( |679F25FE| ) ( |FB1FA3CC| ) ( |8EA5E9F8| ) ( |DB3222F8| ) ( |3C7516DF| ) ( |FD616B15| ) ( |2F501EC8| ) ( |AD0552AB| ) ( |323DB5FA| ) ( |FD238760| ) ( |53317B48| ) ( |3E00DF82| ) ( |9E5C57BB| ) ( |CA6F8CA0| ) ( |1A87562E| ) ( |DF1769DB| ) ( |D542A8F6| ) ( |287EFFC3| ) ( |AC6732C6| ) ( |8C4F5573| ) ( |695B27B0| ) ( |BBCA58C8| ) ( |E1FFA35D| ) ( |B8F011A0| ) ( |10FA3D98| ) ( |FD2183B8| ) ( |4AFCB56C| ) ( |2DD1D35B| ) ( |9A53E479| ) ( |B6F84565| ) ( |D28E49BC| ) ( |4BFB9790| ) ( |E1DDF2DA| ) ( |A4CB7E33| ) ( |62FB1341| ) ( |CEE4C6E8| ) ( |EF20CADA| ) ( |36774C01| ) ( |D07E9EFE| ) ( |2BF11FB4| ) ( |95DBDA4D| ) ( |AE909198| ) ( |EAAD8E71| ) ( |6B93D5A0| ) ( |D08ED1D0| ) ( |AFC725E0| ) ( |8E3C5B2F| ) ( |8E7594B7| ) ( |8FF6E2FB| ) ( |F2122B64| ) ( |8888B812| ) ( |900DF01C| ) ( |4FAD5EA0| ) ( |688FC31C| ) ( |D1CFF191| ) ( |B3A8C1AD| ) ( |2F2F2218| ) ( |BE0E1777| ) ( |EA752DFE| ) ( |8B021FA1| ) ( |E5A0CC0F| ) ( |B56F74E8| ) ( |18ACF3D6| ) ( |CE89E299| ) ( |B4A84FE0| ) ( |FD13E0B7| ) ( |7CC43B81| ) ( |D2ADA8D9| ) ( |165FA266| ) ( |80957705| ) ( |93CC7314| ) ( |211A1477| ) ( |E6AD2065| ) ( |77B5FA86| ) ( |C75442F5| ) ( |FB9D35CF| ) ( |EBCDAF0C| ) ( |7B3E89A0| ) ( |D6411BD3| ) ( |AE1E7E49| ) ( |00250E2D| ) ( |2071B35E| ) ( |226800BB| ) ( |57B8E0AF| ) ( |2464369B| ) ( |F009B91E| ) ( |5563911D| ) ( |59DFA6AA| ) ( |78C14389| ) ( |D95A537F| ) ( |207D5BA2| ) ( |02E5B9C5| ) ( |83260376| ) ( |6295CFA9| ) ( |11C81968| ) ( |4E734A41| ) ( |B3472DCA| ) ( |7B14A94A| ) ( |1B510052| ) ( |9A532915| ) ( |D60F573F| ) ( |BC9BC6E4| ) ( |2B60A476| ) ( |81E67400| ) ( |08BA6FB5| ) ( |571BE91F| ) ( |F296EC6B| ) ( |2A0DD915| ) ( |B6636521| ) ( |E7B9F9B6| ) ( |FF34052E| ) ( |C5855664| ) ( |53B02D5D| ) ( |A99F8FA1| ) ( |08BA4799| ) ( |6E85076A| ) ). ENDMETHOD. METHOD setup_s1. s1 = VALUE #( ( |4B7A70E9| ) ( |B5B32944| ) ( |DB75092E| ) ( |C4192623| ) ( |AD6EA6B0| ) ( |49A7DF7D| ) ( |9CEE60B8| ) ( |8FEDB266| ) ( |ECAA8C71| ) ( |699A17FF| ) ( |5664526C| ) ( |C2B19EE1| ) ( |193602A5| ) ( |75094C29| ) ( |A0591340| ) ( |E4183A3E| ) ( |3F54989A| ) ( |5B429D65| ) ( |6B8FE4D6| ) ( |99F73FD6| ) ( |A1D29C07| ) ( |EFE830F5| ) ( |4D2D38E6| ) ( |F0255DC1| ) ( |4CDD2086| ) ( |8470EB26| ) ( |6382E9C6| ) ( |021ECC5E| ) ( |09686B3F| ) ( |3EBAEFC9| ) ( |3C971814| ) ( |6B6A70A1| ) ( |687F3584| ) ( |52A0E286| ) ( |B79C5305| ) ( |AA500737| ) ( |3E07841C| ) ( |7FDEAE5C| ) ( |8E7D44EC| ) ( |5716F2B8| ) ( |B03ADA37| ) ( |F0500C0D| ) ( |F01C1F04| ) ( |0200B3FF| ) ( |AE0CF51A| ) ( |3CB574B2| ) ( |25837A58| ) ( |DC0921BD| ) ( |D19113F9| ) ( |7CA92FF6| ) ( |94324773| ) ( |22F54701| ) ( |3AE5E581| ) ( |37C2DADC| ) ( |C8B57634| ) ( |9AF3DDA7| ) ( |A9446146| ) ( |0FD0030E| ) ( |ECC8C73E| ) ( |A4751E41| ) ( |E238CD99| ) ( |3BEA0E2F| ) ( |3280BBA1| ) ( |183EB331| ) ( |4E548B38| ) ( |4F6DB908| ) ( |6F420D03| ) ( |F60A04BF| ) ( |2CB81290| ) ( |24977C79| ) ( |5679B072| ) ( |BCAF89AF| ) ( |DE9A771F| ) ( |D9930810| ) ( |B38BAE12| ) ( |DCCF3F2E| ) ( |5512721F| ) ( |2E6B7124| ) ( |501ADDE6| ) ( |9F84CD87| ) ( |7A584718| ) ( |7408DA17| ) ( |BC9F9ABC| ) ( |E94B7D8C| ) ( |EC7AEC3A| ) ( |DB851DFA| ) ( |63094366| ) ( |C464C3D2| ) ( |EF1C1847| ) ( |3215D908| ) ( |DD433B37| ) ( |24C2BA16| ) ( |12A14D43| ) ( |2A65C451| ) ( |50940002| ) ( |133AE4DD| ) ( |71DFF89E| ) ( |10314E55| ) ( |81AC77D6| ) ( |5F11199B| ) ( |043556F1| ) ( |D7A3C76B| ) ( |3C11183B| ) ( |5924A509| ) ( |F28FE6ED| ) ( |97F1FBFA| ) ( |9EBABF2C| ) ( |1E153C6E| ) ( |86E34570| ) ( |EAE96FB1| ) ( |860E5E0A| ) ( |5A3E2AB3| ) ( |771FE71C| ) ( |4E3D06FA| ) ( |2965DCB9| ) ( |99E71D0F| ) ( |803E89D6| ) ( |5266C825| ) ( |2E4CC978| ) ( |9C10B36A| ) ( |C6150EBA| ) ( |94E2EA78| ) ( |A5FC3C53| ) ( |1E0A2DF4| ) ( |F2F74EA7| ) ( |361D2B3D| ) ( |1939260F| ) ( |19C27960| ) ( |5223A708| ) ( |F71312B6| ) ( |EBADFE6E| ) ( |EAC31F66| ) ( |E3BC4595| ) ( |A67BC883| ) ( |B17F37D1| ) ( |018CFF28| ) ( |C332DDEF| ) ( |BE6C5AA5| ) ( |65582185| ) ( |68AB9802| ) ( |EECEA50F| ) ( |DB2F953B| ) ( |2AEF7DAD| ) ( |5B6E2F84| ) ( |1521B628| ) ( |29076170| ) ( |ECDD4775| ) ( |619F1510| ) ( |13CCA830| ) ( |EB61BD96| ) ( |0334FE1E| ) ( |AA0363CF| ) ( |B5735C90| ) ( |4C70A239| ) ( |D59E9E0B| ) ( |CBAADE14| ) ( |EECC86BC| ) ( |60622CA7| ) ( |9CAB5CAB| ) ( |B2F3846E| ) ( |648B1EAF| ) ( |19BDF0CA| ) ( |A02369B9| ) ( |655ABB50| ) ( |40685A32| ) ( |3C2AB4B3| ) ( |319EE9D5| ) ( |C021B8F7| ) ( |9B540B19| ) ( |875FA099| ) ( |95F7997E| ) ( |623D7DA8| ) ( |F837889A| ) ( |97E32D77| ) ( |11ED935F| ) ( |16681281| ) ( |0E358829| ) ( |C7E61FD6| ) ( |96DEDFA1| ) ( |7858BA99| ) ( |57F584A5| ) ( |1B227263| ) ( |9B83C3FF| ) ( |1AC24696| ) ( |CDB30AEB| ) ( |532E3054| ) ( |8FD948E4| ) ( |6DBC3128| ) ( |58EBF2EF| ) ( |34C6FFEA| ) ( |FE28ED61| ) ( |EE7C3C73| ) ( |5D4A14D9| ) ( |E864B7E3| ) ( |42105D14| ) ( |203E13E0| ) ( |45EEE2B6| ) ( |A3AAABEA| ) ( |DB6C4F15| ) ( |FACB4FD0| ) ( |C742F442| ) ( |EF6ABBB5| ) ( |654F3B1D| ) ( |41CD2105| ) ( |D81E799E| ) ( |86854DC7| ) ( |E44B476A| ) ( |3D816250| ) ( |CF62A1F2| ) ( |5B8D2646| ) ( |FC8883A0| ) ( |C1C7B6A3| ) ( |7F1524C3| ) ( |69CB7492| ) ( |47848A0B| ) ( |5692B285| ) ( |095BBF00| ) ( |AD19489D| ) ( |1462B174| ) ( |23820E00| ) ( |58428D2A| ) ( |0C55F5EA| ) ( |1DADF43E| ) ( |233F7061| ) ( |3372F092| ) ( |8D937E41| ) ( |D65FECF1| ) ( |6C223BDB| ) ( |7CDE3759| ) ( |CBEE7460| ) ( |4085F2A7| ) ( |CE77326E| ) ( |A6078084| ) ( |19F8509E| ) ( |E8EFD855| ) ( |61D99735| ) ( |A969A7AA| ) ( |C50C06C2| ) ( |5A04ABFC| ) ( |800BCADC| ) ( |9E447A2E| ) ( |C3453484| ) ( |FDD56705| ) ( |0E1E9EC9| ) ( |DB73DBD3| ) ( |105588CD| ) ( |675FDA79| ) ( |E3674340| ) ( |C5C43465| ) ( |713E38D8| ) ( |3D28F89E| ) ( |F16DFF20| ) ( |153E21E7| ) ( |8FB03D4A| ) ( |E6E39F2B| ) ( |DB83ADF7| ) ). ENDMETHOD. METHOD setup_s2. s2 = VALUE #( ( |E93D5A68| ) ( |948140F7| ) ( |F64C261C| ) ( |94692934| ) ( |411520F7| ) ( |7602D4F7| ) ( |BCF46B2E| ) ( |D4A20068| ) ( |D4082471| ) ( |3320F46A| ) ( |43B7D4B7| ) ( |500061AF| ) ( |1E39F62E| ) ( |97244546| ) ( |14214F74| ) ( |BF8B8840| ) ( |4D95FC1D| ) ( |96B591AF| ) ( |70F4DDD3| ) ( |66A02F45| ) ( |BFBC09EC| ) ( |03BD9785| ) ( |7FAC6DD0| ) ( |31CB8504| ) ( |96EB27B3| ) ( |55FD3941| ) ( |DA2547E6| ) ( |ABCA0A9A| ) ( |28507825| ) ( |530429F4| ) ( |0A2C86DA| ) ( |E9B66DFB| ) ( |68DC1462| ) ( |D7486900| ) ( |680EC0A4| ) ( |27A18DEE| ) ( |4F3FFEA2| ) ( |E887AD8C| ) ( |B58CE006| ) ( |7AF4D6B6| ) ( |AACE1E7C| ) ( |D3375FEC| ) ( |CE78A399| ) ( |406B2A42| ) ( |20FE9E35| ) ( |D9F385B9| ) ( |EE39D7AB| ) ( |3B124E8B| ) ( |1DC9FAF7| ) ( |4B6D1856| ) ( |26A36631| ) ( |EAE397B2| ) ( |3A6EFA74| ) ( |DD5B4332| ) ( |6841E7F7| ) ( |CA7820FB| ) ( |FB0AF54E| ) ( |D8FEB397| ) ( |454056AC| ) ( |BA489527| ) ( |55533A3A| ) ( |20838D87| ) ( |FE6BA9B7| ) ( |D096954B| ) ( |55A867BC| ) ( |A1159A58| ) ( |CCA92963| ) ( |99E1DB33| ) ( |A62A4A56| ) ( |3F3125F9| ) ( |5EF47E1C| ) ( |9029317C| ) ( |FDF8E802| ) ( |04272F70| ) ( |80BB155C| ) ( |05282CE3| ) ( |95C11548| ) ( |E4C66D22| ) ( |48C1133F| ) ( |C70F86DC| ) ( |07F9C9EE| ) ( |41041F0F| ) ( |404779A4| ) ( |5D886E17| ) ( |325F51EB| ) ( |D59BC0D1| ) ( |F2BCC18F| ) ( |41113564| ) ( |257B7834| ) ( |602A9C60| ) ( |DFF8E8A3| ) ( |1F636C1B| ) ( |0E12B4C2| ) ( |02E1329E| ) ( |AF664FD1| ) ( |CAD18115| ) ( |6B2395E0| ) ( |333E92E1| ) ( |3B240B62| ) ( |EEBEB922| ) ( |85B2A20E| ) ( |E6BA0D99| ) ( |DE720C8C| ) ( |2DA2F728| ) ( |D0127845| ) ( |95B794FD| ) ( |647D0862| ) ( |E7CCF5F0| ) ( |5449A36F| ) ( |877D48FA| ) ( |C39DFD27| ) ( |F33E8D1E| ) ( |0A476341| ) ( |992EFF74| ) ( |3A6F6EAB| ) ( |F4F8FD37| ) ( |A812DC60| ) ( |A1EBDDF8| ) ( |991BE14C| ) ( |DB6E6B0D| ) ( |C67B5510| ) ( |6D672C37| ) ( |2765D43B| ) ( |DCD0E804| ) ( |F1290DC7| ) ( |CC00FFA3| ) ( |B5390F92| ) ( |690FED0B| ) ( |667B9FFB| ) ( |CEDB7D9C| ) ( |A091CF0B| ) ( |D9155EA3| ) ( |BB132F88| ) ( |515BAD24| ) ( |7B9479BF| ) ( |763BD6EB| ) ( |37392EB3| ) ( |CC115979| ) ( |8026E297| ) ( |F42E312D| ) ( |6842ADA7| ) ( |C66A2B3B| ) ( |12754CCC| ) ( |782EF11C| ) ( |6A124237| ) ( |B79251E7| ) ( |06A1BBE6| ) ( |4BFB6350| ) ( |1A6B1018| ) ( |11CAEDFA| ) ( |3D25BDD8| ) ( |E2E1C3C9| ) ( |44421659| ) ( |0A121386| ) ( |D90CEC6E| ) ( |D5ABEA2A| ) ( |64AF674E| ) ( |DA86A85F| ) ( |BEBFE988| ) ( |64E4C3FE| ) ( |9DBC8057| ) ( |F0F7C086| ) ( |60787BF8| ) ( |6003604D| ) ( |D1FD8346| ) ( |F6381FB0| ) ( |7745AE04| ) ( |D736FCCC| ) ( |83426B33| ) ( |F01EAB71| ) ( |B0804187| ) ( |3C005E5F| ) ( |77A057BE| ) ( |BDE8AE24| ) ( |55464299| ) ( |BF582E61| ) ( |4E58F48F| ) ( |F2DDFDA2| ) ( |F474EF38| ) ( |8789BDC2| ) ( |5366F9C3| ) ( |C8B38E74| ) ( |B475F255| ) ( |46FCD9B9| ) ( |7AEB2661| ) ( |8B1DDF84| ) ( |846A0E79| ) ( |915F95E2| ) ( |466E598E| ) ( |20B45770| ) ( |8CD55591| ) ( |C902DE4C| ) ( |B90BACE1| ) ( |BB8205D0| ) ( |11A86248| ) ( |7574A99E| ) ( |B77F19B6| ) ( |E0A9DC09| ) ( |662D09A1| ) ( |C4324633| ) ( |E85A1F02| ) ( |09F0BE8C| ) ( |4A99A025| ) ( |1D6EFE10| ) ( |1AB93D1D| ) ( |0BA5A4DF| ) ( |A186F20F| ) ( |2868F169| ) ( |DCB7DA83| ) ( |573906FE| ) ( |A1E2CE9B| ) ( |4FCD7F52| ) ( |50115E01| ) ( |A70683FA| ) ( |A002B5C4| ) ( |0DE6D027| ) ( |9AF88C27| ) ( |773F8641| ) ( |C3604C06| ) ( |61A806B5| ) ( |F0177A28| ) ( |C0F586E0| ) ( |006058AA| ) ( |30DC7D62| ) ( |11E69ED7| ) ( |2338EA63| ) ( |53C2DD94| ) ( |C2C21634| ) ( |BBCBEE56| ) ( |90BCB6DE| ) ( |EBFC7DA1| ) ( |CE591D76| ) ( |6F05E409| ) ( |4B7C0188| ) ( |39720A3D| ) ( |7C927C24| ) ( |86E3725F| ) ( |724D9DB9| ) ( |1AC15BB4| ) ( |D39EB8FC| ) ( |ED545578| ) ( |08FCA5B5| ) ( |D83D7CD3| ) ( |4DAD0FC4| ) ( |1E50EF5E| ) ( |B161E6F8| ) ( |A28514D9| ) ( |6C51133C| ) ( |6FD5C7E7| ) ( |56E14EC4| ) ( |362ABFCE| ) ( |DDC6C837| ) ( |D79A3234| ) ( |92638212| ) ( |670EFA8E| ) ( |406000E0| ) ). ENDMETHOD. METHOD setup_s3. s3 = VALUE #( ( |3A39CE37| ) ( |D3FAF5CF| ) ( |ABC27737| ) ( |5AC52D1B| ) ( |5CB0679E| ) ( |4FA33742| ) ( |D3822740| ) ( |99BC9BBE| ) ( |D5118E9D| ) ( |BF0F7315| ) ( |D62D1C7E| ) ( |C700C47B| ) ( |B78C1B6B| ) ( |21A19045| ) ( |B26EB1BE| ) ( |6A366EB4| ) ( |5748AB2F| ) ( |BC946E79| ) ( |C6A376D2| ) ( |6549C2C8| ) ( |530FF8EE| ) ( |468DDE7D| ) ( |D5730A1D| ) ( |4CD04DC6| ) ( |2939BBDB| ) ( |A9BA4650| ) ( |AC9526E8| ) ( |BE5EE304| ) ( |A1FAD5F0| ) ( |6A2D519A| ) ( |63EF8CE2| ) ( |9A86EE22| ) ( |C089C2B8| ) ( |43242EF6| ) ( |A51E03AA| ) ( |9CF2D0A4| ) ( |83C061BA| ) ( |9BE96A4D| ) ( |8FE51550| ) ( |BA645BD6| ) ( |2826A2F9| ) ( |A73A3AE1| ) ( |4BA99586| ) ( |EF5562E9| ) ( |C72FEFD3| ) ( |F752F7DA| ) ( |3F046F69| ) ( |77FA0A59| ) ( |80E4A915| ) ( |87B08601| ) ( |9B09E6AD| ) ( |3B3EE593| ) ( |E990FD5A| ) ( |9E34D797| ) ( |2CF0B7D9| ) ( |022B8B51| ) ( |96D5AC3A| ) ( |017DA67D| ) ( |D1CF3ED6| ) ( |7C7D2D28| ) ( |1F9F25CF| ) ( |ADF2B89B| ) ( |5AD6B472| ) ( |5A88F54C| ) ( |E029AC71| ) ( |E019A5E6| ) ( |47B0ACFD| ) ( |ED93FA9B| ) ( |E8D3C48D| ) ( |283B57CC| ) ( |F8D56629| ) ( |79132E28| ) ( |785F0191| ) ( |ED756055| ) ( |F7960E44| ) ( |E3D35E8C| ) ( |15056DD4| ) ( |88F46DBA| ) ( |03A16125| ) ( |0564F0BD| ) ( |C3EB9E15| ) ( |3C9057A2| ) ( |97271AEC| ) ( |A93A072A| ) ( |1B3F6D9B| ) ( |1E6321F5| ) ( |F59C66FB| ) ( |26DCF319| ) ( |7533D928| ) ( |B155FDF5| ) ( |03563482| ) ( |8ABA3CBB| ) ( |28517711| ) ( |C20AD9F8| ) ( |ABCC5167| ) ( |CCAD925F| ) ( |4DE81751| ) ( |3830DC8E| ) ( |379D5862| ) ( |9320F991| ) ( |EA7A90C2| ) ( |FB3E7BCE| ) ( |5121CE64| ) ( |774FBE32| ) ( |A8B6E37E| ) ( |C3293D46| ) ( |48DE5369| ) ( |6413E680| ) ( |A2AE0810| ) ( |DD6DB224| ) ( |69852DFD| ) ( |09072166| ) ( |B39A460A| ) ( |6445C0DD| ) ( |586CDECF| ) ( |1C20C8AE| ) ( |5BBEF7DD| ) ( |1B588D40| ) ( |CCD2017F| ) ( |6BB4E3BB| ) ( |DDA26A7E| ) ( |3A59FF45| ) ( |3E350A44| ) ( |BCB4CDD5| ) ( |72EACEA8| ) ( |FA6484BB| ) ( |8D6612AE| ) ( |BF3C6F47| ) ( |D29BE463| ) ( |542F5D9E| ) ( |AEC2771B| ) ( |F64E6370| ) ( |740E0D8D| ) ( |E75B1357| ) ( |F8721671| ) ( |AF537D5D| ) ( |4040CB08| ) ( |4EB4E2CC| ) ( |34D2466A| ) ( |0115AF84| ) ( |E1B00428| ) ( |95983A1D| ) ( |06B89FB4| ) ( |CE6EA048| ) ( |6F3F3B82| ) ( |3520AB82| ) ( |011A1D4B| ) ( |277227F8| ) ( |611560B1| ) ( |E7933FDC| ) ( |BB3A792B| ) ( |344525BD| ) ( |A08839E1| ) ( |51CE794B| ) ( |2F32C9B7| ) ( |A01FBAC9| ) ( |E01CC87E| ) ( |BCC7D1F6| ) ( |CF0111C3| ) ( |A1E8AAC7| ) ( |1A908749| ) ( |D44FBD9A| ) ( |D0DADECB| ) ( |D50ADA38| ) ( |0339C32A| ) ( |C6913667| ) ( |8DF9317C| ) ( |E0B12B4F| ) ( |F79E59B7| ) ( |43F5BB3A| ) ( |F2D519FF| ) ( |27D9459C| ) ( |BF97222C| ) ( |15E6FC2A| ) ( |0F91FC71| ) ( |9B941525| ) ( |FAE59361| ) ( |CEB69CEB| ) ( |C2A86459| ) ( |12BAA8D1| ) ( |B6C1075E| ) ( |E3056A0C| ) ( |10D25065| ) ( |CB03A442| ) ( |E0EC6E0E| ) ( |1698DB3B| ) ( |4C98A0BE| ) ( |3278E964| ) ( |9F1F9532| ) ( |E0D392DF| ) ( |D3A0342B| ) ( |8971F21E| ) ( |1B0A7441| ) ( |4BA3348C| ) ( |C5BE7120| ) ( |C37632D8| ) ( |DF359F8D| ) ( |9B992F2E| ) ( |E60B6F47| ) ( |0FE3F11D| ) ( |E54CDA54| ) ( |1EDAD891| ) ( |CE6279CF| ) ( |CD3E7E6F| ) ( |1618B166| ) ( |FD2C1D05| ) ( |848FD2C5| ) ( |F6FB2299| ) ( |F523F357| ) ( |A6327623| ) ( |93A83531| ) ( |56CCCD02| ) ( |ACF08162| ) ( |5A75EBB5| ) ( |6E163697| ) ( |88D273CC| ) ( |DE966292| ) ( |81B949D0| ) ( |4C50901B| ) ( |71C65614| ) ( |E6C6C7BD| ) ( |327A140A| ) ( |45E1D006| ) ( |C3F27B9A| ) ( |C9AA53FD| ) ( |62A80F00| ) ( |BB25BFE2| ) ( |35BDD2F6| ) ( |71126905| ) ( |B2040222| ) ( |B6CBCF7C| ) ( |CD769C2B| ) ( |53113EC0| ) ( |1640E3D3| ) ( |38ABBD60| ) ( |2547ADF0| ) ( |BA38209C| ) ( |F746CE76| ) ( |77AFA1C5| ) ( |20756060| ) ( |85CBFE4E| ) ( |8AE88DD8| ) ( |7AAAF9B0| ) ( |4CF9AA7E| ) ( |1948C25C| ) ( |02FB8A8C| ) ( |01C36AE4| ) ( |D6EBE1F9| ) ( |90D4F869| ) ( |A65CDEA0| ) ( |3F09252D| ) ( |C208E69F| ) ( |B74E6132| ) ( |CE77E25B| ) ( |578FDFE3| ) ( |3AC372E6| ) ). ENDMETHOD. METHOD set_block. DATA: block_temp TYPE ty_byte_t, block1 TYPE ty_byte_t, block2 TYPE ty_byte_t. table_copy( EXPORTING src = block src_offset = 1 dst_offset = 1 count = 4 CHANGING dst = block1 ). table_copy( EXPORTING src = block src_offset = 5 dst_offset = 1 count = 4 CHANGING dst = block2 ). IF non_standard_method = abap_true. table_reverse( CHANGING itab = block1 ). table_reverse( CHANGING itab = block2 ). xr_par = byte_to_hex( block1 ). xl_par = byte_to_hex( block2 ). ELSE. xl_par = byte_to_hex( block1 ). xr_par = byte_to_hex( block2 ). ENDIF. ENDMETHOD. METHOD set_iv. IF lines( iv ) <> 8. RAISE EXCEPTION TYPE cx_me_illegal_argument EXPORTING name = 'IV' value = 'Incorrect IV length'. ENDIF. init_vector = iv. iv_set = abap_true. ENDMETHOD. METHOD set_random_iv. DATA: random TYPE xstring. CALL FUNCTION 'GENERATE_SEC_RANDOM' EXPORTING length = 8 IMPORTING random = random EXCEPTIONS invalid_length = 1 no_memory = 2 internal_error = 3 OTHERS = 4. IF sy-subrc = 1. CALL FUNCTION 'GENERATE_SEC_RANDOM' EXPORTING length = 16 IMPORTING random = random EXCEPTIONS invalid_length = 1 no_memory = 2 internal_error = 3 OTHERS = 4. IF sy-subrc = 0. DATA(random_string) = CONV string( random ). random = random_string(16). ENDIF. ENDIF. init_vector = hex_to_byte( random ). iv_set = abap_true. ENDMETHOD. METHOD table_copy. DATA(diff) = dst_offset + count - lines( dst ) - 1. WHILE diff > 0. APPEND INITIAL LINE TO dst. diff = diff - 1. ENDWHILE. DATA(src_index) = src_offset. DATA(dst_index) = dst_offset. DO count TIMES. READ TABLE dst INDEX dst_index ASSIGNING FIELD-SYMBOL(<dst>). READ TABLE src INDEX src_index ASSIGNING FIELD-SYMBOL(<src>). IF sy-subrc = 0. <dst> = <src>. ELSE. CLEAR <dst>. ENDIF. src_index = src_index + 1. dst_index = dst_index + 1. ENDDO. ENDMETHOD. METHOD table_reverse. DATA: swap TYPE REF TO data. FIELD-SYMBOLS: <swap> TYPE any. DATA(line_type) = CAST cl_abap_tabledescr( cl_abap_typedescr=>describe_by_data( itab ) )->get_table_line_type( ). CREATE DATA swap TYPE HANDLE line_type. ASSIGN swap->* TO <swap>. DATA(left) = 1. DATA(right) = lines( itab ). WHILE left < right. READ TABLE itab INDEX left ASSIGNING FIELD-SYMBOL(<left>). READ TABLE itab INDEX right ASSIGNING FIELD-SYMBOL(<right>). <swap> = <left>. <left> = <right>. <right> = <swap>. left = left + 1. right = right - 1. ENDWHILE. ENDMETHOD. METHOD to_int4. DATA(xlen) = xstrlen( xdata ). IF xlen > 4. DATA(offset) = xstrlen( xdata ) - 4. int4 = xdata+offset(4). ELSEIF xlen < 4. DATA(temp) = CONV string( xdata ). DO 4 - xlen TIMES. temp = `00` && temp. ENDDO. int4 = temp. ELSE. int4 = xdata. ENDIF. ENDMETHOD. METHOD word_byte0. b = round( val = CONV p1( word / 256 / 256 / 256 MOD 256 ) dec = 0 mode = cl_abap_math=>round_down ). ENDMETHOD. METHOD word_byte1. b = round( val = CONV p1( word / 256 / 256 MOD 256 ) dec = 0 mode = cl_abap_math=>round_down ). ENDMETHOD. METHOD word_byte2. b = round( val = CONV p1( word / 256 MOD 256 ) dec = 0 mode = cl_abap_math=>round_down ). ENDMETHOD. METHOD word_byte3. b = round( val = CONV p1( word MOD 256 ) dec = 0 mode = cl_abap_math=>round_down ). ENDMETHOD. METHOD xor_block. DATA(block_length) = lines( block ). DATA(block_index) = 1. DO block_length TIMES. block[ block_index ] = block[ block_index ] BIT-XOR iv[ block_index ]. block_index = block_index + 1. ENDDO. ENDMETHOD. ENDCLASS.
版本支持
ABAP 750及以上。
我原本希望abap-blowfish可以支持740及以上版本，但是在部分语句中，加法会导致INT4类型的变量溢出，不得不使用INT8类型。而ABAP对INT8类型的支持是从750版本开始的。这是一个待解决的问题。
