Threaded Mode | Linear Mode

***drdebcol*** · 12-09-2009, 06:25 AM

This is an interesting code which i have found. It searches for Registry values of CD Keys. It works for some Electronic Arts releases as well ass some famous games like Counter Strike and other Valve releases. This is an console application. It uses VB.NET functions. You can add more games here, you only have to find certain values in Registry Editor. More about Registry you have here :
http://www.pro9ramming.com/brief-into-wi...t-816.html
So here is the code :

Code:

Imports Microsoft.Win32.Registry

Module Module1

    Sub Main()

        Dim sims3 As String = GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Sims\The Sims 3\ergc", "", "E_NotFound")

        Dim COD As String = GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\ACTIVISION\Call of Duty", "", "E_NotFound")

        Dim COD2 As String = GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\ACTIVISION\Call of Duty2", "", "E_NotFound")

        Dim COD4 As String = GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\ACTIVISION\Call of Duty4", "", "E_NotFound")

        Dim COD5 As String = GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\ACTIVISION\Call of Duty WAW", "", "E_NotFound")

        Dim HL As String = GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Valve\Half-Life\Settings", "", "E_NotFound")

        Dim CS As String = GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Valve\CounterStrike\Settings", "", "E_NotFound")

        Console.ForegroundColor = ConsoleColor.DarkBlue

        Console.WriteLine("Welcome! Please select a product by typing its number.")

        Console.WriteLine("")

        Console.WriteLine("1. The Sims 3")

        Console.WriteLine("2. Call of Duty")

        Console.WriteLine("3. Call of Duty 2")

        Console.WriteLine("4. Call of Duty 4: Modern Warfare")

        Console.WriteLine("5. Call of Duty: World at War")

        Console.WriteLine("6. Half-Life 1")

        Console.WriteLine("7. Counter-Strike 1.6")

        Console.WriteLine("")

        Console.WriteLine("Press 'enter' to exit.")

        Console.WriteLine("")

2:

        Dim g4m3 As String

        Console.WriteLine("")

        g4m3 = Console.ReadLine()

        If g4m3 = "1" Then

            Console.WriteLine("")

            Console.WriteLine("Key: " & sims3)

            Console.WriteLine("")

            GoTo 2

        ElseIf g4m3 = "2" Then

            Console.WriteLine("")

            Console.WriteLine("Key: " & COD)

            Console.WriteLine("")

            GoTo 2

        ElseIf g4m3 = "3" Then

            Console.WriteLine("")

            Console.WriteLine("Key: " & COD2)

            Console.WriteLine("")

            GoTo 2

        ElseIf g4m3 = "4" Then

            Console.WriteLine("")

            Console.WriteLine("Key: " & COD4)

            Console.WriteLine("")

            GoTo 2

        ElseIf g4m3 = "5" Then

            Console.WriteLine("")

            Console.WriteLine("Key: " & COD5)

            Console.WriteLine("")

            GoTo 2

        ElseIf g4m3 = "6" Then

            Console.WriteLine("")

            Console.WriteLine("Key: " & HL)

            Console.WriteLine("")

            GoTo 2

        ElseIf g4m3 = "7" Then

            Console.WriteLine("")

            Console.WriteLine("Key: " & CS)

            Console.WriteLine("")

            GoTo 2

        End If

    End Sub

End Module

***Back_track*** · 12-09-2009, 07:07 AM

Huh this sorta looks like a port from T0fx's cd key stealer

***drdebcol*** · 12-10-2009, 04:13 AM

Yeah i have found it on the internet.
Very good code for learning use of registry. GetValue() function in .NET is really good !