看到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_int32 IMPORTING !xdata TYPE xstring
RETURNING VALUE(int32) 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_int32( 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_int32( 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_int32.
DATA(xlen) = xstrlen( xdata ).
IF xlen > 4.
DATA(offset) = xstrlen( xdata ) - 4.
int32 = xdata+offset(4).
ELSEIF xlen < 4.
DATA(temp) = CONV string( xdata ).
DO 4 - xlen TIMES.
temp = `00` && temp.
ENDDO.
int32 = temp.
ELSE.
int32 = 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版本开始的。这是一个待解决的问题。