如何自己生成SolutionManagerKey.docVIP

如何自己生成 Solution Manager Key今天偶然得到一个程序，是用来生成 Solution Manager Key 的，有了它，以后装 ECC 版的 SAP 软件就不用到处找人了。*&-*&ReportZSLMKEY*&*&-*&*&*&-*REPORTZSLMKEY.types:beginofdswpclientkey,INSTNOtypenum10,DBID(3),BUNDLE_ID(8),SERVICE_KEY(40),endofdswpclientkey.*data:dswpclientkey_wtypestandardtableofdswpclientkey.DATA:P_VALUE(10),P_INSTNO(10).PARAMETERS:P_SID(3),P_SYSNO(2),P_SERVER(15).START-OF-SELECTION.PERFORMGET_SP_VALUEUSINGP_SIDP_SYSNOP_SERVERP_INSTNOCHANGINGP_VALUE.END-OF-SELECTION.WRITEP_VALUE.*&-*&Formget_sp_value*&-*text*-*-P_PF_SIDtext*-P_PF_SYSNOtext*-P_PF_SERVERtext*create(encoding=1100).lf_len=STRLEN(lf_string).IFlf_string(lf_len)CNlc_allowed_chars.else.*Foldtheinputstringtoalc_part_lenlongstringWHILElf_len0.lf_part=lf_string(lc_part_len).SHIFTlf_stringBYlc_part_lenPLACES.lf_len=STRLEN(lf_string).CALLMETHODlo_conv_to_x-reset.CALLMETHODlo_conv_to_x-write(data=lf_partn=-1).lf_xbuffer=lo_conv_to_x-get_buffer().lf_finalx=lf_finalxBIT-XORlf_xbuffer.ENDWHILE.lf_key=12.PERFORMscrambleUSINGlf_finalxlf_keylc_part_lenCHANGINGlf_finalflf_subrc.ifnotlf_finalfisinitial.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.ifnotp_pf_instnoisinitial.*insertdswpclientkey_wfromls_key.ifsy-subrc0.*updatedswpclientkey_wfromls_key.endif.endif.else.clearp_pf_value.endif.endif.ENDFORM.get_sp_value*&-*&Formscramble*&-*text*-*-P_LF_FINALXtext*-P_LF_KEYtext*-P_LC_PART_LENtext*-P_LF_finalftext*-P_LF_SUBRCtext*-*FORMscrambleUSINGiv_xstringTYPExstringiv_keyTYPEiiv_src_lenTYPEiCHANGINGlf_finalflf_subrcLIKEsy-subrc.CONSTANTS:lc_max_lenTYPEiVALUE20,lc_mask(4)TYPExVALUE0000003F,lc_random(64)TYPExVALUEF0ED53B83244F1F876C67959FD4F13A2&C15195EC5483C234774943A27DE26596&5E5398789A17A33CD383A8B829FBDCA5&55D702778413ACDDF9B83116610E6DFA.DATA:lv_key_index(4)TYPEx,lv_rand_index(4)TYPEx,lv_xkey(4)TYPEx,lv_xkey_shl_1(4)TYPEx,lv_xkey_shr_5(4)TYPEx,lv_scramble_byteTYPEx,lv_dest(lc_max_len)TYPEx,lv_indexTYPEi,lv_lenTYPEi.CLEARlf_subrc.IFiv_src_lenEQ0.EXIT.ENDIF.lv_len=XSTRLEN(iv_xstring).IFiv_src_lenGTlc_max_lenORiv_src_lenGTlv_len.lf_subrc=2.EXIT.ENDIF.lv_xkey=iv_key.lv_xkey_shl_1=iv_key*2.lv_xkey_shr_5=iv_keyDIV32.lv_rand_index=lv_xkeyBIT-XORlv_xkey_shr_5BIT-XORlv_xkey_shl_1.lv_rand_index=lv_rand_indexBIT-ANDlc_mask.lv_index=0.DOiv_src_lenTIMES.CATCHSYSTEM-EXCEPTIONScompute_int_times_overflow=1.lv_key_index=(iv_key*lv_index*lv_index)-lv_index.ENDCATCH.IFsy-subrc0.lf_subrc=1.EXIT.ENDIF.lv_scramble_byte=lc_random+lv_rand_index(1)BIT-XORlv_key_index+3(1).lv_dest+lv_index(1)=iv_xstring+lv_index(1)BIT-XORlv_scramble_byte.lv_index=lv_index+1.lv_rand_index=lv