1.

Solve : Windows Product Key?

Answer» ANYONE knows how to retrieve windows product key using vb.net? I have got a sample to retrieve Windows XP product key, but i also need to retrieve the product key for OTHERS, ie: Win 2k, Win 98...

Here's the sample to retrieve WinXP product key:
Public Function GetXPKey() As String
        Dim RegKey As RegistryKey = _
        Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion", False)
        Dim bytDPID() As Byte = RegKey.GetValue("DigitalProductID")
        Dim bytKey(14) As Byte
        Array.Copy(bytDPID, 52, bytKey, 0, 15)
        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

Thanks.


Discussion

No Comment Found

Related InterviewSolutions