elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado:


+  Foro de elhacker.net
|-+  Sistemas Operativos
| |-+  Windows
| | |-+  Como recuperar productKey Windows
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Como recuperar productKey Windows  (Leído 883 veces)
Lekim

Desconectado Desconectado

Mensajes: 268



Ver Perfil
Como recuperar productKey Windows
« en: 9 Mayo 2016, 11:24 »

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.

Código
  1. Dim bDigitalProductID
  2. Dim bProductKey()
  3. Dim bKeyChars(24)
  4. Dim ilByte
  5. Dim nCur
  6. Dim sCDKey
  7. Dim ilKeyByte
  8. Dim ilBit
  9. ReDim Preserve bProductKey(14)
  10. Set objShell = CreateObject("WScript.Shell")
  11. bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\DigitalProductId")
  12. Set objShell = Nothing
  13. For ilByte = 52 To 66
  14. bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
  15. Next
  16. bKeyChars(0) = Asc("B")
  17. bKeyChars(1) = Asc("C")
  18. bKeyChars(2) = Asc("D")
  19. bKeyChars(3) = Asc("F")
  20. bKeyChars(4) = Asc("G")
  21. bKeyChars(5) = Asc("H")
  22. bKeyChars(6) = Asc("J")
  23. bKeyChars(7) = Asc("K")
  24. bKeyChars(8) = Asc("M")
  25. bKeyChars(9) = Asc("P")
  26. bKeyChars(10) = Asc("Q")
  27. bKeyChars(11) = Asc("R")
  28. bKeyChars(12) = Asc("T")
  29. bKeyChars(13) = Asc("V")
  30. bKeyChars(14) = Asc("W")
  31. bKeyChars(15) = Asc("X")
  32. bKeyChars(16) = Asc("Y")
  33. bKeyChars(17) = Asc("2")
  34. bKeyChars(18) = Asc("3")
  35. bKeyChars(19) = Asc("4")
  36. bKeyChars(20) = Asc("6")
  37. bKeyChars(21) = Asc("7")
  38. bKeyChars(22) = Asc("8")
  39. bKeyChars(23) = Asc("9")
  40. For ilByte = 24 To 0 Step -1
  41. nCur = 0
  42. For ilKeyByte = 14 To 0 Step -1
  43. nCur = nCur * 256 Xor bProductKey(ilKeyByte)
  44. bProductKey(ilKeyByte) = Int(nCur / 24)
  45. nCur = nCur Mod 24
  46. Next
  47. sCDKey = Chr(bKeyChars(nCur)) & sCDKey
  48. If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
  49. Next
  50. 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




« Última modificación: 9 Mayo 2016, 11:34 por Lekim » En línea

Hacelo

Desconectado Desconectado

Mensajes: 127



Ver Perfil
Re: Como recuperar productKey Windows
« Respuesta #1 en: 9 Mayo 2016, 20:08 »

Hola Lekim, si lo que tratas es de recuperar la clave de activación de tu Windows, quizás una de estas herramientas te valga.

http://foro.elhacker.net/noticias/como_recuperar_facilmente_tu_clave_de_producto_de_windows-t451986.0.html

Saludos.




En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines