Win8 CD-Key auslesen

[csra]

Hi,

ich habe mein Win8 von der 30€ gekauft, gedownloaded und installiert.

Nun, 3,4 Monate später wollte ich alles frisch installieren, hab auch noch die Win8 Iso aber nicht mehr den CD-Key den ich zur Installation benötige.

Ich habe dann ein Programm gefunden, das von installierten Programmen die Keys ausliest, auch für Win8.

ABER das Programm liest mir nicht den eigentlichen Win8 Key, sondern den Key den ich im nachhinein zum Upgrade auf das Media Center eingegeben habe.
Der wiederum wird von Win8 nicht zur Installation akzeptiert..

 

[schloddabrodda]

sehr gut, key kaufen und dann verlieren.

 

[Yuuri]

Du hast doch eine eMail bekommen. Da stand alles drin.

 

[AdoK]

AIDA64 runterladen und installieren.

Nach Start von AIDA64 in den Bereich Software - Lizenzen gehen und im rechten Fenster unter/ neben Internet Explorer wird dir der PK der regulären Win 8 Installation angezeigt.

 

[piepenkorn]

guckst du hier bitte.

 

[Udo Kammer]

Nach Start von AIDA64 in den Bereich Software - Lizenzen gehen und im rechten Fenster unter/ neben Internet Explorer wird dir der PK der regulären Win 8 Installation angezeigt.

Wenn das Media Center Pack installiert wurde, zeigt auch AIDA64 Extreme Edition diesen Key an. Der ursprüngliche Win8-Key ist weg. Gleiches gilt auch für den Win8Productkeyviewer.

 

[AdoK]

@ Udo Kammer

und was ist das dann?

 

[devebero]

@AMDUser

Ganz einfach. Das ist der Windows 8 Media Center Code.
Hab das eben mal bei mir geprüft. Ist nicht der eigentliche Windows 8 Pro Code.


Der Code der in dem Bild hinter Internet Expolorer steht ist der eigentliche Windows 8 Pro Code.

 

[AdoK]

Oben beim Internet Explorer steht der Original Windows 8 Key ... unten bei Media Center Edition der Media Center Key

... muss ich erst die Keys komplett zeigen damit ihrs glaubt

 

[devebero]

Nein, genau so wie du es schreibst ist es.

 

[Visceroid]

.. muss ich erst die Keys komplett zeigen damit ihrs glaubt

Ja bitte

 

[VelleX]

Bei mir steht da dummerweise

Microsoft Internet Explorer 9.10.9200.16519 BBBBB-BBBBB-BBBBB-BBBBB-BBBBB
​

 

[MagicAndre1981]

@VelleX dann hast du den Key über slmgr.vbs aus der Registry gelöscht.

 

[NiFu]

Bei mir steht da dummerweise

Microsoft Internet Explorer 9.10.9200.16519 BBBBB-BBBBB-BBBBB-BBBBB-BBBBB

dann hast du den Key über slmgr.vbs aus der Registry gelöscht.

Oder es wurde ein KMS-Key verwendet - der wird auch nicht in der Registry eingetragen.

ABER das Programm liest mir nicht den eigentlichen Win8 Key, sondern den Key den ich im nachhinein zum Upgrade auf das Media Center eingegeben habe.

Beim Upgrade auf das Media Center wird der Media Center Key an die Stelle in der Registry geschrieben, wo sonst der Windows 8 Key steht. Der Windows 8 Key wird zuvor an eine andere Stelle in der Registry kopiert.

Mit diesem Script kann man den Key auslesen wo er normalerweise steht:
HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalID

Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalID = WshShell.RegRead(key & "DigitalProductId")

ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine
ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductID = ProductName & ProductID & ProductKey

If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
   Save ProductID
End if

Function ConvertToKey(Key)
    Const KeyOffset = 52
    isWin8 = (Key(66) \ 6) And 1
    Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
    i = 24
    Chars = "BCDFGHJKMPQRTVWXY2346789"
    Do
        Cur = 0
        X = 14
        Do
            Cur = Cur * 256
            Cur = Key(X + KeyOffset) + Cur
            Key(X + KeyOffset) = (Cur \ 24)
            Cur = Cur Mod 24
            X = X -1
        Loop While X >= 0
        i = i -1
        KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
        Last = Cur
    Loop While i >= 0
    If (isWin8 = 1) Then
        keypart1 = Mid(KeyOutput, 2, Last)
        insert = "N"
        KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
        If Last = 0 Then KeyOutput = insert & KeyOutput
    End If
    a = Mid(KeyOutput, 1, 5)
    b = Mid(KeyOutput, 6, 5)
    c = Mid(KeyOutput, 11, 5)
    d = Mid(KeyOutput, 16, 5)
    e = Mid(KeyOutput, 21, 5)
    ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

Function Save(Data)
    Const ForWRITING = 2
    Const asASCII = 0
    Dim fso, f, fName, ts
    fName = "Windows Key.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile fName
    Set f = fso.GetFile(fName)
    Set f = f.OpenAsTextStream(ForWRITING, asASCII)
    f.Writeline Data
    f.Close
End Function

Mit diesem Script kann man den Key von der kopierten Stelle auslesen:
HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey\DigitalID

Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey\"
DigitalID = WshShell.RegRead(key & "DigitalProductId")


ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductID = ProductName & ProductID & ProductKey

If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
   Save ProductID
End if

Function ConvertToKey(Key)
    Const KeyOffset = 52
    isWin8 = (Key(66) \ 6) And 1
    Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
    i = 24
    Chars = "BCDFGHJKMPQRTVWXY2346789"
    Do
        Cur = 0
        X = 14
        Do
            Cur = Cur * 256
            Cur = Key(X + KeyOffset) + Cur
            Key(X + KeyOffset) = (Cur \ 24)
            Cur = Cur Mod 24
            X = X -1
        Loop While X >= 0
        i = i -1
        KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
        Last = Cur
    Loop While i >= 0
    If (isWin8 = 1) Then
        keypart1 = Mid(KeyOutput, 2, Last)
        insert = "N"
        KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
        If Last = 0 Then KeyOutput = insert & KeyOutput
    End If
    a = Mid(KeyOutput, 1, 5)
    b = Mid(KeyOutput, 6, 5)
    c = Mid(KeyOutput, 11, 5)
    d = Mid(KeyOutput, 16, 5)
    e = Mid(KeyOutput, 21, 5)
    ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

Function Save(Data)
    Const ForWRITING = 2
    Const asASCII = 0
    Dim fso, f, fName, ts
    fName = "Windows Key.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile fName
    Set f = fso.GetFile(fName)
    Set f = f.OpenAsTextStream(ForWRITING, asASCII)
    f.Writeline Data
    f.Close
End Function

 

[MagicAndre1981]

danke für die 2 Scripts. Ich probiere sie später mal aus.

 

[Udo Kammer]

@ Udo Kammer

und was ist das dann?

Anhang anzeigen 329286

Den Internet Explorer zeigt die neueste lizenzierte Version 2.80.2300 von AIDA Extreme Edition unter Lizenzen bei mir aber nicht an.

 

[devebero]

Also bei mir wird es bei AIDA64 unter Lizenzen angezeigt. Ist auch eine lizensierte Version von AIDA64 (Version 2.80.2341 Beta).

Stehen alle Lizenzen drin (Internet Explorer=Windows 8 Pro), Microsoft Windows 8 Professional with Media Center=Code vom Media Center Update, Office etc.)