Jump to content
CCleaner Community Forums
SpeccyFan

Speccy showing wrong Windows 8 Pro PRODUCT KEY

Recommended Posts

I am using latest Speccy version 1.19.411 as of 29 December 2012. Under system summary, Speccy is displaying the wrong product key which does not even remotely match with the actual product key with which I have activated Windows 8 Professional.

 

Please Help!

Share this post


Link to post
Share on other sites

No I have not installed Windows Media Center. I have done a clean install of Windows 8 Professional. (I received this Windows 8 Pro as a free software from Microsoft Dreamspark)

 

Do you think there is some configuration problem with my pc?

Share this post


Link to post
Share on other sites

I have just had a look at my Win8 64bit machine with Speccy and the key shown in Speccy is not the product key I used when I clean installed Win 8.

 

Nor is it the key for Windows media center (just to discount that theory)

 

Can anyone else with Windows 8 have a look with Speccy and see if theirs is the right product key? I am looking under Operating System, serial key info, 5 digits shown in blocks of 5.

Share this post


Link to post
Share on other sites

I've had this issue (with multipke key finding programs) in 7 and 8. Do other key revealers do the same key?

Edited by Nergal

Share this post


Link to post
Share on other sites

Well hopefully they would correct it soon..........

 

SuperFast can you be more specific.......coz I did a string search of a small part of both the original key as well as the one Speccy is showing and couldn't find both...

Share this post


Link to post
Share on other sites

I've had this issue (with multipke key finding programs) in 7 and 8. Do other key revealers do the same key?

Same here (on Win7). They might encrypt the key differently or it depends which kind of key is used..? Is it Retail, OEM, which Win version etc?

Share this post


Link to post
Share on other sites

Just trying to create a list of my software keys in one place and encountered this problem. In November I bought a new Dell laptop with Win7 installed and Speccy found the correct Win7 key. In late November I did the low cost Windows 8 Pro upgrade (not certain that was a good thing to do based on how Win8 works) and now the license key displayed by Speccy is nothing like either the Win7 or Win8 keys. I know what the keys are (because I wrote them down). I don't know if this helps the problem solvers or just makes it more difficult. Frank

Share this post


Link to post
Share on other sites

I just checked my Speccy program. The product key # on the tag on the case of the PC is different from the serial # (is this product key #?) in the summary of operating system.

Share this post


Link to post
Share on other sites

For what it's worth, Speccy 119 still shows the correct product key under XP. Of course, you won't find in in the registry since it's encoded/encrypted there. From the above, I'm guessing that they changed the encryption under W7 and W8 and Speccy is not decrypting it correctly?

Share this post


Link to post
Share on other sites

Speccy 1.23.569 also reports the wrong product key for windows 8 and windows 8.1

 

for what it's worth - Here is some vb.net code that will properly display the windows 8 and windows 8.1 key.

I've used this in my Own Key finder application, so I know it works correctly.

 

 

 

'// Open source product key decryptor by 'The Dev'
'// No limitations on this code, you may pass, share
'// and use it however you like. Enjoy.
'//
'// Thanks to nononsense for the decryptor method
'This option is important, remove it and see what happens.
Option Explicit Off
Public Class main
#Region "Form Load Event" ' We call our key decryption here in the load event.
   Private Sub loadevent(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    ' Calling the decryption method and specifying the location of our encrypted product key
    Me.decodedkey.Text = ConvertToKey(WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" & "\DigitalProductId"))
   End Sub
#End Region
   'Original decryptor without the bugfix has been commented out.
#Region "Previous DigitalProductId Decryptor"
   ' Public KeyOutput As String
   ' Public WshShell As Object = CreateObject("WScript.Shell")
   ' Function ConvertToKey(ByVal Key)
   'Offsets for Windows are 52-67
   '  Try
   ' Const KeyOffset = 52
   '    isWin8 = (Key(66) \ 6) And 1
   '  Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
   '   i = 24
   'Hex
   '   Chars = "BCDFGHJKMPQRTVWXY2346789"
   '   Do
   '	  Cur = 0
   '	  X = 14
   '	 Do
   '	   Cur = Cur * 256
   '	    Cur = Key(X + KeyOffset) + Cur
   '	   Key(X + KeyOffset) = (Cur \ 24)
   '	  Cur = Cur Mod 24
   '	  X = X - 1
   '   Loop While X >= 0
   '   i = i - 1
   '    KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
   '	   Last = Cur
   ' Loop While i >= 0
   '  If (isWin8 = 1) Then
   '   keypart1 = Mid(KeyOutput, 2, Last)
   '   insert = "N"
   '   KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
   '   End If
   '    aa = Mid(KeyOutput, 1, 5)
   '   bb = Mid(KeyOutput, 6, 5)
   '   cc = Mid(KeyOutput, 11, 5)
   '   dd = Mid(KeyOutput, 16, 5)
   '   ee = Mid(KeyOutput, 21, 5)
   '   ConvertToKey = aa & "-" & bb & "-" & cc & "-" & dd & "-" & ee
   '  Catch ex As Exception
   '	  MessageBox.Show(ex.Message)
   '  End Try
   ' End Function
#End Region
#Region "Updated DigitalProductId Decryptor"
   Public KeyOutput As String
   Public WshShell As Object = CreateObject("WScript.Shell")
   Function ConvertToKey(Key)
    Const KeyOffset = 52
    isWin8 = (Key(66) \ 6) And 1
    Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
    i = 24
    Chars = "BCDFGHJKMPQRTVWXY2346789"
    Do
	    Cur = 0
	    X = 14
	    Do
		    Cur = Cur * 256
		    Cur = Key(X + KeyOffset) + Cur
		    Key(X + KeyOffset) = (Cur \ 24)
		    Cur = Cur Mod 24
		    X = X - 1
	    Loop While X >= 0
	    i = i - 1
	    KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
	    Last = Cur
    Loop While i >= 0
    If (isWin8 = 1) Then
	    keypart1 = Mid(KeyOutput, 2, Last)
	    insert = "N"
	    KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
	    If Last = 0 Then KeyOutput = insert & KeyOutput
    End If
    a = Mid(KeyOutput, 1, 5)
    b = Mid(KeyOutput, 6, 5)
    c = Mid(KeyOutput, 11, 5)
    d = Mid(KeyOutput, 16, 5)
    e = Mid(KeyOutput, 21, 5)
    ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
   End Function
#End Region
End Class

 

If it helps make Speccy better,

i'd accept a copy of the pro version as a thank you gift...

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

×
×
  • Create New...