ip-packet-main.pl

一个rst守护程序

#!/usr/bin/perl
# IP-Packet -- The ultimative Packet Generator written in Perl
#
# The Main Program Code
#
################################################################
#
# Last Update 30.08.2002
#
# Programmed by Bastian Ballmann [ [e-mail] ]
# http://www.crazydj.de 
#
# Perl is phun!!! =)
#
# This code is licensed under the GPL

###[ Loading the modules ]###

use Net::RawIP;    # Creating Raw packets
use path::config;  # Path configuration
use path::hijack;  # Hijacking stuff


###[ Creating and sending the packets ]###

sub run
{
    my $cfg = config->new();
    $cfg->set_opt(%config);
    $packet = hijack::create_packet($cfg);

# Sending the created packet over the wire
	$packet->send(0, $config{'number'});


###[ Print the result ]###

# If the GUI version was loaded...
if($top)
{
$result = $top->Toplevel;
$result->title('Result');
$result->configure(background => 'black');
$result->Label(text => "$config{'number'} packets were send over the wire...",
		background => 'black',
		foreground => 'green',
		border => 0)->pack(pady => 10);
$result->Button(text => 'Close',
		background => 'black',
		foreground => 'red',
	        activebackground => 'black',
	        activeforeground => 'red',
		command => sub { $result->destroy })->pack();
}
else
{
print "$config{'number'} packetz were send over the wire...\n";
}
}


1;