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

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

+174

1

if (ret_wx.charAt(0) == 'h' && ret_wx.charAt(1) == 't' && ret_wx.charAt(2) == 't' && ret_wx.charAt(3) == 'p' && ret_wx.charAt(4) == ':' && ret_wx.charAt(6) == '/' && ret_wx.charAt(6) == '/')

Проверка, является ли строка URL'-ом

Infamous, 23 Апреля 2010

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

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

+157

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

if ($key>0)
{
if (strpos ($payload['from'],'conference') > 1)
{
if (strlen ($payload['role']) >1 )
{
if (strlen ($payload['jid']) >1 )
{
if (strpos ($payload['jid'],'@') > 1)
{
$this->role_st[$key] = $payload['from'];
$this->role_st[$key+1] = $payload['jid'];
$this->role_st[$key+2] = $payload['role'];
}
}
}
}
}
else
{
if (strpos ($payload['from'],'conference') > 1)
{
if (strlen ($payload['role']) >1 )
{
if (strlen ($payload['jid']) >1 )
{
if (strpos ($payload['jid'],'@') > 1)
{
array_push ($this->role_st, $payload['from']);
array_push ($this->role_st, $payload['jid']);
array_push ($this->role_st, $payload['role']);
}
}
}
}
}

Йа матрешко

Безымянный, 23 Апреля 2010

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

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

+85

1
2
3
4
5
6
7

destructor TKLCWinFrame.Destroy;
begin
  asm
    nop;
  end;
  inherited;
end;

StriderMan, 23 Апреля 2010

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

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

+162

1
2
3
4
5
6
7
8
9

char pack_LOF_OBJ(LOF_OBJ *pobj, char* pdata)
{
        *pdata  =(unsigned char) (pobj->value << 16);
        *(pdata + 1)  = (unsigned char)(pobj->value << 8 >> 16 << 8);
        *(pdata + 2) = (unsigned char)(pobj->value >> 16 << 16);


        return 0x01;
};

тоже писал я. Умрите в мучениях, человеки.
Упакуем 4 байта согласно протоколу. Похуй маски. Главное сдвигами подрочить.
Когда господин шаша (мудрый и строгий начальник) сказал что я мудак - сразу поправил всё на маски.

ursus, 23 Апреля 2010

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

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

+157

1
2
3
4
5

//Русская рулетка. 7 газовых, один боевой.
 act_rx_session_104(&apdu);
//      printf ("recv I\n");
result =        (*((COLLECTORHDLR*)((collector_cfg.pFILLHDL + (unsigned char)apdu.asdu.type)->pHandler)))
((HEAD_ASDU_60870*) &apdu.asdu);

Как то писал под OS Rtems 4.6 протокол 60870-5-104
эта строчка специально придумывалась как гавно, активизируещее механизм разбора пакета и запуска других механизмов.

ursus, 23 Апреля 2010

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

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

+162

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

/* Упрощает формирование гиперссылок.
* Возвращает элемент a.
* В случае ошибки её и вернет.
* oNode				уровень для вставки.
* oDocument		контекст документа.
* sHref				относительный или абсолютный url гиперссылки.
* [sText]				текст;
*							по умолчанию sText не используется и гиперссылка будет не видна, это бывает полезно для картиночных гиперссылок.
* [sTarget]			name окна или фрэйма или стандартные значения:
*							"_blank" новое окно,
*							"_top" окно верхнего уровня,
*							"_parent" предыдущее окно,
*							"_self" текущее окно;
*							по умолчанию sTarget не используется.
* [sTitle]				текст подсказки при наведении мыши.
* Max Pro 2010-02-11-1200→2010-02-11-1300.
*/
function aAlt(oNode,oDocument,sHref,sText,sTarget,sTitle)
{
	//#region var
	//var obj
	var documentAny;
	var aAny;
	//#endregion var
	//#region ini
	if(oDocument) documentAny=oDocument;else documentAny=document;
	//#endregion ini
	aAny=oNode.appendChild(oDocument.createElement("a"));
	aAny.href=sHref;
	if(sText) aAny.appendChild(oDocument.createTextNode(sText));
	if(sTarget) aAny.target=sTarget;
	return aAny;
}

Уважаемое сообщество. Простите, не сдержался. Ну просто не мог не запостить ещё одну функцию.
Так Максим Прохоров вставлял ссылку в HTML страницу.

ursus, 23 Апреля 2010

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

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

+908

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

for (int i = ((x-1)>=0)?(x-1):0; i<=((x+1<=9)?(x+1):9); ++i)
	for (int j = ((y-1)>=0)?(y-1):0; j<=((y+d<=9)?(y+d):9); ++j)
		if (isplayer)
		{
			if (Board[i][j]->Alive)
				return false;
		}
		else
		{
			if (EnBoard[i][j]->Alive)
				return false;
		}

с++ такой с++

xXx_totalwar, 23 Апреля 2010

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

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

+144

1
2
3

<p class="paragraph">
        ... текст...
 </p>

зобавный кусок HTMLя, сори что в яваскрипт, сюда ближе всего :)

