Thread IO::Socket; "Zwitter" (5 answers)
Opened by KCobain at 2011-11-07 19:42

KCobain
 2011-11-07 19:42
#153987 #153987
User since
2011-10-03
34 Artikel
BenutzerIn
[default_avatar]
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

View full thread IO::Socket; "Zwitter"