Foro -Documentación -Código fuente -Contacto -Empleo

Buscar

Traducir

Amazon

Clase para encriptado de archivos PDF Imprimir E-mail
Usar puntuación: / 0
MaloBueno 
Código fuente - Utilidades con ficheros
Escrito por Administrator   
Domingo, 12 de Octubre de 2008 11:11
***********************************************************************
*  This software is for personal use only.                            *
*  This program is freeware and is provided on as-is basis without    *
*  warranty of any kind.                                              *
***********************************************************************
* Author    * Alex Bykov                                              *
* E-mail    * Esta dirección electrónica esta protegida contra spam bots. Necesita activar JavaScript para visualizarla                                     *
* Web       * http://www.liveabap.com/index.php?userid=55             *
***********************************************************************
* Description                                                         *
* It is encryption/decription library written in ABAP/4 using well    *
* known Blowfish encryption algorithm (www.schneier.com/blowfish.html)*
* Blowfish is a symmetric block cipher just like DES or IDEA.         *
***********************************************************************
* This program CANNOT BE started witout additional preparations in SAP*
* You should use these encryption methods in your own program.        *
* This code can be just copied/pasted into your code or inserted as   *
* INCLUDE. Library tested in SAP 4.7                                  *
***********************************************************************
* Methods: encrypt, decrypt, setpasswd                                *
* Important: Call setpasswd before each call of encrypt or decrypt.   *
***********************************************************************

**************************************************
* Encrypted & decrypted data is held here
TYPES: BEGIN OF t_bfzip_str,
        line(1024) TYPE x,
       END OF t_bfzip_str.
* Encrypted & decrypted data is held here
TYPES: BEGIN OF t_bfzipc_str,
        line(1024) TYPE c,
       END OF t_bfzipc_str.

TYPES: t_bfzip_tab TYPE TABLE OF t_bfzip_str.
TYPES: t_bfzipc_tab TYPE TABLE OF t_bfzipc_str.


TYPES: t_passwd(72) TYPE c.
TYPES: t_xpasswd(72) TYPE x.
*---------------------------------------------------------------------*
*       CLASS cl_zbfz DEFINITION
*---------------------------------------------------------------------*
* BlowFish class definition                                     *
*---------------------------------------------------------------------*
CLASS cl_zbfz DEFINITION.
  PUBLIC SECTION.
    METHODS:
**************************************************
* encryption
      encrypt
        IMPORTING it_flat_x TYPE t_bfzip_tab OPTIONAL
                  it_flat_c TYPE t_bfzipc_tab OPTIONAL
                  iv_size_flat TYPE i
        EXPORTING ev_size TYPE i
        CHANGING ct_encrypted TYPE t_bfzip_tab
                 EXCEPTIONS table_empty
                    table_too_small,

**************************************************
* decryption
      decrypt
        IMPORTING it_encrypted TYPE t_bfzip_tab
                  iv_size TYPE i
        EXPORTING ev_size TYPE i
        CHANGING  ct_flat_x TYPE t_bfzip_tab OPTIONAL
                  ct_flat_c TYPE t_bfzipc_tab OPTIONAL
        EXCEPTIONS wrong_password
                 table_empty
                    table_too_small,

**************************************************
* set new password (key generating)
      setpasswd
        IMPORTING iv_passwd TYPE t_passwd."TYPE string. "t_passwd.

  PRIVATE SECTION.

**************************************************
* Types
    TYPES: t_word_base(4) TYPE x.
    TYPES: t_fword3(16) TYPE x.
    TYPES: t_wordt TYPE STANDARD TABLE OF t_word_base.

**************************************************
* methods for internal use
    METHODS:
**************************************************
* check input table
     check_table
       IMPORTING it_data TYPE t_bfzip_tab
                 iv_size TYPE i
       EXCEPTIONS table_empty
                  table_too_small,

**************************************************
* internal arrays initialization
      reset,
**************************************************
* generate keys for current password
     generatesubkeys
       IMPORTING iv_passwd TYPE t_xpasswd
                 iv_length TYPE i,

**************************************************
* one word encryption
     bf_encoding
       CHANGING cv_w1 TYPE t_word_base
                 cv_w2 TYPE t_word_base,
**************************************************
* one word decription
     bf_decoding
       CHANGING cv_w1 TYPE t_word_base
                 cv_w2 TYPE t_word_base,
**************************************************
* word transformation
    fw
       IMPORTING iv_w TYPE t_word_base
       EXPORTING ev_w TYPE t_word_base,

**************************************************
* convert table to xstring
     convert_tab2xstr
       IMPORTING it_in TYPE t_bfzip_tab
                 iv_size TYPE i
       EXPORTING ev_out TYPE xstring,
**************************************************
* convert xstring to table
     convert_xstr2tab
       IMPORTING iv_in TYPE xstring
       EXPORTING et_out TYPE t_bfzip_tab
                 ev_size TYPE i,
**************************************************
* calculate check sum
     calc_check_sum
       IMPORTING it_flat TYPE t_bfzip_tab
                 iv_size TYPE i
       EXPORTING ev_checksum TYPE t_word_base
       .
**************************************************
* DATA section

**************************************************
* subkeys (72 bytes)
    DATA: pa TYPE t_wordt.

**************************************************
* key (256 lines of 4x4 byte words)
    DATA: sb TYPE TABLE OF t_fword3.
ENDCLASS.                    "cl_zbfz DEFINITION

*---------------------------------------------------------------------*
*       CLASS cl_zbfz IMPLEMENTATION
*---------------------------------------------------------------------*
* BlowFish and ZIP class implementation                               *
*---------------------------------------------------------------------*
CLASS cl_zbfz IMPLEMENTATION.
**************************************************
* checki nput table
  METHOD check_table.
    DATA: lv_lines TYPE i.
    IF iv_size < 8.
      RAISE table_too_small.
    ENDIF.
    DESCRIBE TABLE it_data LINES lv_lines.
    IF lv_lines EQ 0.
      RAISE table_empty.
    ENDIF.

  ENDMETHOD.                    "check_table
*       importing it_data type t_bfzip_tab
*                 iv_size type i
*       exceptions table_empty
*                  table_too_small,
**************************************************
* calculate check sum
  METHOD calc_check_sum.
    FIELD-SYMBOLS: <fs_line> TYPE t_bfzip_str.
    DATA: lv_i TYPE i,
          lv_j TYPE i,
          lv_offset_start TYPE i,
          lv_offset TYPE i,
          lv_cur_len TYPE i.

    ev_checksum = 0.
    lv_j = 1.
    LOOP AT it_flat ASSIGNING <fs_line>.
      lv_cur_len = lv_j * 1024.
      IF iv_size < lv_cur_len.
        lv_cur_len = iv_size - ( lv_j  - 1 ) * 1024.
      ELSE.
        lv_cur_len = 1024.
      ENDIF.
      lv_i = 0.
*      lv_offset_start = ( lv_j - 1 ) * 1024.
      WHILE lv_i < lv_cur_len.
*        lv_offset = lv_offset_start + lv_i.
        ev_checksum = ev_checksum BIT-XOR <fs_line>-line+lv_i(4).
        lv_i = lv_i + 4.
      ENDWHILE.
      lv_j = lv_j + 1.
    ENDLOOP.
  ENDMETHOD.                    "calc_check_sum
