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

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

+171

1
2
3
4
5
6
7

<?php

$usr  = $_POST['user'];
$usr = mysql_escape_string($usr);

$query = "SELECT * FROM $admins WHERE name = '".$_POST['user']."'";
$lst = @mysql_query($query);

Заглянул в упомянутую ниже Esay Engne Site CMS
Несколько строк кода пропустил, для простоты чтения, на эту конструкцию пропущенное никак не влияло.

yasenhui, 05 Июня 2011

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

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

+168

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

<?php
/*
=====================================================
 Esay Engne Site CMS
-----------------------------------------------------
 http://ees-co.com
-----------------------------------------------------
 Copyright © 2010 - 2011  EES
=====================================================
 Назначение: Главная
=====================================================
*/

require_once("engine/class/config.db.php");
require_once("engine/editor/bbcode/bbcode.lib.php");

$query = "SELECT * FROM $setting where name='name_site'";
$lst = @mysql_query($query); 
$row2 = @mysql_fetch_array($lst);
$sn = $row2['value'];

$query = "SELECT * FROM $setting where name='home_page'";
$lst = @mysql_query($query); 
$row2 = @mysql_fetch_array($lst);
$HO_PA = $row2['value'];

$query = "SELECT * FROM $setting where name='templates'";
$lst = @mysql_query($query); 
$row2 = @mysql_fetch_array($lst);
$tem = $row2['value'];

$query = "SELECT * FROM $setting where name='status_site'";
$lst = @mysql_query($query); 
$row2 = @mysql_fetch_array($lst);
$status = $row2['value'];

Что-то тут недавно про EsayScript было... Тут у нас тоже Esay/Easy, только уже целая CMS. Оф.сайт полон опечаток и восторженного школотекста.

Самое смешное - наткнулся я на эту гадость, увидев AdSense'овский баннер. Неужто современные школьники настолько суровы, что готовы продвигать свой опенсорсный говнокод контекстной рекламой?..

telnet, 05 Июня 2011

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

JavaScript / Говнокод #6867

+161

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

englishWords = new Array()

englishWords['ф'] = 'a'
englishWords['и'] = 'b'
englishWords['с'] = 'c'
englishWords['в'] = 'd'
englishWords['е'] = 'e'
englishWords['а'] = 'f'
englishWords['п'] = 'g'
englishWords['р'] = 'h'
englishWords['ш'] = 'i'
englishWords['о'] = 'j'
englishWords['л'] = 'k'
englishWords['д'] = 'l'
englishWords['ь'] = 'm'
englishWords['т'] = 'n'
englishWords['щ'] = 'o'
englishWords['з'] = 'p'
englishWords['й'] = 'q'
englishWords['к'] = 'r'
englishWords['ы'] = 's'
englishWords['е'] = 't'
englishWords['г'] = 'u'
englishWords['м'] = 'v'
englishWords['ц'] = 'w'
englishWords['ч'] = 'x'
englishWords['н'] = 'y'
englishWords['я'] = 'z'

function convertString(string) {
	newstring = ''
	for (i=0;i<string.length;i++)
	{
	    newstring += englishWords[string[i]];
		
	}
	alert(newstring)
}

Минут двадцать вбивал английский алфавит...
И все для того, что бы создать эффект, будто пользователь забыл переключить раскладку при печати...

MyNameIsWinner, 05 Июня 2011

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

Python / Говнокод #6866

−318

1

self._DEBUG=Debug.Debug(debug)

В библиотеке xmpppy. Дебаг на дебаге.

diok, 05 Июня 2011

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

Pascal / Говнокод #6865

+96

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
83
84
85
86
87
88
89
90
91
92
93
94
95

