can you pm it to me? I really need to know my product key, i have no other way of retrieving it.Yes there is but I don't know if I can tell you on this forum.
can you pm it to me? I really need to know my product key, i have no other way of retrieving it.Yes there is but I don't know if I can tell you on this forum.
Some older keyfinder use the old decryption method which don't fit to Windows 8.Interesting, the key shown by Magic Jellybean Keyfinder does not match the key I was given by Microsoft, which is also the key I entered during the install. I guess that is no longer a valid way to find a product key.
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
Not with retail keys, but only with MAK and KMS keys.By activating the product code, code is replaced with a non-usable code.
Wait, so I've recently got the free code, Will that be my product key for now on? sorry just making sureOn a related note, if you took Microsoft's offer of a free code to add Windows Media Center to Windows 8 Pro, your OS will now report its activation code as the new code Microsoft emailed to you for WMC.
I know this thread is already "solved" but I felt that this should be mentioned.... Piriform Speccy is able to pull up your original product key that was used to install windows. It is free and it's simple to use. Open it, and click the "OS" tab on the left and the "serial number" will come up that states your original product key that was used to install Windows 8. This isn't the key that is used to add the Media Center Pack, which is in the attached screen shot that shows the last 5 digits of that key.... Reference the screenshots, and I hope this also helps future users with this issue!
Belarc Advisor will show the key in it's data display.