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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5708)
2. C++ (2740)
3. Куча (2389)
4. JavaScript (2034)
5. C# (1930)
6. Java (1503)
7. Си (1117)
8. Pascal (648)
9. Python (591)
10. 1C (539)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (200)
15. Perl (194)
16. Assembler (148)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Haskell (37)
21. Go (31)
22. Swift (27)
23. Kotlin (14)

1. Java / Говнокод #4681

   +145

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7

   // где-то:
     public boolean isLoaded() {
       return (boolean) (this.sequencer.isOpen());
     }
   
   //там:
   public boolean isOpen();

   код к книжке

   Lure Of Chaos, 19 Ноября 2010

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

2. 1C / Говнокод #4680

   −121

   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

   Процедура УстановкаНомераЛицевогоСчета()
   	
   	Запрос = Новый Запрос();
   	Запрос.Текст =
   	"ВЫБРАТЬ
   	|	КВП_ЛицевыеСчета.Наименование
   	|ИЗ
   	|	Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета
   	|ГДЕ
   	|	(НЕ КВП_ЛицевыеСчета.ЭтоГруппа)";
   	
   	МаксНомер      = 0;
   	Выборка        = Запрос.Выполнить().Выбрать();
   	ВсегоВариантов = Выборка.Количество();
   	ТекВариант     = 1;
   	Пока Выборка.Следующий() Цикл
   		Номер = ВыбратьТолькоЦифры(Выборка.Наименование);
   		Если МаксНомер < Число(Номер) Тогда
   			МаксНомер = Число(Номер);
   		КонецЕсли;
   		Состояние("Поиск максимального лицевого счета: " + ТекВариант + " / " + ВсегоВариантов);
   		ТекВариант = ТекВариант + 1;
   	КонецЦикла;
   	
   	МаксНомер = МаксНомер + 1;
   	ИмяЛицевогоСчета = "л/с №" + Формат(МаксНомер, "ЧДЦ=0; ЧГ=0");
   	
   КонецПроцедуры

   Процедура для присвоения Кода новому элементу справочника. Из одной серьезной официальной конфигурации.

   nickkk, 19 Ноября 2010

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

