Foro de elhacker.net

Traduccion a Perl del programa hecho por $DoC llamado AnonFiles Uploader (http://www.indetectables.net/viewtopic.php?f=12&t=43782) hecho para subir archivos a la pagina AnonFiles.

#!usr/bin/perl
#AnonFiles Uploader
#Original author: $ DoC
#Translations made by Doddy H
#
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
#
 
use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
unless ( $ARGV[0] ) {
    print "\n[+] Sintax : $0 <file>\n";
}
else {
 
    print "\n[+] Uploading ...\n";
 
    my $code = $nave->post(
        "https://anonfiles.com/api?plain",
        Content_Type => "form-data",
        Content      => [ file => [ $ARGV[0] ] ]
    )->content;
 
    if ( $code =~ /https:\/\/anonfiles\.com\/file\// ) {
        print "\n[+] Link : " . $code . "\n";
    }
    else {
        print "\n[-] Error\n";
    }
 
}
 
#The End ?