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.:cool: |
Muy buen aporte...
|
Fantastico, supongo que solo funciona para Solution Manager no????
|
Muy buen aporte, me sirvio, muchas gracias!!
|
Un lujazo, gracias
|
Te Sacaste un 1000! con este programita...
Gracias! Mercy! Danke! Thank You! Grazie!:D |
Muyyyy Bueno
|
JAJAJAJA... habrá que colocarlo como fijo! :D
|
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 :D
un saludo y na vez mas gracias por el gran aporte! |
Viejo, que excelente aporte has hecho. Muchas Gracias, fue de gran ayuda.
|
Husos Horarios son GMT. La hora en este momento es 12:10:14. |
www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web