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

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

+13

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

<?php
  $lines = file('quest.txt');
  if($_POST['Quest'] == "") {
    echo "<HTML>";
    echo "<HEAD>";
    echo "<TITLE>Тестер</TITLE>";
    echo "<script language=JavaScript type=text/javascript>";
    echo "<!-- " . "\n";
    echo "var differ = 90*60;";
    echo "function timer() {";
    echo "var hours, minutes, seconds;";
    echo "differ = differ - 1;";
    echo "document.forms['vopros'].TimeLeft.value=differ;";
    echo "hours = Math.floor(differ/(60*60));";
    echo "hours = (hours >= 60) ? hours%60 : hours;";
    echo "hours = (hours < 10) ? \"0\" + hours : hours;";
    echo "minutes = Math.floor(differ/(60));";
    echo "minutes = (minutes >= 60) ? minutes%60 : minutes;";
    echo "minutes = (minutes < 10) ? \"0\" + minutes : minutes;";
    echo "seconds = differ;";
    echo "seconds = (seconds >= 60) ? seconds%60 : seconds;";
    echo "seconds = (seconds < 10) ? \"0\" + seconds : seconds;";
    echo "var strDate =  hours + \":\" + minutes + \":\" + seconds;";
    echo "document.forms['timerForm'].timerBox.value=strDate;";
    echo "if (differ<=0) {";
    echo "  document.forms['vopros'].Quest.value=100;";
    echo "  vopros.submit();";
... (и так далее)

Отличный кодец из дипломной работы студента!

RigFox, 13 Ноября 2015

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

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

+6

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

#include "stdafx.h"
#include "hackery.h"
#include <cstdint>
#include <windows.h>


/*XXX*/
unsigned char udiv128Data[] =
{
  0x48, 0x89, 0xD0, // mov rax,rdx
  0x48, 0x89, 0xCA, // mov rdx,rcx
  0x49, 0xF7, 0xF0, // div r8
  0x49, 0x89, 0x11, // mov [r9],rdx
  0xC3              // ret
};

/*XXX*/
unsigned char sdiv128Data[] =
{
  0x48, 0x89, 0xD0, // mov rax,rdx
  0x48, 0x89, 0xCA, // mov rdx,rcx
  0x49, 0xF7, 0xF8, // idiv r8
  0x49, 0x89, 0x11, // mov [r9],rdx
  0xC3              // ret
};

unsigned __int64(__fastcall *udiv128)(unsigned __int64 numhi, unsigned __int64 numlo, unsigned __int64 den, unsigned __int64* rem);

__int64(__fastcall *sdiv128)(__int64 numhi, __int64 numlo, __int64 den, __int64* rem);

namespace {
struct Q {
  Q() {
    /*XXX*/
    udiv128 = reinterpret_cast<unsigned __int64(__fastcall *)(unsigned __int64, unsigned __int64, unsigned __int64, unsigned __int64*)>(&udiv128Data[0]);
    /*XXX*/
    sdiv128 = reinterpret_cast<__int64(__fastcall *)(__int64, __int64, __int64, __int64*)>(&sdiv128Data[0]);
    /*XXX*/
    DWORD dummy;
    /*XXX*/
    VirtualProtect(udiv128Data, sizeof(udiv128Data), PAGE_EXECUTE_READWRITE, &dummy);
    /*XXX*/
    VirtualProtect(sdiv128Data, sizeof(sdiv128Data), PAGE_EXECUTE_READWRITE, &dummy);
  }
} q;
}

Вот такая вот загогулина получилась по причине того что в 64-х битной Вижуал Студии нет встроенного асма, нет интринсика для простой асмовой команды, но мне вот надо именно полное деление 128-битного числа на 64-х битное именно с остатком и мне совершенно фиолетово на то что Майкрософт думает на тему вредности команды DIV и заменимости деления умножением на обратное. Да, и мне влом усложнять структуру проекта и линковать какие-то символы с внешнего асма.

MinorThreat, 12 Ноября 2015

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

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

+4

1
2
3
4
5
6

$(window).on('load', function () {
        var date = new Date();
        day = date.getDate();
        day = (parseInt(day, 10) < 10) ? ('0' + day) : (day);
        $('[name = "PROPERTY[15][0]"]').val(day + '.' + (date.getMonth() + 1) + '.' + date.getFullYear() + ' ' + date.getHours() + ':' + (date.getMinutes() + 10) + ':00');
    });

15:69 замечательное время!

akanit, 12 Ноября 2015

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

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

−92

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

Если НЕ(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента=""И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тКонтрагент="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="" И тКоличествоДней="" И тСуммаЭтоПроцент="") Тогда Запрос.Текст=Запрос.Текст+"
	|ГДЕ";
	КонецЕсли;
	Если НЕ тСостояниеЗаписи="" Тогда Запрос.Текст=Запрос.Текст+"
	| опмИзмененияСтандартныхУсловийОплаты.СостояниеЗаписи "+тЗнакСостоянияЗаписи+?(тЗнакСостоянияЗаписи="В"," (","")+"&СостояниеЗаписи"+?(тЗнакСостоянияЗаписи="В",")","");КонецЕсли;  // опм 04.05.2015 доб. ?(тЗнакСостоянияЗаписи="В"," (","")   +?(тЗнакСостоянияЗаписи="В",")","")
	Если НЕ тРегистратор="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.теРегистратор "+тЗнакРегистратора+" &Регистратор";
	КонецЕсли;
	Если НЕ тДоговорКонтрагента="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДоговорКонтрагента "+тЗнакДоговораКонтрагента+" &ДоговорКонтрагента";
	КонецЕсли;
	Если НЕ тКонтрагент="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДоговорКонтрагента.Владелец "+тЗнакКонтрагента+?(тЗнакКонтрагента="В"," (","")+"&Контрагент"+?(тЗнакКонтрагента="В",")","");   // опм 04.05.2015 доб. ?(тЗнакКонтрагента="В"," (","")  +?(тЗнакКонтрагента="В",")","")
    КонецЕсли;
	Если НЕ тДокументОткрытияКредитнойЛинии="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДокументОткрытияКредитнойЛинии "+тЗнакДокументаОткрытияКредитнойЛинии+" &ДокументОткрытияКредитнойЛинии";
	КонецЕсли;
	Если НЕ тВидЗаписи="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ВидЗаписи "+тЗнакВидаЗаписи+" &ВидЗаписи";
	КонецЕсли;
	Если НЕ тВидНачала="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ВидНачала "+тЗнакВидаНачала+" &ВидНачала";
	КонецЕсли;
	Если НЕ тПериод="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.Период "+тЗнакПериода+" &тПериод";
	КонецЕсли;
	Если НЕ тРазРегистратор="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.РазРегистратор "+тЗнакРазРегистратора+" &РазРегистратор";
	КонецЕсли;
	Если НЕ тДатаНачала="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДатаНачала "+тЗнакДатыНачала+" &ДатаНачала";
	КонецЕсли;
	Если НЕ тДатаОкончания="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДатаОкончания "+тЗнакДатыОкончания+" &ДатаОкончания";
	КонецЕсли;
	Если НЕ тСумма="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.Сумма "+тЗнакСуммы+" &Сумма";
	КонецЕсли;
	Если НЕ тКоличествоДней="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.КоличествоДней "+тЗнакКоличестваДней+" &КоличествоДней";
	КонецЕсли;
	Если НЕ тСуммаЭтоПроцент="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="" И тКоличествоДней="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.СуммаЭтоПроцент "+тЗнакСуммыЭтоПроцент+" &СуммаЭтоПроцент";
	КонецЕсли;

И так далее на 122 строки.

HomoAlbus, 12 Ноября 2015

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

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

+8

1

if(copytype==WHOLE_FILE) //whole file

О пользе комментариев

absolut, 12 Ноября 2015

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

Куча / Говнокод #19011

+2

1

Как избавиться от говнокода?

Вот есть большой проект в большой корпорации. Ты приходишь и видишь, что архитектура говно, комментариев нет, стиль кода различается в разных частях одного файла, да и в остальных мелочах полный говнокод.
С другой стороны, нужно добавить много разных фич и пофиксить баги, все программисты и ты тоже активно заняты этим, вы приделываете новые костыли и заплатки.

Как с этим бороться? Убеждать менеджера, что вам нужно несколько недель, а то и месяцев на полный рефакторинг всего? Заниматься этим в свободное время? Забить и говнокодить дальше? Уйти в другое место (не факт ведь, что там будет лучше)?

imihajlov, 12 Ноября 2015

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

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

+5

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

if (logsData.Count == 1) {
				msg += logsData [logsData.Count - 1] + "\n";
			} else if (logsData.Count == 2) {
				msg += logsData [logsData.Count - 2] + "\n";
				msg += logsData [logsData.Count - 1] + "\n";
			} else if (logsData.Count == 3) {
				msg += logsData [logsData.Count - 3] + "\n";
				msg += logsData [logsData.Count - 2] + "\n";
				msg += logsData [logsData.Count - 1] + "\n";
			} else if (logsData.Count == 4) {
				msg += logsData [logsData.Count - 4] + "\n";
				msg += logsData [logsData.Count - 3] + "\n";
				msg += logsData [logsData.Count - 2] + "\n";
				msg += logsData [logsData.Count - 1] + "\n";
			} else if (logsData.Count >= 5) {
				msg += logsData [logsData.Count - 5] + "\n";
				msg += logsData [logsData.Count - 4] + "\n";
				msg += logsData [logsData.Count - 3] + "\n";
				msg += logsData [logsData.Count - 2] + "\n";
				msg += logsData [logsData.Count - 1] + "\n";
			}

kschingiz, 12 Ноября 2015

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

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

+2

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

public function generateRequestXml()
{
    echo "Start generate request xml\n";
    $dt = date("c");
    $output = "";
    $output .= "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
    $output .= "\t<request>\n";
    $output .= "\t<requestTime>" . $dt . "</requestTime>\n";
    $output .= "\t<operatorName>ИМЯ</operatorName>\n";
    $output .= "\t<inn>98989898989</inn>\n";
    $output .= "\t<ogrn>998545454545</ogrn>\n";
    $output .= "\t<email>[email protected]</email>\n";
    $output .= "</request>";

    if (!file_put_contents(self::REQUEST_FILE, $output))
        return false;
}

SimpleXMLElement? Не, не слышал

podvzbzdnul, 12 Ноября 2015

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

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

−99

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

Функция ПолучитьПолныйСписокКонтрагентовОтбора(текКонтрагентыОтбора) // релиз 3.0
	    Запрос = Новый Запрос;
	    Запрос.Текст = 
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
	|	Контрагент.Ссылка КАК Ссылка1
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагент
	|ГДЕ
	|	Контрагент.ЭтоГруппа = ЛОЖЬ И (";                                                                               ы=0;
	Для каждого ЭлСпОтбКг из текКонтрагентыОтбора Цикл текКг=ЭлСпОтбКг.Значение;
		Если ТипЗнч(текКг)=Тип("СправочникСсылка.Контрагенты") И НЕ текКг=Справочники.Контрагенты.ПустаяСсылка() Тогда  ы=ы+1;
			Если текКг.ЭтоГруппа Тогда Запрос.Текст = Запрос.Текст +" 
	|	"+?(ы=1,"","ИЛИ ")+"Контрагент.Ссылка В ИЕРАРХИИ(&тКг"+Строка(ы)+")";
            Иначе                      Запрос.Текст = Запрос.Текст +"
	|	"+?(ы=1,"","ИЛИ ")+"Контрагент.Ссылка = &тКг"+Строка(ы);
	        КонецЕсли;	               
	    Запрос.УстановитьПараметр("тКг"+Строка(ы),текКг);
	    КонецЕсли;	
	КонецЦикла;	Запрос.Текст = Запрос.Текст +"
    |)";
 	        РезСп=Новый СписокЗначений;
	                                текТЗрег=Запрос.Выполнить().Выгрузить();
	        РезСп.ЗагрузитьЗначения(текТЗрег.ВыгрузитьКолонку("Ссылка1"));
	Возврат РезСп;		 
КонецФункции

HomoAlbus, 11 Ноября 2015

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

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

−96

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

Функция мПолучитьДанныеПоОтсрочкеОплатыРТУнаДт(тРТУ, тДт, тНедоплатаПоРТУ, теРегЗапись="", текЗаказыПокупателей="", текЗнакЗаказыПокупателей="=", текОтрицаниеЗнакаЗаказыПокупателей=Ложь, тРазрешенныхДнейОтсрочки=0, тМаксДеньПогашения="", КЛ_тРТУ="" , тРТУ_Дата="", тСтрокаТЗотчета, УровеньПоЕжеМесКва=0) // релиз 3.3 доб. , тСтрокаТЗотчета , УровеньПоЕжеМесква=0  // релиз 3.1 доб. , тРТУ_Дата=""
	                        текРТУ_Дата=?(ТипЗнч(тРТУ_Дата)=Тип("Дата") И НЕ тРТУ_Дата='00010101', тРТУ_Дата, тРТУ.Дата); // релиз 3.1 доб.
//...	
	КЛ_тРТУ=теРегЗапись.теРегистратор; тЕстьЕжемес=теРегЗапись.ДеньПогашенияМесяц>0   И теРегЗапись.ДеньПогашенияМесяц<=31;   
	                                     тЕстьЕжеква=теРегЗапись.ДеньПогашенияКвартал>0 И теРегЗапись.ДеньПогашенияКвартал<=31; 
		Если      тЕстьЕжемес И теРегЗапись.ДеньМесяцЭтоСледующийЗаОтгрузкой Тогда
тМаксДеньПогашения=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания);   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
		ИначеЕсли тЕстьЕжеква И Найти("/3/6/9/12/","/"+Строка(Месяц(текРТУ_Дата))+"/")<>0 И теРегЗапись.ДеньПогашенияКвартал>День(текРТУ_Дата) Тогда             // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
тМаксДеньПогашения=Мин(Дата(Год(текРТУ_Дата),Месяц(текРТУ_Дата),теРегЗапись.ДеньПогашенияКвартал), теРегЗапись.ДатаОкончания);                                   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                         
        ИначеЕсли тЕстьЕжемес И ?(Найти("/3/6/9/12/","/"+Строка(Месяц(текРТУ_Дата))+"/")=0,Истина,НЕ тЕстьЕжеква) И теРегЗапись.ДеньПогашенияМесяц>День(текРТУ_Дата)   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата 
                И НЕ(УровеньПоЕжеМесКва=1) Тогда  // релиз 3.3 доб. строку
тМаксДеньПогашения=Мин(Дата(Год(текРТУ_Дата),Месяц(текРТУ_Дата),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания); ПроверитьЕжеМесКваНаНеполноеПогашение(1,теРегЗапись,тСтрокаТЗотчета); // релиз 3.3 доб. ПроверитьЕжеМесКваНаНеполноеПогашение(1,теРегЗапись,тСтрокаТЗотчета); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                      
		ИначеЕсли тЕстьЕжеква И Найти("/3/6/9/12/","/"+Строка(Месяц(ДобавитьМесяц(текРТУ_Дата,1)))+"/")<>0 Тогда                                                 // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
тМаксДеньПогашения=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияКвартал), теРегЗапись.ДатаОкончания);ПроверитьЕжеМесКваНаНеполноеПогашение(2,теРегЗапись,тСтрокаТЗотчета); // релиз 3.3 доб. ПроверитьЕжеМесКваНаНеполноеПогашение(2,теРегЗапись,тСтрокаТЗотчета); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                         
        ИначеЕсли тЕстьЕжемес 
                И НЕ(УровеньПоЕжеМесКва=1 И тМаксДеньПогашения>=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания)) Тогда  // релиз 3.3 доб. строку

	//...
		
	                          тМаксДеньПогашения=НачалоДня(тМаксДеньПогашения);
	тРазрешенныхДнейОтсрочки=(тМаксДеньПогашения-НачалоДня(текРТУ_Дата))/(24*60*60); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
	Возврат                  (тМаксДеньПогашения-НачалоДня(тДт))/(24*60*60);
КонецФункции

Там, говорят, работы на час: посмотреть как в отчете данные собираются и перенести то, что надо. Открываю отчет, а там с два десятка вот таких функций и процедур. Орфография и пунктуация сохранена, жаль вся функция не поместилась.