#!/usr/bin/perl5.8.4
use lib 'perl/Modules';
use Net::Telnet ();
require 'perl/misc.pl';
$USR_FILE = "rules/auth-data/users";
$PWD_FILE = "rules/auth-data/passwords";
$port   = $ARGV[0];
$target = $ARGV[1];
if (!$target) {
  print "Usage: bin/telnet <hostname>\n";
  exit;
}
$debug = 0;
@users = "";
$usr_cnt = 0;
($hostname,$dummy) = split(/\./, $target);
open (USR, "$USR_FILE");
while (<USR>) {
  chomp;
  if (/\%HOST/) {
    $_ = $hostname if ($hostname =~ /[azAZ]/);
  }
  $users[$usr_cnt++] = $_;
}
@pwds    = ("", "\%USER", "pa\$\$w0rd");
$pwd_cnt = 3;
if ($use_passwords == 1) {
  @pwds = "";
  $pwd_cnt = 0;
  open (PWD, "$PWD_FILE");
  while (<PWD>) {
    chomp;
    next if (/^\#/);
    next if (/NETBIOS/);
    $pwds[$pwd_cnt++] = $_;
  }
}
for $user (@users) {
  for $pwd (@pwds) {
    $pass = $pwd;
    if ($pwd =~ /\%USER1/) {
      $pass  = $user;
      $pass .= "1";
    } elsif ($pwd =~ /\%USER/) {
      $pass  = $user;
    }
    open (TELNET, "bin/login.sara -u $user -p \"$pass\" $port $target|");  
    while (<TELNET>) {
       print;
    }
  }
}

