How to get the Windows product key without using third party software

[emerglines]

this shows the current os product keys u're running on. Which is not what i wanted! I want the keys which is found or written at the buttom of the pc. Still searching... Sent an email to winaero.

The key that appears is just the same key i can find in any recovery tool, you can't recover the key before the one you did instal by using windows loader, which means you just try to get it in a different way.

Oh really? So u're trying to tell me that i can use the windows loader tool to get my old windows keys on pc before using the upgrade key? That will be nice...

I say you can't recover the old key if you use windows loader it means you will get a modified key not the one that MS install in the first time in your computer

I know all about this; but my problem is the genuineity of the os. what if MS finds out?

You will pay for another key i don't remember how much, don't worry they wouldn't find out, just use daz thats it !

Edited September 25, 2013 by emerglines

[geeteam]

this shows the current os product keys u're running on. Which is not what i wanted! I want the keys which is found or written at the buttom of the pc. Still searching... Sent an email to winaero.

The key that appears is just the same key i can find in any recovery tool, you can't recover the key before the one you did instal by using windows loader, which means you just try to get it in a different way.

Oh really? So u're trying to tell me that i can use the windows loader tool to get my old windows keys on pc before using the upgrade key? That will be nice...

I say you can't recover the old key if you use windows loader it means you will get a modified key not the one that MS install in the first time in your computer

I know all about this; but my problem is the genuineity of the os. what if MS finds out?

You will pay for another key i don't remember how much, don't worry they wouldn't find out, just use daz thats it !

THanks

[dragonball50]

Thank you for the info.

[ns870152]

show your product key and save a text file

paste to notepad and save to *.vbs file to run:

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

[PeRTeX]

Windows 8 Product Key Viewer is a good tool for checking the product key of Windows 8 and Windows 8.1

Ultimate PID Checker will work with Windows XP in allowing you to find out what the product key is. Haven't checked with Windows Vista and Windows 7

[AR_Alex]

show your product key and save a text file

paste to notepad and save to *.vbs file to run:

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

BTW I included this useful keyfinder with my program...

Edited October 2, 2013 by AR_Alex