[Perl Tk] HTTP FingerPrinting 0.1

Un simple script en Perl para HTTP FingerPrinting o por lo menos lo intenta xDD.

El codigo :

Código

#!usr/bin/perl
#HTTP FingerPrinting 0.1
#Coded By Doddy H
 
use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
 
print "\n-- == HTTP FingerPrinting 0.1 == --\n";
 
unless ( $ARGV[0] ) {
 
    print "\n[+] Sintax : $0 <page> < -fast / -full >\n";
 
}
else {
 
    print "\n[+] Getting Data ...\n";
 
    my $code = $nave->get( $ARGV[0] );
 
    print "\n----------------------------------------------\n";
 
    if ( $ARGV[1] eq "-full" ) {
 
        print $code->headers()->as_string();
 
    }
    else {
 
        print "\n[+] Date : " . $code->header('date');
        print "\n[+] Server : " . $code->header('server');
        print "\n[+] Connection : " . $code->header('connection');
        print "\n[+] Content-Type : " . $code->header('content-type');
 
    }
 
    print "\n----------------------------------------------\n";
 
}
 
print "\n[+] Coded By Doddy H\n";
 
#The End ?

Tambien hice una version grafica :

Una imagen :

El codigo :

Código

#!usr/bin/perl
#HTTP FingerPrinting 0.1
#Version Tk
#Coded By Doddy H
 
use Tk;
use LWP::UserAgent;
 
if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
 
my $background_color = "black";
my $foreground_color = "green";
 
my $ven = MainWindow->new(
    -background => $background_color,
    -foreground => $foreground_color
);
$ven->title("HTTP FingerPrinting 0.1 (C) Doddy Hackman 2013");
$ven->geometry("430x340+20+20");
$ven->resizable( 0, 0 );
 
$ven->Label(
    -background => $background_color,
    -foreground => $foreground_color,
    -text       => "Target : ",
    -font       => "Impact"
)->place( -x => 20, -y => 20 );
my $target = $ven->Entry(
    -background => $background_color,
    -foreground => $foreground_color,
    -width      => 30,
    -text       => "http://www.petardas.com"
)->place( -x => 80, -y => 25 );
$ven->Button(
    -command          => \&fast,
    -activebackground => $foreground_color,
    -background       => $background_color,
    -foreground       => $foreground_color,
    -text             => "Fast",
    -width            => 10
)->place( -x => 270, -y => 25 );
$ven->Button(
    -command          => \&full,
    -activebackground => $foreground_color,
    -background       => $background_color,
    -foreground       => $foreground_color,
    -text             => "Full",
    -width            => 10
)->place( -x => 345, -y => 25 );
$ven->Label(
    -background => $background_color,
    -foreground => $foreground_color,
    -text       => "OutPut",
    -font       => "Impact"
)->place( -x => 175, -y => 70 );
my $output = $ven->Text(
    -background => $background_color,
    -foreground => $foreground_color,
    -width      => 55,
    -heigh      => 15
)->place( -x => 18, -y => 100 );
 
MainLoop;
 
sub fast {
 
    $output->delete( "0.1", "end" );
 
    my $code = $nave->get( $target->get );
 
    $output->insert( "end", "[+] Date : " . $code->header('date') );
    $output->insert( "end", "\n[+] Server : " . $code->header('server') );
    $output->insert( "end",
        "\n[+] Connection : " . $code->header('connection') );
    $output->insert( "end",
        "\n[+] Content-Type : " . $code->header('content-type') );
 
}
 
sub full {
 
    $output->delete( "0.1", "end" );
 
    my $code = $nave->get( $target->get );
 
    $output->insert( "end", $code->headers()->as_string() );
 
}
 
#The End ?