Anuncio

Colapsar
No hay anuncio todavía.

Obtener el ProductKey de WIndows así como otra informacion relevante del sistema.

Colapsar
X
 
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes

  • Obtener el ProductKey de WIndows así como otra informacion relevante del sistema.

    Crearos con el notepad un archivo con extensión .vbs, por ejemplo ProductKey.vbs y ponerle el siguiente contenido:

    Código:
    Option Explicit
      Dim objshell,path,DigitalID, Result
    Set objshell = CreateObject("WScript.Shell")
    'Set registry key path
    Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
    'Registry key value
    DigitalID = objshell.RegRead(Path & "DigitalProductId")
    Dim wshShell,strRegValue,strHostName
    Set wshShell = CreateObject("WScript.Shell")
    strRegValue = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname"
    strHostName = wshShell.RegRead (strRegValue)
    Dim ProductName,ProductID,ProductKey,ProductData,HostName,BuildLab,BuildLabEx,CurrentBuildNumber,EditionID
    'Get ProductName, ProductID, ProductKey
    ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
    ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
    ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
    BuildLab = "BuildLab: " & objshell.RegRead(Path & "BuildLab")
    BuildLabEx = "BuildLabEx: " & objshell.RegRead(Path & "BuildLabEx")
    CurrentBuildNumber = "CurrentBuildNumber: " & objshell.RegRead(Path & "CurrentBuildNumber")
    EditionID = "EditionID: " & objshell.RegRead(Path & "EditionID")
    HostName = "HostName: " & strHostName
    ProductData = ProductName  & vbNewLine & ProductID  & vbNewLine & ProductKey  & vbNewLine &  HostName& vbNewLine &  BuildLab & vbNewLine &  BuildLabEx & vbNewLine &  CurrentBuildNumber & vbNewLine &  EditionID
    'Show messbox if save to a file
    If vbYes = MsgBox(ProductData  & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
       Save ProductData
    End If
       
      'Convert binary to chars
    Function ConvertToKey(Key)
        Const KeyOffset = 52
        Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
        'Check if OS is Windows 8
        isWin8 = (Key(66) \ 6) And 1
        Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
        i = 24
        Maps = "BCDFGHJKMPQRTVWXY2346789"
        Do
            Current= 0
            j = 14
            Do
               Current = Current* 256
               Current = Key(j + KeyOffset) + Current
               Key(j + KeyOffset) = (Current \ 24)
               Current=Current Mod 24
                j = j -1
            Loop While j >= 0
            i = i -1
            KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
            Last = Current
        Loop While i >= 0
        keypart1 = Mid(KeyOutput, 2, Last)
        insert = "N"
        KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
        If Last = 0 Then KeyOutput = insert & KeyOutput
        ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
      
       
    End Function
    'Save data to a file
    Function Save(Data)
        Dim fso, fName, txt,objshell,UserName
        Set objshell = CreateObject("wscript.shell")
        'Get current user name
        UserName = objshell.ExpandEnvironmentStrings("%UserName%")
    Dim wshShell,strRegValue,strHostName
    Set wshShell = CreateObject("WScript.Shell")
    strRegValue = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname"
    strHostName = wshShell.RegRead (strRegValue)
        'Create a text file on desktop
        fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo_" & strHostName & ".txt"
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set txt = fso.CreateTextFile(fName)
        txt.Writeline Data
        txt.Close
    End Function
    Lo ejecutáis y veis el resultado.

  • #2
    Un sencillo programa para ver la clave de windows. Antes estaba almacenada en claro, ahora está un poco más "ofuscada". Así no hay que depender de utilidades de terceros para verlo. Creo que en Nirsoft hay alguna.

    Comentario


    • #3
      Originalmente publicado por NostromoADF Ver Mensaje
      Un sencillo programa para ver la clave de windows. Antes estaba almacenada en claro, ahora está un poco más "ofuscada". Así no hay que depender de utilidades de terceros para verlo. Creo que en Nirsoft hay alguna.
      El ProduKey.:
      http://www.nirsoft.net/utils/product_cd_key_viewer.html
      Aunque solo las Keys, el de Jose da la build.

      Comentario


      • #4
        Originalmente publicado por noSign Ver Mensaje

        El ProduKey.:
        http://www.nirsoft.net/utils/product_cd_key_viewer.html
        Aunque solo las Keys, el de Jose da la build.
        Y sin programa

        Comentario


        • #5
          Que funciona muy bien. Gracias Jose

          Comentario


          • #6
            En un W10 activado con key del 7, la key que sale es totalmente diferente de la de activación. Y en un W7 salen diferentes los dos primeros grupos: original(HY9K3-K3PX3...) y productkey(Y9K3K-N3PX3...), el resto coincide.
            Saludos
            Javier López

            Comentario


            • #7
              Originalmente publicado por javier Ver Mensaje
              En un W10 activado con key del 7, la key que sale es totalmente diferente de la de activación. Y en un W7 salen diferentes los dos primeros grupos: original(HY9K3-K3PX3...) y productkey(Y9K3K-N3PX3...), el resto coincide.
              ¿y que sale con esto?
              http://www.nirsoft.net/utils/product_cd_key_viewer.html

              Comentario


              • #8
                En el W7 sale la instalada (HY9K3...), y en el W10 sale la misma que con el tuyo, diferente de la de instalación.
                Saludos
                Javier López

                Comentario


                • #9
                  Originalmente publicado por javier Ver Mensaje
                  En el W7 sale la instalada (HY9K3...), y en el W10 sale la misma que con el tuyo, diferente de la de instalación.
                  Lo del W10 lo entiendo porque lo que hacen es aceptar la tuya, pero te asignan una de W10...

                  Pero lo del w7 no lo entiendo...el algoritmo es el mismo...

                  Comentario


                  • #10
                    Por si da pistas, el W10 es virtual y el W7 real de 64. En un W7 virtual de 32 instalado con la misma key sale lo mismo que en real.
                    Saludos
                    Javier López

                    Comentario


                    • #11
                      Originalmente publicado por javier Ver Mensaje
                      Por si da pistas, el W10 es virtual y el W7 real de 64. En un W7 virtual de 32 instalado con la misma key sale lo mismo que en real.
                      joer...es que no lo repito...

                      Comentario


                      • #12
                        ¿no te pasa a ti o a alguien lo mismo?... es una key de TechNet, de aquellos grupos... :-P
                        Saludos
                        Javier López

                        Comentario


                        • #13
                          Originalmente publicado por javier Ver Mensaje
                          ¿no te pasa a ti o a alguien lo mismo?... es una key de TechNet, de aquellos grupos... :-P
                          Ya no uso W7...tengo alguna reliquia en virtual pero no se que clave le puse en su día. A ver si instalo uno y lo pruebo.

                          Comentario


                          • #14
                            Muy bueno. Gracias JM.
                            ​Larrocha









                            Comentario

                            Trabajando...
                            X