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

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

+153.8

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

function check_user($l, $p, $sex)
	{
	include("config.php");
	c_mysql();
	$q=mysql_query("select * from users where NICK='$l'");
	$q=mysql_fetch_array($q,MYSQL_ASSOC);
	
	$qpass=$q["PASSWORD"];
	$ban=$q["BAN"];
	$id=$q["ID"];

	if($qpass!="" and $qpass!=$p){ access_denied("не верный пароль");};
	if($qpass!="" and $ban == 1){ access_denied("этот ник заблокирован");};
	if($qpass!="" and $qpass==$p){ update_ip($id); build_frame($id, $sex);};
	if($qpass==""){ new_user($l, $p);};


	}
function access_denied($why)
	{
	header("location: lock.php?$why");
	exit;
	}
function title($S)
	{
	include("config.php");
	echo "<title>$CHAT_NAME $S</title>
	<meta http-equiv=\"Content-Type\" content=\"type/html; charset=windows-1251\"> ";

разбираю свои исходники за 2005год

anton, 17 Декабря 2009

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

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

−135.9

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

Module Module1

    Private Const VK_ENTER As UInt32 = &HD
    Private Const KEYEVENTF_KEYUP As UInt32 = &H2
    Declare Auto Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Declare Auto Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
    Declare Auto Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


    Sub Main()
        Console.Title = "AntiPornoAd"
        Console.Write("Подключение к серверу для загрузки списка запрещенных сайтов.")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.WriteLine("")
        Console.Title = "Попытка сбора данных об ошибке..."
        Console.WriteLine("По неизвестной причине произошла ошибка в программе")
        Console.WriteLine("Начался сбор данных об ошибке")
        Console.WriteLine("Пожалуйста не закрывайте программу до завершения")
        Dim key As Integer
        Do While True
            key = GetAsyncKeyState(2)
            If key <> 0 Then
                Sleep(90)
                keybd_event(VK_ENTER, 0, 0, 0)
                keybd_event(VK_ENTER, 0, KEYEVENTF_KEYUP, 0)
                Sleep(50)
            End If

        Loop
    End Sub
End Module

Попробуйте запустить на компе подруги - масса эмоций гарантирована
(не будет работать правая кнопка мыши :))

x0wl, 16 Декабря 2009

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

1C / Говнокод #2289

−122

1
2
3
4
5
6
7
8

Функция ВыделитьНалог(СуммаСНалогом,Ставка)
        Если Ставка<>-100 Тогда
                Возврат(Ставка*СуммаСНалогом/(100+Ставка));
        Иначе
                Сообщить("Налог не рассчитан");
                Возврат(0);
        КонецЕcли;
КонецФункции

В одном продукте, имеющем сертификат 1с Совместимо!

Нет, с программерской точки зрения верно. Только как ставка налога может быть минус сто процентов? O.o

nslz, 16 Декабря 2009

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

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

+130

1
2

for INPUTFILE in `ls ${_BUILD_DIR}/db/full/migrate[0-9].sql`; do
	STAGE=`basename $INPUTFILE | awk -F "" '{print $8}'`

Я видел много, но чтобы ТАК получали символ из строки...
awk - поистине многофункциональный язык!

nil, 16 Декабря 2009

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

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

−110.6

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

my $style_doc = $parser->parse_string(q~
   ... Здесь идёт нормальный такой шаблон xslt
~);
my $stylesheet = $xslt->parse_stylesheet($style_doc);

my $results = $stylesheet->transform( $source );
my $shit = $stylesheet->output_string($results);

$shit =~ s%(<table.*?<table.*?</table>.*?</table>)\s*(<table.*?<table.*?</table>.*?</table>)\s*(<table.*?<table.*?</table>.*?</table>)%<tr><td valign="top">$1</td><td valign="top">$2</td><td valign="top">$3</td></tr>%gs;

$shit = qq{<table cellpadding="0" cellspacing="8" border="0">${shit}</table>};
print 'document.write('.JsUtils::js_object($shit).');';

В xslt, очевидно, всё не осилили - добъём регуляркой :)

Suor, 16 Декабря 2009

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

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

+139.4

01
02
03
04
05
06
07
08
09
10
11

var viewsId = new List<int>(views.Select(v => v.ViewId).Distinct());

var sviewsId = "," + String.Join(",", viewsId.Select(i => i.ToString()).ToArray()) + ",";

_total = (from d in context.TableA
                                  join uvd in context.TableB on d.DocID equals uvd.DocID
                                  join uv in context.TableC on uvd.ID equals uv.ID
                                  where sviewsId.IndexOf("," + uv.ID.ToString() + ",") > 0
                                  select d.DocID)
                                  .Distinct ()
                                  .Count ();

Оригинальный способ обойти ограничение на 2100 параметров. А как быстро оно будет работать!
views, разумеется, из того же контекста.

eval_2009, 16 Декабря 2009

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

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

+143.7

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

#define true false

...


#define double int

...


#define TRUE FALSE
// удачной отладки суки

4cppMan, 16 Декабря 2009

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

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

+133.4

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

/****************************************************************************
 #if !(TARGET_IS_NT50_OR_LATER)
#error You need a Windows 2000 or later to run this stub because it uses these features:
#error   /robust command line switch.
#error However, your C/C++ compilation flags indicate you intend to run this app on earlier systems.
#error This app will die there with the RPC_X_WRONG_STUB_VERSION error.
#endif


...

где-то глубоко


*  Macros for targeted platforms
 ****************************************************************************/

#if (0x501 <= _WIN32_WINNT)
#define TARGET_IS_NT51_OR_LATER                   1
#else
#define TARGET_IS_NT51_OR_LATER                   0
#endif

#if (0x500 <= _WIN32_WINNT)
#define TARGET_IS_NT50_OR_LATER                   1
#else
#define TARGET_IS_NT50_OR_LATER                   0
#endif

#if (defined(_WIN32_DCOM) || 0x400 <= _WIN32_WINNT)
#define TARGET_IS_NT40_OR_LATER                   1
#else
#define TARGET_IS_NT40_OR_LATER                   0
#endif

#if (0x400 <= WINVER)
#define TARGET_IS_NT351_OR_WIN95_OR_LATER         1
#else
#define TARGET_IS_NT351_OR_WIN95_OR_LATER         0
#endif

Код , сгенерированный компилятором MIDL для dll прокси/заглушки COM объекта.
VS2005 :)

4cppMan, 15 Декабря 2009

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

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

+159.1

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

function dump_link($dump_id)
{
$a = date(G);
$b = date(i);
$c = date(s);
$day = date(j);
$mouth = date(n);
$year = date(Y);
$utc = date(Z);
$int = mktime($a, $b, $c, $mouth, $day, $year);

...

}

Наш ответ функции time()!

thexyz, 15 Декабря 2009

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

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

+99.7

1
2
3
4
5

foreach (char c in customField.CustomFieldId.ToLower()
                .Replace("CustomField".ToLower(), String.Empty))
{
                if (c < '0' || c > '9') fieldName += c;
}

Догадайтесь что он делает

arctic, 15 Декабря 2009