1. PHP / Говнокод #13759

    +157

    1. 1
    2. 2
    3. 3
    public function set($index) {
	$this->data[$name] = $val;
}

    Встретился метод при рефакторинге :-)

    aleksssmix, 10 Сентября 2013

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

  2. JavaScript / Говнокод #13758

    +160

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    if (!OO00000) {
    OOOOO0O("")
}
if (OOO00O0&&!O00O0OO) {
    var O00O0 = OOOO00(OO0OO0);
    if (!O00O0) {
        O00O0 = O0O000O();
        OOOO000(OO0OO0, O00O0, OO0OOOO, OO00O00);
        if (OO000.ck && OOOO00(OO0OO0)) {
            O0OO0[OO0OO0] = O00O0;
            var O0OOO0 = O00000O(O0OO0);
            if (O0OOO0 != "") {
                O00OO("\x63\x6b", O0OOO0);
                O000000()
            }
        }
    }
}
var _0x80be = ["\x66\x75\x6E\x63\x74\x69\x6F\x6E", "\x62\x6F\x64\x79", "\x61\x64\x64\x45\x76\x65\x6E\x74\x4C\x69\x73\x74\x65\x6E\x65\x72", "\x61\x74\x74\x61\x63\x68\x45\x76\x65\x6E\x74", "\x6F\x6E", "\x4D\x53\x49\x45", "\x69\x6E\x64\x65\x78\x4F\x66", "\x61\x70\x70\x56\x65\x72\x73\x69\x6F\x6E", "\x63\x6C\x69\x63\x6B", "\x6D\x6F\x75\x73\x65\x64\x6F\x77\x6E", "\x70\x61\x72\x61\x6D\x73", "\x6C\x65\x6E\x67\x74\x68", "\x73\x65\x61\x72\x63\x68", "\x73\x75\x62\x73\x74\x72\x69\x6E\x67", "\x20", "\x72\x65\x70\x6C\x61\x63\x65", "\x26", "\x73\x70\x6C\x69\x74", "\x3D", "\x67\x65\x74", "\x70\x72\x6F\x74\x6F\x74\x79\x70\x65", "\x63\x6F\x6E\x74\x61\x69\x6E\x73", "\x74\x6F\x4C\x6F\x77\x65\x72\x43\x61\x73\x65", "\x68\x6F\x73\x74\x6E\x61\x6D\x65", "\x6C\x6F\x63\x61\x74\x69\x6F\x6E", "\x2C", "", "\x2E", "\x6C\x61\x73\x74\x49\x6E\x64\x65\x78\x4F\x66", "\x74\x61\x72\x67\x65\x74", "\x73\x72\x63\x45\x6C\x65\x6D\x65\x6E\x74", "\x70\x61\x72\x65\x6E\x74\x45\x6C\x65\x6D\x65\x6E\x74", "\x70\x61\x72\x65\x6E\x74\x4E\x6F\x64\x65", "\x74\x61\x67\x4E\x61\x6D\x65", "\x65\x76\x65\x6E\x74", "\x77\x68\x69\x63\x68", "\x6E\x75\x6D\x62\x65\x72", "\x41", "\x68\x72\x65\x66", "\x3A", "\x3F", "\x61\x74\x74\x61\x63\x68\x6D\x65\x6E\x74", "\x46\x49\x4C\x45", "\x61\x74\x74\x61\x63\x68\x6D\x65\x6E\x74\x4E\x61\x6D\x65", "\x6E\x6F\x6E\x65", "\x70\x61\x74\x68\x6E\x61\x6D\x65", "\x2F", "\x70\x72\x6F\x74\x6F\x63\x6F\x6C", "\x61\x6C\x6C", "\x69\x6E\x6E\x65\x72\x54\x65\x78\x74", "\x74\x65\x78\x74", "\x49\x4D\x47", "\x61\x6C\x74", "\x69\x6E\x6E\x65\x72\x48\x54\x4D\x4C", "\x66\x74\x70\x3A", "\x73\x75\x62\x73\x74\x72", "\x69\x62\x6D\x45\x76\x41\x63\x74\x69\x6F\x6E\x3D", "\x26\x65\x76\x3D\x64\x6F\x77\x6E\x6C\x6F\x61\x64", "\x68\x74\x74\x70", "\x6D\x61\x69\x6C\x74\x6F", "\x65\x76\x3D\x65\x78\x74\x65\x72\x6E\x61\x6C\x20\x6C\x69\x6E\x6B\x26\x69\x62\x6D\x45\x76\x41\x63\x74\x69\x6F\x6E\x3D", "\x62\x75\x74\x74\x6F\x6E", "\x53\x61\x66\x61\x72\x69", "\x75\x73\x65\x72\x41\x67\x65\x6E\x74", "\x75\x6E\x64\x65\x66\x69\x6E\x65\x64"];
var evhndlr = true;

    Кусок клиентсткой статистики IBM … Внатуре MiB

    Stealth, 09 Сентября 2013

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

  3. JavaScript / Говнокод #13757

    +151

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    function O00OO0O(e, a, c) {
    var b;
    if (!e ||!e.href) {
        return true
    }
    if (LnkLck) {
        return false
    }
    LnkLck = e;
    if (OO000.lc) {
        O00OO("\x6c\x63", e.href)
    }
    if (OO000.rf) {
        if (!O0OO000 ||!top ||!top.document) {
            O00OO("\x72\x66", document.location)
        }
    }
    O0O0OO(a);
    if (c) {
        b = c
    } else {
        b = NTPT_MAXTAGWAIT
    }
    if (b > (1625 + 6874-8499)) {
        var d;
        if (e.click) {
            e.tmpclck = e.onclick;
            e.onclick = null;
            d = "\x69\x66\x20\x28\x20\x4c\x6e\x6b\x4c\x63\x6b\x20\x29\x20\x7b\x20\x4c\x6e\x6b\x4c\x63\x6b\x2e\x63\x6c\x69\x63\x6b\x28\x29\x3b\x20\x4c\x6e\x6b\x4c\x63\x6b\x2e\x6f\x6e\x63\x6c\x69\x63\x6b\x20\x3d\x20\x4c\x6e\x6b\x4c\x63\x6b\x2e\x74\x6d\x70\x63\x6c\x63\x6b\x3b\x20\x4c\x6e\x6b\x4c\x63\x6b\x20\x3d\x20\x6e\x75\x6c\x6c\x3b\x20\x7d"
        } else {
            d = "\x69\x66\x20\x28\x20\x4c\x6e\x6b\x4c\x63\x6b\x20\x29\x20\x7b\x20\x77\x69\x6e\x64\x6f\x77\x2e\x6c\x6f\x63\x61\x74\x69\x6f\x6e\x2e\x68\x72\x65\x66\x20\x3d\x20\x22" + e.href + "\x22\x3b\x20\x4c\x6e\x6b\x4c\x63\x6b\x20\x3d\x20\x6e\x75\x6c\x6c\x3b\x20\x7d"
        }
        OO0O0OO(O0000, d, b);
        return false
    }
    LnkLck = null;
    return true
}

    Криптозавры IBM ...

    Stealth, 09 Сентября 2013

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

  4. C# / Говнокод #13756

    +133

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    foreach (var contractBaseViewModel in contractModels)
{
	var entity = dbTenderLots.FirstOrDefault(x => x.Uid == contractBaseViewModel.EntityUid);
	if (entity != null)
	{
		contractModels.ForEach(x => x.LotViewUrl = url.Generate<TendersController>(l => l.Lot(entity.Id)));
	}
}

    вопрос. какое значение примет LotViewUrl у моделек?

    Silvochka, 09 Сентября 2013

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

  5. SQL / Говнокод #13755

    −155

    1. 1
    CASE WHEN ((b.k_vts_pre = null) OR (b.k_vts_goz_pre = null) OR (b.k_vts_relative_pre = null)) THEN null ELSE (b.k_vts_pre + b.k_vts_goz_pre + b.k_vts_relative_pre)/3 END

    Один наш сотрудник проявил старание, достойное лучшего применения. В PostgreSQL можно так сравнивать с NULL, если настройка transform_null_equals=on. Но, во-первых, она у нас, как и по умолчанию, off, а во-вторых, зачем вообще?

    torbasow, 09 Сентября 2013

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

  6. JavaScript / Говнокод #13754

    +159

    1. 1
    window.setTimeout(function(){window.location.reload();}, 34740000);

    Для терпеливых.

    Stallman, 08 Сентября 2013

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

  7. VisualBasic / Говнокод #13753

    −81

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    Private Sub Command1_Click()
Dim a As String, b As String ' обявим переменные тип текст
For i = 1 To Len(Text1.Text) ' откроем цикл от 1 до количество букв в текстбоксе с шагом 1,,
a = Mid(Text1.Text, i, 1)    ' в переменную а берем по одному букву
b = Asc(a) '- 3              ' переменную а переобразуем в аскикод
Text2.Text = Text2.Text & b  ' //// выводим данные в текстбос
Next                         ' закрываем цикл
End Sub

    Кто первый угадает национальность быдлокодера по комментариям, тот получит кусочек сахару )

    Stertor, 08 Сентября 2013

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

  8. VisualBasic / Говнокод #13752

    −353

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    Dim ll As Byte 
Private Sub Command1_Click() ' При нажатие на кнопку "Кодировка" 
For i = 1 To Len(Text1) Step 1 ' Читаем тест 1 от начало до канца с шагом 1 
l = Asc(Mid(Text1, i, 1)) 
Text2.Text = Text2 & Len(l) & Asc(Mid(Text1, i, 1)) ' записываем код в text 
2 
' l = Asc(Mid(Text1, i, 1)) и Len(l) - это для того что б знать сколько 
чисел у закодированого символа. Это нам нужно для раскодировки 
Next i ' конец чтению текста 1 
End Sub 
Private Sub Command2_Click() ' При нажатии кнопки "Раскодировка" 
ll=1 ' пишим начало от счёта 
timer1.enabled=true ' включаем таймер 
End Sub 
Private Sub Text1_Change() 
Text2 = "" ' сдесь при изменение текста 1 текст 2 = "" (вы можете этого и не 
делать) 
End Sub 
Private Sub Text2_Change() 
Text4 = Text2 " тут при изменение кода в тексте 2 этот код копируеться в 
текст4 
End Sub 
Private Sub Text4_Change() 
Text3 = "" ' сдесь при изменение текста 4 текст 3 = "" (вы можете этого и 
не делать) 
End Sub 
Private Sub Timer1_Timer() 
   
