El código :
Using perl Syntax Highlighting
- #!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 ?
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
También hice una versión gráfica :
Una imagen :
El código:
Using perl Syntax Highlighting
- #!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 ?
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4