crazysniffer-gui.pl

一个rst守护程序

#!/usr/bin/perl
#
# GUI code 4 crazysniffer.pl
#
# Last Update: 29.07.2002
#
# Programmed by Bastian Ballmann [ [e-mail] ]
# http://www.crazydj.de
#
# Part of the P.A.T.H project
# http://p-a-t-h.sourceforge.net
#
# This code is licensed under the GPL

###[ Loading Modules ]###

use Tk;


###[ MAIN PART ]###

# Hauptfenster
$top = MainWindow->new();
$top->title('[ Crazy Sniffer ]');
$top->configure(background => 'black', foreground => 'green', borderwidth => 2);

# Frames
$inhalt = $top->Frame->pack(side => 'top', pady => 10, padx => 10);
$inhalt->configure(background => 'black', foreground => 'green');

$configure = $top->Frame->pack(side => 'top', pady => 5, padx => 10);
$configure->configure(background => 'black', foreground => 'green', borderwidth => 2);

$left = $configure->Frame->pack(side => 'left', padx => 10);
$left->configure(background => 'black', foreground => 'green');

$right = $configure->Frame->pack(side => 'right', padx => 10);
$right->configure(background => 'black', foreground => 'green');

$toolbar = $top->Frame->pack(side => 'bottom', pady => 5, padx => 10);
$toolbar->configure(background => 'black', foreground => 'green', borderwidth => 2);

$ausgabe = $top->Frame->pack(side => 'bottom', pady => 15, padx => 10);
$ausgabe->configure(background => 'black', foreground => 'green');

$down = $top->Frame->pack(side => 'bottom', padx => 10, pady => 0);
$down->configure(background => 'black', foreground => 'green');
$d_left = $down->Frame->pack(side => 'left', padx => 10);
$d_left->configure(background => 'black', foreground => 'green');
$d_right = $down->Frame->pack(side => 'right', padx => 10);
$d_right->configure(background => 'black', foreground => 'green');
$p = $d_right->Frame->pack(side => 'top', padx => 10);
$p->configure(background => 'black', foreground => 'green');
$r = $d_right->Frame->pack(side => 'top', padx => 10);
$r->configure(background => 'black', foreground => 'green');
$s = $d_right->Frame->pack(side => 'top', padx => 10);
$s->configure(background => 'black', foreground => 'green');


# Labels
$inhalt->Label(text => '[ Crazysniffer ]',
		background => 'black',
		foreground => 'green',
		border => 0)->pack(pady => 5);

$inhalt->Label(text => '[ Programmed by Bastian Ballmann ]',
		background => 'black',
		foreground => 'green',
		border => 0)->pack(pady => 5);


# Configuration

$left->Label(text => 'Network device:',
	     background => 'black',
	     foreground => 'green',
	     border => 0)->pack(pady => 10, padx => 5);
$device = $right->Entry(background => 'black',
				foreground => 'green')->pack(pady => 6);
$device->insert(0,"eth0");


$left->Label(text => 'Pcap expression:',
	     background => 'black',
	     foreground => 'green',
	     border => 0)->pack(pady => 10, padx => 5);

$pcap_expr = $right->Entry(background => 'black',
			    foreground => 'green')->pack(pady => 6);

$pcap_expr->insert(0,"tcp");


$password = 0;

$d_left->Label(text => 'Password sniffin mode:',
	     background => 'black',
	     foreground => 'green',
	     border => 0)->pack(pady => 10, padx => 5);

$p->Radiobutton(variable => \$password,
		    text => 'Yes',
		    value => 1,
		    activebackground => 'black',
		    activeforeground => 'red',
		    background => 'black',
		    foreground => 'green')->pack(side => 'left', pady => 6);

$p->Radiobutton(variable => \$password,
		    text => 'No',
		    value => 0,
		    activebackground => 'black',
		    activeforeground => 'red',
		    background => 'black',
		    foreground => 'green')->pack(side => 'left', pady => 6);

$telnet = 0;

$d_left->Label(text => 'Telnet sniffin mode:',
	     background => 'black',
	     foreground => 'green',
	     border => 0)->pack(pady => 10, padx => 5);

$r->Radiobutton(variable => \$telnet,
		    text => 'Yes',
		    value => 1,
		    activebackground => 'black',
		    activeforeground => 'red',
		    background => 'black',
		    foreground => 'green')->pack(side => 'left', pady => 6);

$r->Radiobutton(variable => \$telnet,
		    text => 'No',
		    value => 0,
		    activebackground => 'black',
		    activeforeground => 'red',
		    background => 'black',
		    foreground => 'green')->pack(side => 'left', pady => 6);

$hex = 0;

$d_left->Label(text => 'Dump payload in hex:',
	     background => 'black',
	     foreground => 'green',
	     border => 0)->pack(pady => 10, padx => 5);

$s->Radiobutton(variable => \$hex,
		    text => 'Yes',
		    value => 1,
		    activebackground => 'black',
		    activeforeground => 'red',
		    background => 'black',
		    foreground => 'green')->pack(side => 'left', pady => 6);

$s->Radiobutton(variable => \$hex,
		    text => 'No',
		    value => 0,
		    activebackground => 'black',
		    activeforeground => 'red',
		    background => 'black',
		    foreground => 'green')->pack(side => 'left', pady => 6);

# Toolbar
$toolbar->Button(text => 'Start sniffin',
			background => 'black',
			foreground => 'green',
			activebackground => 'black',
			activeforeground => 'red',
			borderwidth => 0,
			border => 0,
			command => \&getcfg)->pack(side => 'left', padx => 10);

$toolbar->Button(text => 'Quit',
			background => 'black',
			foreground => 'green',
			activebackground => 'black',
			activeforeground => 'red',
			borderwidth => 0,
			border => 0,
			command => sub { exit(0); })->pack(side => 'right', padx => 10);

# Ausgabe
$ausgabe->Label(text => 'Output',
		background => 'black',
		foreground => 'green',
		border => 0)->pack(side => 'top', pady => 10);

#$result = $ausgabe->Text(background => 'black',
#			 foreground => 'green',
#			 border => 2,
#			 width => 57,
#			 height => 10)->pack(side => 'bottom', pady => 5);
$result = $ausgabe->Scrolled(Text,
			     background => 'black',
			     foreground => 'green',
			     border => 2,
			     width => 57,
			     height => 10)->pack(side => 'bottom', pady => 5);
$result->configure(scrollbars => 'o');

MainLoop();


###[ Subroutines ]###

# Readin the config
sub getcfg
{
    $args{'d'} = $device->get;
    $args{'f'} = $pcap_expr->get;
    
    if($password)
    {
	$args{'X'} = $password;
    }

    if($telnet)
    {
	$args{'t'} = $telnet;
    }

    if($hex)
    {
	$args{'x'} = $hex;
    }

    start(%args);
}

1;