Hola

Resulta que tengo un portátil el cual, en la parte inferior tiene una pegatina con el Product Key, con el tiempo se ha gastado y rasgado y el Product key se ha borrado.

El caso es que viene con unos disco y Windows Vista incluido. El Windows Vista no necesita introducir ningún código de producto pues éste está vinculado al portátil y detecta automáticamente si se está instalando en dicho portátil. Si se instala en otro ordenador demanda activación. Este windows si se instala en el portátil no necesita activación pues como he dicho ya detecta que sea el portátil en cuestión.

Yo supongo que el el Código de producto se encuentra en los archivos de instalación del Windows Vista. Pero los archivos están todos en modo binario y no hay forma de leer nada.

¿Hay alguna forma de recuperarlo?

---

He encontrado este código de VB6 para obtener el código, y lo consigo pero no es el mismo que hay en la parte inferior, ya que puedo leer parte y no es igual. He actualizado el sistema, supongo que al hacerlo cambia o algo, no se.

Dim bDigitalProductID
Dim bProductKey()
Dim bKeyChars(24)
Dim ilByte
Dim nCur
Dim sCDKey
Dim ilKeyByte
Dim ilBit
ReDim Preserve bProductKey(14)
Set objShell = CreateObject("WScript.Shell")
bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\DigitalProductId")
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 ilKeyByte = 14 To 0 Step -1
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next
sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next
MsgBox sCDKey

[fuente]
http://foro.elhacker.net/hacking_avanzado/como_puedo_recuperar_el_numero_de_serie_de_windows_7_de_un_disco_danado-t367412.0.html