PATH:
usr
/
local
/
sbin
#!/usr/local/bin/perl my $netblock = shift(@ARGV); chomp($netblock); if ($netblock eq ""){ print "Prayers to the GOD of firewall are accepted only if followed by an IP address/hostname.. Where is yours sacrifice for the cult? \n"; } else { if ( $netblock =~ /127.0.0.1/ or $netblock =~ /69.175.41/ or $netblock =~ /74.55.12.210/ or $netblock =~ /74.55.238.226/ or $netblock =~ /69.175.60.114/ or $netblock =~ /69.175.84.194/ or $netblock =~ /69.175.84.2/ or $netblock =~ /74.200.74.237/) { print "You can not block $netblock. It belongs to GOD.. and by GOD -- I mean My GOD, not yours, so.. stop praying \n"; } else { system("iptables -I INPUT -s $netblock -p tcp --destination-port 25 -j DROP"); print "$netblock dropped\n"; } }
[-] 1
[edit]
[-] 99
[edit]
[-] 11
[edit]
[-] 25bl
[edit]
[+]
..
[-] 2
[edit]
[-] portchk
[edit]
[-] restrict
[edit]
[-] 80
[edit]
[-] 12
[edit]
[-] 33
[edit]
[-] 5
[edit]
[-] 7
[edit]
[-] mqkill
[edit]
[-] 3
[edit]
[-] 88
[edit]
[-] dai
[edit]
[-] logs
[edit]
[-] 4
[edit]
[-] ukill
[edit]
[-] c
[edit]
[-] 25
[edit]
[-] 22
[edit]
[-] 6
[edit]
[-] bl
[edit]