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.