Well PERL is a scripting language with the help of which one can make alot of good stuff ! Today ill show you how to create a simple ftp cracker !
DISCLAIMER: Every thing mentioned in this blog/post is for educational puposes. And I would not be held responsible for any illegal use of the material by any one .
Full version of the code is here
First off we include NET::FTP:
now what we will do is , create an ftp socket !
$ftp = Net::FTP->new($IPaddress, Timeout => 5);
where the IP address is the Ip address of the target system and 5 is the timeout to try out the next connection attempt.
Now we just have to add the code to check for username and password.
$bogus = “CRACKED Username : ftp password: ftp “;
print “$bogus \n”;
In the abve code snippet the script checks against username = ftp and password = ftp ! and if its attempt is a success itllgive a message :
CRACKED Username : ftp password: ftp !
Well one can hard code the username and passwords as i have done or get them from a file !