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

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

+104

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

public class BuildActivity     
 {
        private class RequestLimit : ICloneable
        {
             //несколько свойств
        }

        private class Request : IDisposable
        {
           // оберка вокруг stream      
        }

        private class Response
        {
            // несколько методов
        }

        private class Document        
        {
            // 4 простых свойства
        }

       //примерно с десяток методов   
}

еще один пример навороченных структур на ровном месте. В достаточно простом классе имеем 4 (sic!) private вложенных класса - которые ниоткуда никем больше не используются. Все потому что человек не умел дизайнить классы так что бы не приходилось временные данные передавать из одной процедуры в другую. Страшно представить что он будет писать когда узнает про Tupels :)

eval_2009, 11 Января 2011

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

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

+160

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

/*
...
*/

/* Add some salt */
$sold = $settings['users']['password_salt'];
$password = $sold.$password;

/* 1. MD5 */
$password = md5($password);
		
/* 2. SHA1 */
$password = sha1($password);
		
/* 4. Base64 */
$password = base64_encode($password);
		
/* 5. Fatality! */
$password = sha1($password);

/* Well done! */
return $password;

Мощно

qman, 10 Января 2011

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

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

+98

01
02
03
04
05
06
07
08
09
10

if a[512] < x then L := n – 512 + 1;
if a[L + 256] < x then L := L + 256;
if a[L + 128] < x then L := L + 128;
if a[L + 64] < x then L := L + 64;
if a[L + 32] < x then L := L + 32;
if a[L + 16] < x then L := L + 16;
if a[L + 8] < x then L := L + 8;
if a[L + 4] < x then L := L + 4;
if a[L + 2] < x then L := L + 2;
if a[L + 1] < x then L := L + 1;

Взято из методического пособия по программированию - отрывок из алгоритма бинарного поиска (реализация для сходимости в 9 шагов)

diok, 10 Января 2011

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

Java / Говнокод #5207

+145

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

private boolean save(Writer writer, int indent) {
  StringBuffer nlb = new StringBuffer("\n");
  for (int i = 0; i < indent; i++) {
   nlb.append("\t");
  }
  String nl = nlb.toString();
  Writer s = writer;
  try {
   if (this.isRoot()) {
    s.append("<?xml version=\"1.0\" encoding=\"");
    s.append(Charset.defaultCharset().displayName());
    s.append("\"?>");
   }
   s.append(nl);
   s.append("<");
   s.append(RegNode.EL_NODE);
   s.append(" ");
   s.append(RegNode.ATT_NAME);
   s.append("=\"");
   s.append(this.getName());
   s.append("\">");
   if (this.getData() != null) {
    s.append(nl);
    s.append("\t<");
    s.append(RegNode.EL_DATA);
    s.append(" ");
    s.append(RegNode.ATT_TYPE);
    s.append("=\"");
    s.append(RegNode.getTypeFor(this.getData()));
    s.append("\" ");
    s.append(RegNode.ATT_ENCODE);
    s.append("=\"");
    s.append(this.getMethod());
    s.append("\">");
    s.append(nl);
    s.append("\t\t");
    s.append(RegNode.encodeData(this.getData(), this.getMethod()));
    s.append(nl);
    s.append("\t</");
    s.append(RegNode.EL_DATA);
    s.append(">");
   }
   for (RegNode child : this.getChildren()) {
    s.append("\t");
    child.save(s, indent + 1);
   }
   s.append(nl);
   s.append("</");
   s.append(RegNode.EL_NODE);
   s.append(">");
   return true;
  } catch (IOException e) {
   e.printStackTrace();
  }
  return false;
 }

не нужен нам ни DOM, ни SAX, ни JAXB!

из класса, пытающегося реализовать себе "Windows Registry"-подобное древовидное хранилище.
каюсь, лисапед тоже мой = )

Lure Of Chaos, 10 Января 2011

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

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

−174

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

