07:27
Обновить
FTP accounts checker (Perl). - Форум
| RSS



[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: aka_kludge, LeadyTOR  
FTP accounts checker (Perl).
aka_kludgeДата: Четверг, 29.10.2009, 22:27 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 1058
Награды: 2
Репутация: 25
Статус: Offline
Code
# !/usr/bin/perl

#############
# Coded by satyr [Cyber Lords Community]
# http://www.cyberlords.net
# v00000000000z2 02.01.07
# ./ftpchecker.pl ftplist
# ftplist format:
#  ftp://login1:pass1@host1.com
#  ftp://login2:pass2@host2.com
#  ftp://login3:pass3@host3.com
#####

use strict;
use IO::Socket;

my $verbose = 0;
my $pids = 50;
my @forked;

open(LIST, $ARGV[0]) or die "$!";
my @list = <LIST>;
close(LIST);

my $once=0;

while(1) {

my @check_now = @list[$once..$once+$pids];

for (my $i=0;$i<=$pids;$i++) {
  unless($check_now[$i]) {
   killpidz();
   exit print "Scan is complete\n";
  }

  if (my $pid=fork()) {
   push(@forked,$pid);
  } else {
  ###################MAIN CHECK###########################
   chomp $check_now[$i];
   #print "Checikng $check_now[$i]\n";
    
   my ($login, $pass, $host) = ($check_now[$i]) =~ /^ftp\:\/\/([^:]+):(.+)\@(.+?)\/?$/;
   my $ans = check($login, $pass, $host);
   
   if($ans == 230){
    print "$check_now[$i] 230 - good!\n"
   }
   elsif ($ans == 0){
    $ans = "$check_now[$i] Error connecting. " if $verbose eq 1;
   }
   else {
    print "$check_now[$i] BAD\n" if $verbose eq 1;
   }
   
  #########################################################
   exit;
   
  }

}

$once += $pids;
killpidz();
}

sub check{

my ($user, $pass, $host)=@_;
my $data;

my $sock=IO::Socket::INET->new(PeerAddr => $host, PeerPort => 21, Proto => "tcp", Timeout => 5) or return 0;

$sock->recv($data, 1024);
$sock->send("user $user\n");
$sock->recv($data, 1024);
$sock->send("pass $pass\n");
$sock->recv($data, 1024);

return $1 if $data=~/([0-9]{3})/;
}

sub killpidz {
  foreach (@forked) {
    chomp;
    waitpid($_,0);
    kill("TERM" => $_)
  }
  undef @forked;
}
 
  • Страница 1 из 1
  • 1
Поиск:

Профиль
ИнформацияУправление
Сегодня: 12, 12.12.2024, 07:27
Вы используете: " v "
ВаШ внешний IP: "18.97.9.173"
У вас новых личных сообщений · Мой профиль | Выход




    Главная      
...
На службе : дней

07:27
Обновить


Пользователи
aka_kludge
qwerty
LeadyTOR
aka_Atlantis
AdHErENt
mAss
Sissutr
hiss
DrBio
tHick

Поиск


Copyright tHR - TeAM 2024 г. admin: aka_kludge (ICQ:334449009) Moderator's: LeadyTOR, ... Яндекс.Метрика