He is asking if this works http://www.howtogeek.com/206329/how-to-find-your-lost-windows-or-office-product-keys/
So it should be save.
There are software programs for it, but i am not going to try and found out.
Comment has been collapsed.
79 Comments - Last post 54 seconds ago by devotee
15,565 Comments - Last post 16 minutes ago by devotee
356 Comments - Last post 56 minutes ago by Metalhead8489
47 Comments - Last post 1 hour ago by shortcakey
8,481 Comments - Last post 3 hours ago by FranckCastle
782 Comments - Last post 11 hours ago by MeguminShiro
595 Comments - Last post 12 hours ago by MeguminShiro
749 Comments - Last post 40 seconds ago by hsunkuei
113 Comments - Last post 3 minutes ago by OneNonLy
4 Comments - Last post 4 minutes ago by dogwatch
110 Comments - Last post 4 minutes ago by Joan
42 Comments - Last post 7 minutes ago by JMM72
4 Comments - Last post 10 minutes ago by JMM72
9,048 Comments - Last post 25 minutes ago by CurryKingWurst
I need you guys to check this,to be sure that works on every computer(gonna be formatting my brother's 5 yrs old laptop soon,don't want to f*uck him up because i didn't see the serial on the bottom of the laptop - it's DELL btw)
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
Put it in notepad and save as .vbs(All Files)
Thanks in advance.
Comment has been collapsed.