comment
IRC Chat
play_arrow
  3. [Perl] FTP Manager
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

[Perl] FTP Manager

  • 0 Respuestas
  • 858 Vistas

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

Desconectado BigBear

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

[Perl] FTP Manager

« en: Julio 03, 2011, 09:39:45 pm »
Hoy eh terminado este simple cliente FTP el codigo es el siguiente

Código: Perl
  1. #!usr/bin/perl
  2. #FTP Manager
  3. #(C) Doddy Hackman 2010
  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 "[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 "[Pass] : ";
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta (my $pass = <stdin>);
  15.  
  16.  
  17. if (my $socket = Net::FTP->new($ftp)) {
  18. if ($socket->login($user,$pass)) {
  19.  
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Enter of the server FTP\n\n";
  21.  
  22. menu:
  23.  
  24. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n>>";
  25. No tienes permisos para ver links. Registrate o Entra con tu cuenta (my $cmd = <stdin>);
  26. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  27.  
  28. if ($cmd=~/help/) {
  29. No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  30.  
  31. help : show information
  32. cd : change directory <dir>
  33. dir : list a directory
  34. mdkdir : 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. }
  47.  
  48. if ($cmd=~/dir/ig) {
  49. if (my @files = $socket->dir()) {
  50. for(@files) {
  51. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] ".$_."\n";
  52. }
  53. } else {
  54. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  55. }
  56. }
  57.  
  58. if ($cmd=~/pwd/ig) {
  59. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Path : ".$socket->pwd()."\n";
  60. }
  61.  
  62. if ($cmd=~/cd (.*)/ig) {
  63. if ($socket->cwd($1)) {
  64. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Directory changed\n";
  65. } else {
  66. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  67. }
  68. }
  69.  
  70. if ($cmd=~/cdup/ig) {
  71. if (my $dir = $socket->cdup()) {
  72. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Directory changed\n\n";
  73. } else {
  74. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  75. }
  76. }
  77.  
  78. if ($cmd=~/del (.*)/ig) {
  79. if ($socket->No tienes permisos para ver links. Registrate o Entra con tu cuenta($1)) {
  80. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] File deleted\n";
  81. } else {
  82. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  83. }
  84. }
  85.  
  86. if ($cmd=~/No tienes permisos para ver links. Registrate o Entra con tu cuenta (.*) (.*)/ig) {
  87. if ($socket->No tienes permisos para ver links. Registrate o Entra con tu cuenta($1,$2)) {
  88. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] File Updated\n";
  89. } else {
  90. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  91. }
  92. }
  93.  
  94. if ($cmd=~/No tienes permisos para ver links. Registrate o Entra con tu cuenta (.*)/ig) {
  95. if ($socket->No tienes permisos para ver links. Registrate o Entra con tu cuenta($1)) {
  96. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Directory created\n";
  97. } else {
  98. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  99. }
  100. }
  101.  
  102. if ($cmd=~/No tienes permisos para ver links. Registrate o Entra con tu cuenta (.*)/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 "\n\n[+] Directory deleted\n";
  105. } else {
  106. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  107. }
  108. }
  109.  
  110. if ($cmd=~/No tienes permisos para ver links. Registrate o Entra con tu cuenta/ig) {
  111. copyright();
  112. No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  113. }
  114.  
  115. if ($cmd=~/get (.*) (.*)/ig) {
  116. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Downloading file\n\n";
  117. if ($socket->get($1,$2)) {
  118. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Download completed";
  119. } else {
  120. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  121. }
  122. }
  123.  
  124. if ($cmd=~/put (.*) (.*)/ig) {
  125. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Uploading file\n\n";
  126. if ($socket->put($1,$2)) {
  127. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Upload completed";
  128. } else {
  129. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  130. }
  131. }
  132.  
  133. No tienes permisos para ver links. Registrate o Entra con tu cuenta menu;
  134.  
  135. } else {
  136. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Failed the login\n\n";
  137. }
  138.  
  139. } else {
  140. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[-] Error\n\n";
  141. }
  142.  
  143. sub head {
  144. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n -- == FTP Manager == --\n\n";
  145. }
  146.  
  147. sub copyright {
  148. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n(C) Doddy Hackman 2010\n\n";
  149. }
  150.  
  151.  
  152. # ¿ The End ?
  153.  

Si lo quieren descargar desde sourceforge

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
https://sourceforge.net/projects/ftpmanager/
« Última modificación: Marzo 14, 2015, 09:58:21 am por Expermicid »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 3232 		Ú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: 1513 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[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
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
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

 Respuestas: 0
Vistas: 1311 		Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear