геном помоги написать брутер для ФТП ... такой же как для мыла у тебя... единственное что у меня не получаеться так это что бы все запросы ходили через прокси сервер... ну Или соксы .... ну и что бы рутинная работа выполнялась сама . такие как составления списка пользователей сервера на катором запускаеться скрипт.. ну если будет желание то моЖно попроБывать пассы считывать с удаленного сервера .. или что бы они сами грузили в процессе запуска. там первый прошел грузим второй ... загрузили второй начали Брут ... проБрутил ...удалил, грзуим другой и так пока не кончиться ... удобный инструмент получиться .... я думаю тебе по плечу такие ззадачи ... если не сможешь или не захочешь тогда отпиШись я не обиЖусь...
нехочу изобретать колесо --- поищи недано была тема про ftp брутер -- там был скрипт и там я еще дал линк на гуи брут тут http://forum.antichat.ru/thread27914.html
чекер ftp -- frb хранятся в файле в виде 1:login1ass1 2:loginass2 код --> #!usr/bin/perl use Net::FTP; $ftp = Net::FTP->new("genom.h10.ru", ); open file,'<ftp.txt'; # файл в котром хранятся твои акаунты к ftp open goodd,'>good.txt'; while($lol=<file>) { $lol=~s/\n//; ($cifra,$llogin,$pass)=split(/:/,$lol); # разбираем $ftp -> login($llogin,$pass) or goto(dava); print goodd "$lol\n"; dava: } close(goodd);close(file);
да лано тогда...раз некогда и время тратить не хотите ... тогда вопрос другой ... помогите разобраться хатябы с проксеГом ... непойму как мне эти все запросы через прокси транслировать ... непойму .. помоГите ...примерный код как и что долЖно ыбть можете поДкинуть... ?
пытался заделать через lwp он тоже конектится к ftp может my $req = HTTP::Request->new(GET => "ftp://$login:$password@$host:/"); вообщем на такой зыпрос выдает bad hostname в доках модуля у них вот так написано $req = HTTP::Request->new(GET => 'ftp://me:пароль@ftp.some.where.com/'); хз -- уже замучался --- советуйте
нашел сегодня пример с соксами но для бта irc-шного. use Net::SOCKS; $server="80.252.130.250"; # IRC сервер $port="6667"; # IRC порт $socks="192.168.1.2"; # socks сервер $pport="1080"; # socks порт my $sock = Net::SOCKS->new(socks_addr => $socks, socks_port => $pport, user_id => 'the_user', user_password => 'the_password', force_nonanonymous => 1, protocol_version => 5); my $f= $sock->connect(peer_addr => $server, peer_port => $port); ....... ..... $sock->close(); --------------------------------------------------------------------- можно и с соксами забабхать ... но и с проксей тож интересно будет посатреть. счас сяду кодить . незнаю что получиться но думаю должно получиться вродь руки растут от туда же откуда и у всех !
вот писал cgi скрипт для редактирования файлов на серваке -- получилось прикольно решил выложить --- вообщем в форме указываем имя файла и засылаем его с помощью get -- пример формы (вставлять в любой html файл =) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br> Редактировать файл: <form method="get" action="edit.cgi" ><input type="text" name="file" value="index.html" size="50"><br> <input type="submit" value="Редактировать"> </form> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br> вот код самого скрипта -- получилось приколно -- что если вы указали имя файла которого нет -- то выдает пустой контент -- и если ввести данные и нажать сохранить то создастся новый файл -- таким образом решается и проблема загрузки текстовых файлов на сервер -- мона новый создать и туда вставить =) вот код самого скрипта #!/usr/bin/perl use CGI; print "Content-type: text/html\n\n<b><body text=\"darkgreen\" bgcolor=\"#000000\" link=\"green\"alink=\"green\" vlink=\"green\"><br><br>"; read(STDIN, $data, $ENV{'CONTENT_LENGTH'}); $buf=$ENV{'QUERY_STRING'}; if (length($data)==0){ $buf=~s/file=//eg; print"<center>Редактирование файла-->$buf<br><br></center>";open fyll,"$buf"; @sors=<fyll>;close(fyll); print"<center><form method=\"post\" action=\"\"><textarea class=\"input\" id=text cols=70 rows=12 name=\"newsors\" >@sors</textarea><br><br><input type=\"submit\" value=\"....Сохранить....\" ></form><center><br><br><br><br><br><br>если в окне содержания нет текста то либо этот файл пустой либо его не существует -- нажатие кнопки сохранить приведет к созданию нового файла";} else{$data=~tr/+/ /; $data=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $data=~s/newsors=//eg; $buf=~s/file=//eg; open fyll,">$buf"; print fyll "$data"; close(fyll); print'<br><br>Изменения сохранены успешно<br><br><a href="index.html">Назад</a>'; }
Но ты не юзаешь никакие функции модуля => он те не нужен. С cgi можно спокойно работать и без этого модуля.
по приколу попробовал убрать да --почти все пашет -- но ввозникает бага при сохранениия файла -- ну да х с ней -- одна строчка роли не сыграет
последний релиз новая версия брутера для mail.ru -- добавил многопоточность --скорость брута возросла =) скачать тут http://www.genom.h10.ru/1111.rar
проксеги Юзает ? При всей его многопоточности майл просто банит хост после несколькиз неудачных попыток ...
сазу оговорюсь --- писал лично для себя так что свои претензии можете оставить себе =) вообщем вот архивчик я там накропал gui интерфейс для john the riper -- а то иногда запаривает набивать в консоли + кинул доку для нубов что вообще надо набирать в той самой консоли --- у меня джон был под винду такчто имя его в скрипте john-386.exe если будете юзать под unix то поменяйте имя или ексешки или подправьте скрипт всем удачи http://www.genom.h10.ru/john.rar
