en pastebin de una forma rapida y sin ganas xDDD
Entonces , este programa tiene dos opciones :
- Publica solo un archivo
- Publica todos los archivos en un directorio
Tambien detecta el tipo de extension para poder publicar el codigo en su respectivo tipo de codigo
Código
#!usr/bin/perl #Paste Bin Uploader (C) Doddy Hackman 2011 use LWP::UserAgent; use HTTP::Request::Common; my $nave = LWP::UserAgent->new(); $nave->timeout(10); $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"); menu(); sub menu { clean(); header(); if ($op eq 1) { if (-f $file) { ($name,$exta) =verfile($file); my $ext = extensiones($exta); if ($ext ne "Yet") { $code = openfile($file); $re = lleva($name,$code,$ext); savefile("uploads_paste.txt","\n[+] File : $file"); savefile("uploads_paste.txt","[+] Link : ".$re); } } else { } reload(); } elsif ($op eq 2) { if (-d $dir) { my @files = verdir($dir); for my $file(@files) { my ($name,$exta) =verfile($file); my $ext = extensiones($exta); if ($ext ne "Yet") { my $code = openfile($dir."/".$file); $re = lleva($name,$code,$ext); savefile("uploads_paste.txt","\n[+] File : $file"); savefile("uploads_paste.txt","[+] Link : ".$re); } } } else { } reload(); } elsif ($op eq 3) { copyright(); <stdin>; } else { menu(); } } sub copyright { } sub header { PPPP AA SSSSTTTTTTEEEE BBBB II NN NN UU UU PPPP PP PP AA SS S TT EE BB BB II NNN NN UU UU PP PP PP PP AAAA SS TT EE BB BB II NNNN NN UU UU PP PP PPPP A A SSS TT EEEE BBBB II NN N NN UU UU PPPP PP AAAAAA SS TT EE BB BB II NN NNNN UU UU PP PP AA AA S SS TT EE BB BB II NN NNN UUUUUU PP PP AA AA SSSS TT EEEE BBBB II NN NN UUUU PP ); } sub clean { } sub verdir{ my @archivos; for (@archivos) { if (-f $_[0]."/".$_) { } } } sub verfile { if ($_[0]=~/(.*)\.(.*)/ig) { } } sub extensiones { if ($_[0] =~/py/ig) { $code = "python"; } elsif ($_[0] =~/pl/ig) { $code = "perl"; } elsif ($_[0] =~/rb/ig) { $code = "ruby"; } elsif ($_[0] =~/php/ig) { $code = "php"; } elsif ($_[0] =~/txt/ig) { $code = ""; } else { $code = "Yet"; } } sub reload { <stdin>; menu(); } sub savefile { close SAVE; } sub openfile { my $r; @wor = <FILE>; close FILE; for(@wor) { $r.= $_; } } sub lleva { return $nave->post('http://pastebin.com/api_public.php',{ paste_code => $_[1],paste_name=> $_[0],paste_format=>$_[2],paste_expire_date=>'N',paste_private=>"public",submit=>'submit'})->content; } # ¿ The End ?