comment
IRC Chat
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
  • 1117 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • 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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[Options]\n\n";
  19. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[1] : Upload a file\n";
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[2] : Upload a directory\n";
  21. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[3] : Exit\n\n";
  22. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[Option] : ";
  23. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $op = <stdin>);
  24.  
  25. if ($op eq 1) {
  26. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[File] : ";
  27. No tienes permisos para ver links. Registrate o Entra con tu cuenta(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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] File : $file\n";
  43. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] 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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  53. }
  54. reload();
  55. }
  56.  
  57. elsif ($op eq 2) {
  58.  
  59. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[Directory] : ";
  60. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $dir = <stdin>);
  61.  
  62. if (-d $dir) {
  63.  
  64. my @files = verdir($dir);
  65.  
  66. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Loading directory\n";
  67.  
  68. for my $file(@files) {
  69.  
  70. No tienes permisos para ver links. Registrate o Entra con tu cuenta $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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] File : $file\n";
  83. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] 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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  92. }
  93.  
  94. reload();
  95. }
  96.  
  97. elsif ($op eq 3) {
  98. copyright();
  99. <stdin>;
  100. No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  101. }
  102.  
  103. else {
  104. menu();
  105. }
  106. }
  107.  
  108. sub copyright {
  109. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n(C) Doddy Hackman 2011\n\n";
  110. }
  111.  
  112. sub header {
  113.  
  114. No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  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. No tienes permisos para ver links. Registrate o Entra con tu cuenta("cls");
  131. }
  132.  
  133.  
  134.  
  135. sub verdir{
  136. my @archivos;
  137. No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR,$_[0];
  138. my @archivos = No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  139. for (@archivos) {
  140. if (-f $_[0]."/".$_) {
  141. No tienes permisos para ver links. Registrate o Entra con tu cuenta(@files,$_)
  142. }
  143. }
  144. No tienes permisos para ver links. Registrate o Entra con tu cuenta @files;
  145. }
  146.  
  147. sub verfile {
  148. if ($_[0]=~/(.*)\.(.*)/ig) {
  149. No tienes permisos para ver links. Registrate o Entra con tu cuenta ($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. No tienes permisos para ver links. Registrate o Entra con tu cuenta $code;
  174. }
  175.  
  176. sub reload {
  177. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[?] Enter for continue\n\n";
  178. <stdin>;
  179. menu();
  180. }
  181.  
  182.  
  183.  
  184. sub savefile {
  185. No tienes permisos para ver links. Registrate o Entra con tu cuenta (SAVE,">>logs/".$_[0]);
  186. No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE $_[1]."\n";
  187. No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE;
  188. }
  189.  
  190. sub openfile {
  191.        
  192. my $r;
  193.  
  194. No tienes permisos para ver links. Registrate o Entra con tu cuenta (FILE,$_[0]);
  195. @wor = <FILE>;
  196. No tienes permisos para ver links. Registrate o Entra con tu cuenta FILE;
  197. for(@wor) {
  198. $r.= $_;
  199. }
  200. No tienes permisos para ver links. Registrate o Entra con tu cuenta $r;
  201. }
  202.  
  203. sub lleva {
  204. No tienes permisos para ver links. Registrate o Entra con tu cuenta $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: 3164
Ú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: 1477
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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

Iniciado por BigBear

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