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

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

+101.4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

/////определяем зарплату по кол-ву учеников
  str := 'SELECT C.Salary, C.DateID'+
  ' FROM CriteriaOfSalaryTeachers C, TeacherStyleGroup TSG, CriteriaOfSalaryTeacherDate CD' +
  ' WHERE (CD.TeacherStyleGroupID = TSG.TeacherStyleGroupID)'+
  ' AND (TSG.TeacherStyleID =:tsid) AND (TSG.GroupID =:idg)'+
  ' AND (CD.DateID = C.DateID) AND (CD.DateTimeActivity <= :da) AND (CD.DateTimeClose > :datt)'+
  ' AND (C.MinPupils <= :mip) AND (C.MaxPupils > :mipi)';
  Salary := MainForm.Query(str, 3, 'float:'+TSID+
                                   '; integer:'+GroupID+
                                   '; datetime:'+DateToStr(MyDate)+' '+TimeToStr(MyTime)+
                                   '; datetime:'+DateToStr(MyDate)+' '+TimeToStr(MyTime)+
                                   '; integer:'+IntToStr(CountPupils)+
                                   '; integer:'+IntToStr(CountPupils));
if Salary[0,0] = '__false__' then
    result := -1

определяем зарплату по кол-ву учеников

fekrado, 22 Января 2010

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

C# / Говнокод #2474

+138.9

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

public static class Test3
        {
            public delegate object MyDelegate(object o);
            public delegate T MyDelegate<T>(T o);

            public static void Run()
            {
                MyDelegate dlgA = (o) => { return o; };
                
                MyDelegate<object> dlgB = (i) => { return i; };

                MyDelegate dlg = ChangeType<MyDelegate>(dlgB);
            }
            static T ChangeType<T>(Delegate dlg)
            {
                return (T)(object)Delegate.CreateDelegate(typeof(T), dlg.Target, dlg.Method);
            }
        }

Люблю вкусняшку))

fekrado, 22 Января 2010

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

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

+199.5

1
2
3
4
5
6
7
8

$slova=array("лох","ламер","далбаёб","****","Лох","Пиздец","пиздец","пиздеть","долбаеб","****","пиздец","долбаеп",*****,"на***","накуй","webkil lamer","webkill ламер","webkill lamer","Пидар","Имбицил","имбицил","webkil ламер","*****","епаная","ебаная","ебать","епать","3,14зда","пидар","пидор","*****нул","писдеть","трахать","трхнул","выебал","выебать","выепать","выепать"); 

      for($i==0;$i<=100;$i++) { 
   $zapret = strpos($msg, $slova[$i]); 
       if($zapret>=1) { 
           echo "Отправка запрещена WebKill'ом т.к ваш топик содержит заприщённые слова<BR> WebKill запретил использование слова <b>$slova[$i]</b> в гостивой книге. <BR><iframe src=ping.php width=0 heith=0></iframe><iframe src=ping.php width=0 heith=0></iframe><iframe src=ping.php width=0 heith=0></iframe>"; 
       exit;     
       }

Да простят за маты :) (c) (Dm)

Ctac0k, 22 Января 2010

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

C++ / Говнокод #2472

+144.8

1
2
3
4
5
6
7

string& operator+= (string const& str)
    {
        if(const size_t str_size = str.size())
            _c_str = (char*)memcpy((char*)realloc(_c_str, _size+str_size+1)+_size, str.c_str(), str_size+1)-_size, //0_o
            _size += str_size;
        return *this;
    }

GovnocoderJr, 22 Января 2010

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

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

+124.7

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

MAIN_RULES ()
{
    IF ((Tour==2) && (Time>105) {
        Competition_Failed();
        Test_System_Down();
    }
    IF 
        (smoking==true)
        or
        (alcohol==true)
        or
        (Come_Home>23:00)
    THEN
        Break_The_Competition!
}

Листовки, расклеенные в профилактории, где квартировались участники KPI-OPEN'09. Этот контест также отметился эпичным падением системы в основном туре соревнований, что отразилось на их содержании ;) Так что первый if - поздняя вставка за авторством участников контеста.
Алсо, на бредовость синтаксиса уже давно обратили внимание. И попытки его пригладить к стандартам какого-либо языка уже проводились (наиболее частое решение - довольно увесистая пачка сишных дефайнов). Хотя можете высказывать и свои идеи на этот счет, будет интересно)

uncle Lem, 21 Января 2010

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

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

+144.5

1
2
3
4
5
6
7
8
9

<?php
/* КУЧА ГОВНОКОДА */
?>

<TITLE><?php echo $m_feld[0];?></TITLE>

<?php
/* КУЧА ГОВНОКОДА */
?>

...вот так вот завернуть...навыворот можна ))

v01t, 21 Января 2010

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

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

+164

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

