(ayuda) product key de windows

[Karcrack]

XCryptor, no cortes los creditos de Cobein...

Siempre lo hace

que pena no seleccione el codigo bien, ademas  dice: este codigo es de Cobein, no lo ves ahi muy claro, y ya modifique el source. y para ricardovinzo a ver donde he ripeado codigo, muestramelo quiero ver algun post donde haya ripeado codigo o donde no haya colocado al autor.

no puedes decirlo sin pruebas.

saludos

PD: y esto es lo que uno se gana por querer colaborar que le digan code ripper o script kiddie !al carajo¡ 

Nadie dijo que lo hicieras intencionado no?

[guidosl]

alguien sabe a aprtir del codigo q me paso xkiz  en donde se introduce la nueva key?¿?¿

Public Sub NewSerial(VOL_PROD_KEY As String)
'Dim VOL_PROD_KEY As String
Dim Obj As Object
Dim result As Variant
    VOL_PROD_KEY = UCase(VOL_PROD_KEY)
    VOL_PROD_KEY = Replace(VOL_PROD_KEY, "-", "") 'remove hyphens if any
    For Each Obj In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
    result = Obj.SetProductKey(VOL_PROD_KEY)
    Next
End Sub

o algun otro codigo para cambiar la clave?



gracias

[Dessa]

si ya se, hice un programa para cambiar el serial de XP, y se que en esa clave no esta el serial de XP, esa clave OOBETimer se usa para otra cosa. solo que no se si puedo poner el codigo aca. busca en Planet Source code que hay vas a encontrar lo que buscas

Hola xkis, ahora me pusiste en la duda, no se puede cambiar el serial de windows ???... si es así porque Microsof dejaría msoobe.exe /a en system32\oobe...  

PD: alguien sabe si es legal cambiar el serial de windows ???

 

[guidosl]

sisi se puede

Citar
ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
   Wscript.echo "Script can't run without VolumeProductKey argument"
   Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
   Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err <> 0 then
      WScript.Echo Err.Description, "0x" & Hex(Err.Number)
      Err.Clear
   end if

Next


y se usa asi

Citar
1. guardar el scrit en c:\changevlkeysp1.vbs
2. Haga clic en Inicio y, a continuación, haga clic en Ejecutar.
   3. En el cuadro Abrir, escriba el comando siguiente, donde AB123-123AB-AB123-123AB-AB123 es la nueva clave del producto que desea utilizar y haga clic en Aceptar:
      c:\changevlkeysp1.vbs ab123-123ab-ab123-123ab-ab123

asi lo cambie yo


ademas de q tengo 2 programas q te lo hacen


lo q quiero es incluir en mi progama tmb esa opcion



ante tu duda con "msoobe" lo q te peudo decir es q al alterar algun valor de esa clave de registro el asistente para activar windows se volvera a activa y te permitira cambiar la clave, sino t va a decir: "su windows ya esta activado" y no t va a dejar hacer ninguna accion

la key de windows se encuentra en otra clave de registro

y debe ser legal porque hasta en la pagina de microsoft hay explicadas formas de como cambiar la clave


saludos

[Novlucker]

Código (vb) [Seleccionar] Expandir

Public Sub NewSerial(VOL_PROD_KEY As String)
'Dim VOL_PROD_KEY As String
'El valor de la key se le pasa como parámetro
Dim Obj As Object
Dim result As Variant
    VOL_PROD_KEY = UCase(VOL_PROD_KEY)
'Se cambian las letras/numeros a mayusculas
    VOL_PROD_KEY = Replace(VOL_PROD_KEY, "-", "") 'remove hyphens if any
'Se reemplazan los guiones "altos"
    For Each Obj In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
'Se utiliza WMI para acceder a la clase correspondiente
    result = Obj.SetProductKey(VOL_PROD_KEY)
'Se cambia la key de win y se almacena el resultado en una variable
    Next
End Sub

Saludos

[guidosl]

y pero en q parte ponemos la nueva keyy??¿

aparte cuando llamo a la rutina me dice

el valor no es opcional

no entiendo :S

[Dessa]

sisi se puede

Sí guidos, ya se que se puede, quería saber si es legal cambiarlo ???

[guidosl]

y debe ser legal porque hasta en la pagina de microsoft hay explicadas formas de como cambiar la clave

[Novlucker]

y pero en q parte ponemos la nueva keyy??¿
no entiendo :S

Hás leído algo de lo que he completado? Tercera línea 

'El valor de la key se le pasa como parámetro

Por que no va a ser legal? puedes comprar otra y cambiar la actual 

[guidosl]

ya esta graciassss!!!!



otra consultita alguien sabe como hacer apra q cuando se complete la cantidad maxima de caracteres q acepta un textbox se pase directamente al textbox siguiente para seguir escribiendo??

gracias