Sub display(frm As Form)
    Dim lvl As Boolean
    Dim format As String
    If (frm.optSex(0).value) Then
        format = oI18n.translate("res_m")
        format = Replace(format, "\n", vbCrLf, 1, -1, vbBinaryCompare)
        format = Replace(format, "*", frm.cmbSchool.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtForm.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtName.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtSurname.Text, 1, 1, vbTextCompare)
        lvl = False
        For Each optLvl In frm.chkLevel
            If (optLvl.value) Then
                format = Replace(format, "*", oI18n.translate(optLvl.Tag & "_m"), 1, 1, vbTextCompare)
                lvl = True
            End If
        Next optLvl
        If (Not lvl) Then format = Replace(format, "*", oI18n.translate("Bad" & "_m"), 1, 1, vbTextCompare)
    End If
    If (frm.optSex(1).value) Then
        format = oI18n.translate("res_f")
        format = Replace(format, "\n", vbCrLf, 1, -1, vbBinaryCompare)
        format = Replace(format, "*", frm.cmbSchool.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtForm.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtName.Text, 1, 1, vbTextCompare)
        format = Replace(format, "*", frm.txtSurname.Text, 1, 1, vbTextCompare)
        lvl = False
        For Each optLvl In frm.chkLevel
            If (optLvl.value) Then
                format = Replace(format, "*", oI18n.translate(optLvl.Tag & "_f"), 1, 1, vbTextCompare)
            End If
        Next optLvl
        If (Not lvl) Then format = Replace(format, "*", oI18n.translate("Bad" & "_f"), 1, 1, vbTextCompare)
    End If
    Dim dalykai As String
    Dim first As Boolean
    dalykai = ""
    first = True
    For Each chkFavorite In frm.chkFavorites
        If (chkFavorite.value) Then dalykai = dalykai & IIf(first, vbCrLf, vbCrLf) & (chkFavorite.Caption)
        first = False
    Next chkFavorite
    If (frm.chkFavoriteOther.value) Then dalykai = dalykai & IIf(first, vbCrLf, vbCrLf) & (frm.txtFavoriteOther.Text)
    Dim b As Boolean
    b = dalykai = ""
    If (b) Then
        If (frm.optSex(0).value) Then dalykai = oI18n.translate("nores_m")
        If (frm.optSex(1).value) Then dalykai = oI18n.translate("nores_f")
    End If
    If (Not b) Then
        If (frm.optSex(0).value) Then dalykai = oI18n.translate("res2_m") & dalykai
        If (frm.optSex(1).value) Then dalykai = oI18n.translate("res2_f") & dalykai
    End If
    
    MsgBox (format & vbCrLf & dalykai)
End Sub

