#1
|
||||
|
||||
Solution Manager Key.
Se que posiblemente algunos de ustedes no tengan a la mano un solution manager, por lo que me permito el darles esta erramienta:
Toma todo el codigo y pegalo en un TXT. ********************************************************** Dim SIDs, SNs, SERVs, msg, ENDs, KEYs msg="Numero de Sistema (3 Digitos.)" SIDs=InputBox(msg,"Solution Manager Key Generator") msg="Numero de Sistema (2 Digitos.)" SNs=InputBox(msg,"Solution Manager Key Generator") msg="Nombre de servidor (Maximo. 15 Digitos.)" SERVs=InputBox(msg,"Solution Manager Key Generator") KEYs=SolManKeyGen(SIDs, SNs, SERVs) msg="Solution Manager Key" ENDs=InputBox(msg,"Solution Manager Key Generator",KEYs) '------------------------------------------------------- Function SolManKeyGen(SIDst, SNst, SERVst) Dim SIDSNhex(5) Dim SERVhex(15) Dim reshex(5) SIDSNstr = UCase(SIDst) + UCase(SNst) SERVstr = UCase(SERVst) For arrcnt = 1 To 5 SIDSNhex(arrcnt) = Asc(Mid(SIDSNstr, arrcnt, 1)) Next For arrcnt = 1 To Len(SERVstr) SERVhex(arrcnt) = Asc(Mid(SERVstr, arrcnt, 1)) Next For arrcnt = Len(SERVstr) + 1 To 15 SERVhex(arrcnt) = 0 Next If (Len(SERVstr) > 0) Then If (Len(SERVstr) < 5) Then For arrcnt = Len(SERVstr) + 1 To 5 SERVhex(arrcnt) = Asc(" ") Next End If End If If (Len(SERVstr) > 5) Then If (Len(SERVstr) < 10) Then For arrcnt = Len(SERVstr) + 1 To 10 SERVhex(arrcnt) = Asc(" ") Next End If End If If (Len(SERVstr) > 10) Then If (Len(SERVstr) < 15) Then For arrcnt = Len(SERVstr) + 1 To 15 SERVhex(arrcnt) = Asc(" ") Next End If End If For arrcnt = 1 To 5 reshex(arrcnt) = ((((0 Xor SIDSNhex(arrcnt)) Xor SERVhex(arrcnt)) Xor SERVhex(arrcnt + 5)) Xor SERVhex(arrcnt + 10)) Next reshex(1) = reshex(1) Xor 84 Xor 0 reshex(2) = reshex(2) Xor 131 Xor 11 reshex(3) = reshex(3) Xor 194 Xor 46 reshex(4) = reshex(4) Xor 52 Xor 105 reshex(5) = reshex(5) Xor 119 Xor 188 hexstr = "0123456789ABCDEF" resstr = "" For arrcnt = 1 To 5 hihex = reshex(arrcnt) \ 16 lohex = reshex(arrcnt) Mod 16 resstr = resstr + Mid(hexstr, hihex + 1, 1) + Mid(hexstr, lohex + 1, 1) Next SolManKeyGen = resstr End Function ********************************************************** Guarda el TXT y cambiale la extencion a vbs Ejemplo: tool.txt a tool.vbs Ejecutalo y listo. Dale los datos y te generara tu llave del solution manager. Úlima edición por johangonz fecha: 05/05/10 a las 02:22:31. Razón: Colocar el Post como fijo |
#2
|
|||
|
|||
Muy buen aporte...
|
#3
|
|||
|
|||
Fantastico, supongo que solo funciona para Solution Manager no????
__________________
Admin SAP-BASIS y puede con un futura persona de Branding & SEO/SEM |
#4
|
||||
|
||||
Muy buen aporte, me sirvio, muchas gracias!!
__________________
============= ==»BREZHNEV«== ============= |
#5
|
|||
|
|||
Un lujazo, gracias
__________________
SAP Basis Consultant |
#6
|
|||
|
|||
Te Sacaste un 1000! con este programita...
Gracias! Mercy! Danke! Thank You! Grazie! |
#7
|
|||
|
|||
Muyyyy Bueno
|
#8
|
||||
|
||||
JAJAJAJA... habrá que colocarlo como fijo!
__________________
Johan González CEO NW Consulting Services Siguenos en Facebook: Moderador --------------------------- |
#9
|
|||
|
|||
Eres un autentico crack tio! Y encima apoyando la comunidad! un monton de gracias!! yo tuve que instalar un SM local para poder hincharme a generar las claves para el futuro
un saludo y na vez mas gracias por el gran aporte! |
#10
|
|||
|
|||
Viejo, que excelente aporte has hecho. Muchas Gracias, fue de gran ayuda.
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|