hijackd-gui.pl

一个rst守护程序

#!/usr/bin/perl
#
# GUI code 4 hijackd
#
# Programmed by Bastian Ballmann [ [e-mail] ]
#
# Last Update: 06.11.2002
#
# This code is licensed under the GPL

###[ Loading modules ]###

use Tk;
require "../modules/mkchild.pl";


###[ MAIN PART ]###

# Hauptfenster
$top = MainWindow->new();
$top->title('Hijackd -- Automatic hijacking daemon for plain protocols');
$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');


# Labels
$inhalt->Label(text => '[ Hijackd -- Automatic hijacking daemon for plain protocols ]',
		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 => 'Host:',
	     background => 'black',
	     foreground => 'green',
	     border => 0)->pack(pady => 10, padx => 5);
$target = $right->Entry(background => 'black',
				foreground => 'green')->pack(pady => 6);

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

$left->Label(text => '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 => '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');

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

$toolbar->Button(text => 'Stop hijackd',
			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);

MainLoop();



###[ Subroutines ]###

# Read the configuration
sub getcfg
{
    $tmp = $target->get;

    if(length($tmp) > 0)
    {
	$args{'h'} = $tmp;
    }

    $tmp = $connection->get;

    if(length($tmp) > 0)
    {
	$args{'c'} = $tmp;
    }

    $tmp = $device->get;
    $args{'i'} = $tmp;
    $tmp = $port->get;

    if(length($tmp) > 0)
    {
	$args{'p'} = $tmp;
    }

    &mkchild(\&start,\%args);
}