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

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

+155

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

char Sort(char Type, int l, int r)
{
  int i = l, j = r;
  char x[31];
  void *y = 0;
  setmem(x, 31, 0);
  strcpy(x, ((TData*)(DataLists[CurrentList][(l+r)/2]))->Data[CurrentCol-1]);
  do
  {
    if (Type==UP)
    {
      switch(CurrentCol)
      {
	case 1: case 2:
	  while (strcmp(((TData*)(DataLists[CurrentList][i]))->Data[CurrentCol-1], x) < 0)
	    ++i;
	  while (strcmp(((TData*)(DataLists[CurrentList][j]))->Data[CurrentCol-1], x) > 0)
	    --j;
	  break;
	default:
	  while (atoi(((TData*)(DataLists[CurrentList][i]))->Data[CurrentCol-1])<atoi(x))
	  ++i;
	  while (atoi(((TData*)(DataLists[CurrentList][j]))->Data[CurrentCol-1])>atoi(x))
	  --j;
      }
    }
    else
    {
      switch(CurrentCol)
      {
	case 1: case 2:
	  while (strcmp(((TData*)(DataLists[CurrentList][i]))->Data[CurrentCol-1], x) > 0)
	    ++i;
	  while (strcmp(((TData*)(DataLists[CurrentList][j]))->Data[CurrentCol-1], x) < 0)
	    --j;
	  break;
	default:
	  while (atoi(((TData*)(DataLists[CurrentList][i]))->Data[CurrentCol-1])>atoi(x))
	    ++i;
	  while (atoi(((TData*)(DataLists[CurrentList][j]))->Data[CurrentCol-1])<atoi(x))
	    --j;
      }//switch
    }//if
    if (i<=j)
    {
      y = DataLists[CurrentList][i];
      *(DataLists[CurrentList].GetPointerToData(i)) = DataLists[CurrentList][j];
      *(DataLists[CurrentList].GetPointerToData(j)) = y;
      ++i, --j;
    }
  }
  while (i<=j);
    if (l<j)
    {
      if (Type==UP)
	Sort(UP, l, j);
      else
	Sort(DOWN, l, j);
    }
  if (i<r)
  {
    if (Type==UP)
      Sort(UP, i, r);
    else
      Sort(DOWN, i, r);
  }
return 1;
}

По-моему, это должна была быть сортировка Хоара, а получилось говно. Самое странное - это то, что оно работает...

Max ID, 21 Мая 2010

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

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

+173

1
2
3
4
5
6
7

# текст сообщений об ошибке
$errDescr[1] = NETCAT_MODERATION_MSG_ONE;
$errDescr[2] = NETCAT_MODERATION_MSG_TWO;
$errDescr[6] = NETCAT_MODERATION_MSG_SIX;
$errDescr[7] = NETCAT_MODERATION_MSG_SEVEN;
$errDescr[8] = NETCAT_MODERATION_MSG_EIGHT;
$errDescr[21] = NETCAT_MODERATION_MSG_TWENTYONE;

Чьорт, я обожаю этих ребят. Они мои герои.

telnet, 21 Мая 2010

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

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

+143

1

<img src="\rus\windows\internet-explorer\images\waterdrop_banner_887.jpg" height="380" width="958" />

Источник: http://www.microsoft.com/rus/windows/internet-explorer/welcome.aspx

Это полный комплект для интернета. Интернета, каким он нужен именно вам. Общение, информация и безопасность. Воспользуйтесь функциями Internet Explorer 8, чтобы создать свой интернет. ©
Сука.

anmiles, 21 Мая 2010

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

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

+143

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

bool flag = getFlag();
switch (flag)
{
case true:
    // do something
    break;
case false:
    // do something else
    break;
default:
   // do something more (??!)
}

бывает же...

glook, 21 Мая 2010

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

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

+160

1
2

case false:
default:

:)

DmitryDick, 21 Мая 2010

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

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

−368

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

Public Function Chten(adr As String, TK As Boolean) As String
Dim str As String
Dim strr As String
Dim i As Long
If DirectoryExists(adr) = True Then
  Dim FLong As Long
  Open adr For Binary As #1
  FLong = Loc(1)
  Do While FLong < LOF(1)
    str = str + Input(1, #1)
    FLong = Loc(1)
  Loop
  Close #1
  strr = str
  If TK = True Then
  strr = ""
  Dim j As Long
  j = Len(str)
  For i = 1 To j
    If ((i Mod 8) = 0) Or (i = j) Then
        strr = strr + RTK(Mid(str, 1, 8))
        str = Mid(str, 9)
    End If
  Next
  End If
  Chten = strr
End If
End Function

'есть ли
'видно что функцию он где-то взял - см. другой стиль именования переменных и отступы
'но при этом сама и функция тоже попахивает
Public Function DirectoryExists(ByVal strPathName As String) As Boolean
    Dim DirectoryFound As String
    Const errPathNotFound As Integer = 76
    On Error GoTo 0
    DirectoryFound = Dir(strPathName, vbDirectory)
    If (Len(DirectoryFound) = 0 Or Err = errPathNotFound) Then
        DirectoryExists = False
    Else
        DirectoryExists = True
    End If
End Function

лаба моего бывшего однокурсника, весь остальной код - в таком же стиле
вчера искал кой-чего - наткнулся на архив старых лаб моих одногрупников и их предшественников.
Эта наверно одна из самых адекватных, потому что хоть можно сходу понять что она делает
и писал её человек хоть немного выкупающий что он пишет и тем не менее...

3.14159265, 21 Мая 2010

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

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

+162

01
02
03
04
05
06
07
08
09
10

class Massiv{
      int *a;
public:
       void Sozd(int k);
};

void Massiv::Sozd(int k)
{
     a=(int *) malloc (sizeof(int) * (k+3));
}

У меня будет свой конструктор!

kir_rik, 20 Мая 2010

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

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

+165

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

<?php 

        define('URL', 'http://shop.megafonnw.ru/spb/?pageid=5&subpageid=5&rnd=18'); 

        $fp = fopen('URL', 'r'); 

        $fpt = fopen('script.txt', 'r+'); 

        $fpn = fopen('new.txt', 'r+'); 

        $cont = file_get_contents(URL); 

        $man = substr($cont, 14900, 7636); 

        $script = file_get_contents('script.txt'); 

        $new = file_get_contents('new.txt'); 

        if($script == "") { 

            fwrite($fpt, $man); 

            print "script zapisan!"; 

        }else { 

            if($script == $new) { 

                $ret = fwrite($fpn, $man); 

                print $ret."<br/>"; 

                $sost = "No changed!"; 

                ftruncate($fpn, 0); 

            }else { 

                $ret = fwrite($fpn, $man); 

                print $ret."<br/>"; 

                $sost = "Text has been changed!"; 

                ftruncate($fpt, 0); 

                $ret2 = fwrite($fpt, $new); 

                print $ret2."<br/>"; 

                print strlen($new); 

                ftruncate($fpn, 0); 

            } 

            print "script ne zapisan"; 

        } 

            print "\n\t<br/>".$sost; 

        fclose($fpn); 

        fclose($fpt); 

        fclose($fp); 

        ?>

особо порадовала строка substr($cont, 14900, 7636);

GoodTalkBot, 20 Мая 2010

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

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