Assign(F, FileName);
  IOResult;
  Reset(F);
  if IOResult = 0 then begin
    for i := 0 to MaxModelNamesCount-1 do ModelKind[i] := mkVagon;
    Result := True;
    BlockRead(F, W, 2);
    if W = OldWDim then begin // старый формат
      // 20 строк пропущено
    end else if W = WDim then begin // новый формат
      BlockRead(F, FormatVersion, 4); // версия нового формата
      if FormatVersion <= 4 then begin
        BlockRead(F, EditorDate, 4);
        BlockRead(F, C, 4);
        LCount := C;
        for i := 0 to LCount - 1 do begin
          BlockReadLine(F, Lines[i], 16);
          if (FormatVersion <= 2) and (Lines[i].Attr[3] and $0F = 5) then Lines[i].Attr[0] := 0
          else if (Lines[i].Attr[3] and $0F = k3DObject) then ModelKind[Lines[i].IntAttr[1]] := mkStatic;
        end;
        if FormatVersion <= 1 then begin
          ModelNamesCount := 8;  // для 1й версии список жёстко задан
          ModelNames[0] := 'ГЗРВ-10';
          ModelNames[1] := 'ГЗРВ-10М';
          ModelNames[2] := 'КТМ-5М3';
          ModelNames[3] := 'ЛМ-68';
          ModelNames[4] := 'ЛМ-68М';
          ModelNames[5] := 'ЛМ-68ММ';
          ModelNames[6] := 'ЛВС-86';
          ModelNames[7] := 'ЛВС-97';
          for i := 8 to MaxModelNamesCount-1 do ModelNames[i] := '';
        end else if FormatVersion <= 3 then begin
          ModelNamesCount := 0;
          for i := 0 to 255 do begin
            j := 0;
            BlockRead(F, j, 1);
            SetLength(ModelNames[i], j);
            for j := 1 to Length(ModelNames[i]) do Read(F, byte(ModelNames[i, j]));
            if ModelNames[i] <> '' then Inc(ModelNamesCount);
          end;
        end else begin
          BlockRead(F, ModelNamesCount, 4); // кол-во моделей
          for i := 0 to MaxModelNamesCount - 1 do ModelNames[i] := '';
          for i := 0 to ModelNamesCount-1 do begin
            BlockRead(F, k, 4); // номер считываемой модели
            j := 0;
            BlockRead(F, j, 1); // длина имени, не более 255
            SetLength(ModelNames[k], j);
            for j := 1 to Length(ModelNames[k]) do Read(F, byte(ModelNames[k, j]));
          end;
        end;

        for i := 0 to 8 do
          for j := 0 to 12 + Byte(FormatVersion >= 2) do with Routes[i, j] do begin
            BlockRead(F, PCount, 2);
            SetAllowedModels(Routes[i,j], 0, -1);
            if FormatVersion <= 1 then begin      
              BS := [];
              BlockRead(F, BS, 4);
              AllowedModelsCount := 0;
              for k := 0 to 255 do if k in BS then begin
                Inc(AllowedModelsCount);
                AllowedModels[k] := True;
              end;
            end else if FormatVersion <= 3 then begin
              BlockRead(F, BS, 32);
              AllowedModelsCount := 0;
              for k := 0 to 255 do if k in BS then begin
                Inc(AllowedModelsCount);
                AllowedModels[k] := True;
              end;
            end else begin
              BlockRead(F, AllowedModelsCount, 4);
              for k := 0 to AllowedModelsCount-1 do begin
                BlockRead(F, n, 4);           // номер модели
                AllowedModels[n] := True;
              end;
            end;

            for k := 0 to PCount - 1 do begin
              if FormatVersion >= 3 then BlockRead(F, c, 4)
              else begin
                c := 0;
                BlockRead(F, c, 2);
              end;
              Points[k] := c;
            end;
            BlockRead(F, DefVagons, 1);
            SpeedRoute := boolean(DefVagons shr 4);
            DefVagons := DefVagons and $0F;
            BlockRead(F, Interval, 1);
          end;
      end else Result := False;
    end else Result := False;
    Close(F);

Короче, лапша из if FormatVesion такой-то...
Обратная совместимость формата файла.
Формату уже 4 года.

