send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] PasteBin Uploader

  • 0 Respuestas
  • 994 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« 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
  • 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: 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. You are not allowed to view links. Register or Login "\n\n[Options]\n\n";
  19. You are not allowed to view links. Register or Login "[1] : Upload a file\n";
  20. You are not allowed to view links. Register or Login "[2] : Upload a directory\n";
  21. You are not allowed to view links. Register or Login "[3] : Exit\n\n";
  22. You are not allowed to view links. Register or Login "[Option] : ";
  23. You are not allowed to view links. Register or Login(my $op = <stdin>);
  24.  
  25. if ($op eq 1) {
  26. You are not allowed to view links. Register or Login "\n\n[File] : ";
  27. You are not allowed to view links. Register or Login(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. You are not allowed to view links. Register or Login "\n\n[+] File : $file\n";
  43. You are not allowed to view links. Register or Login "[+] Link : ".$re."\n";
  44.  
  45. savefile("uploads_paste.txt","\n[+] File : $file");
  46. savefile("uploads_paste.txt","[+] Link : ".$re);
  47.  
  48. }
  49.  
  50.  
  51. } else {
  52. You are not allowed to view links. Register or Login "\n\n[-] Error\n\n";
  53. }
  54. reload();
  55. }
  56.  
  57. elsif ($op eq 2) {
  58.  
  59. You are not allowed to view links. Register or Login "\n\n[Directory] : ";
  60. You are not allowed to view links. Register or Login(my $dir = <stdin>);
  61.  
  62. if (-d $dir) {
  63.  
  64. my @files = verdir($dir);
  65.  
  66. You are not allowed to view links. Register or Login "\n\n[+] Loading directory\n";
  67.  
  68. for my $file(@files) {
  69.  
  70. You are not allowed to view links. Register or Login $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. You are not allowed to view links. Register or Login "\n\n[+] File : $file\n";
  83. You are not allowed to view links. Register or Login "[+] Link : ".$re."\n";
  84.  
  85. savefile("uploads_paste.txt","\n[+] File : $file");
  86. savefile("uploads_paste.txt","[+] Link : ".$re);
  87.  
  88. }
  89. }
  90. } else {
  91. You are not allowed to view links. Register or Login "\n\n[-] Error\n\n";
  92. }
  93.  
  94. reload();
  95. }
  96.  
  97. elsif ($op eq 3) {
  98. copyright();
  99. <stdin>;
  100. You are not allowed to view links. Register or Login(1);
  101. }
  102.  
  103. else {
  104. menu();
  105. }
  106. }
  107.  
  108. sub copyright {
  109. You are not allowed to view links. Register or Login "\n\n(C) Doddy Hackman 2011\n\n";
  110. }
  111.  
  112. sub header {
  113.  
  114. You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  115.  
  116.  PPPP     AA     SSSSTTTTTTEEEE    BBBB   II NN   NN     UU  UU  PPPP
  117.  PP PP    AA    SS  S  TT  EE      BB BB  II NNN  NN     UU  UU  PP PP
  118.  PP PP   AAAA   SS     TT  EE      BB BB  II NNNN NN     UU  UU  PP PP
  119.  PPPP    A  A    SSS   TT  EEEE    BBBB   II NN N NN     UU  UU  PPPP
  120.  PP     AAAAAA     SS  TT  EE      BB BB  II NN NNNN     UU  UU  PP  
  121.  PP     AA  AA  S  SS  TT  EE      BB BB  II NN  NNN     UUUUUU  PP  
  122.  PP     AA  AA  SSSS   TT  EEEE    BBBB   II NN   NN      UUUU   PP  
  123.  
  124.  
  125. );
  126.  
  127. }
  128.  
  129. sub clean {
  130. You are not allowed to view links. Register or Login("cls");
  131. }
  132.  
  133.  
  134.  
  135. sub verdir{
  136. my @archivos;
  137. You are not allowed to view links. Register or Login DIR,$_[0];
  138. my @archivos = You are not allowed to view links. Register or Login DIR;
  139. for (@archivos) {
  140. if (-f $_[0]."/".$_) {
  141. You are not allowed to view links. Register or Login(@files,$_)
  142. }
  143. }
  144. You are not allowed to view links. Register or Login @files;
  145. }
  146.  
  147. sub verfile {
  148. if ($_[0]=~/(.*)\.(.*)/ig) {
  149. You are not allowed to view links. Register or Login ($1,$2);
  150. }
  151. }
  152.  
  153. sub extensiones {
  154.  
  155. if ($_[0] =~/py/ig) {
  156. $code  = "python";
  157. }
  158. elsif ($_[0] =~/pl/ig) {
  159. $code = "perl";
  160. }
  161. elsif ($_[0] =~/rb/ig) {
  162. $code = "ruby";
  163. }
  164. elsif ($_[0] =~/php/ig) {
  165. $code = "php";
  166. }
  167. elsif ($_[0] =~/txt/ig) {
  168. $code = "";
  169. }
  170. else {
  171. $code = "Yet";
  172. }
  173. You are not allowed to view links. Register or Login $code;
  174. }
  175.  
  176. sub reload {
  177. You are not allowed to view links. Register or Login "\n\n[?] Enter for continue\n\n";
  178. <stdin>;
  179. menu();
  180. }
  181.  
  182.  
  183.  
  184. sub savefile {
  185. You are not allowed to view links. Register or Login (SAVE,">>logs/".$_[0]);
  186. You are not allowed to view links. Register or Login SAVE $_[1]."\n";
  187. You are not allowed to view links. Register or Login SAVE;
  188. }
  189.  
  190. sub openfile {
  191.        
  192. my $r;
  193.  
  194. You are not allowed to view links. Register or Login (FILE,$_[0]);
  195. @wor = <FILE>;
  196. You are not allowed to view links. Register or Login FILE;
  197. for(@wor) {
  198. $r.= $_;
  199. }
  200. You are not allowed to view links. Register or Login $r;
  201. }
  202.  
  203. sub lleva {
  204. You are not allowed to view links. Register or Login $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;
  205. }
  206.  
  207. # ¿ The End ?
  208.  
« Última modificación: Julio 17, 2011, 03:45:34 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2851
Ú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: 1324
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 968
Ú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: 1471
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d