[Perl] DH Sniffer 0.3

en: Enero 18, 2014, 07:56:33 pm

Un simple sniffer en perl para capturar todo lo que pasa en los metodos GET y POST

El codigo :

Código: Perl

#!usr/bin/perl
#DH Sniffer 0.3
#(C) Doddy Hackman 2014
#Credits :
#Based on :
#http://stackoverflow.com/questions/4777042/can-i-use-tcpdump-to-get-http-requests-response-header-and-response-body
#http://www.perlmonks.org/?node_id=656590
#http://stein.cshl.org/~lstein/talks/WWW6/sniffer/
#http://perlenespanol.com/foro/post36051.html
#Thanks to : Lincoln D. Stein , paulz and Explorer
 
use CGI;
use threads;
use URI::Escape;
 
$| = 1;
 
my $control = shift;
 
head();
 
if ( $control eq "" ) {
    print "\n[+] Sintax : $0 <option>\n";
    print "\n[++] Options :\n";
    print "\n[+] -g : Capture method GET\n";
    print "[+] -p : Capture method POST\n";
    print "\n[+] Example : sudo perl $0 -pg\n";
    copyright();
}
 
print "\n";
 
my $hilo_get  = threads->new( \&sniffer_get );
my $hilo_post = threads->new( \&sniffer_post );
 
$hilo_get->join;
$hilo_post->join;
 
sub sniffer_get {
 
    if ( $control =~ /g/ ) {
 
        open( GET, "/usr/sbin/tcpdump -lnx -s 1024 dst port 80 |" );
 
        while (<GET>) {
 
            if (/^\S/) {
 
                while ( $contenido =~
                    /(GET|POST|WWW-Authenticate|Authorization).+/g )
                {
                    print "\n[+] $ip = $name " . uri_unescape($&);
                    savefile( "logs", "\n[+] $ip = $name " . uri_unescape($&) );
                }
 
                undef $ip;
                undef $name;
                undef $contenido;
 
                ( $ip, $name ) =
                  /IP (\d+\.\d+\.\d+\.\d+).+ > (\d+\.\d+\.\d+\.\d+)/;
 
            }
 
            s/\s+//g;
            s/0x[abcdef\d]+://i;
            s/([0-9a-f]{2})/chr(hex($1))/eg;
            tr/\x1F-\x7E\r\n//cd;
 
            $contenido .= $_;
 
        }
    }
}
 
sub sniffer_post {
 
    if ( $control =~ /p/ ) {
 
        open( POST,
"tcpdump -A -s 0 'tcp port 80 and (((ip[2:2] - ((ip[0]&0xf)<<2)) - ((tcp[12]&0xf0)>>2)) != 0)' |"
        );
        while (<POST>) {
 
            if (/^\S/) {
 
                my $code = $_;
 
                $buscando = CGI->new($code);
 
                my @params = $buscando->param;
 
                foreach $par (@params) {
 
                    if ( $par =~ /\./ ) {
                        next;
                    }
                    else {
                        my $dataf = $buscando->param($par);
                        print "\n[+] $par " . " : " . $dataf;
                        savefile( "logs", "\n[+] $par " . " : " . $dataf );
                    }
                }
            }
        }
    }
}
 
sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1];
    close SAVE;
}
 
sub head {
    print "\n-- == DH Sniffer 0.3 == --\n";
}
 
sub copyright {
    print "\n-- == (C) Doddy Hackman 2014 == --\n\n";
    exit(1);
}
 
# The End ?
 

Eso es todo.

Tutorial perl desde cero By: Black Poision & Painboy Iniciado por ProcessKill	Respuestas: 2 Vistas: 4789	Septiembre 02, 2011, 09:43:36 pm por blozzter
[Perl] Verificando si es root para correr un script Iniciado por c1st	Respuestas: 1 Vistas: 2802	Octubre 07, 2012, 06:01:39 pm por ANTRAX
Funciones más utilizadas en la programación de un perl script Iniciado por Dragora	Respuestas: 0 Vistas: 3583	Enero 06, 2019, 01:01:06 am por Dragora
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl Iniciado por tar3kw0rm3d	Respuestas: 0 Vistas: 2714	Junio 02, 2013, 08:01:28 pm por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List Iniciado por BigBear	Respuestas: 0 Vistas: 2180	Noviembre 12, 2012, 07:32:11 pm por BigBear

Underc0de - Hacking y seguridad informática

[Perl] DH Sniffer 0.3

BigBear

[Perl] DH Sniffer 0.3

Similar topics (5)