3. PHP / Говнокод #4679

   +155

   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

   if(!CModule::IncludeModule("iblock")) return;
   		
   		$ID_PRODUCT = $_POST['prod_id'];
   		$ID_USER = $USER->GetID();
   		$TEXT = $_POST['txt'];
   		$IBLOCK_ID = $_POST['iblock_id'];
   		$NAME = "Отзыв";
   		
   		$arPROPS = Array(
   			"ID_PRODUCT" => $ID_PRODUCT,
   			"ID_USER" => $ID_USER,
   			"TEXT" => $TEXT,
   		);
   		
   		$arFields = Array(
   			"IBLOCK_ID"=>$IBLOCK_ID,
   			"NAME"=>$NAME,
   			"PROPERTY_VALUES" => $arPROPS,
   		);
   		print_r ($arFields);
   		$e = new CIBlockElement;
   		if (!$e->Add($arFields,false,true,false)) {
   			echo "Error: ".$e->LAST_ERROR;
   		}
   		else {
   			echo "Всё ништяк";
   		}
   -------------------------------------------------------------------
   Возвращается:
   ----------------------------------------------------------------
   Array
   (
       [IBLOCK_ID] => 5
       [NAME] => Отзыв
       [PROPERTY_VALUES] => Array
           (
               [ID_PRODUCT] => 119
               [ID_USER] => 1
               [TEXT] => kdfkja
           )
   
   )
   Всё ништяк
   ----------------------------------------------------------------
   Создаётся новая запись, но почему-то в свойстве TEXT одна левая буква какая-то, ничо понять не могу(((

   minnigaliev-r, 19 Ноября 2010

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

4. Куча / Говнокод #4678

   +133

   1. 1
   2. 2
   3. 3

   <li><em> Мечты в подарок <span class="style3"> <span class="style10">30.12.10 - 02.01.11</span> <span class="style18">от 175 е.     </span></span></em><span class="style2">    <a href="NG_Mecty_v_podarok_RU.doc" target="_blank">  скачать>> <img src="pics/wordico.jpg" border="0" alt="Скачать"></a></span></li>
   <li>Новый год в Праге <span class="style19"> 29.10.10-02.01.11</span><span class="style2">  <span class="style17">от 160 е.      </span>     <a href="Prage.doc" target="_blank">скачать>> <img src="pics/wordico.jpg" border="0" alt="Скачать"></a></span></li>
   <li> Прага+Вена<span class="style19"> 30.12.10-03.01.11</span><span class="style2"> <span class="style17">от 165 е.</span>                          <a href="Praga_Vena.doc" target="_blank"> скачать>> <img src="pics/wordico.jpg" border="0" alt="Скачать"></a></span></li>

   Инновационная таблица методикой неразрывных пробелов :)

   KamaZz, 19 Ноября 2010

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

5. C# / Говнокод #4677

   +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
   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

   using System;
   
   //using System.Collections.Generic; Нафега ани???
   //using System.Linq;
   //using System.Text;
   
   namespace ConsoleApplication5
   {
       class Program
       {
           //Эт типа метад сёрч:)
           public static int[] Search(int[] arr)
           {
               int a = 0; //первае самае бальшое чесло
               int b = 0; //втарое самае бальшое чесло (Бирём n... Мала, нада m)
               for (int i = 0; i < arr.Length; i++) //Фигачем мосив, пака не дафигачим
               {
                   if (arr[i] > a && arr[i] > b) //если нашлося бальшущее чесло, вписуем
                   {
                       if (a < b) //либа в а
                       {
                           a = arr[i];
                       }
                       else if (b < a) //либа в b
                       {
                           b = arr[i];
                       }
                       else //либа тожэ в a
                       {
                           a = arr[i];
                       }
                   }
               }
               int[] ret = { a, b }; //выплёвуем мосивом бальших и ни очинь чисил
               return ret; //да, таки выплёвуем
           }
   
           static void Main(/*string[] args*/) //нах.. вы мне эту фегню впехнуле. Уроды мелкомягкее
           {
               int[] m = { 1, 2, 4, 5, 6, 7, 8, 9 }; //Зодоём мосив
               int[] ret = Search(m); //ищим два самэх бальшых чесла
   
               for (int i = 0; i < 2; i++)
               {
                   Console.WriteLine(ret[i]); //выводем их в кансоль
               }
               Console.ReadKey();
           }
       }
   }

   Таким я вижу говнокод. Или почти таким...:)

   opentornado, 19 Ноября 2010

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

6. PHP / Говнокод #4676

   +154

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6

   for ($i = 0; $i < count($_FILES['att']['name']); $i++) {
     if (copy($_FILES['att']['tmp_name'][$i], "files/".$_FILES['att']['name'][$i])) {
       unlink($_FILES['att']['tmp_name'][$i]);
       chmod("files/".$_FILES['att']['name'][$i], 0644);
     }
   }

   Из той же гостевухи как и кусок примера в http://www.govnokod.ru/4660.
   Мультизагрузка файлов на сервер. Естественно, тоже пришлось до
   ума доводить.

   dwinner, 18 Ноября 2010

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

7. Pascal / Говнокод #4675

   +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

   {pascal}
   {$M 65520,0,10000}
   program govnokod;
   a:word;
   begin
   repeat
   writeln('кто считает что он дебил нажмите 1, кто наоборот 2');
   readln(a);
   if a=1
   then
   writeln('да ты прав');
   readln
   else
   writeln('да нет ты не понял, надо нажать 1');
   until a=1
   end.

   просто прикольная надоедаловка,

   we-stalkers, 18 Ноября 2010

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

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

   −103

   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

   '==========================================================================
               'обновляю таблицу okFIO
               lcSQl = "UPDATE okFIO SET"
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!dateBegin Is System.DBNull.Value) Then
                   lcSQl &= " dateBegin = '" & Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateBegin, "yyyyMMdd") & "'"
               End If
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!Prim Is System.DBNull.Value) Then
                   lcSQl &= ", Prim = '" & Me.DS_ExportFIO.okFIO.Rows(0)!Prim.ToString & "'"
               End If
              If Not (Me.DS_ExportFIO.okFIO.Rows(0)!oldFam Is System.DBNull.Value) Then
                   lcSQl &= ", oldFam = '" & Me.DS_ExportFIO.okFIO.Rows(0)!oldFam.ToString & "'"
               End If
               'If Not (Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateFill.ToString, "yyyyMMdd")) = "" Then
               '    lcSQl &= ", dateFill = " & Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateFill.ToString, "yyyyMMdd") & ""
               'End If
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!FIOR Is System.DBNull.Value) Then
                   lcSQl &= ", FIOR = '" & Me.DS_ExportFIO.okFIO.Rows(0)!FIOR.ToString & "'"
               End If
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!FIOD Is System.DBNull.Value) Then
                   lcSQl &= ", FIOD = '" & Me.DS_ExportFIO.okFIO.Rows(0)!FIOD.ToString & "'"
               End If
   
               ......
   
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isSoprPF Is System.DBNull.Value) Then
                   lcSQl &= ", isSoprPF = " & Me.DS_ExportFIO.okFIO.Rows(0)!isSoprPF.ToString & ""
               End If
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isReadyFotoPC Is System.DBNull.Value) Then
                   lcSQl &= ", isReadyFotoPC = " & Me.DS_ExportFIO.okFIO.Rows(0)!isReadyFotoPC.ToString & ""
               End If
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isReadySignPC Is System.DBNull.Value) Then
                   lcSQl &= ", isReadySignPC = " & Me.DS_ExportFIO.okFIO.Rows(0)!isReadySignPC.ToString & ""
               End If
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!SNILS Is System.DBNull.Value) Then
                   lcSQl &= ", SNILS = '" & Me.DS_ExportFIO.okFIO.Rows(0)!SNILS.ToString & "'"
               End If
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!idPrivilege Is System.DBNull.Value) Then
                   lcSQl &= ", idPrivilege = " & Me.DS_ExportFIO.okFIO.Rows(0)!idPrivilege.ToString & ""
               End If
               lcSQl &= " WHERE(id = " & Me.idFIO & ")"
               myCommand = New SqlClient.SqlCommand(lcSQl, myConn)
               myCommand.CommandTimeout = 0
               myCommand.ExecuteNonQuery(

   И так далее... всего около 150ти строк кода (весь сюда запихнуть не могу) на формирования SQL-запроса.

   HellMaster_HaiL, 18 Ноября 2010

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

9. Pascal / Говнокод #4673

   +145

   1. 1
   2. 2

   if not Assigned(ArbPower) then
         DoException('Блятство');

   эмокод, но какой душевный!

   stokito, 18 Ноября 2010

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

10. VisualBasic / Говнокод #4672

    −154

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10

    Public appWorld As Excel.Application
    Public wbWorld As Excel.Workbook
    Sub Setup() 
    On Error Resume Next 'ignore errors
    Set appWorld = GetObject("Excel.Application")
    If Err.Number <> 0 Then
    Set appWorld = CreateObject("Excel.Application") 'run it
    End If
    Err.Clear
    End Sub

    свиснул с бигресорс

    TEEN, 18 Ноября 2010

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

• ← влево
• вправо →

• 2111
• …
• 462
• 461
• 460
• 459
• 458
• 457
• 456
• 455
• 454
• …
• 1