#!/usr/bin/expect
set timeout 3
set UPLOADADR ../key.txt
set FID [open ${UPLOADADR} r]
while { [gets $FID line] >= 0 } {
set Usern [lindex $line 0]
set Passw [lindex $line 1]
puts "Username: $Usern,Password:$Passw"
}
set UPLOADADR2 ../a.txt
puts "Entet Your Port:"
set idcid [exec sh -c {read cao ban port;echo "$cao" > ../a.txt;echo "$ban" >> ../a.txt;echo "$port" >> ../a.txt}]
set FID2 [open ${UPLOADADR2} r]
set i 0
while { [gets $FID2 line] >= 0 } {
set string($i) [lindex $line]
incr i
}
puts "Your Port Is:$string(0) $string(1) $string(2)"
set cao $string(0)
set ban $string(1)
set port $string(2)
exec cat /dev/null > ../a.txt
spawn telnet 1.1.1.1
expect "Username:"
send "$Us