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