1. sakthivignesh's Avatar
    I need my original key for future use
    07-31-2015 02:59 AM
  2. Roland Schlangen's Avatar
    Copy and paste the following code into notepad. Save the code as: findkey.vbs (NOT txt extension!)
    Once you saved it, doubleclick on it.

    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
    sakthivignesh likes this.
    07-31-2015 04:41 AM

Similar Threads

  1. Start menu and taskbar not working in Windows 10?
    By Windows Central Question in forum Windows 10
    Replies: 105
    Last Post: 09-14-2018, 04:51 PM
  2. Startbutton & taskbar not working in Windows 10 home, how can I fix it?
    By Windows Central Question in forum Windows 10
    Replies: 15
    Last Post: 08-16-2015, 03:23 AM
  3. Why is my Audio after Windows 10 install so quiet?
    By Windows Central Question in forum Ask a Question
    Replies: 3
    Last Post: 08-01-2015, 03:34 PM
  4. Replies: 3
    Last Post: 08-01-2015, 07:44 AM
  5. How to create a iso of my windows 10
    By sakthivignesh in forum Ask a Question
    Replies: 1
    Last Post: 07-31-2015, 04:59 AM
LINK TO POST COPIED TO CLIPBOARD