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] FTP Manager 0.2

  • 0 Respuestas
  • 1428 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Abril 22, 2012, 12:05:31 am »
Nueva version de un cliente FTP que hice en Perl , en esta version se le arreglo varias cosas.

El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #FTP Manager 0.2
  3. #Coded By Doddy H
  4.  
  5. use Net::FTP;
  6.  
  7. &head;
  8.  
  9. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[FTP Server] : ";
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $ftp = <stdin> );
  11. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[User] : ";
  12. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $user = <stdin> );
  13. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[Pass] : ";
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $pass = <stdin> );
  15.  
  16. if ( my $socket = Net::FTP->new($ftp) ) {
  17.     if ( $socket->login( $user, $pass ) ) {
  18.  
  19.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Enter of the server FTP\n";
  20.  
  21.       menu:
  22.  
  23.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n>>";
  24.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $cmd = <stdin> );
  25.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  26.  
  27.         if ( $cmd =~ /help/ ) {
  28.             No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  29. [+] Commands
  30.  
  31. [++] help : show information
  32. [++] cd : change directory <dir>
  33. [++] dir : list a directory
  34. [++] No tienes permisos para ver links. Registrate o Entra con tu cuenta : create a directory <dir>
  35. [++] No tienes permisos para ver links. Registrate o Entra con tu cuenta : No tienes permisos para ver links. Registrate o Entra con tu cuenta a directory <dir>
  36. [++] pwd : directory  
  37. [++] del : No tienes permisos para ver links. Registrate o Entra con tu cuenta a file <file>
  38. [++] No tienes permisos para ver links. Registrate o Entra con tu cuenta : change name of the a file <file1> <file2>
  39. [++] size : size of the a file <file>
  40. [++] put : upload a file <file>
  41. [++] get : download a file <file>
  42. [++] cdup : change dir <dir>
  43. );
  44.         }
  45.  
  46.         if ( $cmd eq "dir" ) {
  47.             if ( my @files = $socket->dir() ) {
  48.  
  49.                 my @files_found;
  50.                 my @dirs_found;
  51.  
  52.                 for my $fil (@files) {
  53.                     my @to = No tienes permisos para ver links. Registrate o Entra con tu cuenta( " ", $fil );
  54.                     my ( $dir, $file ) = @to[ 0, 8 ];
  55.                     if ( $dir =~ /^d/ ) {
  56.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta( @dirs_found, $file );
  57.                     }
  58.                     else {
  59.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta( @files_found, $file );
  60.                     }
  61.                 }
  62.  
  63.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[++] Directory Found : " . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@dirs_found) . "\n";
  64.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Files Found : " . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@files_found) . "\n\n";
  65.  
  66.                 for my $dires (@dirs_found) {
  67.                     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[++] : $dires\n";
  68.                 }
  69.  
  70.                 for my $filex (@files_found) {
  71.                     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] : $filex\n";
  72.                 }
  73.  
  74.             }
  75.             else {
  76.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  77.             }
  78.         }
  79.  
  80.         if ( $cmd =~ /pwd/ig ) {
  81.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Path : " . $socket->pwd() . "\n";
  82.         }
  83.  
  84.         if ( $cmd =~ /cd (.*)/ig ) {
  85.             if ( $socket->cwd($1) ) {
  86.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Directory changed\n";
  87.             }
  88.             else {
  89.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  90.             }
  91.         }
  92.  
  93.         if ( $cmd =~ /cdup/ig ) {
  94.             if ( my $dir = $socket->cdup() ) {
  95.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Directory changed\n\n";
  96.             }
  97.             else {
  98.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  99.             }
  100.         }
  101.  
  102.         if ( $cmd =~ /del (.*)/ig ) {
  103.             if ( $socket->No tienes permisos para ver links. Registrate o Entra con tu cuenta($1) ) {
  104.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] File deleted\n";
  105.             }
  106.             else {
  107.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  108.             }
  109.         }
  110.  
  111.         if ( $cmd =~ /rename (.*) (.*)/ig ) {
  112.             if ( $socket->No tienes permisos para ver links. Registrate o Entra con tu cuenta( $1, $2 ) ) {
  113.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] File Updated\n";
  114.             }
  115.             else {
  116.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  117.             }
  118.         }
  119.  
  120.         if ( $cmd =~ /mkdir (.*)/ig ) {
  121.             if ( $socket->No tienes permisos para ver links. Registrate o Entra con tu cuenta($1) ) {
  122.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Directory created\n";
  123.             }
  124.             else {
  125.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  126.             }
  127.         }
  128.  
  129.         if ( $cmd =~ /rmdir (.*)/ig ) {
  130.             if ( $socket->No tienes permisos para ver links. Registrate o Entra con tu cuenta($1) ) {
  131.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Directory deleted\n";
  132.             }
  133.             else {
  134.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  135.             }
  136.         }
  137.  
  138.         if ( $cmd =~ /size (.*)/ig ) {
  139.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Size : " . $socket->size($1) . "\n\n";
  140.         }
  141.  
  142.         if ( $cmd =~ /exit/ig ) {
  143.             copyright();
  144.             No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  145.         }
  146.  
  147.         if ( $cmd =~ /get (.*)/ig ) {
  148.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Downloading file\n\n";
  149.             if ( $socket->get($1) ) {
  150.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Download completed";
  151.             }
  152.             else {
  153.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  154.             }
  155.         }
  156.  
  157.         if ( $cmd =~ /put (.*)/ig ) {
  158.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Uploading file\n\n";
  159.             if ( $socket->put($1) ) {
  160.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Upload completed";
  161.             }
  162.             else {
  163.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n\n";
  164.             }
  165.         }
  166.  
  167.         No tienes permisos para ver links. Registrate o Entra con tu cuenta menu;
  168.  
  169.     }
  170.     else {
  171.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Failed the login\n\n";
  172.     }
  173.  
  174. }
  175. else {
  176.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  177. }
  178.  
  179. sub head {
  180.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n -- == FTP Manager 0.2 == --\n\n";
  181. }
  182.  
  183. sub copyright {
  184.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n(C) Doddy Hackman 2012\n\n";
  185. }
  186.  
  187. # The End ?
  188.  

« Última modificación: Marzo 14, 2015, 10:19:36 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3230
Ú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: 1511
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1398
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1663
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1169
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear