[C#] CD Keys Recovering

Zitat:

---

Zitat von Sawyer

Naja wenn du den Code überarbeitet hast, kannst du ja dafür einen neuen Thread erstellen.

MfG, Sawyer

---

Dann tue ich das mal.. ;)

originalthread:
http://free-hack.com/source-codes/36...ecovering.html

So, viel Spaß damit.. ;)

Code:

---

///////////////////////////////////
// CD keyz recovering by t0fx  //
// Modified by SFX            //
// give credits if you use it //
///////////////////////////////
///
using System;
using System.Collections.Generic;
using Microsoft.Win32;

namespace ConsoleApplication1
{
    class CDkeyz
    {
        static void Main()
        {
            CDkeyz_start();
        }

        private static Dictionary<string, RegistryKey> keys = new Dictionary<string, RegistryKey>{
            { "Machine", Registry.LocalMachine },
            { "User", Registry.CurrentUser }
        };

        public static void CDkeyz_start()
        {
            #region keys
            Dictionary<string, Game> Games = new Dictionary<string, Game> {
                { "Call Of Duty 1", new Game("Machine", "SOFTWARE\\ACTIVISION\\Call of Duty", "codkey") },
                { "Call Of Duty 2", new Game("Machine", "SOFTWARE\\ACTIVISION\\Call of Duty 2", "codkey") },
                { "Call of Duty 4", new Game("Machine", "SOFTWARE\\ACTIVISION\\Call of Duty 4", "codkey") },
                { "Call Of Duty WAW", new Game("Machine", "SOFTWARE\\ACTIVISION\\Call of Duty WAW", "codkey") },
                { "Half-Life", new Game("User", "Software\\Valve\\Half-Life\\Settings", "Key") },
                { "Battlefield 2", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Games\\Battlefield 2\\ergc", "") },
                { "Battlefield 1942", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA GAMES\\Battlefield 1942\\ergc", "") },
                { "Battlefield 1942 The Road to Rome", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA GAMES\\Battlefield 1942 The Road to Rome\\ergc", "") },
                { "CounterStrike", new Game("User", "Software\\Valve\\CounterStrike\\Settings", "Key") },
                { "Quake 3", new Game("Machine", "SOFTWARE\\id\\Quake III Arena\\InstallPath\\base", "q3key") },
                { "Doom 3", new Game("Machine", "SOFTWARE\\id\\Doom 3\\IntallPath\\base\\doomkey", "") },
                { "UT 2003 3", new Game("Machine", "SOFTWARE\\Unreal Technology\\Installed Apps\\UT2003", "CDKey") },
                { "IGI 2", new Game("Machine", "IGI 2 Retail", "CDKey") },
                { "RAVENSHIELD", new Game("Machine", "SOFTWARE\\Red Storm Entertainment", "RAVENSHIELD") },
                { "Need for Speed Undercover", new Game("Machine", "SOFTWARE\\EA Games\\Need for Speed Undercover", "Product Guid") },
                { "Splinter Cell Pandora Tomorrow", new Game("Machine", "SOFTWARE\\Ubisoft\\Splinter Cell Pandora Tomorrow", "DiscKey_SCCT") },
                { "Splinter Cell Chaos Theory", new Game("Machine", "SOFTWARE\\Ubisoft\\Splinter Cell Chaos Theory", "keys") },
                { "Dawn of War", new Game("Machine", "SOFTWARE\\THQ\\Dawn of War", "CDKEY") },
                { "FIFA 2002", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Sports\\FIFA 2002", "") },
                { "FIFA 2003", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Sports\\FIFA 2003\\ergc", "") },
                { "FIFA 2008", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Sports\\FIFA 2008\\ergc", "") },
                { "FIFA 2009", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Sports\\FIFA 2009\\ergc", "") },
                { "Medal of Honor Allied Assault Breakthrough", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA GAMES\\Medal of Honor Allied Assault Breakthrough\\ergc", "") },
                { "Medal of Honor Allied Assault", new Game("Machine", "Electronic Arts\\EA GAMES\\Medal of Honor Allied Assault\\egrc", "") }
            };
            #endregion

            foreach (var key in Games)
            {
                echoGame(key.Key, key.Value);
            }
        }

        private static void echoGame(string name, Game game)
        {
            RegistryKey key = keys[game.key];
            RegistryKey entry = key.OpenSubKey(game.path, false);

            if (entry != null)
                Console.WriteLine(name + " : " + entry.GetValue(game.value));
        }
    }

    class Game
    {
        public string key;
        public string path;
        public string value;

        public Game(string key, string path, string value)
        {
            this.key = key;
            this.path = path;
            this.value = value;
        }
    }
}

---

Schade dass der nur die im angegebenen Sourcecode Game-Keys' recovert. Vielleicht kann man das aber alles erweitern und eine Art "Datenbank" machen indem man sich das Spiel aus einer Dropdownliste raussucht und der Key dann recovert wird.

Und sooo viele Spiele sind das auch nicht oder?

Zitat:

---

Zitat von Fixi

Und sooo viele Spiele sind das auch nicht oder?

---

ehh.. ?

in welchem Bereich steht dieser Thread.. ?

dashier ist kein Release, das ist ein Beispiel wie man sowas umsetzen kann..

Wenn dir die ganzen Keys die da schon drin sind nicht reichen um zu verstehen wie das Programm arbeitet kann ich dir auch nicht weiterhelfen..

hoi @ll,

ich denke man könnte die klasse leicht erweitern indem man die "üblichen verdächtigen" (also eben die hersteller und deren subkeys) aus der registry holt.

greetz,me

Code:

---

Dictionary<string, Game> Games = new Dictionary<string, Game> {
                { "Call Of Duty 1", new Game("Machine", "SOFTWARE\\ACTIVISION\\Call of Duty", "codkey") },
                { "Call Of Duty 2", new Game("Machine", "SOFTWARE\\ACTIVISION\\Call of Duty 2", "codkey") },
                { "Call of Duty 4", new Game("Machine", "SOFTWARE\\ACTIVISION\\Call of Duty 4", "codkey") },
                { "Call Of Duty WAW", new Game("Machine", "SOFTWARE\\ACTIVISION\\Call of Duty WAW", "codkey") },
                { "Half-Life", new Game("User", "Software\\Valve\\Half-Life\\Settings", "Key") },
                { "Battlefield 2", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Games\\Battlefield 2\\ergc", "") },
                { "Battlefield 1942", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA GAMES\\Battlefield 1942\\ergc", "") },
                { "Battlefield 1942 The Road to Rome", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA GAMES\\Battlefield 1942 The Road to Rome\\ergc", "") },
                { "CounterStrike", new Game("User", "Software\\Valve\\CounterStrike\\Settings", "Key") },
                { "Quake 3", new Game("Machine", "SOFTWARE\\id\\Quake III Arena\\InstallPath\\base", "q3key") },
                { "Doom 3", new Game("Machine", "SOFTWARE\\id\\Doom 3\\IntallPath\\base\\doomkey", "") },
                { "UT 2003 3", new Game("Machine", "SOFTWARE\\Unreal Technology\\Installed Apps\\UT2003", "CDKey") },
                { "IGI 2", new Game("Machine", "IGI 2 Retail", "CDKey") },
                { "RAVENSHIELD", new Game("Machine", "SOFTWARE\\Red Storm Entertainment", "RAVENSHIELD") },
                { "Need for Speed Undercover", new Game("Machine", "SOFTWARE\\EA Games\\Need for Speed Undercover", "Product Guid") },
                { "Splinter Cell Pandora Tomorrow", new Game("Machine", "SOFTWARE\\Ubisoft\\Splinter Cell Pandora Tomorrow", "DiscKey_SCCT") },
                { "Splinter Cell Chaos Theory", new Game("Machine", "SOFTWARE\\Ubisoft\\Splinter Cell Chaos Theory", "keys") },
                { "Dawn of War", new Game("Machine", "SOFTWARE\\THQ\\Dawn of War", "CDKEY") },
                { "FIFA 2002", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Sports\\FIFA 2002", "") },
                { "FIFA 2003", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Sports\\FIFA 2003\\ergc", "") },
                { "FIFA 2008", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Sports\\FIFA 2008\\ergc", "") },
                { "FIFA 2009", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA Sports\\FIFA 2009\\ergc", "") },
                { "Medal of Honor Allied Assault Breakthrough", new Game("Machine", "SOFTWARE\\Electronic Arts\\EA GAMES\\Medal of Honor Allied Assault Breakthrough\\ergc", "") },
                { "Medal of Honor Allied Assault", new Game("Machine", "Electronic Arts\\EA GAMES\\Medal of Honor Allied Assault\\egrc", "") }
            };

---

Hier werden alle Schlüssel festgelegt..

Die Liste kann natürlich erweitert werden, wenn man die dafür nötigen Daten hat.. ;)

Deklaration aus meinem Stealer:
[VB.NET] (wegen den Reg-Schlüsseln gepostet)

Code:

---


        Dim SchlüsselWin As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", Nothing)
        Dim Schlüssel03 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty", "codkey", Nothing)
        Dim Schlüssel04 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty United Offensive", "key", Nothing)
        Dim Schlüssel05 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2", "codkey", Nothing)
        Dim Schlüssel06 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4", "codkey", Nothing)
        Dim Schlüssel07 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty WAW", "codkey", Nothing)
        ' Dim Schlüssel14 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Families\Nero 7\Info", "Serial7_1259337421", Nothing)
        Dim Schlüssel17 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Photoshop\7.0\Registration", "SERIAL", Nothing)
        Dim Schlüssel21 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Sunflowers\Anno 1701", "SerialNo", Nothing)
        Dim Schlüssel22 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\ashampoo\Ashampoo WinOptimizer Platinum 3", "Key", Nothing)
        Dim Schlüssel23 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\@stake\LC5\Registration", "Unlock Code", Nothing)
        Dim Schlüssel24 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942", "ergc", Nothing)
        Dim Schlüssel25 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII", "ergc", Nothing)
        Dim Schlüssel26 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome", "ergc", Nothing)
        Dim Schlüssel27 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Battlefield 2", "ergc", Nothing)
        Dim Schlüssel28 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 2142", "ergc", Nothing)
        Dim Schlüssel29 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield Vietnam", "ergc", Nothing)
        Dim Schlüssel30 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Black and White", "ergc", Nothing)
        Dim Schlüssel31 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Black and White 2", "ergc", Nothing)
        Dim Schlüssel33 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Burnout Paradise", "ergc", Nothing)
        Dim Schlüssel34 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\TechSmith\Camtasia Studio\4.0", "RegisteredTo", Nothing)
        Dim Schlüssel35 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\TechSmith\Camtasia Studio\4.0", "RegistrationKey", Nothing)
        Dim Schlüssel38 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Generals", "ergc", Nothing)
        Dim Schlüssel39 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Command and Conquer Generals Zero Hour", "ergc", Nothing)
        Dim Schlüssel40 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Red Alert 2", "Serial", Nothing)
        Dim Schlüssel41 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Red Alert", "Serial", Nothing)
        Dim Schlüssel42 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Westwood\Tiberian Sun", "Serial", Nothing)
        Dim Schlüssel43 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Command and Conquer 3", "ergc", Nothing)
        Dim Schlüssel44 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Command and Conquer 3", "ergc", Nothing)
        Dim Schlüssel45 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\THQ\Company of Heroes", "CoHProductKey", Nothing)
        Dim Schlüssel48 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Crysis", "ergc", Nothing)
        Dim Schlüssel53 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\The Battle for Middle-earth II", "ergc", Nothing)
        Dim Schlüssel54 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2", "ergc", Nothing)
        Dim Schlüssel55 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 University", "ergc", Nothing)
        Dim Schlüssel56 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Nightlife", "ergc", Nothing)
        Dim Schlüssel57 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Open For Business", "ergc", Nothing)
        Dim Schlüssel58 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Pets", "ergc", Nothing)
        Dim Schlüssel59 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Seasons", "ergc", Nothing)
        Dim Schlüssel60 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Glamour Life Stuff", "ergc", Nothing)
        Dim Schlüssel61 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Celebration Stuff", "ergc", Nothing)
        Dim Schlüssel62 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 H M Fashion Stuff", "ergc", Nothing)
        Dim Schlüssel63 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\The Sims 2 Family Fun Stuff", "ergc", Nothing)
        Dim Schlüssel66 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Sierra\Empire Earth II", "CDKey", Nothing)
        Dim Schlüssel67 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Sierra\CDKey", "fear", Nothing)
        Dim Schlüssel69 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\CRYTEK\FARCRY\UBI.COM", "CDKey", Nothing)
        Dim Schlüssel71 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2002", "ergc", Nothing)
        Dim Schlüssel72 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2003", "ergc", Nothing)
        Dim Schlüssel73 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2004", "ergc", Nothing)
        Dim Schlüssel74 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2005", "ergc", Nothing)
        Dim Schlüssel75 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\FIFA 07", "ergc", Nothing)
        Dim Schlüssel76 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\FIFA 08", "ergc", Nothing)
        Dim Schlüssel79 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\THQ\Frontlines: Fuel of War", "ProductKey", Nothing)
        Dim Schlüssel84 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Hellgate: London", "ergc", Nothing)
        Dim Schlüssel85 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Illusion Softworks\Hidden & Dangerous 2", "key", Nothing)
        Dim Schlüssel92 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\James Bond 007 Nightfire", "ergc", Nothing)
        Dim Schlüssel94 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\Flash\7\Registration", "Serial Number", Nothing)
        Dim Schlüssel95 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\Fireworks\7\Registration", "Serial Number", Nothing)
        Dim Schlüssel96 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\Dreamweaver\7\Registration", "Serial Number", Nothing)
        Dim Schlüssel100 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault", "ergc", Nothing)
        Dim Schlüssel97 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\Madden NFL 07", "ergc", Nothing)
        Dim Schlüssel101 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough", "ergc", Nothing)
        Dim Schlüssel102 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead", "ergc", Nothing)
        Dim Schlüssel103 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Medal of Honor: Heroes 2", "ergc", Nothing)
        Dim Schlüssel104 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\mIRC", "UserName", Nothing)
        Dim Schlüssel106 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\Nascar Racing 2002", "ergc", Nothing)
        Dim Schlüssel105 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\mIRC", "License", Nothing)
        Dim Schlüssel108 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2002", "ergc", Nothing)
        Dim Schlüssel107 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\Nascar Racing 2003", "ergc", Nothing)
        Dim Schlüssel109 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NBA LIVE 2003", "ergc", Nothing)
        Dim Schlüssel110 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NBA LIVE 2004", "ergc", Nothing)
        Dim Schlüssel111 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NBA LIVE 07", "ergc", Nothing)
        Dim Schlüssel112 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NBA Live 08", "ergc", Nothing)
        Dim Schlüssel113 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Need for Speed Carbon", "ergc", Nothing)
        Dim Schlüssel114 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Need For Speed Hot Pursuit 2", "ergc", Nothing)
        Dim Schlüssel115 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Need for Speed Most Wanted", "ergc", Nothing)
        Dim Schlüssel116 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\Electronic Arts\Need for Speed ProStreet", "ergc", Nothing)
        Dim Schlüssel117 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA GAMES\Need For Speed Underground", "ergc", Nothing)
        Dim Schlüssel118 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Games\Need for Speed Underground 2", "ergc", Nothing)
        Dim Schlüssel119 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero - Burning Rom\Info", "Serial6", Nothing)
        Dim Schlüssel122 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2002", "ergc", Nothing)
        Dim Schlüssel123 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2003", "ergc", Nothing)
        Dim Schlüssel124 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2004", "ergc", Nothing)
        Dim Schlüssel125 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Electronic Arts\EA Sports\NHL 2005", "ergc", Nothing)
        Dim Schlüssel142 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\KONAMI\PES2008", "code", Nothing)
        Dim Schlüssel143 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Red Storm Entertainment\RAVENSHIELD", "CDKey", Nothing)
        Dim Schlüssel147 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\ Sim City 4 Deluxe", "ergc", Nothing)
        Dim Schlüssel148 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\ Sim City 4", "ergc", Nothing)
        Dim Schlüssel152 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\GSC Game World\STALKER-SHOC", "InstallCDKEY", Nothing)
        Dim Schlüssel153 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\LucasArts\Star Wars Battlefront II\1.0", "CD Key", Nothing)
        Dim Schlüssel154 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\LucasArts\Star Wars Battlefront II\1.1", "CD Key", Nothing)
        Dim Schlüssel155 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Steganos\SIAVPN", "ClientID", Nothing)
        Dim Schlüssel157 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\THQ\Gas Powered Games\Supreme Commander", "KEY", Nothing)
        Dim Schlüssel158 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Sierra\CDKey", "swat2", Nothing)
        Dim Schlüssel159 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Sierra\CDKey", "swat3", Nothing)
        Dim Schlüssel160 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Sierra\CDKey", "swat4", Nothing)
        Dim Schlüssel170 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\6.0", "UserName", Nothing)
        Dim Schlüssel171 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\6.0", "RegCode", Nothing)
        Dim Schlüssel172 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\6.0", "Company", Nothing)
        Dim Schlüssel173 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\7.0", "UserName", Nothing)
        Dim Schlüssel174 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\7.0", "RegCode", Nothing)
        Dim Schlüssel176 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\8.0", "UserName", Nothing)
        Dim Schlüssel175 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\7.0", "Company", Nothing)
        Dim Schlüssel177 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\Software\TuneUp\Utilities\8.0", "ProductKey", Nothing)

---