*************************************************
* convert table to xstring
  METHOD convert_tab2xstr.
*    DATA: lv_cur_size TYPE i.
*    DATA: lv_size TYPE i.
*    FIELD-SYMBOLS: <fs_tab> TYPE t_bfzip_str.
*
*    lv_size = 0.
*    lv_cur_size = 1024.
*    LOOP AT it_in ASSIGNING <fs_tab>.
*      IF lv_cur_size < iv_size.
*        CONCATENATE ev_out <fs_tab>-line INTO ev_out.
*      ELSE.
*        CONCATENATE ev_out <fs_tab>-line INTO ev_out.
*      ENDIF.
*      lv_size = lv_size + 1024.
*      lv_cur_size = lv_cur_size + 1024.
*
*    ENDLOOP.

    CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
      EXPORTING
        input_length       = iv_size
*   FIRST_LINE         = 0
*   LAST_LINE          = 0
     IMPORTING
       buffer             = ev_out
      TABLES
        binary_tab         = it_in
* EXCEPTIONS
*   FAILED             = 1
*   OTHERS             = 2
              .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

  ENDMETHOD.                    "convert_tab2xstr
*************************************************
* convert xstring to table
  METHOD convert_xstr2tab.
    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        buffer                = iv_in
*        APPEND_TO_TABLE       = ' '
     IMPORTING
       output_length         = ev_size
      TABLES
        binary_tab            = et_out
              .
  ENDMETHOD.                    "convert_xstr2tab
**************************************************
* encryption
  METHOD encrypt.
    DATA: lv_ind TYPE i, lv_rest TYPE i.
    DATA: lv_offset TYPE i.
    DATA: lv_w1 TYPE t_word_base, lv_w2 TYPE t_word_base.
    DATA: lv_checksum TYPE t_word_base.
    DATA: lv_temp_size TYPE i.
    DATA: lv_lines TYPE i.
    DATA: lv_max TYPE i.
    DATA: lv_index TYPE i.
    DATA: ls_encrypted TYPE t_bfzip_str.
    DATA: lv_size TYPE i.
    DATA: it_flat TYPE t_bfzip_tab.
    DATA: iv_size TYPE i.

*   Firstly check that at least one of it_flat_x or it_flat_c parameters
*   are not empty
    IF it_flat_x IS INITIAL AND it_flat_c IS INITIAL.
      RAISE table_empty.
    ENDIF.


*   Firstly check whether it_flax_x is initial
    IF it_flat_x IS INITIAL.
*     Transform input data from c to x type
      CALL FUNCTION 'SCMS_FTEXT_TO_BINARY'
      EXPORTING
        input_length          = iv_size_flat
*       FIRST_LINE            = 0
*       LAST_LINE             = 0
*       APPEND_TO_TABLE       = ' '
*       MIMETYPE              = ' '
      IMPORTING
        OUTPUT_LENGTH         = iv_size
      TABLES
        ftext_tab             = it_flat_c
        binary_tab            = it_flat.
*     EXCEPTIONS
*       FAILED                = 1
*       OTHERS                = 2
    ELSE.
*     if it is not, copy it_flat_x data to it_flat
      it_flat = it_flat_x.
      iv_size = iv_size_flat.
    ENDIF.


    FIELD-SYMBOLS: <fs_wa> TYPE t_bfzip_str.

    CALL METHOD check_table
      EXPORTING
        it_data         = it_flat
        iv_size         = iv_size
      EXCEPTIONS
        table_empty     = 1
        table_too_small = 2.

    CASE sy-subrc.
      WHEN 1. RAISE table_empty.
      WHEN 2. RAISE table_too_small.
    ENDCASE.


    CLEAR ct_encrypted[].

* we need this for case if import & export size have the same reference
    lv_size = iv_size.

    CALL METHOD calc_check_sum
      EXPORTING
        it_flat     = it_flat
        iv_size     = lv_size
      IMPORTING
        ev_checksum = lv_checksum.


    lv_rest = iv_size MOD 8.

    IF lv_rest NE 0.
      lv_rest = 8 - lv_rest.
    ELSE.
      lv_rest = 0.
    ENDIF.

    lv_temp_size = lv_size + lv_rest.
    ev_size = lv_temp_size + 8.
    DESCRIBE TABLE it_flat LINES lv_lines.

    lv_max = 1024.
    lv_index = 1.
    LOOP AT it_flat ASSIGNING <fs_wa>.
      lv_ind = 0.
      IF lv_index = lv_lines.
        lv_max = lv_temp_size - 1024 * ( lv_lines - 1 ).
      ENDIF.
      WHILE lv_ind < lv_max.
        lv_offset = lv_ind + 4.
        lv_w1 = <fs_wa>-line+lv_ind(4).
        lv_w2 = <fs_wa>-line+lv_offset(4).
        CALL METHOD bf_encoding
          CHANGING
            cv_w1 = lv_w1
            cv_w2 = lv_w2.
        ls_encrypted-line+lv_ind(4) = lv_w1.
        ls_encrypted-line+lv_offset(4) = lv_w2.
        lv_ind = lv_ind + 8.
      ENDWHILE.

      IF lv_index = lv_lines.
        IF lv_max NE 1024.
          lv_w1 = lv_checksum.
          lv_w2 = lv_size.
          CALL METHOD bf_encoding
            CHANGING
              cv_w1 = lv_w1
              cv_w2 = lv_w2.
          ls_encrypted-line+lv_max(4) = lv_w1.
          lv_max = lv_max + 4.
          ls_encrypted-line+lv_max(4) = lv_w2.
        ELSE.
          APPEND ls_encrypted TO ct_encrypted.
          CLEAR ls_encrypted.
          lv_w1 = lv_checksum.
          lv_w2 = lv_size.
          CALL METHOD bf_encoding
            CHANGING
              cv_w1 = lv_w1
              cv_w2 = lv_w2.
          ls_encrypted-line+lv_max(4) = lv_w1.
          lv_max = lv_max + 4.
          ls_encrypted-line+lv_max(4) = lv_w2.
        ENDIF.
      ENDIF.
      APPEND ls_encrypted TO ct_encrypted.
      lv_index = lv_index + 1.
    ENDLOOP.

    CALL METHOD reset.

  ENDMETHOD.                    "encrypt

