Keyfinder zeigt nur Key vom Media Center an und nicht den Win 8 Key

c-mate · 31. Januar 2013

Hi,

ich habe Win 8 (Update Version) installiert --> Serial 1
Danach das Media Center --> Serial 2

Wenn ich den Windows 8 Product Key Viewer laufen lasse, dann wird nur Serial 2 angezeigt und nicht der Key der Win 8 Installation (Serial 1).
Das gleiche mit dem Magical Jelly Bean Keyfinder.

Ist das so korreckt bzw wie kann ich den installierten Windows 8 Product Key anzeigen lassen?

zickzack · 31. Januar 2013

Soweit ich weiss, ist das so korrekt.
Du hast quasi die Windows 8 Pro Media Center Edition ;-)

c-mate · 31. Januar 2013

Und wenn ich dann Win 8 neu installieren müsste, welchen Key nehme ich denn dann?
Wieder erst den Win 8 Product Key und danach das Media Center über Features hinzufügen und dem dazugehörigen Key oder nehme ich von Anfang an den Key des Media Center, also auch für die Win 8 Installation?

Wenn ich zb mit einer älteren version des Keyfinders checke, dann wird mir ein ganz "neuer" (bisher unbekannter) Key angezeigt und da lautet die Bezeichnung tatsächlich "Windows 8 Pro with Media Center"

Cool Master · 31. Januar 2013

Evtl. sind die Programme einfach noch nicht auf WIn 8 abgestimmt?

Mumpitzelchen · 31. Januar 2013

Der Magical Jelly Bean Keyfinder funktioniert unter Windows 8 nicht. Er zeigt Dinge an die wie Keys aussehen aber keine sind.

zickzack · 31. Januar 2013

c-mate schrieb:
Und wenn ich dann Win 8 neu installieren müsste, welchen Key nehme ich denn dann?
Wieder erst den Win 8 Product Key und danach das Media Center über Features hinzufügen und dem dazugehörigen Key oder nehme ich von Anfang an den Key des Media Center, also auch für die Win 8 Installation?

Ich habe es noch nicht ausprobiert, aber ich würde den Key vom Media Center nehmen. Mit diesem ist dein Windows (meins auch) bei MS registriert. Im Fall einer Ablehnung, dann eben erst den Win8 Key und danach Feature hinzufügen.

AdoK · 31. Januar 2013

Durch den Key der WMC-Edition wird der Key von Windows 8 ersetzt.

MJBK zeigt so was an, was wie ein Product-Key aussieht, es ist aber nicht der Key, der im System hinterlegt ist. Es sei denn die Jungs, die MJBK programmieren, haben das mittlerweile geändert. Bis vor kurzem konnte MJBK das jedenfalls (noch) nicht.

c-mate · 31. Januar 2013

Mumpitzelchen schrieb:
Der Magical Jelly Bean Keyfinder funktioniert unter Windows 8 nicht. Er zeigt Dinge an die wie Keys aussehen aber keine sind.

Mhm also bei mir zeigt er (Version 2.0.9.8) einen existierenden Key an und zwar den vom Media Center.

Schildkröte09 · 31. Januar 2013

Der Produkt Key von Windows 8 Pro ist aber aus dem System noch nicht ganz verschwunden.
AIDA 64 listet den originalen Produkt Key einer nicht vorinstallierten Windows Version, unter Software > Lizenzen > Microsoft Internet Explorer auf.
Eine neue Installation von Windows 8 Pro geht nur mit dem originalen Pro Key und muss anschließend auch wieder aktiviert werden. Dann erst: Features hinzufügen > Media Key und erneute Aktivierung.

Viele Grüße

NiFu · 1. Februar 2013

c-mate schrieb:
Wenn ich den Windows 8 Product Key Viewer laufen lasse, dann wird nur Serial 2 angezeigt und nicht der Key der Win 8 Installation (Serial 1).

Der Key ist "normalerweise" hier - leicht verschlüsselt - in der Registry gespeichert:

Code:

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\
"DigitalProductId"

Von dieser Stelle lesen ihn alle Keyfinder aus. Installiert man den WMC-Key wird dieser Registry-Eintrag überschrieben. Deshalb lesen die Keyfinder dann den WMC-Key aus.

Zusätzlich ist der Original-Key auch noch hier gespeichert:

Code:

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey\
"DigitalProductId"

Der WMC-Key wird zusätzlich auch noch hier in der Registry gespeichert:

Code:

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey2\
"DigitalProductId"

Hier mal drei Script-Dateien mit denen man den Key aus den drei Fundstellen auslesen kann:

Key aus "CurrentVersion\DigitalProductId":

Code:

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

Key aus "CurrentVersion\DefaultProductKey\DigitalProductId":

Code:

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

Key aus "CurrentVersion\DefaultProductKey2\DigitalProductId":

Code:

Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey2\"
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

VelleX · 4. Februar 2013

Also der key der bei mir bei "DefaultProductKey" ausgelesen wird ist irgendwie der Standard ProfessionalWMC Key von Microsoft.

Suche

Keyfinder zeigt nur Key vom Media Center an und nicht den Win 8 Key

c-mate

Rear Admiral

zickzack

Lt. Junior Grade

c-mate

Rear Admiral

Cool Master

Fleet Admiral

Mumpitzelchen

Gast

zickzack

Lt. Junior Grade

AdoK

Gast

c-mate

Rear Admiral

Schildkröte09

Admiral

NiFu

Lt. Junior Grade

VelleX

Vice Admiral

Ähnliche Themen

Passend zum Thema

Noch nicht ausgestorben Heute vor 10 Jahren erhielt Windows XP das letzte Update

Windows Update Neues Projekt bringt Windows 95 bis XP auf den neusten Stand

8GadgetPack 35.0 Gadgets von Windows Vista unter Windows 11 nutzen