[willgtl]

Since the link is dead for the other tutorial, here is another way to get the Windows OS key. This will not get the Office key though.

This is based on WMI (Windows Management Instrumentation). It queries the key from the WMI which is included in all Windows OS's (At least most) and is not encrypted. So you'll have the key all ready to be stolen.

Imports:

Code

Imports System.Management

Query Code:

Code

Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_OperatingSystem")
                    Dim i As Integer = 0
                    For Each queryObj As ManagementObject In searcher.Get()
                        i += 1
                        ListBox1.Items.Add(queryObj("SerialNumber"))
                        'Replace ListBox1 with wherever you want it.
                        If i = 1 Then Exit For
                    Next

When it queries the key it'll freeze for a couple seconds.

I'm not going to include how to actually steal the key because I don't really have a great way of doing it. My way involves streamwriting the key to a text file and uploading it to one of my webservers which is probably a fairly crappy way.

[Royal Flush]

What can you do with it..?

[willgtl]

Or just use

Code

Dim TheKey as String
TheKey = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId", Nothing)

Yeah, that's a quicker way but what if someone were to deny reading of the key? Not many, if anyone would actually do this though, lol. The WMI method can't be blocked.

[DeadCode]

Thanks for this. Useful.

[1NV1518L3]

error in windows 8 64 bit :L