feed_snort-gui.pl

一个rst守护程序

#!/usr/bin/perl
#
# GUI code 4 feed_snort.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('[ Feed Snort ]');
$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 => '[ Feed SN0RT ]',
		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 => 'Snort Rulefiles:',
	     background => 'black',
	     foreground => 'green',
	     border => 0)->pack(pady => 10, padx => 5);
$rules = $right->Entry(background => 'black',
		       foreground => 'green')->pack(pady => 6);


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

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


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

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


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

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


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

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



# Toolbar
$toolbar->Button(text => 'Start feeding',
			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->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{'r'} = $rules->get;
    $args{'s'} = $source->get;
    $args{'h'} = $destination->get;
    $args{'p'} = $port->get;
    $args{'w'} = $delay->get;
    start();
}

1;