Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5707)
2. C++ (2739)
3. Куча (2375)
4. JavaScript (2032)
5. C# (1929)
6. Java (1502)
7. Си (1117)
8. Pascal (648)
9. Python (589)
10. 1C (539)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (199)
15. Perl (194)
16. Assembler (146)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Haskell (31)
21. Go (31)
22. Swift (27)
23. Kotlin (14)

1. Куча / Говнокод #1176

   +152

   1. 1
   2. 2
   3. 3

   <xsl:variable name="regexp">
   	<xsl:text disable-output-escaping="yes">^(?:(?:(?:0?[13578]|1[02])(\/|-|\.)31)\1|(?:(?:0?[13-9]|1[0-2])(\/|-|\.)(?:29|30)\2))(?:19\d\d|20\d\d|\*\*\*\*)$|^(?:0?2(\/|-|\.)29\3(?:(?:(?:19|20)?(?:0[48]|[2468][048]|[13579][26])|(?:(?:19|[2468][048]|[3579][26])00))))$|^(?:(?:0?[1-9])|(?:1[0-2]))(\/|-|\.)(?:0?[1-9]|1\d|2[0-8])\4(?:19\d\d|20\d\d|\*\*\*\*)$</xsl:text>
   </xsl:variable>

   В XSLT - регулярное выражение то ли для показа, то ли для валидации дня рождения.

   guest, 10 Июня 2009

   Комментарии (2)

2. Perl / Говнокод #1175

   −207.6

   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
   61. 61
   62. 62
   63. 63
   64. 64
   65. 65
   66. 66
   67. 67
   68. 68
   69. 69
   70. 70
   71. 71
   72. 72
   73. 73
   74. 74
   75. 75
   76. 76
   77. 77
   78. 78
   79. 79
   80. 80
   81. 81
   82. 82

   #sub load_midi_positions_random {
   ##
   ## Вот понапишут такого кода, а потом системные администраторы виноваты что сервер тормозит ;-) ....
   ## У Вас есть  враги ? Подарите им этот уникальный код !
   ##.
   #
   #    my $dbh = get_pg_connect();
   #    my $sql = "SELECT count(id) FROM midi_data where name<>'Unsorted'";
   #    my $sth = $dbh->prepare($sql) or die $DBI::errstr;
   #    $sth->execute or die $DBI::errstr;
   #    my $i=$sth->fetchrow();
   #    $sth->finish or die $DBI::errstr;
   #....
   #my    $PIC_COUNT=$i;
   #my    $pic1 = int (rand($i));
   #my    $pic2 = int (rand($i));
   #my $count=0;
   #    while ($pic1 == $pic2 && $count < 20){
   #        $pic2 = int (rand($PIC_COUNT));
   #        $count++;
   #    }
   #    my $pic3 = int (rand($PIC_COUNT));
   #    $count = 0;
   #    while (($pic1 == $pic3 || $pic2 == $pic3 || $pic2 == $pic1) && $count < 20){
   #        $pic3 = int (rand($PIC_COUNT));
   #        $count++;
   #    }
   #    my $pic4 = int (rand($PIC_COUNT));
   #    $count = 0;
   #    while (($pic1 == $pic2 || $pic1 == $pic3 || $pic1 == $pic4  || $pic2 == $pic3 || $pic2 == $pic4  || $pic3 == $pic4) && $count < 20){
   #        $pic4 = int (rand($PIC_COUNT));
   #        $count++;
   #    }
   #    my $pic5 = int (rand($PIC_COUNT));
   #    $count = 0;
   #    while (($pic1 == $pic2 || $pic1 == $pic3 || $pic1 == $pic4  || $pic2 == $pic3 || $pic2 == $pic4  || $pic3 == $pic4 || $pic1 == $pic5 || $pic2 == $pic5
   #    || $pic3 == $pic5 || $pic4 == $pic5) && $count < 20){
   #        $pic5 = int (rand($PIC_COUNT));
   #        $count++;
   #    }
   #    my $pic6 = int (rand($PIC_COUNT));
   #    $count = 0;
   #    while (($pic1 == $pic2 || $pic1 == $pic3 || $pic1 == $pic4  || $pic2 == $pic3 || $pic2 == $pic4  || $pic3 == $pic4 || $pic1 == $pic5 || $pic2 == $pic5
   #    || $pic3 == $pic5 || $pic4 == $pic5
   #    || $pic1 == $pic6 || $pic2 == $pic6 || $pic3 == $pic6 || $pic4 == $pic6 || $pic5 == $pic6  ) && $count < 20){
   #        $pic6 = int (rand($PIC_COUNT));
   #        $count++;
   #    }
   #    my $pic7 = int (rand($PIC_COUNT));
   #    $count = 0;
   #    while (($pic1 == $pic2 || $pic1 == $pic3 || $pic1 == $pic4  || $pic2 == $pic3 || $pic2 == $pic4  || $pic3 == $pic4 || $pic1 == $pic5 || $pic2 == $pic5
   #    || $pic3 == $pic5 || $pic4 == $pic5
   #    || $pic1 == $pic6 || $pic2 == $pic6 || $pic3 == $pic6 || $pic4 == $pic6 || $pic5 == $pic6..
   #    || $pic1 == $pic7 || $pic2 == $pic7 || $pic3 == $pic7 || $pic4 == $pic7 || $pic5 == $pic7  || $pic6 == $pic7) && $count < 20
   #
   #    ){
   #        $pic6 = int (rand($PIC_COUNT));
   #        $count++;
   #    }
   #
   #    $sql = "SELECT * FROM midi_data where name<>'Unsorted' order by id";
   #    $sth = $dbh->prepare($sql) or die $DBI::errstr;
   #    $sth->execute or die $DBI::errstr;
   #    my @result;
   #    while(my @row = $sth->fetchrow){
   #        my $tmp = split_midi_position(@row);
   #    	$tmp->{POSITION_NAME}=~ s/(\d{4})//;
   #	$tmp->{POSITION_YEAR}=$1;
   #        push @result, $tmp;....
   #    }
   #my @new=();
   #$new[0]=$result[$pic1];
   #$new[1]=$result[$pic2];
   #$new[2]=$result[$pic3];
   #$new[3]=$result[$pic4];
   #$new[4]=$result[$pic5];
   #$new[5]=$result[$pic6];
   #$new[6]=$result[$pic7];
   #$sth->finish or die $DBI::errstr;
   #    return @new;
   #}
   ###

   Таблица midi_data > 15000 записей.
   Этот код вызывался несколько раз в секунду...

   guest, 10 Июня 2009

   Комментарии (6)

