COMO VER / SACAR / EXTRAER LA CLAVE DE INSTALACION DE WINDOWS

Para ver la clave de Windows:

- Abri­mos el Bloc de Notas
— Escribi­mos el sigu­iente texto:

Dim bDig­i­tal­Pro­duc­tID
Dim bPro­duc­tKey()
Dim bKeyChars(24)
Dim ilByte
Dim nCur
Dim sCD­Key
Dim ilKey­Byte
Dim ilBit
ReD­im Pre­serve bProductKey(14)
Set objShell = CreateObject("WScript.Shell")
bDig­i­tal­Pro­duc­tID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\Digital\ProductId")
Set objShell = Nothing
For ilByte = 52 To 66
bProductKey(ilByte — 52) = bDigitalProductID(ilByte)
Next
bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars(8) = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(18) = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")
For ilByte = 24 To 0 Step ‑1
nCur = 0
For ilKey­Byte = 14 To 0 Step ‑1
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next
sCD­Key = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCD­Key = "-" & sCDKey
Next
Msg­box sCDKey

- Lo guardamos con el nom­bre que quer­amos, pero es imor­tante que la exten­sión sea ".vbs", por ejem­p­lo: win_key.vbs
— Hace­mos doble-click sobre el archi­vo guarda­do y nos dará la clave de windows.

Nota: Si quer­e­mos saber cual es la ver­sión de Win­dows que ten­emos, eje­cu­tan­do el coman­do win­ver nos lo dirá.

¿Cómo podemos ver la clave de insta­lación de Win­dows de un orde­nador que no car­ga Win­dows pero el orde­nador se enciende?

- Nece­sitare­mos un Win­dows MiniPE (es un win­dows que car­ga a trav­es de un CD), por ejem­p­lo, el Hiren's Boot CD 13.2 incluye un Mini Win­dows XP que nos servirá, lo grabamos en un CD.
— Arran­camos el orde­nador des­de el CD y selec­cionamos Mini Win­dows XP (esper­amos un poco has­ta que cargue)
— Eje­cuamos el sigu­iente coman­do para car­gar el reg­istro referi­do a nue­stro sis­tema de nue­stro windows:
reg load HKLM\TEMP c:\windows\system32\configs\ystem
— Abri­mos el Bloc de Notas y escribi­mos el mis­mo tex­to que en el aparta­do de arri­ba excep­to una lin­ea que ten­emos que sustituir:

Susti­tu­imos:
bDig­i­tal­Pro­duc­tID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\Digital\ProductId")

Por:
bDig­i­tal­Pro­duc­tID = objShell.RegRead("HKEY_LOCAL_MACHINE\TEMP\WPA\Key-4F3B2R­FXKC9C637882MBM\Digital\ProductId")

- Lo guardamos con el nom­bre que quer­amos, pero es imor­tante que la exten­sión sea ".vbs", por ejem­p­lo: win_key.vbs
— Hace­mos doble-click sobre el archi­vo guarda­do y nos dará la clave de windows.
— Para dejar de leer el reg­istro de nue­stro win­dows eje­cu­ta­mos este comando:
reg unload HKLM\TEMP

Nota: Ésta parte de la línea Key-4F3B2R­FXKC9C637882MBM cor­re­sponde a una car­pe­ta en el reg­istro que varía en cada insta­lación de Win­dows, para saber el nom­bre de nues­tra car­pe­ta y saber la línea exacta:

- Eje­cu­ta­mos el coman­do reged­it para abrir el registro
— Nos vamos a la ruta HKEY_LOCAL_MACHINE\TEMP\WPA
— Ahí encon­traremos el nom­bre exac­to de nues­tra carpeta.