Ping mit Net::RawIP

Folgendes Script demonstriert wie super einfach man einen Ping mit der Programmiersprache Perl erzeugen kann.

#!/usr/bin/perl
# hackerworkshop
# training since 2004
# very simple ping with perl

# have fun, klaus

use Net::RawIP;

print "Mein Ping ---> \n";


$a = new Net::RawIP ({icmp =>{}});
for (;;){
for ($i=0;$i<255;$i++){
$a->set({ip => { daddr => "192.168.1.101",
	 saddr => "192.168.2.80",
	 tos => $i 
	  }, icmp => {type => 8, id => $$}});
$a->set({icmp => {data => "haallo"} });

$a->send(); 
}}