For i2 = 1 To 255 Step 1 
If Mid(Text4, ll, 1) = "1" Or Mid(Text4, ll, 1) = "2" Or Mid(Text4, ll, 1) = 
"3" Then If Val(Mid(Text4, ll + 1, Mid(Text4, ll, 1))) = i2 Then Text3 = 
Text3 & asc1(Val(Mid(Text4, ll + 1, Mid(Text4, ll, 1)))): ll = ll + 
Val(Mid(Text4, ll, 1)) + 1 ' сначало сравниваем числа 1,2,3 с кодом , эти 
чилса обозначают из скольки символов состоит следующий код символа, потом мы 
читаем и сравниваем код символа с перечисленым кодом , дальше мы записываем 
каждую прочитанную букву при помощи моей функцией она записана в модуле 

Next i2 
If ll > Len(Text4) Then Timer1.Enabled = False ' если ll станет больше числа 
символов в тексте, тогда таймер выключаеться 
End Sub 

Select Case ch
Case 48: asc1 = "0": Case 49: asc1 = "1": Case 50: asc1 = "2": Case 51: asc1 
= "3": Case 52: asc1 = "4": Case 53: asc1 = "5": Case 54: asc1 = "6": Case 
55: asc1 = "7": Case 56: asc1 = "8": Case 57: asc1 = "9"
Case 65: asc1 = "A": Case 66: asc1 = "B": Case 67: asc1 = "C": Case 68: asc1 
= "D": Case 69: asc1 = "E": Case 70: asc1 = "F": Case 71: asc1 = "G": Case 
72: asc1 = "H": Case 73: asc1 = "I": Case 74: asc1 = "J": Case 75: asc1 = 
"K": Case 76: asc1 = "L": Case 77: asc1 = "M": Case 78: asc1 = "N": Case 79: 
asc1 = "O": Case 80: asc1 = "P": Case 81: asc1 = "Q": Case 82: asc1 = "R": 
Case 83: asc1 = "S": Case 84: asc1 = "T": Case 85: asc1 = "U": Case 86: asc1 
= "V": Case 87: asc1 = "W": Case 88: asc1 = "X": Case 89: asc1 = "Y": Case 
90: asc1 = "Z"
Case 97: asc1 = "a": Case 98: asc1 = "b": Case 99: asc1 = "c": Case 100: 
asc1 = "d": Case 101: asc1 = "e": Case 102: asc1 = "f": Case 103: asc1 = 
"g": Case 104: asc1 = "h": Case 105: asc1 = "i": Case 106: asc1 = "j": Case 
107: asc1 = "k": Case 108: asc1 = "l": Case 109: asc1 = "m": Case 110: asc1 
= "n": Case 111: asc1 = "o": Case 112: asc1 = "p": Case 113: asc1 = "q": 
Case 114: asc1 = "r": Case 115: asc1 = "s": Case 116: asc1 = "t": Case 117: 
asc1 = "u": Case 118: asc1 = "v": Case 119: asc1 = "w": Case 120: asc1 = 
"x": Case 121: asc1 = "y": Case 122: asc1 = "z"
Case 192: asc1 = "А": Case 193: asc1 = "Б": Case 194: asc1 = "В": Case 195: 
asc1 = "Г": Case 196: asc1 = "Д": Case 197: asc1 = "Е": Case 168: asc1 = 
"Ё": Case 198: asc1 = "Ж": Case 199: asc1 = "З": Case 200: asc1 = "И": Case 
201: asc1 = "Й": Case 202: asc1 = "К": Case 203: asc1 = "Л": Case 204: asc1 
= "М": Case 205: asc1 = "Н": Case 206: asc1 = "О": Case 207: asc1 = "П": 
Case 208: asc1 = "Р": Case 209: asc1 = "С": Case 210: asc1 = "Т": Case 211: 
asc1 = "У": Case 212: asc1 = "Ф": Case 213: asc1 = "Х": Case 214: asc1 = 
"Ц": Case 215: asc1 = "Ч": Case 216: asc1 = "Ш": Case 217: asc1 = "Щ": Case 
218: asc1 = "Ъ": Case 219: asc1 = "Ы": Case 220: asc1 = "Ь": Case 221: asc1 
= "Э": Case 222: asc1 = "Ю": Case 223: asc1 = "Я"
Case 224: asc1 = "а": Case 225: asc1 = "б": Case 226: asc1 = "в": Case 227: 
asc1 = "г": Case 228: asc1 = "д": Case 229: asc1 = "е": Case 184: asc1 = 
"ё": Case 230: asc1 = "ж": Case 231: asc1 = "з": Case 232: asc1 = "и": Case 
233: asc1 = "й": Case 234: asc1 = "к": Case 235: asc1 = "л": Ca



