Using perl Syntax Highlighting
- #!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 ?
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