заполняем строку-шаблон, заменяя звездочки реальными данными
вот не было в VB6 printf-подобной функции ((

Lure Of Chaos, 10 Января 2011

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

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

−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
34
35
36
37
38
39

Public Sub DBOpen(Optional sFullPath As String = "")
    If sFullPath = "" Then sFullPath = sPath
    Dim f As Integer
    Dim l As Integer
    Dim tmp As String
    Dim sName As String
    Dim sSurname As String
    Dim sSex As String
    Dim dBirthdate As Date
    Dim sCity As String
    Dim sStreet As String
    l = 0
    f = FreeFile
    Open sFullPath For Input As #f
        While Not EOF(f)
            Line Input #f, tmp
            l = l + 1
        Wend
    Close #f
    If l > 0 Then
        ReDim asDB(0 To l - 1) As clsCitizen
        l = 0
        f = FreeFile
        Open sFullPath For Input As #f
            While Not EOF(f)
                Input #f, sName, sSurname, sSex, dBirthdate, sCity, sStreet
                Set asDB(l) = New clsCitizen
                asDB(l).sName = sName
                asDB(l).sSurname = sSurname
                asDB(l).sSex = sSex
                asDB(l).dBirthdate = dBirthdate
                asDB(l).sCity = sCity
                asDB(l).sStreet = sStreet
                l = l + 1
            Wend
        Close #f
    End If
    sPath = sFullPath
End Sub

за что я ненавижу VB6

а ведь по-другому никак = (

Lure Of Chaos, 10 Января 2011

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

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

−166

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

Private Sub btnNew_Click()
    Dim i As Integer
    Dim asCopy() As clsCitizen
    ReDim asCopy(LBound(modCitizen.asDB) To UBound(modCitizen.asDB)) As clsCitizen
    For i = LBound(modCitizen.asDB) To UBound(modCitizen.asDB)
        Set asCopy(i) = modCitizen.asDB(i)
    Next i
    ReDim modCitizen.asDB(UBound(modCitizen.asDB) + 1) As clsCitizen
    For i = LBound(asCopy) To UBound(asCopy)
        Set modCitizen.asDB(i) = asCopy(i)
    Next i
    Set modCitizen.asDB(UBound(modCitizen.asDB)) = New clsCitizen
    modCitizen.asDB(UBound(modCitizen.asDB)).bNew = True
    iRecNum = UBound(modCitizen.asDB)
    RecordRead
    UpdateControls
    LockMe True
End Sub

вот через какое место мучительно вспоминал давно забытый, старый добрый VB6

процедура дополняет массив новым элементом

Lure Of Chaos, 10 Января 2011

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

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

+158

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

// create singelton object, see below 
function singelton(classDesc) {
    return classDesc;
}


var LetterTypeAction = singelton(
    {
        selectLetterType : function(controlId, index) {
           letterTypeManager.selectLetterType(controlId, index);
        },

        addLetterType : function() {
            letterTypeManager.addLetterType();
        },

        saveLetterType : function() {
            var tempLetterType = new LetterTypeDef();
            tempLetterType.setId(currentLetterType.getId());
            tempLetterType.setAbbreviation(TextUtils.trim(ControlUtils.getValueById(letterTypeAbbrId)));
            tempLetterType.setDescription(TextUtils.trim(ControlUtils.getValueById(letterTypeDescrId)));            

            letterTypeManager.saveLetterType(tempLetterType);
        },

        changeLetterType : function() {
            letterTypeManager.changeLetterType();            
        },

        deleteLetterType : function() {
            letterTypeManager.deleteLetterType(currentLetterType);
        },

        cancelLetterType : function() {
            letterTypeManager.cancelLetterType();
        },

        sortLetterType : function(columnId) {
            letterTypeManager.sortLetterType(columnId);            
        }
    }
);

новый паттерн проектирования, добавляющий в код мусор

tr00_gr1m_doomster, 10 Января 2011

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

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

−100

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
90
91
92
93
94
95
96
97
98

Private Sub Combo1_Click()

Select Case Combo1.ListIndex

Case 0
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\RaZeR.jpg")
Case 1
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Serg.jpg")
Case 2
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Nikton.jpg")
Case 3
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Raider.jpg")
Case 4
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Andrew.jpg")
Case 5
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Gnum.jpg")
Case 6
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Iron Man.jpg")
Case 7
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Anakin.jpg")
Case 8
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Nuparu.jpg")
Case 9
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Deleted.jpg")
Case 10
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\LEGOlas.jpg")
Case 11
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Kit Fisto.jpg")
Case 12
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Banky.jpg")
Case 13
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Pazitiffniy.jpg")
Case 14
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\GenKen.jpg")
Case 15
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Dimanok.jpg")
Case 16
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Drakon.jpg")
Case 17
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\DJ Sim.jpg")
Case 18
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Obi-Van.jpg")
Case 19
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Vitalya.jpg")
Case 20
enemy1.Picture = LoadPicture("data/Rescaled/LukeSW.jpg")
Case 21
enemy1.Picture = LoadPicture("data/Rescaled/Smegorik.jpg")
Case 22
enemy1.Picture = LoadPicture("data/Rescaled/Vitalya.jpg")
Case 23
enemy1.Picture = LoadPicture("data/Rescaled/DJ Sim.jpg")
End Select


End Sub


Private Sub Combo2_Click()

Select Case Combo2.ListIndex

Case 0
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\RaZeR.jpg")
Case 1
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Serg.jpg")
Case 2
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Nikton.jpg")
Case 3
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Raider.jpg")
Case 4
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Andrew.jpg")
Case 5
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Gnum.jpg")
Case 6
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Iron Man.jpg")
Case 7
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Anakin.jpg")
Case 8
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Nuparu.jpg")
Case 9
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Deleted.jpg")
Case 10
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\LEGOlas.jpg")
Case 11
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Kit Fisto.jpg")
Case 12
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Banky.jpg")
Case 13
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Pazitiffniy.jpg")
Case 14
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\GenKen.jpg")
Case 15
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Dimanok.jpg")
Case 16
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Drakon.jpg")
Case 17
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\DJ Sim.jpg")

Тот же источник, что и #5201. Загрузка картинок из тех самых комбобоксов. А ведь можно было enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\" & Combo1.SelectedItem & ".jpg").

RaZeR, 10 Января 2011

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

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

−101

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

Combo1.AddItem "RaZeR", 0
Combo1.AddItem "Serg", 1
Combo1.AddItem "Nikton", 2
Combo1.AddItem "Raider", 3
Combo1.AddItem "Andrew_18", 4
Combo1.AddItem "Gnum", 5
Combo1.AddItem "Iron Man", 6
Combo1.AddItem "Anakin", 7
Combo1.AddItem "Nuparu", 8
Combo1.AddItem "Deleted", 9
Combo1.AddItem "LEGOлас", 10
Combo1.AddItem "Kit Fisto", 11
Combo1.AddItem "Banky", 12
Combo1.AddItem "Пазитифффный", 13
Combo1.AddItem "Генерал Кеноби", 14
Combo1.AddItem "Диманок Филин", 15
Combo1.AddItem "Дракон", 16
Combo1.AddItem "DJ Sim", 17
Combo1.AddItem "Obi-Van", 18
Combo1.AddItem "Виталя", 19
Combo1.AddItem "ЛюкСкайуокер", 20
Combo1.AddItem "Смегорик", 21
Combo1.AddItem "KAPITAN REX", 22
Combo1.AddItem "Вячеслав", 23

Combo2.AddItem "RaZeR", 0
Combo2.AddItem "Serg", 1
Combo2.AddItem "Nikton", 2
Combo2.AddItem "Raider", 3
Combo2.AddItem "Andrew_18", 4
Combo2.AddItem "Gnum", 5
Combo2.AddItem "Iron Man", 6
Combo2.AddItem "Anakin", 7
Combo2.AddItem "Nuparu", 8
Combo2.AddItem "Deleted", 9
Combo2.AddItem "LEGOлас", 10
Combo2.AddItem "Kit Fisto", 11
Combo2.AddItem "Banky", 12
Combo2.AddItem "Пазитифффный", 13
Combo2.AddItem "Генерал Кеноби", 14
Combo2.AddItem "Диманок Филин", 15
Combo2.AddItem "Дракон", 16
Combo2.AddItem "DJ Sim", 17
Combo2.AddItem "Obi-Van", 18
Combo2.AddItem "Виталя", 19
Combo2.AddItem "ЛюкСкайуокер", 20
Combo2.AddItem "Смегорик", 21
Combo2.AddItem "KAPITAN REX", 22
Combo2.AddItem "Вячеслав", 23

Combo3.AddItem "RaZeR", 0
Combo3.AddItem "Serg", 1
Combo3.AddItem "Nikton", 2
Combo3.AddItem "Raider", 3
Combo3.AddItem "Andrew_18", 4
Combo3.AddItem "Gnum", 5
Combo3.AddItem "Iron Man", 6
Combo3.AddItem "Anakin", 7
Combo3.AddItem "Nuparu", 8
Combo3.AddItem "Deleted", 9
Combo3.AddItem "LEGOлас", 10
Combo3.AddItem "Kit Fisto", 11
Combo3.AddItem "Banky", 12
Combo3.AddItem "Пазитифффный", 13
Combo3.AddItem "Генерал Кеноби", 14
Combo3.AddItem "Диманок Филин", 15
Combo3.AddItem "Дракон", 16
Combo3.AddItem "DJ Sim", 17
Combo3.AddItem "Obi-Van", 18
Combo3.AddItem "Виталя", 19
Combo3.AddItem "ЛюкСкайуокер", 20
Combo3.AddItem "Смегорик", 21
Combo3.AddItem "KAPITAN REX", 22
Combo3.AddItem "Вячеслав", 23

VB6, заполнение трёх комбо-боксов одинаковыми пунктами. А если бы комбобоксов было 20?

RaZeR, 10 Января 2011

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

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

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

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

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

Java / Говнокод #5207

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

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

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

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

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

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