/* JAVA-Script zur Bestätigung, wenn alle Datensätze ersetzen, (Code=1) gewählt wurde */
echo '<script type="text/javascript">
';
echo '<!--
';
echo 'function Bestaetigung()
';
echo '{
';
echo ' var x = window.confirm("'; echo $h_feld[30]; /* Wollen Sie wirklich alle bestehenden Daten ersetzen? */
echo '")
';
echo ' return x;
';
echo '};
';
echo 'function Bestaetigung_1()
';
echo '{
';
echo ' var x = window.confirm("'; echo $h_feld[35]; /* Wollen Sie wirklich die Datei auschecken? */
echo '")
';
echo ' return x;
';
echo '};
';

echo 'function Bestaetigung_2()
';
echo '{
';
echo ' var x = window.confirm("'; echo $h_feld[31]; /* Wollen Sie wirklich die Datei auschecken? */
echo '")
';
echo ' return x;
';
echo '};
';

echo '//-->
';
echo '</script>
';

Немецкие перлы....

v01t, 21 Января 2010

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

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

+185.3

1
2
3

...
if($user=="WebKill" || $user=="Webkill" || $user=="webkill" || $user=="WEBKILL")   {
...

Вебкилл =\

Ctac0k, 21 Января 2010

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

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

−122.2

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

Private Sub Form_Load()
'загрузка изображения
Dim xx(), yy(), zz()
Dim i As Integer
Dim maxx As Integer
Dim maxy As Integer
Dim minx As Integer
Dim miny As Integer
xx = Array(0#, 1#, 1#, 11#, 11#, 6#, 11#, 1#, 1#, 11#, 11#)
yy = Array(0#, 11#, 1#, 1#, 6#, 11#, 11#, 11#, 1#, 1#, 11#)
zz = Array(0#, 11#, 11#, 11#, 11#, 11#, 6#, 1#, 1#, 1#, 1#)
For i = 1 To 10
 x(i) = xx(i) * 1.5
 y(i) = yy(i) * 1.5
 z(i) = zz(i) * 1.5
 x0(i) = xx(i)
 y0(i) = yy(i)
 z0(i) = zz(i)
Next
maxx = 20
minx = -20
maxy = 20
miny = -20
Picture1.ScaleMode = 0
Picture1.Scale (minx, maxy)-(maxx, miny)
Call Angle(210, 30)
Call Cube(x(), y(), z())
sd = False
End Sub

Вот такая вот куча малопонятного говна

flash, 21 Января 2010

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

C++ / Говнокод #2466

+145.5

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

#include <iostream>
#include <locale.h>

//------------------------------------------------------------------
// The PREVED Language Kernel area. Do not touch! 

#if !defined (_MSC_VER) || _MSC_VER < 1400
#error Wrong compiler! Use MSVS 8.0
#endif

#define НАЧЕЛ      {
#define КОНЧЕЛ    ;}
#define ТИПА      int 
#define ВДРУГ      if (
#define ТАДА      )
#define НИХРИНА    else
#define ВЗАД      return
#define КАГДИЛА    (
#define ЙО        ;
#define ЖЖОШ(p,n)  for (; (p) <= (n); (p)++)

#define БАЗАР      std::cout << 
#define СЛЫШЬ      << 
#define СТОЙ      system ("echo. & pause");
#define БЛИН      _wsetlocale (LC_ALL, L"Russian_Russia.ACP");

#define ВРОДЕ      try 
#define ИБАНУЦЦО  throw
#define АПСТЕНУ    catch (const char* __чё__)

#define ПРЕВЕД    ТИПА main КАГДИЛА ТАДА
#define МЕДВЕД    ВЗАД 0; КОНЧЕЛ

// End of area
//------------------------------------------------------------------

ТИПА КРУТО КАГДИЛА ТИПА фигня ТАДА
    НАЧЕЛ
    БАЗАР "ВАЩЕ " ЙО
    ВДРУГ фигня == 8 ТАДА ИБАНУЦЦО "мля! " ЙО
    ВЗАД 0
    КОНЧЕЛ

ПРЕВЕД
    НАЧЕЛ
    БЛИН

    ВРОДЕ НАЧЕЛ

    ТИПА фишка = 0 ЙО

    ЖЖОШ (фишка, 10)
        НАЧЕЛ
        БАЗАР фишка СЛЫШЬ " "; 
        ВДРУГ фишка >= 5 ТАДА КРУТО (фишка) ЙО
        КОНЧЕЛ

    КОНЧЕЛ АПСТЕНУ НАЧЕЛ
        БАЗАР "ИБАНУЦЦО invoked: " СЛЫШЬ __чё__;
    КОНЧЕЛ

    СТОЙ
    МЕДВЕД

стащил с форума, наверное - боян=)

Novi4oK, 21 Января 2010