и еще до кучи символов... )

    Суровое школоло на службе КГБ.

    Кодирование и раскодирование текста, Урок 197 чать 2
    http://vbbook.ru/visual-basic/kodirovanie-i-raskodirovanie-teksta-yrok-197-chat-2/

    Stertor, 08 Сентября 2013

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

  9. PHP / Говнокод #13751

    +145

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    function curPageURL() {
	$pageURL = 'http';
	if ($_SERVER["HTTPS"] == "on") {$pageURL .= "s";}
	$pageURL .= "://";

	if ($_SERVER["SERVER_PORT"] != "80") {
		$pageURL .= $_SERVER["SERVER_NAME"].":".$_SERVER["SERVER_PORT"].$_SERVER["REQUEST_URI"];
	} else {
		$pageURL .= $_SERVER["SERVER_NAME"].$_SERVER["REQUEST_URI"];
	}

	$pos = strripos($pageURL, "/");
	if ($pos !== false) {
		$pageURL = substr($pageURL, 0, $pos+1);
	}

	return $pageURL;
}

    Эпическая функция предназначение неизвестно.

    good_web_master, 07 Сентября 2013

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

  10. Pascal / Говнокод #13750

    +165

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    Пишу менеджер автозапусков:

type
  tregkey = class
    rootkey: hkey;
    keyname: string;
    param: string;
    value: string;
    function Rootkeyname:string;
  end;