adoconnection, 23 Апреля 2010

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

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

−89

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

Public Class TreeKuBi003
			''' -----------------------------------------------------------------------------
			''' <summary>
			''' Подключение KuBi.
			''' </summary>
			''' <remarks>
			''' </remarks>
			''' <history>
			''' 	[Max Pro]	30.01.2009	Created
			''' </history>
			''' -----------------------------------------------------------------------------
			Public Const sKuBi As String = _
			"	SELECT" & sEnter & _
			"		iIdTreeKuBi," & sEnter & _
			"		iIdTreeNone" & sEnter & _
			"	FROM" & sEnter & _
			"	    TreeKuBiNone" & sEnter & _
			"	ORDER BY" & sEnter & _
			"		iIdTreeKuBi;"
		End Class		 'TreeKuBi003
		'''

А так Максим Прохоров использует классы. На мой вопрос - максим, а зачем тебе нужны классы?
- ну, чтобы хранить данные.

ursus, 23 Апреля 2010

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

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

−105

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

''' <summary>
	''' Функция взятия запроса как инструкции t/sql; рекордсет возвращается в виде oZap(,).
	''' </summary>
	''' <param name="eConnectString">Строка подключения к БД из списка.</param>
	''' <param name="sText">Инструкция t/sql.</param>
	''' <param name="oErr">Необязательная ошибка.</param>
	''' <param name="oZap">Необязательный двумерный массив, содержащий рекордсет ― 1-ю таблицу датасета.</param>
	''' <param name="iTimeout">Необязательное число секунд таймаута запроса.</param>
	''' <returns>Число затронутых строк в таблице БД; если ноль, то нормально ещё, а если -1, то запрос не прошёл, если -2, то соединение не установилось.</returns>
	''' <remarks>
	''' </remarks>
	''' <history>
	''' 	[Max Pro]	11.04.2007	Created
	''' 	[Max Pro]	08.08.2008	Реабилитировал OleDb.
	''' 	[Max Pro]	08.04.2009	Оптимизировал как надо ReDim Preserve и переполнение Integer.
	''' 	[Max Pro]	27.08.2009	Исправил ошибку ReDim Preserve ― было больше на 1 элемент.
	''' </history>
	''' -----------------------------------------------------------------------------
	Public Function iZap(ByVal eConnectString As ConnectString, ByVal sText As String, Optional ByRef oErr As Exception = Nothing, Optional ByRef oZap(,) As Object = Nothing, Optional ByVal iTimeout As Integer = -1) As Integer
		'#region "var"
		Dim iX As Integer
		Dim lY As Long
		Dim lYTemp As Long
		Dim i As Integer
		Dim iZapTemp As Integer
		'var zap
		Dim sConnectString As String = sConStrFromEnum(eConnectString)
		Dim oConnection
		Dim oCommand
		Dim oReader
		'#end region 'var
		'#region ini
		If sConnectString Like "*sqloledb*" Then
			oConnection = New OleDbConnection
			oCommand = New OleDbCommand
		Else
			oConnection = New SqlConnection
			oCommand = New SqlCommand
		End If
		'#end region 'ini
		iZap = -2
		oErr = New Exception
		oConnection.ConnectionString = sConnectString
		Try
			'попытка открытия соединения
			oConnection.Open()
			If oConnection.State Then iZap = -1 'if <>0
			'присвоение параметров команды
			If iTimeout >= 0 Then oCommand.CommandTimeout = iTimeout
			oCommand.CommandType = CommandType.Text
			oCommand.Connection = oConnection
			oCommand.CommandText = sText
			'попытка выполнения команды
			oReader = oCommand.ExecuteReader()
			iZap = 0
			iX = oReader.FieldCount - 1
			lY = -1
			lYTemp = 255
			ReDim oZap(iX, lYTemp)
			While oReader.Read()
				lY += 1
				If lY < Integer.MaxValue Then				 '2 147 483 647-1(заменил <= на < чтобы число элементов iZap не зашкалило).
					iZapTemp = lY + 1
					If lY > lYTemp Then
						lYTemp += 256
						ReDim Preserve oZap(iX, lYTemp)
					End If
					For i = 0 To iX
						If IsDBNull(oReader(i)) Then oZap(i, lY) = Nothing Else oZap(i, lY) = oReader(i)
					Next i
				End If
			End While
			oReader.Close()
			oReader = Nothing
			oCommand = Nothing
			iZap = iZapTemp
			ReDim Preserve oZap(iX, iZapTemp - 1)
			If lY >= Integer.MaxValue Then
				oErr = New Exception(lY.ToString("# ##0") & " строк >=" & Integer.MaxValue & " (Integer.MaxValue), но массив заполнен до предела Int32 и iZap=Integer.MaxValue.")
			End If
		Catch oError As Exception
			oErr = oError
		Finally
			If IsNothing(oConnection) = False Then
				oConnection.Close()
				oConnection = Nothing
			End If
		End Try
	End Function	  'iZap

А так Максим Прохоров выполняет запросы. слабо?

ursus, 23 Апреля 2010

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

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

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

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

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

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

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

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

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

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

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

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