1. Perl / Говнокод #2227

    −113.3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    while (@PASSWORDS){
my $idx=0;
my @trl;
while (@PASSWORDS && ($idx <= $threads)){
my $pass = shift (@PASSWORDS);
chomp($pass);
my $len = length($pass);
if ($len > 5){
foreach my $user (@USERS){
chomp($user);
foreach my $url (@URLS){
chomp($url);
$trl[$idx]=threads->create(\&brut, $idx, \$url, \$user, \$pass);
$idx++;
}
}
}
undef($pass);
}
for(@trl){
my $url = $_->join;
if ($url){
@URLS = grep(!$$url, @URLS);
undef($$url);
}
}
undef(@trl);
}

    фегня.

    Запостил: xlt, 04 Декабря 2009

    Комментарии (4) RSS

    • ava bildja 05.12.2009 13:20 # 0

      Наверно, не к автору поста, но всё же.. Это так и надо, что ни отступов, ни подсветки?
      Ответить

      • ava guest 06.12.2009 11:34 # 0

        Да тут вообще можно такие перлы отмачивать...
        Ответить

        • ava guest 06.12.2009 15:11 # 0

          А? Всмысле автор специально так каким-то образом сделал?
          Ответить

        • ava Oleg_quadro 07.12.2009 13:29 # 0

          Perl`ы ?
          а вообще интересно почему подсветки нет.
          Ответить

    Добавить комментарий