3. Java / Говнокод #1174

   +75.4

   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

   private int convertToInt(String substring) {
           int result = 0;
           for (int i = 0; i < substring.length(); i++) {
               switch(substring.charAt(i)){
                   case '1':   result = result*10 + 1; break;
                   case '2':   result = result*10 + 2; break;
                   case '3':   result = result*10 + 3; break;  
                   case '4':   result = result*10 + 4; break;  
                   case '5':   result = result*10 + 5; break;
                   case '6':   result = result*10 + 6; break;
                   case '7':   result = result*10 + 7; break;
                   case '8':   result = result*10 + 8; break;
                   case '9':   result = result*10 + 9; break;
                   case '0':   result = result*10 + 0; break;
               }
           }
           return result;
       }

   guest, 10 Июня 2009

   Комментарии (10)

4. PHP / Говнокод #1173

   +153

   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

   $answer = "";
   $word_arr = split (" ", $text);
   $rn = mt_rand(1,sizeof($word_arr))-1;
   $word = $word_arr[$rn];echo $rn." ";echo $word."_<br>";
   $i=1;
   $r = mt_rand(6,12);
   echo "r=".$r."<br>";
   while ($i < $r) :
     $result = mysql_query("SELECT * FROM suffixes WHERE (`prfx`='$word');");
     $j = 0;
     while ($j < mysql_numrows($result)) :
     $sffxs = mysql_result($result, $j, 'sffxs');
     $j++;
     endwhile;

   Сам не понял, что написал... =\

   guest, 10 Июня 2009

   Комментарии (1)

5. PHP / Говнокод #1172

   +150

   1. 1
   2. 2
   3. 3
   4. 4

   for ($i = 1; $i <= $num_pages; $i++) {
                       echo "<a href=index.php?page=$i>$i</a>";
                       echo " | "; 
                   }

   guest, 09 Июня 2009

   Комментарии (0)

