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

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

+163

1
2
3

// WTF адская магия
    $_SESSION['item_count'] = $_SESSION['item_count'] + 1;
    $_SESSION['item_count'] = $_SESSION['item_count'] - 1;

Достался в наследие код корзины

winddrop, 24 Июня 2013

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

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

+34

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

class A
{
public:
    unsigned int m_value;

    inline bool operator != ( const A & value )
    {
        unsigned int temp;
        temp = 0 != ( m_value != value.m_value );
        return 0 == temp;
    }

    inline bool operator == ( const A & value )
    {
        unsigned int temp;
        temp = 0 != ( m_value == value.m_value );
        return 0 != temp;
    }
};

Фрагмент кода одной коммерческой библиотеки. Имя класса изменено, 100500 прочих методов вырезано, но они похожи на эти.
Я не буду акцентировать внимание на том, что операторы невозможно использовать для константных объектов, даже не буду говорить о странном способе сравнения целых чисел... Но я упомяну о том, что 'operator !=' работает немножко не так, как руссо-индусы ожидали.

Little-Horny, 24 Июня 2013

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

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

+14

1
2
3
4
5
6
7
8
9

int error = (unsigned)-1;

int x, y, w, h;
x = y = w = h = error;

stream >> x >> y >> w >> h;

if(x == error || y == error || w == error || h == error)
   ...

Не нашёл, как по-другому обрабатывать ошибки текстовых командах.

an0nym, 24 Июня 2013

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

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

+166

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

<?php

// ПОдключение к БД
include'connect.php';


$x = 1;
$sql_1 = 'SELECT * FROM etalon';
$res = mysql_query($sql_1);
$num_rows = mysql_num_rows($res);

while ($x < $num_rows)
{
// Определение содержимого данной строки
$name = mysql_query("SELECT name FROM etalon WHERE id ='$x'");
$value = mysql_query("SELECT value FROM etalon WHERE id ='$x'");
$type = mysql_query("SELECT type FROM etalon WHERE id ='$x'");
$priority = mysql_query("SELECT priority FROM etalon WHERE id ='$x'");

echo '<table width=1024 border=1 align=center cellpadding=0 cellspacing=0><tr>
<td align=center>'. $name. '</td>
<td align=center>'.$value.'</td>
<td align=center>'.$type.'</td>
<td align=center>'.$priority.'</td>
<td align=center><img src=/images/apply.png ><br></td>

</tr>
</table>';

$x++;
}

?>

http://forum.php.su/topic.php?forum=71&topic=10932&postid=13 71975539#1371975539

deep, 23 Июня 2013

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

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

+127

1
2
3
4

function GetBiosNumber: string;
 begin
   result := string(pchar(ptr($FEC71)));
 end;

Windows NT поддерживает прерывания!!! А Вы знали?

Stertor, 23 Июня 2013

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

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

+128

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

// используемые переменные
 var
   Dummy: integer = 0;
   OldKbHook: HHook = 0;

 implementation

 function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
 begin
   if code < 0 then
     Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
   else
     Result := 1;
 end;

// включение клавы

 procedure TForm1.KeyBoardOn(Sender: TObject);
 begin
   if OldKbHook <> 0 then
   begin
     UnHookWindowshookEx(OldKbHook);
     OldKbHook := 0;
   end;
   SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
   SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
 end;

 // выключение клавы

 procedure TForm1.KeyBoardOff(Sender: TObject);
 begin
   SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
   SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
   OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
 end;

Попытка вырубить клаву, сев на нее.

Stertor, 23 Июня 2013

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

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

+127

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

Function DiskInDrive(ADriveLetter : Char) : Boolean;
var
  SectorsPerCluster,
  BytesPerSector,
  NumberOfFreeClusters,
  TotalNumberOfClusters   : Cardinal;
