Forums
New posts
Search forums
News
Security News
Technology News
Giveaways
Giveaways, Promotions and Contests
Discounts & Deals
Reviews
Users Reviews
Video Reviews
Support
Windows Malware Removal Help & Support
Mac Malware Removal Help & Support
Mobile Malware Removal Help & Support
Blog
Log in
Register
What's new
Search
Search titles only
By:
Search titles only
By:
Reply to thread
Menu
Install the app
Install
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Forums
Security
Guides - Privacy & Security Tips
Find and recover Windows product key with a VbScript
Message
<blockquote data-quote="Exterminator" data-source="post: 387633" data-attributes="member: 2930"><p>Creating a script to find your Windows product key</p><p></p><p>1. Copy & paste the following to Notepad</p><p></p><p>[CODE]Set WshShell = CreateObject("WScript.Shell")</p><p>MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))</p><p></p><p>Function ConvertToKey(Key)</p><p>Const KeyOffset = 52</p><p>i = 28</p><p>Chars = "BCDFGHJKMPQRTVWXY2346789"</p><p>Do</p><p>Cur = 0</p><p>x = 14</p><p>Do</p><p>Cur = Cur * 256</p><p>Cur = Key(x + KeyOffset) + Cur</p><p>Key(x + KeyOffset) = (Cur \ 24) And 255</p><p>Cur = Cur Mod 24</p><p>x = x -1</p><p>Loop While x >= 0</p><p>i = i -1</p><p>KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput</p><p>If (((29 - i) Mod 6) = 0) And (i <> -1) Then</p><p>i = i -1</p><p>KeyOutput = "-" & KeyOutput</p><p>End If</p><p>Loop While i >= 0</p><p>ConvertToKey = KeyOutput</p><p>End Function[/CODE]</p><p></p><p>2.Name the file productkey.vbs or something else but must end with .vbs</p><p></p><p>3. Select "All Files" from the Save as type dropdown menu and save to your desktop or some where else</p><p></p><p>[ATTACH]58084[/ATTACH]</p><p></p><p>4. Double click the file and your product key will show up in a pop up window which can be saved and used if you need to reinstall windows</p><p></p><p>[ATTACH]58085[/ATTACH]</p></blockquote><p></p>
[QUOTE="Exterminator, post: 387633, member: 2930"] Creating a script to find your Windows product key 1. Copy & paste the following to Notepad [CODE]Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) 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[/CODE] 2.Name the file productkey.vbs or something else but must end with .vbs 3. Select "All Files" from the Save as type dropdown menu and save to your desktop or some where else [ATTACH]58084[/ATTACH] 4. Double click the file and your product key will show up in a pop up window which can be saved and used if you need to reinstall windows [ATTACH]58085[/ATTACH] [/QUOTE]
Insert quotes…
Verification
Post reply
Top