如何自己生成 Solution Manager Key

 

今天偶然得到一个程序，是用来生成 Solution Manager Key 的，有了它，以后装 ECC 版的 SAP 软件就不用到处找人了。



*&---------------------------------------------------------------------*


*& Report  ZSLMKEY


*&


*&---------------------------------------------------------------------*


*&


*&


*&---------------------------------------------------------------------*




REPORT  ZSLMKEY.




types: begin of dswpclientkey,


         INSTNO type num10,


         DBID(3),


         BUNDLE_ID(8),


         SERVICE_KEY(40),


       end of dswpclientkey.


*data: dswpclientkey_w type standard table of dswpclientkey.


DATA: P_VALUE(10),


      P_INSTNO(10).




PARAMETERS: P_SID(3),


             P_SYSNO(2),


             P_SERVER(15).




START-OF-SELECTION.


  PERFORM GET_SP_VALUE USING P_SID


                             P_SYSNO


                             P_SERVER


                             P_INSTNO


                    CHANGING P_VALUE.




END-OF-SELECTION.


  WRITE P_VALUE.


*&---------------------------------------------------------------------*


*&      Form  get_sp_value


*&---------------------------------------------------------------------*


*       text


*----------------------------------------------------------------------*


*      -->P_PF_SID  text


*      -->P_PF_SYSNO  text


*      -->P_PF_SERVER  text


*      <--P_PF_VALUE  text


*----------------------------------------------------------------------*


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 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_w from ls_key.


        if sy-subrc <> 0.


*          update dswpclientkey_w from ls_key.


        endif.


      endif.


    else.


      clear p_pf_value.


    endif.


  endif.


ENDFORM.                    " get_sp_value


*&---------------------------------------------------------------------*


*&      Form  scramble


*&---------------------------------------------------------------------*


*       text


*----------------------------------------------------------------------*


*      -->P_LF_FINALX  text


*      -->P_LF_KEY  text


*      -->P_LC_PART_LEN  text


*      <--P_LF_finalf  text


*      <--P_LF_SUBRC  text


*----------------------------------------------------------------------*


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.




  CLEAR lf_subrc.




  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.                    " scramble