По колено в коде — Говнокод.ру

SQL / Говнокод #1179

−128.7

1
2

if(mysql_query('DROP TABLE table_name'))
  echo "таблица существовала ;(";

Проверка таблицы на существование.
Взято самизнаетеоткуда

ЗЫ SQL+PHP

guest, 11 Июня 2009

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

Java / Говнокод #1178

+77.5

1
2
3
4

/**
 * Этот класс содержит сакральные знания, полученные годами отладки предыдущей версии.
 * Рационально понять этот код невозможно, поэтому менять с осторожностью!
 */

В одном из классов нашел вот такой вот комментарий.

guest, 11 Июня 2009

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

Куча / Говнокод #1177

+129.6

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

TYPE
   Numbers=RECORD
     a:ARRAY 1000 OF INTEGER;
     N:INTEGER;
   END;

........

PROCEDURE Summ(OUT res:Numbers;IN a,b:Numbers); (*Проверена*)
 VAR
   max,i,sum:INTEGER;
BEGIN (*Суммирование*)
  IF a.N>b.N THEN 
   max:=a.N;
  ELSE
   max:=b.N;
  END;
  i:=0;
  sum:=0;
  WHILE i<=max DO
   IF i<=a.N THEN
     sum:=sum+a.a[i];
   END;
   IF i<=b.N THEN
     sum:=sum+b.a[i];
   END;
   res.a[i]:=sum MOD 10;
   sum:=sum DIV 10;
   i:=i+1;
  END;
  IF sum>0 THEN
    res.N:=max+1;
    res.a[max+1]:=sum;
  ELSE
    res.N:=max;
  END;
END Summ;

Кусок из написанной одним энтузиастом-программером реализации длинной арифметики (комментарии сохранены)
4 байта под каждую десятичную цифру. Много? Зато все понятно, как в школе ;)
шесть + семь = три, единица на ум пошла...

P.S. язык оберон - наследник паскаля

guest, 10 Июня 2009

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

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

+152

1
2
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)

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

−207.6

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
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)

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

+75.4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
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)

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

+153

01
02
03
04
05
06
07
08
09
10
11
12
13
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)

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

+150

1
2
3
4

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

guest, 09 Июня 2009

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

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

+152

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
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)

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

PHP / Говнокод #1180

SQL / Говнокод #1179

Java / Говнокод #1178

Куча / Говнокод #1177

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

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

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

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

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

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