How to decrypt the Pkey that found in the registry?!

Discussion in 'Windows 7' started by darkness86, Aug 4, 2009.

  1. darkness86

    darkness86 MDL Novice

    Dec 26, 2008
    20
    0
    0
    #1 darkness86, Aug 4, 2009
    Last edited: Aug 15, 2009
  2. darkness86

    darkness86 MDL Novice

    Dec 26, 2008
    20
    0
    0
    Anyone????
     
  3. Myrrh

    Myrrh MDL Expert

    Nov 26, 2008
    1,388
    491
    60
    good luck with that.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  4. genuineintel

    genuineintel MDL Member

    Apr 28, 2009
    227
    23
    10
    I had the same question, too.
     
  5. FuzzyMaster

    FuzzyMaster MDL Member

    Jun 21, 2007
    222
    0
    10
    WOW!, doesn't anybody bother to read anymore before posting....

    He basically wants to know what the algorithm so he can do it manually or perhaps make his own tool.
     
  6. LaptoniC

    LaptoniC MDL Novice

    Jul 27, 2009
    11
    0
    0
    It is very easy to do. For examples just enter BCDFGHJKMPQRTVWXY2346789 in to your favorite search engine. You will see tons of examples written in different languages from C,delphi to autoit and powershell. Good luck.
     
  7. darkness86

    darkness86 MDL Novice

    Dec 26, 2008
    20
    0
    0
    you the only one got it right .... people doesn't read anymore.... :(
     
  8. Daz

    Daz MDL Developer / Admin
    Staff Member

    Jul 31, 2009
    9,364
    66,262
    300
    #12 Daz, Aug 12, 2009
    Last edited: Aug 12, 2009
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  9. ammarman

    ammarman MDL Member

    Jul 17, 2009
    127
    13
    10
    Daz, your script works like a charm, do you have a vbs script to obtain office 2007 key ?
     
  10. Daz

    Daz MDL Developer / Admin
    Staff Member

    Jul 31, 2009
    9,364
    66,262
    300
    Never personally needed anything for office, but I know the key is supposed to be stored in this path
    Without office installed myself I'm unable to test, sorry.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  11. twiz

    twiz MDL Senior Member

    Jul 30, 2009
    401
    1
    10
    That's what the
    Code:
     tag is for.
    It uses a fixed-width font and preserves spacing.
     
  12. sunnybear

    sunnybear MDL Novice

    Jul 28, 2009
    26
    0
    0
    2007
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Registration\{90120000-0011-0000-0000-0000000FF1CE}\DigitalProductID

    hope this helps
     
  13. twiz

    twiz MDL Senior Member

    Jul 30, 2009
    401
    1
    10
    "0FF1CE"
    Really??

    Someone should tell Microsoft that 13375P33K isn't a very valid way to encrypt things.
     
  14. sunnybear

    sunnybear MDL Novice

    Jul 28, 2009
    26
    0
    0
    #18 sunnybear, Aug 12, 2009
    Last edited by a moderator: Apr 20, 2017
    slightly modifcation from Daz's code
    tested with myself, and it worked

    Code:
    Set WshShell = CreateObject("WScript.Shell")
    MsgBox ConvertToKey(WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Registration\{90120000-0011-0000-0000-0000000FF1CE}\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
    thanks Daz, great program
     
  15. Daz

    Daz MDL Developer / Admin
    Staff Member

    Jul 31, 2009
    9,364
    66,262
    300
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  16. ammarman

    ammarman MDL Member

    Jul 17, 2009
    127
    13
    10
    I use rot13