Недавно возникла необходимость выполнять команды через SSH на множестве машин, для этого набросал небольшой скрипт на основе модуля Net::SSH::Perl.
Скрипт идет по списку ip адресов, пытается авторизоваться, перебирая пары логин:пароль, при удачной авторизации выполняет указанную команду и записывает результат выполнения в файл.
Если возникнет проблема с установкой модуля Net::SSH::Perl, то попробуйте предварительно установить один из следующих модулей:
Math::BigInt::GMP
Math::BigInt::Pari
Math::BigInt::BitVector
Скрипт: скачать
Дык а что мешает сразу прописать соотвествия айпих, логинов и паролей. Зачем подбирать-то
Потому что у меня штук 20 ssh и я точно не помню где какой пароль)
ну так модифицировать свой скрипт немного, чтоб выдал соотвестия в файл. А потом юзать без всяких подборов.
Нафига каждый раз ssh терзать брутфорсом :) Особенно если шеллов будет намного больше.
Окей, значит используем скрипт в качестве брута ssh
Скрипт супер! Только Я не совсем понял в какой строчке прописывать команду?
Пишу в этой my $cmd = 'uname'; ошибку выдает
А должно работать. Либо делаешь что-то не так, либо на целевом хосте нет uname
Что коданда не найдена. Подскажите плиз!!!!!!
По описанию скрипт должен быть довольно таки полезным. Только проблема, что я полный чайник в Perl. Установил скрипт, но не работает. Наверно, из - за модуля, т.к. я без понятия, как его устанавливать под Windows. Не мог бы подсказать, что да как по пунктикам?)
Пуск -> Выполнить -> cmd
cpan
install имя_модуля
Или как-то так. Только скорее всего понадобится ещё компилятор.
Или Пуск -> Выполнить -> ppm и поискать в списке доступных модулей
Добрый день! Уважаемый Kaimi Установил Net::SSH::Perl,запускаю скрипт в комендной строке Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.
D:\Documents and Settings\Admin>cd d:\
D:\>D:\telnet.pl
Can't locate Net/SSH/Perl.pm in @INC (@INC contains: D:/strawberry/perl/site/lib
D:/strawberry/perl/vendor/lib D:/strawberry/perl/lib .) at D:\telnet.pl line 3.
BEGIN failed--compilation aborted at D:\telnet.pl line 3.
Выдает следующее в чем может быть проблема? Уже 3 день пытаюсь запустить все перепробывал.Net::SSH::Perl установил без ошибок.Помогите очень нужен скрипт.
В том, что Net::SSH::Perl не был корректно установлен и не может быть найден по вышеуказанным путям
Все получилось на линуксе, всмысли запустить скрипт, показывало конект, но после перезагрузки компьютера, запускаю скрипт не чего не показывает, это нормально?Но и ошибок не каких не выдает.
Скорее используем скрипт в качестве DDoS клиента :D