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.
Código
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