*****************************************************
* Decryption

  METHOD decrypt.
    DATA: lv_ind TYPE i.
    DATA: lv_offset TYPE i.
    DATA: lv_w1 TYPE t_word_base, lv_w2 TYPE t_word_base.
    DATA: lv_lines TYPE i.
    DATA: len TYPE i.

    FIELD-SYMBOLS: <fs_wa> TYPE t_bfzip_str.
    DATA: ls_flat TYPE t_bfzip_str.

    CLEAR ct_flat_x[].
    CLEAR ct_flat_c[].




    LOOP AT it_encrypted ASSIGNING <fs_wa>.
      lv_ind = 0.
      WHILE lv_ind < 1024.
        lv_offset = lv_ind + 4.
        lv_w1 = <fs_wa>-line+lv_ind(4).
        lv_w2 = <fs_wa>-line+lv_offset(4).
        CALL METHOD bf_decoding
          CHANGING
            cv_w1 = lv_w1
            cv_w2 = lv_w2.
        ls_flat-line+lv_ind(4) = lv_w1.
        ls_flat-line+lv_offset(4) = lv_w2.
        lv_ind = lv_ind + 8.
      ENDWHILE.
      APPEND ls_flat TO ct_flat_x.
    ENDLOOP.

    DESCRIBE TABLE ct_flat_x LINES lv_lines.
    lv_ind = iv_size - ( lv_lines - 1 ) * 1024 - 8.
    IF lv_ind = 0.
      DELETE ct_flat_x INDEX lv_lines.
    ENDIF.
    lv_w1 = ls_flat-line+lv_ind(4).
    lv_ind = lv_ind + 4.
    ev_size = ls_flat-line+lv_ind(4).


    CALL METHOD calc_check_sum
      EXPORTING
        it_flat     = ct_flat_x
        iv_size     = ev_size
      IMPORTING
        ev_checksum = lv_w2.


    IF lv_w1 NE lv_w2.
      RAISE wrong_password.
    ENDIF.

*   Copy output data to the ct_flat_c table
    CALL FUNCTION 'SCMS_BINARY_TO_FTEXT'
    EXPORTING
      input_length          = ev_size
    IMPORTING
     OUTPUT_LENGTH          = len
    tables
      binary_tab            = ct_flat_x
      ftext_tab             = ct_flat_c.

    CALL METHOD reset.

  ENDMETHOD.                    "decrypt


**************************************************
* Set password
  METHOD setpasswd.
*    DATA: lv_length TYPE i.
    DATA: lv_str_temp TYPE string.
    data: lv_strxtemp type xstring.
*    DATA: lv_str TYPE t_bfzip_str.
    DATA: lv_xpasswd TYPE t_xpasswd.
*    lv_length = strlen( iv_passwd ).
*
*    lv_xpasswd = lv_str-line.
*    IF lv_length > 72.
*      lv_length = 72.
*    ENDIF.



    lv_str_temp = iv_passwd.
    CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
      EXPORTING
        text           = lv_str_temp
*   MIMETYPE       = ' '
*   ENCODING       =
     IMPORTING
        buffer         = lv_strxtemp
* EXCEPTIONS
*   FAILED         = 1
*   OTHERS         = 2
              .
    lv_xpasswd = lv_strxtemp.
    CALL METHOD reset.
*    IF lv_length > 0.
      CALL METHOD generatesubkeys
        EXPORTING
          iv_passwd = lv_xpasswd
          iv_length = 72.
*    ENDIF.

  ENDMETHOD.                    "setpasswd


**************************************************
* one word encryption
  METHOD bf_encoding.
    DATA: lv_w1 TYPE t_word_base,
          lv_w2 TYPE t_word_base,
          lv_wt1 TYPE t_word_base,
          lv_wt2 TYPE t_word_base.
    DATA: lv_temp1 TYPE t_word_base,
          lv_i TYPE i.
    FIELD-SYMBOLS: <fs_pa> TYPE t_word_base.

    lv_w1 = cv_w1.
    lv_w2 = cv_w2.

    lv_i = 1.
    WHILE lv_i < 17.
      READ TABLE pa INDEX lv_i ASSIGNING <fs_pa>.
      lv_wt1 = <fs_pa>.
      lv_w1 = lv_w1 BIT-XOR lv_wt1.
      CALL METHOD fw
        EXPORTING
          iv_w = lv_w1
        IMPORTING
          ev_w = lv_wt2.
      lv_w2 = lv_w2 BIT-XOR lv_wt2.
      lv_temp1 = lv_w1.
      lv_w1 = lv_w2.
      lv_w2 = lv_temp1.
      lv_i = lv_i + 1.
    ENDWHILE.
    lv_temp1 = lv_w1.
    lv_w1 = lv_w2.
    lv_w2 = lv_temp1.

    READ TABLE pa INDEX 17 ASSIGNING <fs_pa>.
    lv_wt2 = <fs_pa>.
    lv_w2 = lv_w2 BIT-XOR lv_wt2.

    READ TABLE pa INDEX 18 ASSIGNING <fs_pa>.
    lv_wt1 = <fs_pa>.
    lv_w1 = lv_w1 BIT-XOR lv_wt1.

    cv_w1 = lv_w1.
    cv_w2 = lv_w2.


  ENDMETHOD.                    "bf_encoding

**********************************************
* Decoding

  METHOD bf_decoding.

    DATA: lv_w1 TYPE t_word_base,
        lv_w2 TYPE t_word_base,
        lv_wt1 TYPE t_word_base,
        lv_wt2 TYPE t_word_base.
    DATA: lv_temp1 TYPE t_word_base,
          lv_i TYPE i.
    FIELD-SYMBOLS: <fs_pa> TYPE t_word_base.

    lv_w1 = cv_w1.
    lv_w2 = cv_w2.

    lv_i = 18.
    WHILE lv_i > 2.
      READ TABLE pa INDEX lv_i ASSIGNING <fs_pa>.
      lv_wt1 = <fs_pa>.
      lv_w1 = lv_w1 BIT-XOR lv_wt1.
      CALL METHOD fw
        EXPORTING
          iv_w = lv_w1
        IMPORTING
          ev_w = lv_wt2.
      lv_w2 = lv_w2 BIT-XOR lv_wt2.
      lv_temp1 = lv_w1.
      lv_w1 = lv_w2.
      lv_w2 = lv_temp1.
      lv_i = lv_i - 1.
    ENDWHILE.
    lv_temp1 = lv_w1.
    lv_w1 = lv_w2.
    lv_w2 = lv_temp1.

    READ TABLE pa INDEX 2 ASSIGNING <fs_pa>.
    lv_wt2 = <fs_pa>.
    lv_w2 = lv_w2 BIT-XOR lv_wt2.

    READ TABLE pa INDEX 1 ASSIGNING <fs_pa>.
    lv_wt1 = <fs_pa>.
    lv_w1 = lv_w1 BIT-XOR lv_wt1.

    cv_w1 = lv_w1.
    cv_w2 = lv_w2.

  ENDMETHOD.                    "bf_decoding

