[Perl] AnonFiles Uploader

BigBear · Mayo 13, 2013, 07:13:19 PM

Traduccion a Perl del programa hecho por $DoC llamado You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login hecho para subir archivos a la pagina AnonFiles.

Código: perl


#!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 ?

[Perl] AnonFiles Uploader

BigBear

Mayo 13, 2013, 07:13:19 PM