IO::Socket; "Zwitter" (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16893[/thread]

IO::Socket; "Zwitter" [gelöst]

Tags: perl5 socket Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+6 replies
KCobain

2011-11-07 19:42
User since
2011-10-03
34 Artikel
BenutzerIn
Moinsen,
ich programmiere grade für die Presentation sowas wie ein Bot/Backdoor in Perl. Natürlich nur stumpfe befehle um die technik zu zeigen. Bisjetzt habe ich folgendes.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!/usr/bin/perl use strict; use warnings; use IO::Socket; my $new_socket; $SIG{INT} = \&ak; sub ak() { die("Killed!"); } my $socket = new IO::Socket::INET( LocalHost => "localhost", LocalPort => 9999, Proto => 'tcp', Listen => SOMAXCONN, Reuse => 1 ) || die("Kann den Socket nicht initiallisieren! $!"); while(1){ $new_socket = $socket->accept(); print "Angreifer hat sich eingeloggt!"; while(<$new_socket>) { print $_; } close($socket); }
Funktioniert auch wunderbar. Nun habe ich daran gedacht ein paar an Kommandos umzusetzten, einige davon sollen an "den Angreifer" auch eine Rückmeldung geben. Wie kann ich nun in den Socket schreiben? Der ist ja eigentlich auf "hören" geschaltet
- +5 replies
- KCobain
  
  2011-11-07 19:47
  
  User since
  2011-10-03
  34 Artikel
  BenutzerIn
  
  Habe grad probiert einfach rein zuschreiben, funktioniert. Aber ist das unsauber?
  - +4 replies
  - topeg
    
    2011-11-08 00:33
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Wenn erst mal eine Verbindung hergestellt ist, dann können beide Seiten miteinander kommunizieren. Die Kommunikation ist nicht einseitig. Einen Server und Client gibt es, weil sich beide "Gesprächspartner" ja irgendwie finden müssen. Der Server bietet eine Feste IP und Port und der Client fordert eine Verbindung an. Das Paar "Client-IP+Port <> Server-IP+Port" ist absolut einzigartig und gibt auf der ganzen Welt zu diesem Zeitpunkt nur einmal. Mit dieser Kennung verschickte Nachrichten finden immer den Empfänger. In beide Richtungen.
    
    Noch eine Bemerkung.
    Ohne einen fork des Servers kann immer nur eine Verbindung zur selben Zeit aufgebaut werden. Es geht auch anders mit threads oder POE.
    mit fork würde es ungefähr so ablaufen:
    more (23.5kb)
    Ich gebe zu ich hatte Spaß die Funktionalität zu erweitern. :-)
    Last edited: 2011-11-08 00:38:18 +0100 (CET)
    - +3 replies
    - KCobain
      
      2011-11-08 15:26
      
      User since
      2011-10-03
      34 Artikel
      BenutzerIn
      
      oooooh. Danke Danke. Du bist ein Gott.
      Aber
      
      Code (perl): (dl )
      
      `$1`
      
      Funktioniert das überhaupt auf Windoof Systemen?
      Ich kenn's nur von Linux.
      Last edited: 2011-11-08 15:35:44 +0100 (CET)
      - +2 replies
      - GwenDragon
        
        2011-11-08 15:39
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, klar doch.
        
        Schau:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        C:\>perl -e"print `dir X:`" Datenträger in Laufwerk X: ist Unix Volumeseriennummer: CAFF-EE00 Verzeichnis von X:\ 04.11.2011 10:53 <DIR> bin 28.06.2011 15:34 <DIR> home 31.10.2011 13:10 <DIR> media 04.11.2011 11:43 <DIR> opt 03.11.2011 20:12 <DIR> tmp 14.07.2011 16:49 <DIR> usr 31.08.2011 22:39 <DIR> var 0 Datei(en), 0 Bytes 7 Verzeichnis(se), 50.813.485.056 Bytes frei
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        KCobain
        
        2011-11-08 15:52
        
        User since
        2011-10-03
        34 Artikel
        BenutzerIn
        
        Okay, Danke

View all threads created 2011-11-07 19:42.