**************************************************
* generate new keys tables

  DEFINE inc_lv_j.
    if &1 = &2.
      &1 = 0.
    else.
      &1 = &1 + 1.
    endif.
  END-OF-DEFINITION.

  METHOD generatesubkeys.

    DATA: lv_i TYPE i,
          lv_j TYPE i.
    DATA: lv_w1 TYPE t_word_base,
          lv_w2 TYPE t_word_base,
          lv_wt1 TYPE t_word_base.
    FIELD-SYMBOLS: <fs_pa> TYPE t_word_base.
    FIELD-SYMBOLS: <fs_word> TYPE t_fword3.

    lv_i = 1.
    lv_j = 0.
    WHILE lv_i < 19.

      lv_w1(1) = iv_passwd+lv_j(1).
      inc_lv_j lv_j iv_length.
      lv_w1+1(1) = iv_passwd+lv_j(1).
      inc_lv_j lv_j iv_length.
      lv_w1+2(1) = iv_passwd+lv_j(1).
      inc_lv_j lv_j iv_length.
      lv_w1+3(1) = iv_passwd+lv_j(1).
      inc_lv_j lv_j iv_length.


      READ TABLE pa INDEX lv_i ASSIGNING <fs_pa>.
      lv_wt1 = <fs_pa>.
      <fs_pa> = lv_w1 BIT-XOR lv_wt1.

      lv_i = lv_i + 1.
    ENDWHILE.

    lv_w1 = lv_w2 = 0.

    lv_i = 1.
    WHILE lv_i < 19.
      CALL METHOD bf_encoding
        CHANGING
          cv_w1 = lv_w1
          cv_w2 = lv_w2.
      READ TABLE pa INDEX lv_i ASSIGNING <fs_pa>.
      lv_wt1 = <fs_pa>.
      <fs_pa> = lv_w1 BIT-XOR lv_wt1.
      lv_i = lv_i + 1.

      READ TABLE pa INDEX lv_i ASSIGNING <fs_pa>.
      lv_wt1 = <fs_pa>.
      <fs_pa> = lv_w1 BIT-XOR lv_wt1.
      lv_i = lv_i + 1.

    ENDWHILE.


    lv_i = 0.
    lv_j = 1.
    lv_w1 = lv_w2 = 0.
    WHILE lv_i < 4.
      WHILE lv_j < 257.
        CALL METHOD bf_encoding
          CHANGING
            cv_w1 = lv_w1
            cv_w2 = lv_w2.

        READ TABLE sb INDEX lv_j ASSIGNING <fs_word>.
        <fs_word>+lv_i(4) = lv_w1.
        lv_j = lv_j + 1.

        READ TABLE sb INDEX lv_j ASSIGNING <fs_word>.
        <fs_word>+lv_i(4) = lv_w2.
        lv_j = lv_j + 1.
      ENDWHILE.
      lv_i = lv_i + 1.
    ENDWHILE.


  ENDMETHOD.                    "generatesubkeys
**************************************************
* word transformation
  METHOD fw.
    DATA: t1 TYPE t_word_base, t2 TYPE t_word_base,
          t3 TYPE t_word_base, t4 TYPE t_word_base,
          res TYPE t_word_base.
    DATA: ind TYPE i.
    FIELD-SYMBOLS: <fs_word> TYPE t_fword3.

    ind = iv_w(1) + 1.
    READ TABLE sb INDEX ind ASSIGNING <fs_word>.
    t1 = <fs_word>(4).

    ind = iv_w+1(1) + 1.
    READ TABLE sb INDEX ind ASSIGNING <fs_word>.
    t2 = <fs_word>+4(4).

    ind = iv_w+2(1) + 1.
    READ TABLE sb INDEX ind ASSIGNING <fs_word>.
    t3 = <fs_word>+8(4).

    ind = iv_w+3(1) + 1.
    READ TABLE sb INDEX ind ASSIGNING <fs_word>.
    t4 = <fs_word>+12(4).

    res+1(3) = t1+2(2) + t2+2(2).
    res(2) = res(2) + t1(2) + t2(2).
    t1 = res.
    t1 = t1 BIT-XOR t3.
    res = '00000000'.
    res+1(3) = t1+2(2) + t4+2(2).
    res(2) = res(2) + t1(2) + t4(2).
    t1 = res.

    ev_w = t1.
  ENDMETHOD.                    "fw

