How to Find Products Keys on PC?

0

keydisplayed

We always either install our software ourself or they are pre-installed in our PC thus we never think of keeping the boxes or stickers with us untill we have a need to reinstall the product, and we are in great trouble as we do not have the software box or the stickers which have the key printed on the them

But there are methods by which we can find the Activation Keys Again, below are a few steps:

For all third party software which you have purchased yourself digitally, its always easy as you must have provided and email while purchasing you can just search for the software name in your mailbox and get the same, but if you dont remember the email which you used, you can always contact the Company of the software and provide your name or phone number they would always be able to help you out.

For all the software which you bought Hard Copies i.e. the OS and Office which are usually bought this way, we can follow below mentioned steps to find out the keys

To find out your Windows Product Key all you need to do is just copy the code below and paste it in a notepad and save it, but once saved you need change the file name extension to .vbs so that it can be converted to a function file and it can be executed.

scriptrun
scriptnamechange
clickyes
keydisplayed

Once the code has been executed you can see your product key all you need to do is just click on the dialogue box and pres CTRL+C and paste in notepad

Code Starts Here:

————————————————————————————————————-
Set WshShell = CreateObject(“WScript.Shell”)
MsgBox ConvertToKey(WshShell.RegRead(“HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId”))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = “BCDFGHJKMPQRTVWXY2346789”
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 – i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = “-” & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
————————————————————————————————————–

Comments are closed.