951623
07-04-2007, 11:37 PM
OK, here's a method I haven't tested, but I would assume it works. If anyone could confirm, that would be awesome. I don't have XP installed to test it on. This method was discovered 100% by me and not ripped from anywhere. Credits to high6 for helping me with arrays.
Go to Microsoft's website and pick a live webcast.
http://www.microsoft.com/events/webcasts/upcoming.mspx
When they put you on a virtual PC, go to run and type
regedit
The registry editor should come up. Now, scroll to
DigitalProductID
under
Software\Microsoft\Windows NT\CurrentVersion
Go to byte 52 and copy the next 15 bytes after it.
You should have a number like this:
36 86 4D 4C B1 5C 8D B5 0E 47 A4 F8 5E EC 01
Now, to decrypt it, you can either use my compiled program here and enter the code WITHOUT SPACES
http://rapidshare.com/files/41080625/decrypter.exe
or use this Visual Basic 2005 code to decrypt it yourself
Imports Microsoft.Win32
Public Function sGetXPKey(ByVal str As String) As String
Dim bytKey() As Byte = hex2arr(str)
Dim strChar As String = "BCDFGHJKMPQRTVWXY2346789"
Dim strKey As String = ""
For j As Integer = 0 To 24
Dim nCur As Short = 0
For i As Integer = 14 To 0 Step -1
nCur = CShort(nCur * 256 Xor bytKey(i))
bytKey(i) = CByte(Int(nCur / 24))
nCur = CShort(nCur Mod 24)
Next
strKey = strChar.Substring(nCur, 1) & strKey
Next
For i As Integer = 4 To 1 Step -1
strKey = strKey.Insert(i * 5, "-")
Next
Return strKey
End Function
Function hex2arr(ByVal hex As String) As Byte()
Dim len As Long = hex.Length / 2
Dim temp(0 To (len - 1)) As Byte
For i As Long = 0 To len - 1
temp(i) = Val("&h" & VB.Mid(hex, (i * 2) + 1, 2))
Next
Return temp
End Function
Now you have your CD-Key.
The key I got with the above code is:
KRY6R-RJ6R4-8KDC4-MTRRM-GJB9W
It should be fully working. Haven't tested it.
Go to Microsoft's website and pick a live webcast.
http://www.microsoft.com/events/webcasts/upcoming.mspx
When they put you on a virtual PC, go to run and type
regedit
The registry editor should come up. Now, scroll to
DigitalProductID
under
Software\Microsoft\Windows NT\CurrentVersion
Go to byte 52 and copy the next 15 bytes after it.
You should have a number like this:
36 86 4D 4C B1 5C 8D B5 0E 47 A4 F8 5E EC 01
Now, to decrypt it, you can either use my compiled program here and enter the code WITHOUT SPACES
http://rapidshare.com/files/41080625/decrypter.exe
or use this Visual Basic 2005 code to decrypt it yourself
Imports Microsoft.Win32
Public Function sGetXPKey(ByVal str As String) As String
Dim bytKey() As Byte = hex2arr(str)
Dim strChar As String = "BCDFGHJKMPQRTVWXY2346789"
Dim strKey As String = ""
For j As Integer = 0 To 24
Dim nCur As Short = 0
For i As Integer = 14 To 0 Step -1
nCur = CShort(nCur * 256 Xor bytKey(i))
bytKey(i) = CByte(Int(nCur / 24))
nCur = CShort(nCur Mod 24)
Next
strKey = strChar.Substring(nCur, 1) & strKey
Next
For i As Integer = 4 To 1 Step -1
strKey = strKey.Insert(i * 5, "-")
Next
Return strKey
End Function
Function hex2arr(ByVal hex As String) As Byte()
Dim len As Long = hex.Length / 2
Dim temp(0 To (len - 1)) As Byte
For i As Long = 0 To len - 1
temp(i) = Val("&h" & VB.Mid(hex, (i * 2) + 1, 2))
Next
Return temp
End Function
Now you have your CD-Key.
The key I got with the above code is:
KRY6R-RJ6R4-8KDC4-MTRRM-GJB9W
It should be fully working. Haven't tested it.