TarasB, 05 Июня 2011

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

Ruby / Говнокод #6864

−99

1
2

<%= @album.playlist.gsub('
','<br />') %>

Тогда, видимо, не догадался написать "\n" :)

Actine, 05 Июня 2011

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

Си / Говнокод #6863

+138

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

auto ret;
ulong[] generateMobs() {

    ushort counter = 0;

    for(ulong id = 0; id < NUMBER_OF_MOBS; ++id) {

        Mob bufferMob = get(id);

        if ( bufferMob.habitat == hero.hero.heroLocalityType() && ((bufferMob.rating() <= hero.hero.rating())) ) {
            suitable ~= id;
            counter++;
        }
    }
    ret = suitable;

    suitable.length = 0;   /// Im
    suitable = null;        /// FUCKIN'
    delete suitable;      /// DESTROY YOU!!!

    return ret;
}

Вообще это язык Ди(D(digitalmars.com <-- разрабы языка). Зае... Достала всякая НЕ статичная хрень)
Вообще в Ди есть гарбадж коллектор...

Hackeridze, 05 Июня 2011

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

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

+167

1

<a title="Главная" href="http://<?php echo $_SERVER['HTTP_HOST'].str_replace('\\', '', dirname($_SERVER['PHP_SELF'])); ?>">Главная</a>

нашел в одном проекте, я бы и не смог до такого додуматься

alextg, 04 Июня 2011

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

VisualBasic / Говнокод #6861

−99

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

Dim byteOut(64) As Byte
        Dim i As Integer
        Try
            byteOut(0) = Len(outCName) + 5 'number bytes in output message
            byteOut(1) = &H0 'should be 0 for NXT
            byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
            byteOut(3) = &H9 'Send Bluetooth
            byteOut(4) = &H0 'Box Number - 1
            byteOut(5) = Len(outCName) + 1 'message size with null terminator
            For i = 1 To Len(outCName) 'copy bytes into output array
                byteOut(i + 5) = Asc(Mid(outCName, i, 1))
            Next
            byteOut(Len(outCName) + 6) = &H0 'add null terminator
            SerialPort1.Write(byteOut, 0, Len(outCName) + 7) 'send message

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        Try
            byteOut(0) = Len(outWState) + 5 'number bytes in output message
            byteOut(1) = &H0 'should be 0 for NXT
            byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
            byteOut(3) = &H9 'Send Bluetooth
            byteOut(4) = &H1 'Box Number - 1
            byteOut(5) = Len(outWState) + 1 'message size with null terminator
            For i = 1 To Len(outWState) 'copy bytes into output array
                byteOut(i + 5) = Asc(Mid(outWState, i, 1))
            Next
            byteOut(Len(outWState) + 6) = &H0 'add null terminator
            SerialPort1.Write(byteOut, 0, Len(outWState) + 7) 'send message

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

<..ещё один раз..>

   '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        Try
            byteOut(0) = Len(outWindC) + 5 'number bytes in output message
            byteOut(1) = &H0 'should be 0 for NXT
            byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
            byteOut(3) = &H9 'Send Bluetooth
            byteOut(4) = &H3 'Box Number - 1
            byteOut(5) = Len(outWindC) + 1 'message size with null terminator
            For i = 1 To Len(outWindC) 'copy bytes into output array
                byteOut(i + 5) = Asc(Mid(outWindC, i, 1))
            Next
            byteOut(Len(outWindC) + 6) = &H0 'add null terminator
            SerialPort1.Write(byteOut, 0, Len(outWindC) + 7) 'send message

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

        '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        Try
            byteOut(0) = Len(outHum) + 5 'number bytes in output message
            byteOut(1) = &H0 'should be 0 for NXT
            byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
            byteOut(3) = &H9 'Send Bluetooth
            byteOut(4) = &H4 'Box Number - 1
            byteOut(5) = Len(outHum) + 1 'message size with null terminator
            For i = 1 To Len(outHum) 'copy bytes into output array
                byteOut(i + 5) = Asc(Mid(outHum, i, 1))
            Next
            byteOut(Len(outHum) + 6) = &H0 'add null terminator
            SerialPort1.Write(byteOut, 0, Len(outHum) + 7) 'send message

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