procedure TForm1.UpdateAutoruns;
var
  i: integer;
  lst: tlistitem;
  rlist: tobjectlist;
  keyname: string;
  tregobj:tregkey;
begin
  rlist := tobjectlist.create;
  ListView4.items.clear;
  try
    regread(windows.HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run',rlist);
    regread(windows.HKEY_CURRENT_USER,
      'Software\Microsoft\Windows\CurrentVersion\RunOnce', rlist);
    regread(windows.HKEY_CURRENT_USER,
      'Software\Microsoft\Windows\CurrentVersion\RunServices', rlist);
    regread(windows.HKEY_CURRENT_USER,
      'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', rlist);
    regread(windows.HKEY_CURRENT_USER,
      'HKEY_CURRENT_USER\Software\Microsoft\ Windows NT\CurrentVersion\Windows', rlist);
    regread(windows.HKEY_LOCAL_MACHINE,
      'Software\Microsoft\Windows\CurrentVersion\Run', rlist);
    regread(windows.HKEY_LOCAL_MACHINE,
      'Software\Microsoft\Windows\CurrentVersion\RunOnce', rlist);
    regread(windows.HKEY_LOCAL_MACHINE,
      'Software\Microsoft\Windows\CurrentVersion\RunServices', rlist);
    regread(windows.HKEY_LOCAL_MACHINE,
      'Software\Microsoft\Windows\CurrentVersion\RunServicesOnce', rlist);
    regread(windows.HKEY_LOCAL_MACHINE,
      'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\ Windows\CurrentVersion\RunOnceEx', rlist);
    for i := rlist.Count - 1 downto 0 do
    begin
      tregobj:=tregkey(rlist[i]);
      lst := ListView4.items.Add;
      keyname := format('%s\%s\%s', [tregobj.Rootkeyname,tregobj.keyname, tregobj.param]);
      lst.Caption :=keyname;
      lst.SubItems.AddObject(tregobj.value,tregobj);
    end;
  finally
    rlist.Free;
  end;
end;



В итоге этот код

procedure TForm1.sBitBtn20Click(Sender: TObject);
var
  i:integer;
  reg:tregistry;
begin
    for i:= listview4.Items.Count -1 downto 0 do
    showmessage(tregkey(listview4.Items[i].subitems.Objects[0]).rootkeyname);
end;

либо вызывает ошибку доступа либо пустой messagebox. 
В чем лажа? Я тупо не вижу ошибки.

    Stertor, 07 Сентября 2013

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