6. PHP / Говнокод #1171

   +152

   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

   if (@$_GET['sortid']=="asc") { $sortus="ORDER BY id ASC"; $urlsortid="desc"; }
    elseif (@$_GET['sortid']=="desc") { $sortus="ORDER BY id DESC"; $urlsortid="asc"; }	
    else { $urlsortid="desc"; }
    
    if (@$_GET['sortdatereg']=="asc") { $sortus="ORDER BY date_reg ASC"; $urlsortdatreg="desc"; }
   elseif (@$_GET['sortdatereg']=="desc"){ $sortus="ORDER BY date_reg DESC"; $urlsortdatreg="asc"; }
   else { $urlsortdatreg="asc";}
   
   
    if (@$_GET['sortmail']=="asc") { $sortus="ORDER BY email ASC"; $urlsortmail="desc"; }
   elseif (@$_GET['sortmail']=="desc"){ $sortus="ORDER BY email DESC"; $urlsortmail="asc"; }
    else { $urlsortmail="asc"; }
    
    if (@$_GET['sortname']=="asc") { $sortus="ORDER BY username ASC"; $urlsortname="desc"; }
   elseif (@$_GET['sortname']=="desc"){ $sortus="ORDER BY username DESC"; $urlsortname="asc"; }
    else { $urlsortname="asc"; }
    
     if (@$_GET['sortip']=="asc") { $sortus="ORDER BY reg_ip ASC"; $urlsortip="desc"; }
   elseif (@$_GET['sortip']=="desc"){ $sortus="ORDER BY reg_ip DESC"; $urlsortip="asc"; }
    else { $urlsortip="asc"; }

   guest, 09 Июня 2009

   Комментарии (1)

7. C# / Говнокод #1170

   +140

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7

   void f(bool b)
   {
     if(b.ToString().Length() == 4)
       ; // типа true
     else if(b.ToString().Length() == 5)
       ; // типа false
   }

   Сравнение

   guest, 09 Июня 2009

   Комментарии (1)

8. PHP / Говнокод #1169

   +144

   1. 1

   <?php /* "Just what do you think you're doing Dave?" */ ?>

   Не говнокод, просто нашел в коде Wordpress :)

   guest, 08 Июня 2009

   Комментарии (0)

9. PHP / Говнокод #1168

   +92.5

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   function atack_is_true(){
   // функция защиты от хакерских атак
   echo "AХТУНГ";
   // блокируем нарушителя
   while(1){}

   Нечто подобное видел в самописной "луТшей CMS в мире", с портфелем разрабов на фрихосте,с дизайном от монстров и ифреймом. Они её денег хотели))))

   guest, 08 Июня 2009

   Комментарии (9)

10. Perl / Говнокод #1167

    −150

    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

    use LWP::Simple;
    use HTML::FormatText;
    use Fcntl ':flock';
    use DB_File;
    
    for ($num = 0 ; $num <= 1900; $num=$num+25){
    
    $url = "http://btk-online.ru/phcode/?curPos1=&curPos="."$num";
    
    print $url."\n";
    
    my $file = "text_in.txt";
    my $file_out = "text_out.txt";
    
    $connect = get($url) ;
    
    $text = HTML::FormatText->format_string($connect);
    
    open(MYFILE, ">" .$file) or die "Can't create file: $!";
    
    flock(MYFILE, LOCK_EX);
    
    print MYFILE $text, "\n";
    
    flock(MYFILE, LOCK_UN);
    
    $tie = tie( my @lines, DB_File , $file , O_RDWR , 0666 , $DB_RECNO)
      or die "Cannot tie file $file: $!\n";
    
    for ( $line_number = 140; $line_number <= 317 ; $line_number++){
    
    print $line_number "\n";
    
    unless ( $line_number < $tie->length){
    
    die "Didn't find line $line_number in $file \n";
    
    }
    
    open (YFILE, ">>" .$file_out) or die "Can't create file $! \n";
    
    flock (YFILE, LOCK_EX);
    
    print YFILE "$lines[$line_number-1] \n";
    
    flock (YFILE, LOCK_UN);
    
    }
    
    }

    Ребят ! Спасибо ! Едиственное быстро найденое средство перекинуть код с одной тачки на другую :)

    guest, 08 Июня 2009

    Комментарии (2)

• ← влево
• вправо →

• 2108
• …
• 115
• 114
• 113
• 112
• 111
• 110
• 109
• 108
• 107
• …
• 1