Jump to content

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


geeteam

Recommended Posts

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 by emerglines
Link to comment
Share on other sites


  • Replies 30
  • Views 4.8k
  • Created
  • Last Reply

Top Posters In This Topic

  • geeteam

    12

  • emerglines

    6

  • AR_Alex

    4

  • tezza

    3

Top Posters In This Topic

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

Link to comment
Share on other sites


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

Link to comment
Share on other sites


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

Link to comment
Share on other sites


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 by AR_Alex
Link to comment
Share on other sites


Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...