Source code snippet on how to recover cd keys for steam games and applications via the system registry very handy.
Code:
Const FileName As String = "CDKEYS.txt"
Const Sifre As String = "PROGRAMMEDBYWHO"
Dim Serial(194) As String
Dim Program() As String
Dim sayac As Integer
Const Karakter As String = "="
Const Uzunluk As Integer = 50
Function Oku(ApplicationName As String, RootKey As String, PathKey As String, ValueName As String) As String
Dim Anahtar As String
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
Dim Okunan As String
Oku = ""
Select Case LCase(RootKey)
Case "hkcu"
Anahtar = "HKEY_CURRENT_USER\"
Case "hklm"
Anahtar = "HKEY_LOCAL_MACHINE\"
End Select
On Local Error Resume Next
Okunan = Reg.RegRead(Anahtar & PathKey & "\" & ValueName)
If Len(Okunan) < 1 Then Okunan = "UNKNOWN"
Oku = String(Uzunluk, Karakter) & vbCrLf & _
"Application Name : " & ApplicationName & vbCrLf & _
"CD Key : " & Okunan & vbCrLf & _
String(Uzunluk, Karakter)
End Function
Function Applications()
Serial(0) = "ACDSystems PicAView,HKLM,SOFTWARE\ACD Systems\PicaView,LicenseNumber"
Serial(1) = "Act of War,HKCU,Software\Eugen Systems\ActOfWar,RegNumber"
Serial(2) = "Adobe Photoshop 7,HKLM,SOFTWARE\Adobe\Photoshop\7.0\Registration,SERIAL"
Serial(3) = "Advanced PDF Password Recovery,HKLM,SOFTWARE\Elcom\Advanced PDF Password Recovery\Registration,Code"
Serial(4) = "Advanced PDF Password Recovery Pro,HKLM,SOFTWARE\Elcom\Advanced PDF Password Recovery Pro\Registration,Code"
Serial(5) = "Advanced ZIP Password Recovery,HKLM,SOFTWARE\Elcom\Advanced ZIP Password Recovery\Registration,Code"
Serial(6) = "Anno 1701,HKLM,Software\Sunflowers\Anno 1701,SerialNo"
Serial(7) = "Ashamopp WinOptimizer Platinum,HKLM,Software\ashampoo\Ashampoo WinOptimizer Platinum 3,Key"
Serial(8) = "AV Voice Changer,HKLM,SOFTWARE\Avnex\AV Voice Changer Software\Vcs 4.0,DIAMOND"
Serial(9) = "@stake LC5,HKCU,Software\@stake\LC5\Registration,Unlock Code"
Serial(10) = "Battlefield 1942,HKLM,Software\Electronic Arts\EA GAMES\Battlefield 1942,ergc"
Serial(11) = "Battlefield 1942 Secret Weapons Of WWII,HKLM,Software\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII,ergc"
Serial(12) = "Battlefield 1942 The Road To Rome,HKLM,Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome,ergc"
Serial(13) = "Battlefield 2,HKLM,Software\Electronic Arts\EA Games\Battlefield 2,ergc"
Serial(14) = "Battlefield 2142,HKLM,SOFTWARE\Electronic Arts\EA GAMES\Battlefield 2142,ergc"
Serial(15) = "Battlefield Vietnam,HKLM,Software\Electronic Arts\EA GAMES\Battlefield Vietnam,ergc"
Serial(16) = "Black and White,HKLM,Software\Electronic Arts\EA GAMES\Black and White,ergc"
Serial(17) = "Black and White 2,HKLM,Software\Electronic Arts\Black and White 2,ergc"
Serial(18) = "Boulder Dash Rocks,HKLM,SOFTWARE\Electronic Arts\EA Games\Boulder Dash Rocks,ergc"
Serial(19) = "Burnout Paradise,HKLM,SOFTWARE\Electronic Arts\EA Games\Burnout Paradise,ergc"
Serial(20) = "Call of Duty,HKLM,Software\Activision\Call of Duty,codkey"
Serial(21) = "Call of Duty 2,HKLM,Software\Activision\Call of Duty 2,codkey"
Serial(22) = "Call of Duty 4,HKLM,Software\Activision\Call of Duty 4,codkey"
Serial(23) = "Camtasia Studio 4(Name),HKLM,SOFTWARE\TechSmith\Camtasia Studio\4.0,RegisteredTo"
Serial(24) = "Camtasia Studio 4(Key),HKLM,SOFTWARE\TechSmith\Camtasia Studio\4.0,RegistrationKey"
Serial(25) = "Chrome,HKLM,Software\Techland\Chrome,SerialNumber"
Serial(26) = "Codec Tweak Tool,HKLM,Software\Codec Tweak Tool,serial"
Serial(27) = "Command and Conquer Generals,HKLM,Software\Electronic Arts\EA GAMES\Generals,ergc"
Serial(28) = "Command and Conquer Generals: Zero Hour,HKLM,Software\Electronic Arts\EA GAMES\Command and Conquer Generals Zero Hour,ergc"
Serial(29) = "Command and Conquer Red Alert 2,HKLM,Software\Westwood\Red Alert 2,Serial"
Serial(30) = "Command and Conquer Red Alert,HKLM,Software\Westwood\Red Alert,Serial"
Serial(31) = "Command and Conquer Tiberian Sun,HKLM,Software\Westwood\Tiberian Sun,Serial"
Serial(32) = "Command and Conquer 3,HKLM,Software\Electronic Arts\Command and Conquer 3,ergc"
Serial(33) = "Command and Conquer 3,HKLM,Software\Electronic Arts\Electronic Arts\Command and Conquer 3,ergc"
Serial(34) = "Company of Heroes,HKLM,SOFTWARE\THQ\Company of Heroes,CoHProductKey"
Serial(35) = "Company of Heroes: Opposing Fronts,HKLM,SOFTWARE\THQ\Company of Heroes,CoHOFProductKey"
Serial(36) = "Counter-Strike,HKCU,Software\Valve\Counter-Strike\Settings,Key"
Serial(37) = "Crysis,HKLM,Software\Electronic Arts\Electronic Arts\Crysis,ergc"
Serial(38) = "Cyberlink PowerDVD,HKLM,SOFTWARE\Cyberlink\PowerDVD,CDKey"
Serial(39) = "Cyberlink PowerBar,HKLM,SOFTWARE\Cyberlink\PowerBar,CDKey"
Serial(40) = "Cyberlink PowerProducer 3.0,HKLM,SOFTWARE\CyberLink\PowerProducer\3.0\UserReg,SR_No"
Serial(41) = "Day of Defeat,HKCU,Software\Valve\Day of Defeat\Settings,Key"
Serial(42) = "Der Herr der Ringe: Die Schlacht um Mittelerde II,HKLM,SOFTWARE\Electronic Arts\Electronic Arts\The Battle for Middle-earth II,ergc"
Serial(43) = "Die Sims 2,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2,ergc"
Serial(44) = "Die Sims 2 Wilde Campus-Jahre,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 University,ergc"
Serial(45) = "Die Sims 2 Nightlife,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 Nightlife,ergc"
Serial(46) = "Die Sims 2 Open for Business,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 Open For Business,ergc"
Serial(47) = "Die Sims 2 Haustiere,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 Pets,ergc"
Serial(48) = "Die Sims 2 Vier Jahreszeiten,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 Seasons,ergc"
Serial(49) = "Die Sims 2 Glamour-Accessoires,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 Glamour Life Stuff,ergc"
Serial(50) = "Die Sims 2 Party-Accessoires,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 Celebration Stuff,ergc"
Serial(51) = "Die Sims 2 H&M Fashion-Accessoires,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 H M Fashion Stuff,ergc"
Serial(52) = "Die Sims 2,HKLM,SOFTWARE\Electronic Arts\EA Games\The Sims 2 Family Fun Stuff,ergc"
Serial(53) = "DvD Audio Extractor(Serial),HKLM,Software\DVD Audio Extractor\Settings,Reg Number"
Serial(54) = "DvD Audio Extractor(Name),HKLM,Software\DVD Audio Extractor\Settings,Reg Name"
Serial(55) = "Empire Earth 2,HKLM,Software\Sierra\Empire Earth II,CDKey"
Serial(56) = "F.E.A.R,HKCU,Software\Sierra\CDKey,fear"
Serial(57) = "F-Secure BackWeb,HKLM,Software\F-Secure\BackWeb\iLauncher,UID"
Serial(58) = "FarCry,HKLM,SOFTWARE\CRYTEK\FARCRY\UBI.COM,CDKey"
Serial(59) = "FarCry 2,HKLM,SOFTWARE\CRYTEK\FARCRY2\UBI.COM,CDKey"
Serial(60) = "FIFA 2002,HKLM,Software\Electronic Arts\EA Sports\FIFA 2002,ergc"
Serial(61) = "FIFA 2003,HKLM,Software\Electronic Arts\EA Sports\FIFA 2003,ergc"
Serial(62) = "FIFA 2004,HKLM,Software\Electronic Arts\EA Sports\FIFA 2004,ergc"
Serial(63) = "FIFA 2005,HKLM,SOFTWARE\Electronic Arts\EA Sports\FIFA 2005,ergc"
Serial(64) = "FIFA 2007,HKLM,SOFTWARE\Electronic Arts\EA Sports\FIFA 07,ergc"
Serial(65) = "FIFA 08,HKLM,SOFTWARE\Electronic Arts\Electronic Arts\FIFA 08,ergc"
Serial(66) = "Freedom Force,HKLM,Software\Electronic Arts\EA Distribution\Freedom Force,ergc"
Serial(67) = "Frontlines: Fuel of War Beta,HKLM,Software\THQ\Frontlines: Fuel of War Beta,ProductKey"
Serial(68) = "Frontlines: Fuel of War,HKLM,Software\THQ\Frontlines: Fuel of War,ProductKey"
Serial(69) = "Get Right,HKLM,SOFTWARE\Headlight\GetRight,GRcode"
Serial(70) = "Global Operations,HKLM,Software\Electronic Arts\EA GAMES\Global Operations,ergc"
Serial(71) = "Gunman Chronicles,HKCU,Software\Valve\Gunman\Settings,Key"
Serial(72) = "Half-Life,HKCU,Software\Valve\Half-Life\Settings,Key"
Serial(73) = "Hellgate: London,HKLM,SOFTWARE\Electronic Arts\EA Games\Hellgate: London,ergc"
Serial(74) = "Hidden and Dangerous 2,HKLM,Software\Illusion Softworks\Hidden & Dangerous 2,key"
Serial(75) = "IGI2: Covert Strike,HKLM,Software\IGI 2 Retail\CDKey,CDkey"
Serial(76) = "InCD Serial,HKLM,SOFTWARE\Ahead\InCD,License"
Serial(77) = "InCD Username,HKLM,SOFTWARE\Ahead\InCD,UserName"
Serial(78) = "Industry Giant 2,HKCU,Software\JoWooD\InstalledGames\IG2,prvkey"
Serial(79) = "iPod Converter (Serial),HKLM,Software\AVConverter\iPod Converter,Registration Code"
Serial(80) = "iPod Converter (Name),HKLM,Software\AVConverter\iPod Converter,User Name"
Serial(81) = "James Bond 007 Nightfire,HKLM,Software\Electronic Arts\EA GAMES\James Bond 007 Nightfire,ergc"
Serial(82) = "Legends of Might and Magic,HKCU,Software\3d0\Status Legends of Might and Magic,CustomerNumber"
Serial(83) = "Macromedia Flash 7,HKLM,SOFTWARE\Macromedia\Flash\7\Registration,Serial Number"
Serial(84) = "Macromedia Fireworks 7,HKLM,SOFTWARE\Macromedia\Fireworks\7\Registration,Serial Number"
Serial(85) = "Macromedia Dreamweaver 7,HKLM,SOFTWARE\Macromedia\Dreamweaver\7\Registration,Serial Number"
Serial(86) = "Madden NFL 07,HKLM,Software\Electronic Arts\EA Sports\Madden NFL 07,ergc"
Serial(87) = "Matrix Screensaver,HKCU,Software\JSG\Matrix Saver V2,Registration"
Serial(88) = "Medal of Honor: Airborne,HKLM,SOFTWARE\Electronic Arts\Medal of Honor Airborne,Product GUID"
Serial(89) = "Medal of Honor: Allied Assault,HKLM,Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault,ergc"
Serial(90) = "Medal of Honor: Allied Assault: Breakthrough,HKLM,Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough,ergc"
Serial(91) = "Medal of Honor: Allied Assault: Spearhead,HKLM,Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead,ergc"
Serial(92) = "Medal of Honor: Heroes 2,HKLM,SOFTWARE\Electronic Arts\EA Games\Medal of Honor: Heroes 2,ergc"
Serial(93) = "mIRC (Name),HKCU,Software\mIRC\,UserName"
Serial(94) = "mIRC (Serial),HKCU,Software\mIRC\,License"
Serial(95) = "Nascar Racing 2002,HKLM,Software\Electronic Arts\EA Sports\Nascar Racing 2002,ergc"
Serial(96) = "Nascar Racing 2003,HKLM,Software\Electronic Arts\EA Sports\Nascar Racing 2003,ergc"
Serial(97) = "NHL 2002,HKLM,Software\Electronic Arts\EA Sports\NHL 2002,ergc"
Serial(98) = "NBA 2003,HKLM,Software\Electronic Arts\EA Sports\NBA LIVE 2003,ergc"
Serial(99) = "NBA 2004,HKLM,Software\Electronic Arts\EA Sports\NBA LIVE 2004,ergc"
Serial(100) = "NBA 2007,HKLM,SOFTWARE\Electronic Arts\EA Sports\NBA LIVE 07,ergc"
Serial(101) = "NBA Live 08,HKLM,Software\Electronic Arts\EA Sports\NBA Live 08,ergc"
Serial(102) = "Need for Speed Carbon,HKLM,SOFTWARE\Electronic Arts\Electronic Arts\Need for Speed Carbon,ergc"
Serial(103) = "Need For Speed Hot Pursuit 2,HKLM,Software\Electronic Arts\EA GAMES\Need For Speed Hot Pursuit 2,ergc"
Serial(104) = "Need For Speed Most Wanted,HKLM,Software\Electronic Arts\EA GAMES\Need for Speed Most Wanted,ergc"
Serial(105) = "Need For Speed ProStreet,HKLM,SOFTWARE\Electronic Arts\Electronic Arts\Need for Speed ProStreet,ergc"
Serial(106) = "Need For Speed Underground,HKLM,Software\Electronic Arts\EA GAMES\Need For Speed Underground,ergc"
Serial(107) = "Need for Speed Underground 2,HKLM,SOFTWARE\Electronic Arts\EA Games\Need for Speed Underground 2,ergc"
Serial(108) = "Nero Burning Rom 6,HKLM,SOFTWARE\Ahead\Nero - Burning Rom\Info,Serial6"
Serial(109) = "Nero 7,HKLM,Software\Nero\Installation\Families\Nero 7\Info,Serial7_1191197813"
Serial(110) = "Nero 8,HKLM,SOFTWARE\Nero\Installation\Families\Nero 8\Info,Serial8_1194709660"
Serial(111) = "NHL 2002,HKLM,Software\Electronic Arts\EA Sports\NHL 2002,ergc"
Serial(112) = "NHL 2003,HKLM,Software\Electronic Arts\EA Sports\NHL 2003,ergc"
Serial(113) = "NHL 2004,HKLM,Software\Electronic Arts\EA Sports\NHL 2004,ergc"
Serial(114) = "NHL 2005,HKLM,SOFTWARE\Electronic Arts\EA Sports\NHL 2005,ergc"
Serial(115) = "NOX,HKLM,Software\Westwood\Nox,Serial"
Serial(116) = "Numega SmartCheck,HKLM,SOFTWARE\NuMega\SmartCheck,Serial"
Serial(117) = "Online TVPlayer (Name),HKLM,Software\OnlineTVPlayer\RegInfo,name"
Serial(118) = "Online TVPlayer (Serial),HKLM,Software\OnlineTVPlayer\RegInfo,serial"
Serial(119) = "O&O Defrag 8.0 (Username),HKLM,SOFTWARE\O&O\O&O Defrag\8.0\Pro\licenses,User"
Serial(120) = "O&O Defrag 8.0 (Company),HKLM,SOFTWARE\O&O\O&O Defrag\8.0\Pro\licenses,Company"
Serial(121) = "O&O Defrag 8.0 (Serial),HKLM,SOFTWARE\O&O\O&O Defrag\8.0\Pro\licenses,SerialNo"
Serial(122) = "Partition Magic 8.0,HKLM,SOFTWARE\PowerQuest\PartitionMagic\8.0\UserInfo,SerialNumber"
Serial(123) = "Passware Encryption Analyzer (License),HKCU,Software\Passware\Encryption Analyzer\1\Registration,License"
Serial(124) = "Passware Encryption Analyzer (Name),HKCU,Software\Passware\Encryption Analyzer\1\Registration,Name"
Serial(125) = "Passware Encryption Analyzer (Serial),HKCU,Software\Passware\Encryption Analyzer\1\Registration,Serial"
Serial(126) = "Passware Windows Key (License),HKCU,Software\Passware\Windows Key\7\Registration,License"
Serial(127) = "Passware Windows Key (Name),HKCU,Software\Passware\Windows Key\7\Registration,Name"
Serial(128) = "Passware Windows Key (Serial),HKCU,Software\Passware\Windows Key\7\Registration,Serial"
Serial(129) = "PowerDvD,HKLM,Software\CyberLink\PowerDVD,UI_RMK"
Serial(130) = "PowerStrip,HKLM,Software\EnTech\PowerStrip,Key"
Serial(131) = "Pro Evolution Soccer 2008,HKLM,Software\KONAMI\PES2008,code"
Serial(132) = "Rainbow Six III RavenShield,HKLM,Software\Red Storm Entertainment\RAVENSHIELD,CDKey"
Serial(133) = "Shogun Total War Warlord Edition,HKLM,Software\Electronic Arts\EA GAMES\Shogun Total War - Warlord Edition,ergc"
Serial(134) = "Sid Meier's Pirates!,HKLM,SOFTWAREAtariSid Meier's Pirates!,CDKey"
Serial(135) = "Silent Hunter III,HKCU,Software\Ubisoft\SILENT HUNTER III\Keys,DiscKey_SH3"
Serial(136) = "Sim City 4 Deluxe,HKLM,Software\Electronic Arts\Maxis\ Sim City 4 Deluxe,ergc"
Serial(137) = "Sim City 4,HKLM,Software\Electronic Arts\Maxis\ Sim City 4,ergc"
Serial(138) = "Sniffer Pro 4.5,HKLM,SOFTWARE\Network Associates, Inc.\Sniffer Pro\4.5\USER,SerialNumber"
Serial(139) = "Soldiers Of Anarchy,HKCU,Software\Silver Style Entertainment\Soldiers Of Anarchy\Settings,SerialNumber"
Serial(140) = "Stalker - Shadow of Chernobyl,HKLM,SOFTWARE\GSC Game World\STALKER-SHOC,InstallCDKEY"
Serial(141) = "Star Wars Battlefront II (v1.0),HKLM,SOFTWARE\LucasArts\Star Wars Battlefront II\1.0,CD Key"
Serial(142) = "Star Wars Battlefront II (v1.1),HKLM,SOFTWARE\LucasArts\Star Wars Battlefront II\1.1,CD Key"
Serial(143) = "Steam installiert!,HKLM,Software\Valve\Steam,InstallPath"
Serial(144) = "Steganos Internet Anonym VPN,HKLM,Software\Steganos\SIAVPN,ClientID"
Serial(145) = "Splinter Cell Pandora Tomorrow,HKLM,Software\Ubisoft\Splinter Cell Pandora Tomorrow,CDKey"
Serial(146) = "Surpreme Commander,HKLM,SOFTWARE\THQ\Gas Powered Games\Supreme Commander,KEY"
Serial(147) = "S.W.A.T 2,HKCU,Software\Sierra\CDKey,swat2"
Serial(148) = "S.W.A.T 3,HKCU,Software\Sierra\CDKey,swat3"
Serial(149) = "S.W.A.T 4,HKCU,Software\Sierra\CDKey,swat4"
Serial(150) = "TechSmith SnagIt (Serial),HKLM,Software\TechSmith\SnagIt\8,RegistrationKey"
Serial(151) = "TechSmith SnagIt (Name),HKLM,Software\TechSmith\SnagIt\8,RegisteredTo"
Serial(152) = "Texas Calculatem 4 (Owner),HKLM,SOFTWARE\TexasCalc\License,Owner Name"
Serial(153) = "Texas Calculatem 4 (Serial),HKLM,SOFTWARE\TexasCalc\License,Registration Key"
Serial(154) = "The Battle for Middle-earth,HKLM,Software\Electronic Arts\EA Games\The Battle for Middle-earth,ergc"
Serial(155) = "The Gladiators,HKCU,Software\Eugen Systems\The Gladiators,ergc"
Serial(156) = "The Orange Box,HKLM,SOFTWARE\Electronic Arts\EA Games\The Orange Box,ergc"
Serial(157) = "The Sims Deluxe,HKLM,Software\Electronic Arts\Maxis\The Sims Deluxe,ergc"
Serial(158) = "The Sims Hot Date,HKLM,Software\Electronic Arts\Maxis\The Sims Hot Date,ergc"
Serial(159) = "The Sims House Party,HKLM,Software\Electronic Arts\Maxis\The Sims House Party,ergc"
Serial(160) = "The Sims Livin' Large,HKLM,SoftwareElectronic ArtsMaxisThe Sims Livin Large,ergc"
Serial(161) = "The Sims Superstar,HKLM,SoftwareElectronic ArtsMaxisThe Sims Superstar,ergc"
Serial(162) = "The Sims Unleashed,HKLM,SoftwareElectronic ArtsMaxisThe Sims Unleashed,ergc"
Serial(163) = "The Sims Vacation,HKLM,SoftwareElectronic ArtsMaxisThe Sims Vacation,ergc"
Serial(164) = "The Sims,HKLM,SoftwareElectronic ArtsMaxisThe Sims,ergc"
Serial(165) = "Timeshift,HKCU,SoftwareSierraCDKey,Timeshift"
Serial(166) = "TMPGEnc DVD Author,HKLM,SOFTWAREPegasys Inc.TMPGEnc DVD Author1.0,RegistrationCode"
Serial(167) = "TMPGEnc Plus 2.5,HKCU,SoftwarePegasys Inc.TMPGEnc Plus2.5,SerialID"
Serial(168) = "Trackmania United,HKLM,SOFTWARENadeoTmUnitedKeysLicense0,key"
Serial(169) = "TuneUp 2007 (Name),HKLM,SOFTWARETuneUpUtilities6.0,UserName"
Serial(170) = "TuneUp 2007 (Key),HKLM,SOFTWARETuneUpUtilities6.0,RegCode"
Serial(171) = "TuneUp 2007 (Company),HKLM,SOFTWARETuneUpUtilities6.0,Company"
Serial(172) = "TuneUp 2008 (Name),HKLM,SOFTWARETuneUpUtilities7.0,UserName"
Serial(173) = "TuneUp 2008 (Key),HKLM,SOFTWARETuneUpUtilities7.0,RegCode"
Serial(174) = "TuneUp 2008 (Company),HKLM,SOFTWARETuneUpUtilities7.0,Company"
Serial(175) = "Ulead Burn.Now,HKLM,SoftwareUlead SystemsUlead Brun.Now1.5Installer,Serial Number"
Serial(176) = "Ulead DVD Power Tools 2,HKLM,SOFTWAREUlead SystemsUlead DVD PowerTools2.0installer,Serial Number"
Serial(177) = "Unreal Tournament 2003,HKLM,SoftwareUnreal TechnologyInstalled AppsUT2003,CDKey"
Serial(178) = "Unreal Tournament 2004,HKLM,SoftwareUnreal TechnologyInstalled AppsUT2004,CDKey"
Serial(179) = "VSO ConvertXtoDVD,HKLM,SOFTWAREVSOConvertXtoDVD,LicenseKey"
Serial(180) = "Visual CertExam Suite (ActCode),HKCU,SoftwareVisual CertExam Suite,ActCode"
Serial(181) = "Visual CertExam Suite (RegCode),HKCU,SoftwareVisual CertExam Suite,RegCode"
Serial(182) = "Visual CertExam Suite (Serial),HKCU,SoftwareVisual CertExam Suite,Serial"
Serial(183) = "VMWare,HKLM,SOFTWAREVMware, Inc.VMware Workstation,ProductCode"
Serial(184) = "VMWare Workstation 5.0,HKLM,SOFTWAREVMware, Inc.VMware WorkstationLicense.ws.5.0,Serial"
Serial(185) = "Winamp (Username),HKLM,SOFTWARENullsoftWinamp,regname"
Serial(186) = "Winamp (Serial),HKLM,SOFTWARENullsoftWinamp,regkey"
Serial(187) = "WinISO (Username),HKLM,SOFTWAREWinISO,UserName"
Serial(188) = "WinISO (Serial),HKLM,SOFTWAREWinISO,Registration"
Serial(189) = "Windows Product Key,HKLM,SOFTWAREMicrosoftWindows NTCurrentVersion,ProductID"
Serial(190) = "World of Warcraft Installiert!,HKLM,SoftwareBlizzard EntertainmentWorld of Warcraft,InstallPath"
Serial(191) = "Zanzarah,HKCU,SoftwareFunaticsZanzarah,SerialNumber"
Serial(192) = "ZoneAlarm(Serial),HKLM,SoftwareZone LabsZoneAlarmRegistration,SerialNum"
Serial(193) = "ZoneAlarm(Name),HKLM,SoftwareZone LabsZoneAlarmRegistration,RegisteredOwner"
Serial(194) = "ZoneAlarm(Firma),HKLM,SoftwareZone LabsZoneAlarmRegistration,RegisteredOrganization"
End Function
Sub Main()
Applications
Open App.Path & "" & FileName For Append As #1
For sayac = 0 To UBound(Serial)
Program() = Split(Serial(sayac), ",")
Print #1, Oku(Program(0), Program(1), Program(2), Program(3))
Next
Close #1
End Sub
Comment