begin
  Result := GetDiskFreeSpace(PChar(ADriveLetter+':\'),
                              SectorsPerCluster,
                              BytesPerSector,
                              NumberOfFreeClusters,
                              TotalNumberOfClusters);

end;

// еще один шедевр:

var
 SR  : TSearchRec;
 Res : integer;
 OldErrMode : integer;
begin
 // Запоминаем текущий режим обработки ошибок и устанавливаем SEM_FAILCRITICALERRORS
 // Это необходимо для подавления появления окна с сообщение о том, что устройство не готово
 OldErrMode = SetErrorMode(SEM_FAILCRITICALERRORS);
 try
  Res := FindFirst('a:\*.*', faAnyfile, SR);
  FindClose(SR);
 finally
  SetErrorMode(OldErrMode)
 end;
end;

С помощью этих процедур Олежик Зайцев на своем сайте предлагает определять доступность дисков, минуя сообщение WINDOWS "Диск не готов".
Без комментариев.

Stertor, 23 Июня 2013

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

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

+130

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

procedure TMyTr.Execute; // метод потока; эта процедура выполняется в отдельном потоке.
var
s,resp,ip,port:string;
cw,i:integer;
begin
  http:=TIdHTTP.Create(nil);
  cw:=getnumberproxy;
  while cw<form1.Memo1.Lines.Count do 
  begin
    s:=form1.Memo1.Lines[cw];
    i := Pos(':',s);
    IP := Copy(s,1,i-1);
    PORT := Copy(s,i+1,Length(s));
    try
      http.ProxyParams.ProxyServer:=ip;
      http.ProxyParams.ProxyPort:=StrToInt(port);
      http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
      resp:=http.Get('http://ya.ru/');
      if pos('ya.ru',resp)<>0 then
      form1.Memo2.Lines.Add(ip+':'+port);
      except
        end;
      cw:=getnumberproxy;
      checked:=checked+1;
      end;
  http.Free;

end;

Вот так живут Америка с Европой; что интересно, ни поток ни форма ни разу не заглючили.

Stertor, 23 Июня 2013

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

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

+129

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

function stringreplaceall(text, byt, mot: string): string;
var
  plats: integer;
begin
  while pos(byt, text) > 0 do
  begin
    plats := pos(byt, text);
    delete(text, plats, Length(byt));
    insert(mot, text, plats);
  end;
  Result := text;
end;

Найди десять отличий с родной дельфийской StringReplace. (trollface)

Stertor, 23 Июня 2013

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

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

+107

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

function FindPathInPath(path1: string; path2: string): Boolean;
var
  lst: TStringlist;
  i, l: integer;
begin
  lst := TStringlist.Create;
  // ----------------------------------------------
  path1 := stringreplaceall(path1, '/', '\');
  path1 := stringreplaceall(path1, '\\', '\');
  // ----------------------------------------------
   path2 := stringreplaceall(path2, '\', '');
   path2 := stringreplaceall(path2, '/', '');
   path2 := stringreplaceall(path2, '"', '');
   path2 := stringreplaceall(path2, '<', '');
   path2 := stringreplaceall(path2, '>', '');
   path2 := stringreplaceall(path2, '?', '');
   path2 := stringreplaceall(path2, '|', '');
   path2 := stringreplaceall(path2, ':', '');
   path2 := stringreplaceall(path2, '*', '');
  // ----------------------------------------------
  for i := 2 to CountString(path1, '\') + 1 do
  begin
    lst.Add(StringField(path1, '\', i));
  end;
  for l := 0 to lst.Count - 1 do
  begin
    if lstrcmpi(pchar(lst[l]), pchar(path2)) = 0 then
    begin
      FindPathInPath := True;
      break;
  end;
  end;
  lst.Free;
  FindPathInPath := false;
  exit;
end;

Функция для поиска названий подпапок в файловых путях.
Трудно судить г..нокод ли это, но так как я все же использовал более изящное решение, то быть посему...

Stertor, 23 Июня 2013

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

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

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

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

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

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

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

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

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

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

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

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