Говнокод почти трёхлетней давности. Понадобилось мне посмотреть, как я реализовывал "общение" по блютусу с Mindstorms NXT, и напоролся на вот это...

RaZeR, 04 Июня 2011

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

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

+163

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

<?php echo '<?xml version="1.0" encoding="utf-8"?>';?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="ru">
<head>
<title>День Победы! 66 лет со дня победы! 9 Мая!</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">body{background:#000;}h1{color:#ff5500;}</style>
</head>
<body>
<div style="text-align:center">
<div style="padding-top:28%"><h1><?php
class Main
{
var $timex;
var $month;
var $day;
var $year;
function win2uni($s)
{
$s = convert_cyr_string($s,'w','i');
for ($result='', $i=0; $i<strlen ($s); $i++) {
$charcode = ord($s[$i]);
$result .= ($charcode>175)?"&#".(1040+($charcode-176)).";":$s[$i];
}
return $result;
}
function Main()
{
if ($this->GetDate())
$this->TimeTo();
return true;
}
function GetDate()
{
$this->month = '05';
$this->day = '09';
$this->year = '2011';
return true;
}
function TimeTo()
{
$m = $this->month;
$d = $this->day;
$y = $this->year;
$mn = date("m");
$dn = date("d");
$yn = date("y");
$hh = date("H");
$mm = date("i");
$ss = date("s");
$diff = mktime(23,59,59,$m,$d,$y)-mktime($hh,$mm,$ss,$mn,$dn,$yn);
$days = $diff/60/60/24;
$hours = $diff/60/60 - intval($days)*24;
$minutes = $diff/60 - intval(intval($days*24)*60);
$seconds = $diff - intval(intval(intval($days*24*60))*60);
$text = "До Дня Победы (9 мая) осталось<br/>\n";
$text.= round($days);
$mins = round($days)."";
if ($mins == "11" or $mins == "12" or $mins == "13" or $mins == "14") $text.= " дней "; else
if (
$mins[strlen($mins)-1] == "2"
or $mins[strlen($mins)-1] == "3"
or $mins[strlen($mins)-1] == "4")
$text.= " дня "; else
if($mins[strlen($mins)-1] == "1")
$text.= " день "; else
$text.= " дней ";
$text.= round($hours);
if (round($hours) == 1 or round($hours == 21)) $text.= " час "; else
if (round($hours) == 2 or round($hours) == 3 or round($hours) == 4 or round($hours) == 22 or round($hours) == 23) $text.= " часа ";
else $text.= " часов ";
$text.= round($minutes);
$mins = round($minutes)."";
if ($mins == "11" or $mins == "12" or $mins == "13" or $mins == "14") $text.= " минут "; else
if (
$mins[strlen($mins)-1] == "2"
or $mins[strlen($mins)-1] == "3"
or $mins[strlen($mins)-1] == "4")
$text.= " минуты "; else
if($mins[strlen($mins)-1] == "1")
$text.= " минута "; else
$text.= " минут ";
$text.= round($seconds);
$mins = round($seconds)."";
if ($mins == "11" or $mins == "12" or $mins == "13" or $mins == "14") $text.= " секунд "; else
if (
$mins[strlen($mins)-1] == "2"
or $mins[strlen($mins)-1] == "3"
or $mins[strlen($mins)-1] == "4")
$text.= " секунды "; else
if($mins[strlen($mins)-1] == "1")
$text.= " секунда "; else
$text.= " секунд ";
echo $text;
return true;
}
}
$X = new Main();
?></h1></div>

Заранее извиняюсь за "опять даты, опять php":)

Отсчет времени до 9 мая
http://dumpz.org/23155/

rO_ot, 04 Июня 2011

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

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