**************************************************
* internal arrays initialization
  METHOD reset.
    DATA: wa_wordl TYPE t_word_base.
    DATA: wa_word TYPE t_fword3.


    CLEAR wa_wordl.
    CLEAR pa[].

    wa_wordl = '243F6A88'.
    APPEND wa_wordl TO pa.
    wa_wordl = '85A308D3'.
    APPEND wa_wordl TO pa.
    wa_wordl = '13198A2E'.
    APPEND wa_wordl TO pa.
    wa_wordl = '03707344'.
    APPEND wa_wordl TO pa.
    wa_wordl = 'A4093822'.
    APPEND wa_wordl TO pa.
    wa_wordl = '299F31D0'.
    APPEND wa_wordl TO pa.
    wa_wordl = '082EFA98'.
    APPEND wa_wordl TO pa.
    wa_wordl = 'EC4E6C89'.
    APPEND wa_wordl TO pa.
    wa_wordl = '452821E6'.
    APPEND wa_wordl TO pa.
    wa_wordl = '38D01377'.
    APPEND wa_wordl TO pa.
    wa_wordl = 'BE5466CF'.
    APPEND wa_wordl TO pa.
    wa_wordl = '34E90C6C'.
    APPEND wa_wordl TO pa.
    wa_wordl = 'C0AC29B7'.
    APPEND wa_wordl TO pa.
    wa_wordl = 'C97C50DD'.
    APPEND wa_wordl TO pa.
    wa_wordl = '3F84D5B5'.
    APPEND wa_wordl TO pa.
    wa_wordl = 'B5470917'.
    APPEND wa_wordl TO pa.
    wa_wordl = '9216D5D9'.
    APPEND wa_wordl TO pa.
    wa_wordl = '8979FB1B'.
    APPEND wa_wordl TO pa.

    CLEAR wa_word.
    CLEAR sb[].
    wa_word = 'D1310BA64B7A70E9E93D5A683A39CE37'.
    APPEND wa_word TO sb.
    wa_word = '98DFB5ACB5B32944948140F7D3FAF5CF'.
    APPEND wa_word TO sb.
    wa_word = '2FFD72DBDB75092EF64C261CABC27737'.
    APPEND wa_word TO sb.
    wa_word = 'D01ADFB7C4192623946929345AC52D1B'.
    APPEND wa_word TO sb.
    wa_word = 'B8E1AFEDAD6EA6B0411520F75CB0679E'.
    APPEND wa_word TO sb.
    wa_word = '6A267E9649A7DF7D7602D4F74FA33742'.
    APPEND wa_word TO sb.
    wa_word = 'BA7C90459CEE60B8BCF46B2ED3822740'.
    APPEND wa_word TO sb.
    wa_word = 'F12C7F998FEDB266D4A2006899BC9BBE'.
    APPEND wa_word TO sb.
    wa_word = '24A19947ECAA8C71D4082471D5118E9D'.
    APPEND wa_word TO sb.
    wa_word = 'B3916CF7699A17FF3320F46ABF0F7315'.
    APPEND wa_word TO sb.
    wa_word = '0801F2E25664526C43B7D4B7D62D1C7E'.
    APPEND wa_word TO sb.
    wa_word = '858EFC16C2B19EE1500061AFC700C47B'.
    APPEND wa_word TO sb.
    wa_word = '636920D8193602A51E39F62EB78C1B6B'.
    APPEND wa_word TO sb.
    wa_word = '71574E6975094C299724454621A19045'.
    APPEND wa_word TO sb.
    wa_word = 'A458FEA3A059134014214F74B26EB1BE'.
    APPEND wa_word TO sb.
    wa_word = 'F4933D7EE4183A3EBF8B88406A366EB4'.
    APPEND wa_word TO sb.
    wa_word = '0D95748F3F54989A4D95FC1D5748AB2F'.
    APPEND wa_word TO sb.
    wa_word = '728EB6585B429D6596B591AFBC946E79'.
    APPEND wa_word TO sb.
    wa_word = '718BCD586B8FE4D670F4DDD3C6A376D2'.
    APPEND wa_word TO sb.
    wa_word = '82154AEE99F73FD666A02F456549C2C8'.
    APPEND wa_word TO sb.
    wa_word = '7B54A41DA1D29C07BFBC09EC530FF8EE'.
    APPEND wa_word TO sb.
    wa_word = 'C25A59B5EFE830F503BD9785468DDE7D'.
    APPEND wa_word TO sb.
    wa_word = '9C30D5394D2D38E67FAC6DD0D5730A1D'.
    APPEND wa_word TO sb.
    wa_word = '2AF26013F0255DC131CB85044CD04DC6'.
    APPEND wa_word TO sb.
    wa_word = 'C5D1B0234CDD208696EB27B32939BBDB'.
    APPEND wa_word TO sb.
    wa_word = '286085F08470EB2655FD3941A9BA4650'.
    APPEND wa_word TO sb.
    wa_word = 'CA4179186382E9C6DA2547E6AC9526E8'.
    APPEND wa_word TO sb.
    wa_word = 'B8DB38EF021ECC5EABCA0A9ABE5EE304'.
    APPEND wa_word TO sb.
    wa_word = '8E79DCB009686B3F28507825A1FAD5F0'.
    APPEND wa_word TO sb.
    wa_word = '603A180E3EBAEFC9530429F46A2D519A'.
    APPEND wa_word TO sb.
    wa_word = '6C9E0E8B3C9718140A2C86DA63EF8CE2'.
    APPEND wa_word TO sb.
    wa_word = 'B01E8A3E6B6A70A1E9B66DFB9A86EE22'.
    APPEND wa_word TO sb.
    wa_word = 'D71577C1687F358468DC1462C089C2B8'.
    APPEND wa_word TO sb.
    wa_word = 'BD314B2752A0E286D748690043242EF6'.
    APPEND wa_word TO sb.
    wa_word = '78AF2FDAB79C5305680EC0A4A51E03AA'.
    APPEND wa_word TO sb.
    wa_word = '55605C60AA50073727A18DEE9CF2D0A4'.
    APPEND wa_word TO sb.
    wa_word = 'E65525F33E07841C4F3FFEA283C061BA'.
    APPEND wa_word TO sb.
    wa_word = 'AA55AB947FDEAE5CE887AD8C9BE96A4D'.
    APPEND wa_word TO sb.
    wa_word = '574898628E7D44ECB58CE0068FE51550'.
    APPEND wa_word TO sb.
    wa_word = '63E814405716F2B87AF4D6B6BA645BD6'.
    APPEND wa_word TO sb.
    wa_word = '55CA396AB03ADA37AACE1E7C2826A2F9'.
    APPEND wa_word TO sb.
    wa_word = '2AAB10B6F0500C0DD3375FECA73A3AE1'.
    APPEND wa_word TO sb.
    wa_word = 'B4CC5C34F01C1F04CE78A3994BA99586'.
    APPEND wa_word TO sb.
    wa_word = '1141E8CE0200B3FF406B2A42EF5562E9'.
    APPEND wa_word TO sb.
    wa_word = 'A15486AFAE0CF51A20FE9E35C72FEFD3'.
    APPEND wa_word TO sb.
    wa_word = '7C72E9933CB574B2D9F385B9F752F7DA'.
    APPEND wa_word TO sb.
    wa_word = 'B3EE141125837A58EE39D7AB3F046F69'.
    APPEND wa_word TO sb.
    wa_word = '636FBC2ADC0921BD3B124E8B77FA0A59'.
    APPEND wa_word TO sb.
    wa_word = '2BA9C55DD19113F91DC9FAF780E4A915'.
    APPEND wa_word TO sb.
    wa_word = '741831F67CA92FF64B6D185687B08601'.
    APPEND wa_word TO sb.
    wa_word = 'CE5C3E169432477326A366319B09E6AD'.
    APPEND wa_word TO sb.
    wa_word = '9B87931E22F54701EAE397B23B3EE593'.
    APPEND wa_word TO sb.
    wa_word = 'AFD6BA333AE5E5813A6EFA74E990FD5A'.
    APPEND wa_word TO sb.
    wa_word = '6C24CF5C37C2DADCDD5B43329E34D797'.
    APPEND wa_word TO sb.
    wa_word = '7A325381C8B576346841E7F72CF0B7D9'.
    APPEND wa_word TO sb.
    wa_word = '289586779AF3DDA7CA7820FB022B8B51'.
    APPEND wa_word TO sb.
    wa_word = '3B8F4898A9446146FB0AF54E96D5AC3A'.
    APPEND wa_word TO sb.
    wa_word = '6B4BB9AF0FD0030ED8FEB397017DA67D'.
    APPEND wa_word TO sb.
    wa_word = 'C4BFE81BECC8C73E454056ACD1CF3ED6'.
    APPEND wa_word TO sb.
    wa_word = '66282193A4751E41BA4895277C7D2D28'.
    APPEND wa_word TO sb.
    wa_word = '61D809CCE238CD9955533A3A1F9F25CF'.
    APPEND wa_word TO sb.
    wa_word = 'FB21A9913BEA0E2F20838D87ADF2B89B'.
    APPEND wa_word TO sb.
    wa_word = '487CAC603280BBA1FE6BA9B75AD6B472'.
    APPEND wa_word TO sb.
    wa_word = '5DEC8032183EB331D096954B5A88F54C'.
    APPEND wa_word TO sb.
    wa_word = 'EF845D5D4E548B3855A867BCE029AC71'.
    APPEND wa_word TO sb.
    wa_word = 'E98575B14F6DB908A1159A58E019A5E6'.
    APPEND wa_word TO sb.
    wa_word = 'DC2623026F420D03CCA9296347B0ACFD'.
    APPEND wa_word TO sb.
    wa_word = 'EB651B88F60A04BF99E1DB33ED93FA9B'.
    APPEND wa_word TO sb.
    wa_word = '23893E812CB81290A62A4A56E8D3C48D'.
    APPEND wa_word TO sb.
    wa_word = 'D396ACC524977C793F3125F9283B57CC'.
    APPEND wa_word TO sb.
    wa_word = '0F6D6FF35679B0725EF47E1CF8D56629'.
    APPEND wa_word TO sb.
    wa_word = '83F44239BCAF89AF9029317C79132E28'.
    APPEND wa_word TO sb.
    wa_word = '2E0B4482DE9A771FFDF8E802785F0191'.
    APPEND wa_word TO sb.
    wa_word = 'A4842004D993081004272F70ED756055'.
    APPEND wa_word TO sb.
    wa_word = '69C8F04AB38BAE1280BB155CF7960E44'.
    APPEND wa_word TO sb.
    wa_word = '9E1F9B5EDCCF3F2E05282CE3E3D35E8C'.
    APPEND wa_word TO sb.
    wa_word = '21C668425512721F95C1154815056DD4'.
    APPEND wa_word TO sb.
    wa_word = 'F6E96C9A2E6B7124E4C66D2288F46DBA'.
    APPEND wa_word TO sb.
    wa_word = '670C9C61501ADDE648C1133F03A16125'.
    APPEND wa_word TO sb.
    wa_word = 'ABD388F09F84CD87C70F86DC0564F0BD'.
    APPEND wa_word TO sb.
    wa_word = '6A51A0D27A58471807F9C9EEC3EB9E15'.
    APPEND wa_word TO sb.
    wa_word = 'D8542F687408DA1741041F0F3C9057A2'.
    APPEND wa_word TO sb.
    wa_word = '960FA728BC9F9ABC404779A497271AEC'.
    APPEND wa_word TO sb.
    wa_word = 'AB5133A3E94B7D8C5D886E17A93A072A'.
    APPEND wa_word TO sb.
    wa_word = '6EEF0B6CEC7AEC3A325F51EB1B3F6D9B'.
    APPEND wa_word TO sb.
    wa_word = '137A3BE4DB851DFAD59BC0D11E6321F5'.
    APPEND wa_word TO sb.
    wa_word = 'BA3BF05063094366F2BCC18FF59C66FB'.
    APPEND wa_word TO sb.
    wa_word = '7EFB2A98C464C3D24111356426DCF319'.
    APPEND wa_word TO sb.
    wa_word = 'A1F1651DEF1C1847257B78347533D928'.
    APPEND wa_word TO sb.
    wa_word = '39AF01763215D908602A9C60B155FDF5'.
    APPEND wa_word TO sb.
    wa_word = '66CA593EDD433B37DFF8E8A303563482'.
    APPEND wa_word TO sb.
    wa_word = '82430E8824C2BA161F636C1B8ABA3CBB'.
    APPEND wa_word TO sb.
    wa_word = '8CEE861912A14D430E12B4C228517711'.
    APPEND wa_word TO sb.
    wa_word = '456F9FB42A65C45102E1329EC20AD9F8'.
    APPEND wa_word TO sb.
    wa_word = '7D84A5C350940002AF664FD1ABCC5167'.
    APPEND wa_word TO sb.
    wa_word = '3B8B5EBE133AE4DDCAD18115CCAD925F'.
    APPEND wa_word TO sb.
    wa_word = 'E06F75D871DFF89E6B2395E04DE81751'.
    APPEND wa_word TO sb.
    wa_word = '85C1207310314E55333E92E13830DC8E'.
    APPEND wa_word TO sb.
    wa_word = '401A449F81AC77D63B240B62379D5862'.
    APPEND wa_word TO sb.
    wa_word = '56C16AA65F11199BEEBEB9229320F991'.
    APPEND wa_word TO sb.
    wa_word = '4ED3AA62043556F185B2A20EEA7A90C2'.
    APPEND wa_word TO sb.
    wa_word = '363F7706D7A3C76BE6BA0D99FB3E7BCE'.
    APPEND wa_word TO sb.
    wa_word = '1BFEDF723C11183BDE720C8C5121CE64'.
    APPEND wa_word TO sb.
    wa_word = '429B023D5924A5092DA2F728774FBE32'.
    APPEND wa_word TO sb.
    wa_word = '37D0D724F28FE6EDD0127845A8B6E37E'.
    APPEND wa_word TO sb.
    wa_word = 'D00A124897F1FBFA95B794FDC3293D46'.
    APPEND wa_word TO sb.
    wa_word = 'DB0FEAD39EBABF2C647D086248DE5369'.
    APPEND wa_word TO sb.
    wa_word = '49F1C09B1E153C6EE7CCF5F06413E680'.
    APPEND wa_word TO sb.
    wa_word = '075372C986E345705449A36FA2AE0810'.
    APPEND wa_word TO sb.
    wa_word = '80991B7BEAE96FB1877D48FADD6DB224'.
    APPEND wa_word TO sb.
    wa_word = '25D479D8860E5E0AC39DFD2769852DFD'.
    APPEND wa_word TO sb.
    wa_word = 'F6E8DEF75A3E2AB3F33E8D1E09072166'.
    APPEND wa_word TO sb.
    wa_word = 'E3FE501A771FE71C0A476341B39A460A'.
    APPEND wa_word TO sb.
    wa_word = 'B6794C3B4E3D06FA992EFF746445C0DD'.
    APPEND wa_word TO sb.
    wa_word = '976CE0BD2965DCB93A6F6EAB586CDECF'.
    APPEND wa_word TO sb.
    wa_word = '04C006BA99E71D0FF4F8FD371C20C8AE'.
    APPEND wa_word TO sb.
    wa_word = 'C1A94FB6803E89D6A812DC605BBEF7DD'.
    APPEND wa_word TO sb.
    wa_word = '409F60C45266C825A1EBDDF81B588D40'.
    APPEND wa_word TO sb.
    wa_word = '5E5C9EC22E4CC978991BE14CCCD2017F'.
    APPEND wa_word TO sb.
    wa_word = '196A24639C10B36ADB6E6B0D6BB4E3BB'.
    APPEND wa_word TO sb.
    wa_word = '68FB6FAFC6150EBAC67B5510DDA26A7E'.
    APPEND wa_word TO sb.
    wa_word = '3E6C53B594E2EA786D672C373A59FF45'.
    APPEND wa_word TO sb.
    wa_word = '1339B2EBA5FC3C532765D43B3E350A44'.
    APPEND wa_word TO sb.
    wa_word = '3B52EC6F1E0A2DF4DCD0E804BCB4CDD5'.
    APPEND wa_word TO sb.
    wa_word = '6DFC511FF2F74EA7F1290DC772EACEA8'.
    APPEND wa_word TO sb.
    wa_word = '9B30952C361D2B3DCC00FFA3FA6484BB'.
    APPEND wa_word TO sb.
    wa_word = 'CC8145441939260FB5390F928D6612AE'.
    APPEND wa_word TO sb.
    wa_word = 'AF5EBD0919C27960690FED0BBF3C6F47'.
    APPEND wa_word TO sb.
    wa_word = 'BEE3D0045223A708667B9FFBD29BE463'.
    APPEND wa_word TO sb.
    wa_word = 'DE334AFDF71312B6CEDB7D9C542F5D9E'.
    APPEND wa_word TO sb.
    wa_word = '660F2807EBADFE6EA091CF0BAEC2771B'.
    APPEND wa_word TO sb.
    wa_word = '192E4BB3EAC31F66D9155EA3F64E6370'.
    APPEND wa_word TO sb.
    wa_word = 'C0CBA857E3BC4595BB132F88740E0D8D'.
    APPEND wa_word TO sb.
    wa_word = '45C8740FA67BC883515BAD24E75B1357'.
    APPEND wa_word TO sb.
    wa_word = 'D20B5F39B17F37D17B9479BFF8721671'.
    APPEND wa_word TO sb.
    wa_word = 'B9D3FBDB018CFF28763BD6EBAF537D5D'.
    APPEND wa_word TO sb.
    wa_word = '5579C0BDC332DDEF37392EB34040CB08'.
    APPEND wa_word TO sb.
    wa_word = '1A60320ABE6C5AA5CC1159794EB4E2CC'.
    APPEND wa_word TO sb.
    wa_word = 'D6A100C6655821858026E29734D2466A'.
    APPEND wa_word TO sb.
    wa_word = '402C727968AB9802F42E312D0115AF84'.
    APPEND wa_word TO sb.
    wa_word = '679F25FEEECEA50F6842ADA7E1B00428'.
    APPEND wa_word TO sb.
    wa_word = 'FB1FA3CCDB2F953BC66A2B3B95983A1D'.
    APPEND wa_word TO sb.
    wa_word = '8EA5E9F82AEF7DAD12754CCC06B89FB4'.
    APPEND wa_word TO sb.
    wa_word = 'DB3222F85B6E2F84782EF11CCE6EA048'.
    APPEND wa_word TO sb.
    wa_word = '3C7516DF1521B6286A1242376F3F3B82'.
    APPEND wa_word TO sb.
    wa_word = 'FD616B1529076170B79251E73520AB82'.
    APPEND wa_word TO sb.
    wa_word = '2F501EC8ECDD477506A1BBE6011A1D4B'.
    APPEND wa_word TO sb.
    wa_word = 'AD0552AB619F15104BFB6350277227F8'.
    APPEND wa_word TO sb.
    wa_word = '323DB5FA13CCA8301A6B1018611560B1'.
    APPEND wa_word TO sb.
    wa_word = 'FD238760EB61BD9611CAEDFAE7933FDC'.
    APPEND wa_word TO sb.
    wa_word = '53317B480334FE1E3D25BDD8BB3A792B'.
    APPEND wa_word TO sb.
    wa_word = '3E00DF82AA0363CFE2E1C3C9344525BD'.
    APPEND wa_word TO sb.
    wa_word = '9E5C57BBB5735C9044421659A08839E1'.
    APPEND wa_word TO sb.
    wa_word = 'CA6F8CA04C70A2390A12138651CE794B'.
    APPEND wa_word TO sb.
    wa_word = '1A87562ED59E9E0BD90CEC6E2F32C9B7'.
    APPEND wa_word TO sb.
    wa_word = 'DF1769DBCBAADE14D5ABEA2AA01FBAC9'.
    APPEND wa_word TO sb.
    wa_word = 'D542A8F6EECC86BC64AF674EE01CC87E'.
    APPEND wa_word TO sb.
    wa_word = '287EFFC360622CA7DA86A85FBCC7D1F6'.
    APPEND wa_word TO sb.
    wa_word = 'AC6732C69CAB5CABBEBFE988CF0111C3'.
    APPEND wa_word TO sb.
    wa_word = '8C4F5573B2F3846E64E4C3FEA1E8AAC7'.
    APPEND wa_word TO sb.
    wa_word = '695B27B0648B1EAF9DBC80571A908749'.
    APPEND wa_word TO sb.
    wa_word = 'BBCA58C819BDF0CAF0F7C086D44FBD9A'.
    APPEND wa_word TO sb.
    wa_word = 'E1FFA35DA02369B960787BF8D0DADECB'.
    APPEND wa_word TO sb.
    wa_word = 'B8F011A0655ABB506003604DD50ADA38'.
    APPEND wa_word TO sb.
    wa_word = '10FA3D9840685A32D1FD83460339C32A'.
    APPEND wa_word TO sb.
    wa_word = 'FD2183B83C2AB4B3F6381FB0C6913667'.
    APPEND wa_word TO sb.
    wa_word = '4AFCB56C319EE9D57745AE048DF9317C'.
    APPEND wa_word TO sb.
    wa_word = '2DD1D35BC021B8F7D736FCCCE0B12B4F'.
    APPEND wa_word TO sb.
    wa_word = '9A53E4799B540B1983426B33F79E59B7'.
    APPEND wa_word TO sb.
    wa_word = 'B6F84565875FA099F01EAB7143F5BB3A'.
    APPEND wa_word TO sb.
    wa_word = 'D28E49BC95F7997EB0804187F2D519FF'.
    APPEND wa_word TO sb.
    wa_word = '4BFB9790623D7DA83C005E5F27D9459C'.
    APPEND wa_word TO sb.
    wa_word = 'E1DDF2DAF837889A77A057BEBF97222C'.
    APPEND wa_word TO sb.
    wa_word = 'A4CB7E3397E32D77BDE8AE2415E6FC2A'.
    APPEND wa_word TO sb.
    wa_word = '62FB134111ED935F554642990F91FC71'.
    APPEND wa_word TO sb.
    wa_word = 'CEE4C6E816681281BF582E619B941525'.
    APPEND wa_word TO sb.
    wa_word = 'EF20CADA0E3588294E58F48FFAE59361'.
    APPEND wa_word TO sb.
    wa_word = '36774C01C7E61FD6F2DDFDA2CEB69CEB'.
    APPEND wa_word TO sb.
    wa_word = 'D07E9EFE96DEDFA1F474EF38C2A86459'.
    APPEND wa_word TO sb.
    wa_word = '2BF11FB47858BA998789BDC212BAA8D1'.
    APPEND wa_word TO sb.
    wa_word = '95DBDA4D57F584A55366F9C3B6C1075E'.
    APPEND wa_word TO sb.
    wa_word = 'AE9091981B227263C8B38E74E3056A0C'.
    APPEND wa_word TO sb.
    wa_word = 'EAAD8E719B83C3FFB475F25510D25065'.
    APPEND wa_word TO sb.
    wa_word = '6B93D5A01AC2469646FCD9B9CB03A442'.
    APPEND wa_word TO sb.
    wa_word = 'D08ED1D0CDB30AEB7AEB2661E0EC6E0E'.
    APPEND wa_word TO sb.
    wa_word = 'AFC725E0532E30548B1DDF841698DB3B'.
    APPEND wa_word TO sb.
    wa_word = '8E3C5B2F8FD948E4846A0E794C98A0BE'.
    APPEND wa_word TO sb.
    wa_word = '8E7594B76DBC3128915F95E23278E964'.
    APPEND wa_word TO sb.
    wa_word = '8FF6E2FB58EBF2EF466E598E9F1F9532'.
    APPEND wa_word TO sb.
    wa_word = 'F2122B6434C6FFEA20B45770E0D392DF'.
    APPEND wa_word TO sb.
    wa_word = '8888B812FE28ED618CD55591D3A0342B'.
    APPEND wa_word TO sb.
    wa_word = '900DF01CEE7C3C73C902DE4C8971F21E'.
    APPEND wa_word TO sb.
    wa_word = '4FAD5EA05D4A14D9B90BACE11B0A7441'.
    APPEND wa_word TO sb.
    wa_word = '688FC31CE864B7E3BB8205D04BA3348C'.
    APPEND wa_word TO sb.
    wa_word = 'D1CFF19142105D1411A86248C5BE7120'.
    APPEND wa_word TO sb.
    wa_word = 'B3A8C1AD203E13E07574A99EC37632D8'.
    APPEND wa_word TO sb.
    wa_word = '2F2F221845EEE2B6B77F19B6DF359F8D'.
    APPEND wa_word TO sb.
    wa_word = 'BE0E1777A3AAABEAE0A9DC099B992F2E'.
    APPEND wa_word TO sb.
    wa_word = 'EA752DFEDB6C4F15662D09A1E60B6F47'.
    APPEND wa_word TO sb.
    wa_word = '8B021FA1FACB4FD0C43246330FE3F11D'.
    APPEND wa_word TO sb.
    wa_word = 'E5A0CC0FC742F442E85A1F02E54CDA54'.
    APPEND wa_word TO sb.
    wa_word = 'B56F74E8EF6ABBB509F0BE8C1EDAD891'.
    APPEND wa_word TO sb.
    wa_word = '18ACF3D6654F3B1D4A99A025CE6279CF'.
    APPEND wa_word TO sb.
    wa_word = 'CE89E29941CD21051D6EFE10CD3E7E6F'.
    APPEND wa_word TO sb.
    wa_word = 'B4A84FE0D81E799E1AB93D1D1618B166'.
    APPEND wa_word TO sb.
    wa_word = 'FD13E0B786854DC70BA5A4DFFD2C1D05'.
    APPEND wa_word TO sb.
    wa_word = '7CC43B81E44B476AA186F20F848FD2C5'.
    APPEND wa_word TO sb.
    wa_word = 'D2ADA8D93D8162502868F169F6FB2299'.
    APPEND wa_word TO sb.
    wa_word = '165FA266CF62A1F2DCB7DA83F523F357'.
    APPEND wa_word TO sb.
    wa_word = '809577055B8D2646573906FEA6327623'.
    APPEND wa_word TO sb.
    wa_word = '93CC7314FC8883A0A1E2CE9B93A83531'.
    APPEND wa_word TO sb.
    wa_word = '211A1477C1C7B6A34FCD7F5256CCCD02'.
    APPEND wa_word TO sb.
    wa_word = 'E6AD20657F1524C350115E01ACF08162'.
    APPEND wa_word TO sb.
    wa_word = '77B5FA8669CB7492A70683FA5A75EBB5'.
    APPEND wa_word TO sb.
    wa_word = 'C75442F547848A0BA002B5C46E163697'.
    APPEND wa_word TO sb.
    wa_word = 'FB9D35CF5692B2850DE6D02788D273CC'.
    APPEND wa_word TO sb.
    wa_word = 'EBCDAF0C095BBF009AF88C27DE966292'.
    APPEND wa_word TO sb.
    wa_word = '7B3E89A0AD19489D773F864181B949D0'.
    APPEND wa_word TO sb.
    wa_word = 'D6411BD31462B174C3604C064C50901B'.
    APPEND wa_word TO sb.
    wa_word = 'AE1E7E4923820E0061A806B571C65614'.
    APPEND wa_word TO sb.
    wa_word = '00250E2D58428D2AF0177A28E6C6C7BD'.
    APPEND wa_word TO sb.
    wa_word = '2071B35E0C55F5EAC0F586E0327A140A'.
    APPEND wa_word TO sb.
    wa_word = '226800BB1DADF43E006058AA45E1D006'.
    APPEND wa_word TO sb.
    wa_word = '57B8E0AF233F706130DC7D62C3F27B9A'.
    APPEND wa_word TO sb.
    wa_word = '2464369B3372F09211E69ED7C9AA53FD'.
    APPEND wa_word TO sb.
    wa_word = 'F009B91E8D937E412338EA6362A80F00'.
    APPEND wa_word TO sb.
    wa_word = '5563911DD65FECF153C2DD94BB25BFE2'.
    APPEND wa_word TO sb.
    wa_word = '59DFA6AA6C223BDBC2C2163435BDD2F6'.
    APPEND wa_word TO sb.
    wa_word = '78C143897CDE3759BBCBEE5671126905'.
    APPEND wa_word TO sb.
    wa_word = 'D95A537FCBEE746090BCB6DEB2040222'.
    APPEND wa_word TO sb.
    wa_word = '207D5BA24085F2A7EBFC7DA1B6CBCF7C'.
    APPEND wa_word TO sb.
    wa_word = '02E5B9C5CE77326ECE591D76CD769C2B'.
    APPEND wa_word TO sb.
    wa_word = '83260376A60780846F05E40953113EC0'.
    APPEND wa_word TO sb.
    wa_word = '6295CFA919F8509E4B7C01881640E3D3'.
    APPEND wa_word TO sb.
    wa_word = '11C81968E8EFD85539720A3D38ABBD60'.
    APPEND wa_word TO sb.
    wa_word = '4E734A4161D997357C927C242547ADF0'.
    APPEND wa_word TO sb.
    wa_word = 'B3472DCAA969A7AA86E3725FBA38209C'.
    APPEND wa_word TO sb.
    wa_word = '7B14A94AC50C06C2724D9DB9F746CE76'.
    APPEND wa_word TO sb.
    wa_word = '1B5100525A04ABFC1AC15BB477AFA1C5'.
    APPEND wa_word TO sb.
    wa_word = '9A532915800BCADCD39EB8FC20756060'.
    APPEND wa_word TO sb.
    wa_word = 'D60F573F9E447A2EED54557885CBFE4E'.
    APPEND wa_word TO sb.
    wa_word = 'BC9BC6E4C345348408FCA5B58AE88DD8'.
    APPEND wa_word TO sb.
    wa_word = '2B60A476FDD56705D83D7CD37AAAF9B0'.
    APPEND wa_word TO sb.
    wa_word = '81E674000E1E9EC94DAD0FC44CF9AA7E'.
    APPEND wa_word TO sb.
    wa_word = '08BA6FB5DB73DBD31E50EF5E1948C25C'.
    APPEND wa_word TO sb.
    wa_word = '571BE91F105588CDB161E6F802FB8A8C'.
    APPEND wa_word TO sb.
    wa_word = 'F296EC6B675FDA79A28514D901C36AE4'.
    APPEND wa_word TO sb.
    wa_word = '2A0DD915E36743406C51133CD6EBE1F9'.
    APPEND wa_word TO sb.
    wa_word = 'B6636521C5C434656FD5C7E790D4F869'.
    APPEND wa_word TO sb.
    wa_word = 'E7B9F9B6713E38D856E14EC4A65CDEA0'.
    APPEND wa_word TO sb.
    wa_word = 'FF34052E3D28F89E362ABFCE3F09252D'.
    APPEND wa_word TO sb.
    wa_word = 'C5855664F16DFF20DDC6C837C208E69F'.
    APPEND wa_word TO sb.
    wa_word = '53B02D5D153E21E7D79A3234B74E6132'.
    APPEND wa_word TO sb.
    wa_word = 'A99F8FA18FB03D4A92638212CE77E25B'.
    APPEND wa_word TO sb.
    wa_word = '08BA4799E6E39F2B670EFA8E578FDFE3'.
    APPEND wa_word TO sb.
    wa_word = '6E85076ADB83ADF7406000E03AC372E6'.
    APPEND wa_word TO sb.


  ENDMETHOD.                    "reset

ENDCLASS.                    "cl_zbfz IMPLEMENTATION
Comentarios
Buscar
¡Sólo los usuarios registrados pueden escribir comentarios!

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."

 
home search