看到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 DECIMALS .
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 = OR key_len > . "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 =
dst_offset =
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 =
dst_offset =
count =
CHANGING
dst = iv
). DATA(plain_length) = lines( plain_text ). DATA(padded_length) = COND int4(
WHEN plain_length MOD = THEN plain_length
ELSE plain_length + - ( plain_length MOD ) ). DATA(copy_index) = . IF decrypt = abap_true. WHILE copy_index <= padded_length. table_copy(
EXPORTING
src = plain_text
src_offset = copy_index
dst_offset =
count =
CHANGING
dst = block
). table_copy(
EXPORTING
src = block
src_offset =
dst_offset =
count =
CHANGING
dst = preblock
). block_decrypt( CHANGING block = block ).
xor_block( EXPORTING iv = iv CHANGING block = block ). table_copy(
EXPORTING
src = preblock
src_offset =
dst_offset =
count =
CHANGING
dst = iv
). table_copy(
EXPORTING
src = block
src_offset =
dst_offset = copy_index
count =
CHANGING
dst = plain_text
). copy_index = copy_index + . ENDWHILE. ELSE. WHILE copy_index <= padded_length. table_copy(
EXPORTING
src = plain_text
src_offset = copy_index
dst_offset =
count =
CHANGING
dst = block
). xor_block( EXPORTING iv = iv CHANGING block = block ).
block_encrypt( CHANGING block = block ). table_copy(
EXPORTING
src = block
src_offset =
dst_offset =
count =
CHANGING
dst = iv
). table_copy(
EXPORTING
src = block
src_offset =
dst_offset = copy_index
count =
CHANGING
dst = plain_text
). copy_index = copy_index + . ENDWHILE. ENDIF. ENDMETHOD. METHOD crypt_ecb. table_copy(
EXPORTING
src = text
src_offset =
dst_offset =
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 = THEN plain_length
ELSE plain_length + - ( plain_length MOD ) ). DATA(copy_index) = . WHILE copy_index <= padded_length. table_copy(
EXPORTING
src = plain_text
src_offset = copy_index
dst_offset =
count =
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 =
dst_offset = copy_index
count =
CHANGING
dst = plain_text
). copy_index = copy_index + . ENDWHILE. ENDMETHOD. METHOD decipher. DATA(rounds) = . xl_par = xl_par BIT-XOR bf_p[ rounds ]. rounds = rounds - . WHILE rounds > .
xr_par = round1( a = xr_par b = xl_par n = rounds ).
xl_par = round1( a = xl_par b = xr_par n = rounds - ).
rounds = rounds - .
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 ) < .
RETURN.
ENDIF. DATA(iv) = cipher_text().
DATA(cipher_text_x) = CONV xstring( cipher_text+ ). 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 || 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 = . 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 || 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 = . ENDMETHOD. METHOD encipher. DATA(rounds) = . xl_par = xl_par BIT-XOR bf_p[ rounds ]. WHILE rounds < .
xr_par = round1( a = xr_par b = xl_par n = rounds + ).
xl_par = round1( a = xl_par b = xr_par n = rounds + ).
rounds = rounds + .
ENDWHILE. xr_par = xr_par BIT-XOR bf_p[ rounds + ]. 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 = . 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 = . 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 =
dst_offset =
count =
CHANGING
dst = block
). table_copy(
EXPORTING
src = block2
src_offset =
dst_offset =
count =
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().
INSERT byte INTO TABLE byte_tab.
hex_index = hex_index + .
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 ) + ] + bf_s1[ word_byte1( b ) + ] ) ) ) .
x2 = x1 BIT-XOR bf_s2[ word_byte2( b ) + ].
x3 = to_int4( CONV #( CONV int8( x2 + bf_s3[ word_byte3( b ) + ] ) ) ).
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) = .
DATA(p_index) = . DO TIMES. DATA(d) = CONV xstring( ( ( CONV int8( key[ j MOD key_len + ] ) * + key[ ( j + ) MOD key_len + ] ) * + key[ ( j + ) MOD key_len + ] ) * + key[ ( j + ) MOD key_len + ] ).
bf_p[ p_index ] = bf_p[ p_index ] BIT-XOR d.
j = ( j + ) MOD key_len.
p_index = p_index + . ENDDO. xl_par = .
xr_par = . p_index = .
WHILE p_index < .
encipher( ).
bf_p[ p_index ] = xl_par.
bf_p[ p_index + ] = xr_par.
p_index = p_index + .
ENDWHILE. p_index = .
WHILE p_index < .
encipher( ).
bf_s0[ p_index ] = xl_par.
bf_s0[ p_index + ] = xr_par.
p_index = p_index + .
ENDWHILE. p_index = .
WHILE p_index < .
encipher( ).
bf_s1[ p_index ] = xl_par.
bf_s1[ p_index + ] = xr_par.
p_index = p_index + .
ENDWHILE. p_index = .
WHILE p_index < .
encipher( ).
bf_s2[ p_index ] = xl_par.
bf_s2[ p_index + ] = xr_par.
p_index = p_index + .
ENDWHILE. p_index = .
WHILE p_index < .
encipher( ).
bf_s3[ p_index ] = xl_par.
bf_s3[ p_index + ] = xr_par.
p_index = p_index + .
ENDWHILE. ENDMETHOD. METHOD setup_p. p = VALUE #(
( |243F6A88| ) ( |85A308D3| ) ( |13198A2E| ) ( || )
( |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| ) ( || ) ( |63E81440| ) ( |55CA396A| ) ( |2AAB10B6| )
( |B4CC5C34| ) ( |1141E8CE| ) ( |A15486AF| ) ( |7C72E993| ) ( |B3EE1411| ) ( |636FBC2A| )
( |2BA9C55D| ) ( |741831F6| ) ( |CE5C3E16| ) ( |9B87931E| ) ( |AFD6BA33| ) ( |6C24CF5C| )
( |7A325381| ) ( || ) ( |3B8F4898| ) ( |6B4BB9AF| ) ( |C4BFE81B| ) ( || )
( |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| ) ( || )
( |93CC7314| ) ( |211A1477| ) ( |E6AD2065| ) ( |77B5FA86| ) ( |C75442F5| ) ( |FB9D35CF| )
( |EBCDAF0C| ) ( |7B3E89A0| ) ( |D6411BD3| ) ( |AE1E7E49| ) ( |00250E2D| ) ( |2071B35E| )
( |226800BB| ) ( |57B8E0AF| ) ( |2464369B| ) ( |F009B91E| ) ( |5563911D| ) ( |59DFA6AA| )
( |78C14389| ) ( |D95A537F| ) ( |207D5BA2| ) ( |02E5B9C5| ) ( || ) ( |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| ) ( || ) ( |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| ) ( || ) ( |C464C3D2| ) ( |EF1C1847| ) ( |3215D908| )
( |DD433B37| ) ( |24C2BA16| ) ( |12A14D43| ) ( |2A65C451| ) ( || ) ( |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| )
( || ) ( |68AB9802| ) ( |EECEA50F| ) ( |DB2F953B| ) ( |2AEF7DAD| ) ( |5B6E2F84| )
( |1521B628| ) ( || ) ( |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| ) ( || ) ( |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| ) ( || ) ( |411520F7| ) ( |7602D4F7| )
( |BCF46B2E| ) ( |D4A20068| ) ( |D4082471| ) ( |3320F46A| ) ( |43B7D4B7| ) ( |500061AF| )
( |1E39F62E| ) ( || ) ( |14214F74| ) ( |BF8B8840| ) ( |4D95FC1D| ) ( |96B591AF| )
( |70F4DDD3| ) ( |66A02F45| ) ( |BFBC09EC| ) ( |03BD9785| ) ( |7FAC6DD0| ) ( |31CB8504| )
( |96EB27B3| ) ( |55FD3941| ) ( |DA2547E6| ) ( |ABCA0A9A| ) ( || ) ( |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| ) ( || ) ( |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| ) ( || ) ( |0A121386| ) ( |D90CEC6E| ) ( |D5ABEA2A| )
( |64AF674E| ) ( |DA86A85F| ) ( |BEBFE988| ) ( |64E4C3FE| ) ( |9DBC8057| ) ( |F0F7C086| )
( |60787BF8| ) ( |6003604D| ) ( |D1FD8346| ) ( |F6381FB0| ) ( |7745AE04| ) ( |D736FCCC| )
( |83426B33| ) ( |F01EAB71| ) ( |B0804187| ) ( |3C005E5F| ) ( |77A057BE| ) ( |BDE8AE24| )
( || ) ( |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| ) ( || ) ( |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| )
( || ) ( |8ABA3CBB| ) ( || ) ( |C20AD9F8| ) ( |ABCC5167| ) ( |CCAD925F| )
( |4DE81751| ) ( |3830DC8E| ) ( |379D5862| ) ( |9320F991| ) ( |EA7A90C2| ) ( |FB3E7BCE| )
( |5121CE64| ) ( |774FBE32| ) ( |A8B6E37E| ) ( |C3293D46| ) ( |48DE5369| ) ( |6413E680| )
( |A2AE0810| ) ( |DD6DB224| ) ( |69852DFD| ) ( || ) ( |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| )
( || ) ( |B2040222| ) ( |B6CBCF7C| ) ( |CD769C2B| ) ( |53113EC0| ) ( |1640E3D3| )
( |38ABBD60| ) ( |2547ADF0| ) ( |BA38209C| ) ( |F746CE76| ) ( |77AFA1C5| ) ( || )
( |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 =
dst_offset =
count =
CHANGING
dst = block1
). table_copy(
EXPORTING
src = block
src_offset =
dst_offset =
count =
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 ) <> .
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 =
IMPORTING
random = random
EXCEPTIONS
invalid_length =
no_memory =
internal_error =
OTHERS = .
IF sy-subrc = .
CALL FUNCTION 'GENERATE_SEC_RANDOM'
EXPORTING
length =
IMPORTING
random = random
EXCEPTIONS
invalid_length =
no_memory =
internal_error =
OTHERS = .
IF sy-subrc = .
DATA(random_string) = CONV string( random ).
random = random_string().
ENDIF.
ENDIF. init_vector = hex_to_byte( random ).
iv_set = abap_true. ENDMETHOD. METHOD table_copy. DATA(diff) = dst_offset + count - lines( dst ) - . WHILE diff > .
APPEND INITIAL LINE TO dst.
diff = diff - .
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 = .
<dst> = <src>.
ELSE.
CLEAR <dst>.
ENDIF. src_index = src_index + .
dst_index = dst_index + . 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) = .
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 + .
right = right - . ENDWHILE. ENDMETHOD. METHOD to_int4. DATA(xlen) = xstrlen( xdata ). IF xlen > .
DATA(offset) = xstrlen( xdata ) - .
int4 = xdata+offset().
ELSEIF xlen < .
DATA(temp) = CONV string( xdata ).
DO - xlen TIMES.
temp = `` && temp.
ENDDO.
int4 = temp.
ELSE.
int4 = xdata.
ENDIF. ENDMETHOD. METHOD word_byte0.
b = round(
val = CONV p1( word / / / MOD )
dec =
mode = cl_abap_math=>round_down ).
ENDMETHOD. METHOD word_byte1.
b = round(
val = CONV p1( word / / MOD )
dec =
mode = cl_abap_math=>round_down ).
ENDMETHOD. METHOD word_byte2.
b = round(
val = CONV p1( word / MOD )
dec =
mode = cl_abap_math=>round_down ).
ENDMETHOD. METHOD word_byte3.
b = round(
val = CONV p1( word MOD )
dec =
mode = cl_abap_math=>round_down ).
ENDMETHOD. METHOD xor_block. DATA(block_length) = lines( block ). DATA(block_index) = . DO block_length TIMES.
block[ block_index ] = block[ block_index ] BIT-XOR iv[ block_index ].
block_index = block_index + .
ENDDO. ENDMETHOD.
ENDCLASS.
版本支持
ABAP 750及以上。
我原本希望abap-blowfish可以支持740及以上版本，但是在部分语句中，加法会导致INT4类型的变量溢出，不得不使用INT8类型。而ABAP对INT8类型的支持是从750版本开始的。这是一个待解决的问题。
