ANTICHAT — форум по информационной безопасности, OSINT и технологиям

 #!/usr/bin/perl 
use LWP::UserAgent; 
system('cls');
print qq(
==============================
# vBulletin nickname grabber #
#      coded by ph1l1ster    #
#        icq: 612672         #
==============================\n\n\n
);

print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (A, ">>nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."memberlist.php?do=getall&order=asc&sort=username&page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"member.*?u=.*\">(.*)<\/a>/g;
print A join "\n", @nicknames;}

use POSIX ":sys_wait_h";
use IO::Handle;

# Количество процессов и кол-во задач на процесс
my $max_proc = 30;
my $max_per_proc = 30;

# Записываем строку запуска скрипта. Ниже будет видно зачем это.
my $exe = $0;

# Нихт зомби
$SIG{CHLD} = sub { while ((my $pid = waitpid(-1, WNOHANG)) > 0) {} };

# Создаём пайпы для обмена данными родитель-чайлд и чайлд-ридер, снимаем буферизацию
pipe(PARENT_RDR, CHILD_WTR);
pipe(CHILD_RDR,  PARENT_WTR);
CHILD_WTR->autoflush(1);
PARENT_WTR->autoflush(1);

# Записываем PID главного процесса, форкаем процесс-ридер
my $master_pid = $$;
my $reader_pid = fork();
die "Can't fork: $!" unless defined($reader_pid);

# Пошёл основной процесс.
if($reader_pid){
    open(F, $ARGV[0]) or die "Can't open file: $!\n";
    my %children;
    while(<F>){
        chomp;
        s/\r//;
        my $line = $_;
        $line = sprintf("%-128s", $line);
        syswrite(CHILD_WTR,$line,128);
        
        # Читаем из файла и пишем в пайп точное количество данных.
        # Это необходимо для того, чтобы задания правильно читались чайлдами.
        # Если использовать простые print/<>/read/write то чайлды будут читать огрызки заданий.
        
        # см. ниже =)
        $0 = "$exe";
        
        # Проверяем количество чайлдов и добавляем их, если нужно, до $max_proc
        while(checkChildren(\%children) < $max_proc){
            my $pid = fork();
            die "Can't fork: $!" unless defined($pid);
            if ($pid){
                $children{$pid} = 1;
            } else {
                close(CHILD_RDR);
                close(CHILD_WTR);
                
                # Вот собссно и сам чайлд
                
                processChild();
                exit;
            }
        }
    }
    
    # Файл кончился. Теперь пишем в пайп сигнал о выходе для всех чайлдов.
    while(checkChildren(\%children)){
        syswrite(CHILD_WTR,sprintf("%-128s", 'EXIT'),128);
    }
    
    # Убиваем ридера.
    kill(2,$reader_pid);
    close(F);
}else{

    # Здесь происходит запуск ридера
    close(PARENT_RDR);
    close(PARENT_WTR);
    readerProcess();
    exit;
}

sub processChild
{
    # см. ещё чуть ниже =)
    $0 = "$exe - CHILD";
    
    my $work = $max_per_proc;
    while($work){
        my $bytes = sysread(PARENT_RDR, my $line, 128);
        $line=~s/.*?\x00//;
        $line=~s/\s+?$//;
        $line=~s/\s+//g;
        exit if $line eq 'EXIT';
        next unless $line;
        # Получили задание. Оно будет гарантированно целым за счёт sysread/syswrite
        
        # Ну вот и добрались до странной конструкции =)
        # С её помощью при просмотре списка процессов мы увидим какой процесс чем занимается.
        # На работу системы не влияет, но категорически удобно =)
        $0 = "$exe - CHILD - $line";
       
        
        my $result;
        # Здесь обрабатываем нашу задачу и пишем в пайп ридеру
        # ...
        # ...
        
        
        $result = sprintf("%-128s", $result);
        syswrite(PARENT_WTR,$result,128);

        $0 = "$exe - CHILD";
        # ну это, думаю, понятно =)
        $work--;
    }
}

sub readerProcess
{

    # Это процесс ридера
    $SIG{INT} = sub {
        exit;
    };

    open(F,">result.txt");
    select F;
    $|=1;
    my $count;
    my $work = 1;
    
    # Читаем данные из пайпа, пишем в файл
    while($work){
        $count++;
        
        # Ридер рассказывает скока он уже обработал
        $0 = "$exe - READER - reading... ".$count;
        my $bytes = sysread(CHILD_RDR, my $data, 128);
        $data=~s/.*?\x00//;
        $data=~s/\s+?$//;
        $data=~s/\s+//g;
        last if $data eq 'EXIT';
        
        # Пишем
        print F "$data\n";
        
        # Можно проверить не сдох ли родительский процесс.
        # Если вдруг он загнулся (а такое может случиться), то выйти.
        last unless kill(0, $master_pid);
    }
    close(F);
}

sub checkChildren
{
    my $hash = shift;
    for my $pid(keys %{$hash}){
        if(!kill(0, $pid)){
            delete ${$hash}{$pid};
        }
    }
    return scalar keys %{$hash};
}

<html>
<head>
<title>Мой мир@Mail.ru - Доступ не ограничен</title>
</head>
<body>
<form onsubmit="show_big_image(linkz.value);return false;">
Ссылка на фотку, которую хочешь посмотреть:<br><input type=text id=linkz style='width:100%'>
</form>

<img src='' alt="тут будет фотка" id=srcimg>

<script language="javascript">
function show_big_image(str)
	{
//----------------------------------------------------------------------
// (c)oded by Gar|k - достало меня видеть этот доступ ограничен гргргр
//
// exp link: http://my.mail.ru/mail/gar.i.k/photo/52.html?mode=
//----------------------------------------------------------------------

var re=/http\:\/\/(?:.*)\/(.*\/.*)\/.*\/(.*?).html(?:.*)/;
srcimg.src=str.replace(re,"http://content.foto.my.mail.ru/$1/_myphoto/i-$2.jpg");

}
</script>
</body>
</html>