File manager - Edit - /usr/local/sbin/bl
Back
#!/usr/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 =~ /78.83.89.193/ 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 -j DROP"); print "$netblock dropped\n"; } }
| ver. 1.4 |
Github
|
.
| PHP 8.2.30 | Generation time: 0 |
proxy
|
phpinfo
|
Settings