[Perl] PasteBin Uploader

  • 0 Respuestas
  • 1635 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] PasteBin Uploader

  • en: Julio 03, 2011, 09:49:04 pm
Bueno aca eh terminado un programa que los ayudara a publicar sus programas
en pastebin de una forma rapida y sin ganas xDDD

Entonces , este programa tiene dos opciones :

  • Publica solo un archivo [/li]
  • Publica todos los archivos en un directorio[/li][/list]

    Tambien detecta el tipo de extension para poder publicar el codigo en su respectivo tipo de codigo

    Código: Perl
    1. #!usr/bin/perl
    2. #Paste Bin Uploader (C) Doddy Hackman 2011
    3.  
    4. use LWP::UserAgent;
    5. use HTTP::Request::Common;  
    6.  
    7. my $nave = LWP::UserAgent->new();
    8. $nave->timeout(10);
    9. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
    10.  
    11. menu();
    12.  
    13. sub menu {
    14.  
    15. clean();
    16. header();
    17.  
    18. print "\n\n[Options]\n\n";
    19. print "[1] : Upload a file\n";
    20. print "[2] : Upload a directory\n";
    21. print "[3] : Exit\n\n";
    22. print "[Option] : ";
    23. chomp(my $op = <stdin>);
    24.  
    25. if ($op eq 1) {
    26. print "\n\n[File] : ";
    27. chomp(my $file = <stdin>);
    28.  
    29. if (-f $file)  {
    30.  
    31. ($name,$exta) =verfile($file);
    32.  
    33. my $ext = extensiones($exta);
    34.  
    35. if ($ext ne "Yet") {
    36.  
    37.  
    38. $code = openfile($file);
    39.  
    40. $re = lleva($name,$code,$ext);
    41.  
    42. print "\n\n</li><li type="square"> File : $file\n";[/li][/list]
    43. print "</li><li type="square"> Link : ".$re."\n";[/li][/list]
    44.  
    45. savefile("uploads_paste.txt","\n</li><li type="square"> File : $file");[/li][/list]
    46. savefile("uploads_paste.txt","</li><li type="square"> Link : ".$re);[/li][/list]
    47.  
    48. }
    49.  
    50.  
    51. } else {
    52. print "\n\n[-] Error\n\n";
    53. }
    54. reload();
    55. }
    56.  
    57. elsif ($op eq 2) {
    58.  
    59. print "\n\n[Directory] : ";
    60. chomp(my $dir = <stdin>);
    61.  
    62. if (-d $dir) {
    63.  
    64. my @files = verdir($dir);
    65.  
    66. print "\n\n</li><li type="square"> Loading directory\n";[/li][/list]
    67.  
    68. for my $file(@files) {
    69.  
    70. chomp $file;
    71.  
    72. my ($name,$exta) =verfile($file);
    73.  
    74. my $ext = extensiones($exta);
    75.  
    76. if ($ext ne "Yet") {
    77.  
    78. my $code = openfile($dir."/".$file);
    79.  
    80. $re = lleva($name,$code,$ext);
    81.  
    82. print "\n\n</li><li type="square"> File : $file\n";[/li][/list]
    83. print "</li><li type="square"> Link : ".$re."\n";[/li][/list]
    84.  
    85. savefile("uploads_paste.txt","\n</li><li type="square"> File : $file");[/li][/list]
    86. savefile("uploads_paste.txt","</li><li type="square"> Link : ".$re);[/li][/list]
    87.  
    88. }
    89. }
    90. } else {
    91. print "\n\n[-] Error\n\n";
    92. }
    93.  
    94. reload();
    95. }
    96.  
    97. elsif ($op eq 3) {
    98. copyright();
    99. <stdin>;
    100. exit(1);
    101. }
    102.  
    103. else {
    104. menu();
    105. }
    106. }
    107.  
    108. sub copyright {
    109. print "\n\n(C) Doddy Hackman 2011\n\n";
    110. }
    111.  
    112. sub header {
    113.  
    114.  
    115.  PPPP     AA     SSSSTTTTTTEEEE    BBBB   II NN   NN     UU  UU  PPPP
    116.  PP PP    AA    SS  S  TT  EE      BB BB  II NNN  NN     UU  UU  PP PP
    117.  PP PP   AAAA   SS     TT  EE      BB BB  II NNNN NN     UU  UU  PP PP
    118.  PPPP    A  A    SSS   TT  EEEE    BBBB   II NN N NN     UU  UU  PPPP
    119.  PP     AAAAAA     SS  TT  EE      BB BB  II NN NNNN     UU  UU  PP  
    120.  PP     AA  AA  S  SS  TT  EE      BB BB  II NN  NNN     UUUUUU  PP  
    121.  PP     AA  AA  SSSS   TT  EEEE    BBBB   II NN   NN      UUUU   PP  
    122.  
    123.  
    124. );
    125.  
    126. }
    127.  
    128. sub clean {
    129. system("cls");
    130. }
    131.  
    132.  
    133.  
    134. sub verdir{
    135. my @archivos;
    136. opendir DIR,$_[0];
    137. my @archivos = readdir DIR;
    138. for (@archivos) {
    139. if (-f $_[0]."/".$_) {
    140. push(@files,$_)
    141. }
    142. }
    143. return @files;
    144. }
    145.  
    146. sub verfile {
    147. if ($_[0]=~/(.*)\.(.*)/ig) {
    148. return ($1,$2);
    149. }
    150. }
    151.  
    152. sub extensiones {
    153.  
    154. if ($_[0] =~/py/ig) {
    155. $code  = "python";
    156. }
    157. elsif ($_[0] =~/pl/ig) {
    158. $code = "perl";
    159. }
    160. elsif ($_[0] =~/rb/ig) {
    161. $code = "ruby";
    162. }
    163. elsif ($_[0] =~/php/ig) {
    164. $code = "php";
    165. }
    166. elsif ($_[0] =~/txt/ig) {
    167. $code = "";
    168. }
    169. else {
    170. $code = "Yet";
    171. }
    172. return $code;
    173. }
    174.  
    175. sub reload {
    176. print "\n\n[?] Enter for continue\n\n";
    177. <stdin>;
    178. menu();
    179. }
    180.  
    181.  
    182.  
    183. sub savefile {
    184. open (SAVE,">>logs/".$_[0]);
    185. print SAVE $_[1]."\n";
    186. close SAVE;
    187. }
    188.  
    189. sub openfile {
    190.    
    191. my $r;
    192.  
    193. open (FILE,$_[0]);
    194. @wor = <FILE>;
    195. close FILE;
    196. for(@wor) {
    197. $r.= $_;
    198. }
    199. return $r;
    200. }
    201.  
    202. sub lleva {
    203. 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;
    204. }
    205.  
    206. # ¿ The End ?
    207.  
« Última modificación: Julio 17, 2011, 03:45:34 am por Sthefano02 »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5327
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 3472
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 2598
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 2606
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 3012
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d