[Perl] FTP Manager

  • 0 Respuestas
  • 1283 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. print "\n\n[FTP Server] : ";
  10. chomp (my $ftp = <stdin>);
  11. print "[User] : ";
  12. chomp (my $user = <stdin>);
  13. print "[Pass] : ";
  14. chomp (my $pass = <stdin>);
  15.  
  16.  
  17. if (my $socket = Net::FTP->new($ftp)) {
  18. if ($socket->login($user,$pass)) {
  19.  
  20. print "\n<ul class="bbc_list"><li type="square"> Enter of the server FTP\n\n";[/li][/list]
  21.  
  22. menu:
  23.  
  24. print "\n\n>>";
  25. chomp (my $cmd = <stdin>);
  26. print "\n\n";
  27.  
  28. if ($cmd=~/help/) {
  29.  
  30. help : show information
  31. cd : change directory <dir>
  32. dir : list a directory
  33. mdkdir : create a directory <dir>
  34. rmdir : delete a directory <dir>
  35. pwd : directory  
  36. del : delete a file <file>
  37. rename : change name of the a file <file1> <file2>
  38. size : size of the a file <file>
  39. put : upload a file <file>
  40. get : download a file <file>
  41. cdup : change dir <dir>
  42.  
  43.  
  44. );
  45. }
  46.  
  47. if ($cmd=~/dir/ig) {
  48. if (my @files = $socket->dir()) {
  49. for(@files) {
  50. print "</li><li type="square"> ".$_."\n";[/li][/list]
  51. }
  52. } else {
  53. print "\n\n[-] Error\n\n";
  54. }
  55. }
  56.  
  57. if ($cmd=~/pwd/ig) {
  58. print "</li><li type="square"> Path : ".$socket->pwd()."\n";[/li][/list]
  59. }
  60.  
  61. if ($cmd=~/cd (.*)/ig) {
  62. if ($socket->cwd($1)) {
  63. print "</li><li type="square"> Directory changed\n";[/li][/list]
  64. } else {
  65. print "\n\n[-] Error\n\n";
  66. }
  67. }
  68.  
  69. if ($cmd=~/cdup/ig) {
  70. if (my $dir = $socket->cdup()) {
  71. print "\n\n</li><li type="square"> Directory changed\n\n";[/li][/list]
  72. } else {
  73. print "\n\n[-] Error\n\n";
  74. }
  75. }
  76.  
  77. if ($cmd=~/del (.*)/ig) {
  78. if ($socket->delete($1)) {
  79. print "</li><li type="square"> File deleted\n";[/li][/list]
  80. } else {
  81. print "\n\n[-] Error\n\n";
  82. }
  83. }
  84.  
  85. if ($cmd=~/rename (.*) (.*)/ig) {
  86. if ($socket->rename($1,$2)) {
  87. print "</li><li type="square"> File Updated\n";[/li][/list]
  88. } else {
  89. print "\n\n[-] Error\n\n";
  90. }
  91. }
  92.  
  93. if ($cmd=~/mkdir (.*)/ig) {
  94. if ($socket->mkdir($1)) {
  95. print "\n\n</li><li type="square"> Directory created\n";[/li][/list]
  96. } else {
  97. print "\n\n[-] Error\n\n";
  98. }
  99. }
  100.  
  101. if ($cmd=~/rmdir (.*)/ig) {
  102. if ($socket->rmdir($1)) {
  103. print "\n\n</li><li type="square"> Directory deleted\n"; [/li][/list]
  104. } else {
  105. print "\n\n[-] Error\n\n";
  106. }
  107. }
  108.  
  109. if ($cmd=~/exit/ig) {
  110. copyright();
  111. exit(1);
  112. }
  113.  
  114. if ($cmd=~/get (.*) (.*)/ig) {
  115. print "\n\n</li><li type="square"> Downloading file\n\n";[/li][/list]
  116. if ($socket->get($1,$2)) {
  117. print "</li><li type="square"> Download completed";[/li][/list]
  118. } else {
  119. print "\n\n[-] Error\n\n";
  120. }
  121. }
  122.  
  123. if ($cmd=~/put (.*) (.*)/ig) {
  124. print "\n\n</li><li type="square"> Uploading file\n\n";[/li][/list]
  125. if ($socket->put($1,$2)) {
  126. print "</li><li type="square"> Upload completed";[/li][/list]
  127. } else {
  128. print "\n\n[-] Error\n\n";
  129. }
  130. }
  131.  
  132. goto menu;
  133.  
  134. } else {
  135. print "\n\n[-] Failed the login\n\n";
  136. }
  137.  
  138. } else {
  139. print "\n\n[-] Error\n\n";
  140. }
  141.  
  142. sub head {
  143. print "\n\n -- == FTP Manager == --\n\n";
  144. }
  145.  
  146. sub copyright {
  147. print "\n\n(C) Doddy Hackman 2010\n\n";
  148. }
  149.  
  150.  
  151. # ¿ The End ?
  152.  

Si lo quieren descargar desde sourceforge

Código: [Seleccionar]
https://sourceforge.net/projects/ftpmanager/
« Última modificación: Marzo 14, 2015, 09:58:21 am por Expermicid »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 2446
Último mensaje Julio 03, 2011, 10:06:45 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
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 2598
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX