Ambrosia Community

General Category => Support Section => Tutorials => Topic started by: Red Wolf on December 21, 2015, 11:55:21 pm

Title: Find your Windows key
Post by: Red Wolf on December 21, 2015, 11:55:21 pm

Find your windows key before its too late  :D
You might want to format your PC sometime and this may come in handy. You can run this simple script, find your windows activation key and save it somewhere safe, and use it whenever you need it.
You can download directly from attachment below, or u can follow those steps:
1- Open notepad
2- Enter this thingy

Spoiler (hover to show)

Code: [Select]

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

3- Save as filename.vbs
4- Open it
5- CTRL + C to copy key

Title: Re: Find your Windows key
Post by: andy.rva on August 06, 2016, 01:42:43 pm

Nice tuto