abap-产生 SAP 的 solution manage key

*&---------------------------------------------------------------------* 
*& Report  Z_XL_SLMK 
*& 
*&---------------------------------------------------------------------* 
*& 
*& 
*&---------------------------------------------------------------------* 

REPORT   Z_XL_SLMK.

                            .
PARAMETERS : P_SID(3 ) TYPE  C ,
             P_SYSNO(2 ),
             P_SERVER(10 ),
             P_INSTNO(10 ).
DATA :
   P_PF_SID(3 ),    " SID of SAP system 
   P_PF_SYSNO(2 ),  " Central Instance Number 
   P_PF_SERVER(10 ), " Message Server Host Name, Less than 10 chars 
   P_PF_INSTNO(10 ), " Installation Number 
   P_PF_VALUE(20 ).  " SolMan Key for installation and upgrade 
 start-of -SELECTION.
   P_PF_SID = P_SID.
   P_PF_SYSNO = P_SYSNO.
   P_PF_SERVER = P_SERVER .
   P_PF_INSTNO = P_INSTNO .
   PERFORM  get_sp_value USING  P_PF_SID
                            P_PF_SYSNO
                            P_PF_SERVER
                            P_PF_INSTNO
                   CHANGING  P_PF_VALUE.
   WRITE : / 'KEY:'  , P_PF_VALUE .
FORM  get_sp_value USING     P_PF_SID
                            P_PF_SYSNO
                            P_PF_SERVER
                            P_PF_INSTNO
                   CHANGING  P_PF_VALUE.
   CONSTANTS : lc_part_len TYPE  i  VALUE  5 ,
              lc_pw_len   TYPE  i  VALUE  10 ,
              lc_allowed_chars(38 ) TYPE  c  VALUE 
              '-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_' .

   data : lf_string(20 )        type  c ,
         lf_key               type  i ,
*        ls_key               type dswpclientkey, 
         lf_part(lc_part_len) type  c ,
         lf_finalf(lc_pw_len) type  c ,
         lf_finalx            type  xstring,
         lf_xbuffer           type  xstring,
         lf_opf(10 )           type  c ,
         lf_langu             like  sy-langu,
         lf_subrc             like  sy-subrc,
         lf_len               type  i ,
         lo_conv_to_x         TYPE  REF  TO  cl_abap_conv_out_ce.
   clear : lf_string, lf_finalx, lf_opf.
   concatenate  p_pf_sid p_pf_sysno p_pf_server into  lf_string.
* Large letters only 
   translate  lf_string to  upper  case .
   lf_langu = sy-langu.
   SET  LOCALE  LANGUAGE  'E' .
   lo_conv_to_x = cl_abap_conv_out_ce=>create( encoding  = '1100'  ).
   lf_len = STRLEN ( lf_string ).
   IF  lf_string(lf_len) CN  lc_allowed_chars.
   else .
* Fold the input string to a lc_part_len long string 
     WHILE  lf_len > 0 .
       lf_part = lf_string(lc_part_len).
       SHIFT  lf_string BY  lc_part_len PLACES .
       lf_len = STRLEN ( lf_string ).
       CALL  METHOD  lo_conv_to_x->reset.
       CALL  METHOD  lo_conv_to_x->write( data  = lf_part n = -1  ).
       lf_xbuffer = lo_conv_to_x->get_buffer( ).
       lf_finalx = lf_finalx BIT -XOR  lf_xbuffer.
     ENDWHILE .
     lf_key = 12 .
     PERFORM  scramble USING       lf_finalx
                                 lf_key
                                 lc_part_len
                        CHANGING  lf_finalf
                                 lf_subrc.
      if  lf_subrc EQ  0  .
        p_pf_value = lf_finalf .
      endif .
*    if not lf_finalf is initial. 
*      p_pf_value = lf_finalf. 
*      ls_key-dbid        = p_pf_sid. 
*      ls_key-instno      = p_pf_instno. 
*      ls_key-bundle_id   = 'SM_KEY'. 
*      ls_key-service_key = lf_finalf. 
*      if not p_pf_instno is initial. 
*        insert dswpclientkey from ls_key. 
*        if sy-subrc <> 0. 
*          update dswpclientkey from ls_key. 
*        endif. 
*      endif. 
*    else. 
*      clear p_pf_value. 
*    endif. 
   endif .
ENDFORM .                    " get_sp_value 
FORM  scramble USING     iv_xstring TYPE  xstring
                        iv_key TYPE  i 
                        iv_src_len TYPE  i 
               CHANGING  lf_finalf
                        lf_subrc LIKE  sy-subrc.
   CONSTANTS : lc_max_len    TYPE  i  VALUE  20 ,
              lc_mask(4 )    TYPE  x  VALUE  '0000003F' ,
              lc_random(64 ) TYPE  x  VALUE 
                       'F0ED53B83244F1F876C67959FD4F13A2'  &
                       'C15195EC5483C234774943A27DE26596'  &
                       '5E5398789A17A33CD383A8B829FBDCA5'  &
                       '55D702778413ACDDF9B83116610E6DFA' .
   DATA : lv_key_index(4 )  TYPE  x ,
         lv_rand_index(4 ) TYPE  x ,
         lv_xkey(4 )       TYPE  x ,
         lv_xkey_shl_1(4 ) TYPE  x ,
         lv_xkey_shr_5(4 ) TYPE  x ,
         lv_scramble_byte TYPE  x ,
         lv_dest(lc_max_len) TYPE  x ,
         lv_index         TYPE  i ,
         lv_len           TYPE  i .

   IF  iv_src_len EQ  0 . EXIT . ENDIF .
   lv_len = XSTRLEN ( iv_xstring ).
   IF  iv_src_len GT  lc_max_len OR 
      iv_src_len GT  lv_len.
     lf_subrc = 2 .
     EXIT .
   ENDIF .
   lv_xkey       = iv_key.
   lv_xkey_shl_1 = iv_key * 2 .
   lv_xkey_shr_5 = iv_key DIV  32 .
   lv_rand_index = lv_xkey BIT -XOR  lv_xkey_shr_5 BIT -XOR  lv_xkey_shl_1.
   lv_rand_index = lv_rand_index BIT -AND  lc_mask.
   lv_index = 0 .
   DO  iv_src_len TIMES .
     CATCH  SYSTEM-EXCEPTIONS  compute_int_times_overflow = 1 .
       lv_key_index = ( iv_key * lv_index * lv_index ) - lv_index.
     ENDCATCH.
     IF  sy-subrc <> 0 .
       lf_subrc = 1 .
       EXIT .
     ENDIF .
     lv_scramble_byte = lc_random+lv_rand_index(1 ) BIT -XOR 
                        lv_key_index+3 (1 ).
     lv_dest+lv_index(1 ) = iv_xstring+lv_index(1 ) BIT -XOR 
                           lv_scramble_byte.
     lv_index = lv_index + 1 .
     lv_rand_index = lv_rand_index + 1 .
     lv_rand_index = lv_rand_index BIT -AND  lc_mask.
   ENDDO .
   IF  lf_subrc <> 0 .
     EXIT .
   ENDIF .
   WRITE  lv_dest(iv_src_len) TO  lf_finalf.
ENDFORM