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

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

−431.7

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

// 
//********************************* ПАДЕЖИ *************************************** 
// 
// (c) Jurer Production Begin ( Start ) 

// SuperJur.Narod.Ru 
// __________________________________________________________________ 
// Удаление этих строк незнаконно! 
// Гарантия 91 года и 1 месяц!!! 
// Послегарантийное обслуживание - бесплатно!!! 
// Круглосуточная поддержка - все 48 часов в бою! 
// Ссылка на источник обязательна! 
// Эти программы защищены законом об авторских правах. Запрещается перепродажа данной программы. 
// ПРОВЕРЕНО! ВИРУСОВ НЕТ!!! АНТИВИРУСОВ ТОЖЕ!!! 
// Смотри Милячуша в творительном !! 
// скупой слепой тупой - пропой!! 
// !№№! 
// !53! Очередное сокращение кода 
// !51! Прегромадное спасибо Олегу Дубровскому за оказанную моральную, информационную и материальную поддержку сего проекта. 
// Сергею Толкачёву за напоминание о том, что в русском языке всегда есть место исключениям! 
// !50! П:Ответственный за электрохозяйство Ф:Ацута Груша 
// !48! исправлена ошибка при склонении фамилий (спасибо, Mario). 
// !47! исправлена ошибка при склонении профессий ( спасибо, Павел Ковалев). 
// !46! оптимизация + четвертый параметр задает, что вернуть - фамилия, имя или отчество или всё сразу в нужном падеже 
// !42! Осел + Соловей + Воробей + Немец + Кормилец + Силиец 
// !41! отчества оканчивающиеся на "ы" считаются женскими ? 
// Функция для склонения одного слова!!! 
// z1 - само слово 
// z2 - номер падежа 
// z3 - пол 
// z4 - 1-склонять как фамилию, 2-имя, 3-отчество 
Функция ПадежС(z1,Знач z2=2,Знач z3="*",z4=0) Экспорт 
 z5=Найти(z1,"-"); 
 z6=?(z5=0,"","-"+ПадежС(Сред(z1,z5+1,СтрДлина(z1)-z5+1),z2,z3,z4)); 
 z1=НРег(?(z5=0,z1,Лев(z1,z5-1))); 
 z7=Прав(z1,3);z8=Прав(z7,2);z9=Прав(z8,1); 
 z5=СтрДлина(z1); 
 za=Найти("ая ия ел ок яц ий па да ца ша ба та га ка",z8); 
 zb=Найти("аеёийоуэюяжнгхкчшщ",Лев(z7,1)); 
 zc=Макс(z2,-z2); 
 zd=?(za=4,5,Найти("айяь",z9)); 
 zd=?((zc=1)или(z9=".")или((z4=2)и(Найти("оиеу"+?(z3="ч","","бвгджзклмнпрстфхцчшщъ"),z9)>0))или((z4=1)и(Найти("мия мяэ лия кия жая лея",z7)>0)),9,?((zd=4)и(z3="ч"),2,?(z4=1,?(Найти("оеиую",z9)+Найти("их ых аа еа ёа иа оа уа ыа эа юа яа",z8)>0,9,?(z3<>"ч",?(za=1,7,?(z9="а",?(za>18,1,6),9)),?(((Найти("ой ый",z8)>0)и(z5>4)и(Прав(z1,4)<>"опой"))или((zb>10)и(za=16)),8,zd))),zd))); 
 ze=Найти("лец вей бей дец пец мец нец рец вец аец иец ыец бер",z7); 
 zf=?((zd=8)и(zc<>5),?((zb>15)или(Найти("жий ний",z7)>0),"е","о"),?(z1="лев","ьв",?((Найти("аеёийоуэюя",Сред(z1,z5-3 ,1))=0)и((zb>11)или(zb=0))и(ze<>45),"",?(za=7,"л",?(za=10,"к",?(za=13,"йц",?(ze=0,"",?(ze<12,"ь"+?(ze=1,"ц",""),?(ze<37,"ц",?(ze<49,"йц","р")))))))))); 
 zf=?((zd=9)или((z4=3)и(z3="ы")),z1,Лев(z1,z5-?((zd>6)или(zf<>""),2,?(zd>0,1,0)))+zf+СокрП(Сред("а у а "+Сред("оыые",Найти("внч",z9)+1,1)+"ме "+?(Найти("гжкхш",Лев(z8,1))>0,"и","ы")+" е у ойе я ю я ем"+?(za=16,"и","е")+" и е ю ейе и и ь ьюи и и ю ейи ойойу ойойойойуюойойгомуго"+?((zf="е")или(za=16)или((zb>12)и(zb<16)),"и","ы")+"мм",10*zd+2*zc-3,2))); 
 Возврат ?(""=z1,"",?(z4>0,ВРег(Лев(zf,1))+?((z2<0)и(z4>1),".",Сред(zf,2)),zf)+z6); 
КонецФункции 
 
//_____________________________________________________________________________ 
// z1 - фамилия имя отчество например Железняков Юрий Юрьевич 
// z2 - Падеж ( по умолчанию = 2 - родительный) 
// 2 - родительный ( нет кого? ) Железнякова Юрия Юрьевича 

...........

// 
// (c) Jurer Production End ( Finish )

И мне это на javу нужно переписать :'(

Tanger, 06 Сентября 2009

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

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

+155.4

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

<?
	function mconnect()
	{
		$sql=mysql_connect("localhost","username","password");
		mysql_select_db("bd",$sql);
		return $sql;
	}
        function mdisconnect($sql)
        {
                mysql_close($sql);
                return 0;
        }
        mdisconnect(mconnect());
?>

Tanger, 06 Сентября 2009

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

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

+61.1

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

void funcMir()
{

...

if ( __mir0>5 )
goto vihod;
TMir1 __mir1; // Конструктор не вызывается. (Оператор goto перескакивает через него.)

...

vihod:
...
// Здесь вызывается деструктор для __mir1 при выходе __mir1 из области видимости.
};

Код оригинальный из инета. Комментарии добавил мой друг.

Говногость, 06 Сентября 2009

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

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

+56.9

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

cout << "\nVvedit A->";      //организуем ввод коэфициэнтов уравнения с помощью 
cin >> a;                    //ф-й потокового ввода-вывода (cout и cin с библиотеки iostream.h) 
cout << "\nVvedit B->";
cin >> b;
cout << "\nVvedit C->";
cin >> c;
d = pow(b,2)-(4*a*c);        //найдем дискриминант
if (d < 0) goto d1;            //проверяем условия, и, с помощью
if (d==0) goto d2;           //меток переходим к соответствующему блоку
if (d>0) goto d3;
 d1: {                       //блок 1: дискриминант < 0
  printf("\nKoreniv nema");
  goto exit;                 //безусловный переход на exit
 }
 d2: {                       //блок 2: дискриминант=0
  x1=-b/(2*a)
  printf("\nx = %f",x1);
  goto exit;                 //безусловный переход на exit
  }
 d3:  {                      //блок 3: дискриминант>0
  x1=(-b-sqrt(d))/(2*a);
  x2=(-b+sqrt(d))/(2*a);
  printf("\nx1 = %f",x1);
  printf("\nx2 = %f",x2);
  goto exit;                 //безусловный перехід на exit
 }
exit:

No comments.

Говногость, 06 Сентября 2009

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

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

+152.8

1
2
3
4
5
6

function clearUsers()
{
	$f=fopen("users", "w");
	fclose($f);
	return 0;
}

Tanger, 06 Сентября 2009

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

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

+159

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

<?
$vars=array("№1" => "volvo", "№2" => "saab","№3" => "saab & audi", "№4" => "mercedes","№5" => "audi");
	echo "<table border=1>";
	foreach ($vars as $k => $v) {
		echo "<tr><td>".$k."</td><td>".$v."</td></tr>";
	}
	echo "</table>";
?>


<form action="index.php" method="POST">
<select name="parametr">
  <option value="volvo">Volvo</option>
  <option value="saab">Saab</option>
  <option value="saabandaudi">Saab & Audi</option>
  <option value="mercedes">Mercedes</option>
  <option value="audi">Audi</option>
</select>
<input type="submit" value="JMI">
</form>

<?

if (isset($_POST['parametr']) && !empty($_POST['parametr'])) {
	
	foreach ($vars as $k => $v) {
		if (strstr(strtolower($v),strtolower($_POST['parametr']))) {
			echo $k." - ".$vars[$k]."<br>";
		}
	}
} else {
	echo "<table border=1>";
	foreach ($vars as $k => $v) {
		echo "<tr><td>".$k."</td><td>".$v."</td></tr>";
	}
	echo "</table>";
}
?>

dsda, 05 Сентября 2009

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

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

+149.8

01
02
03
04
05
06
07
08
09
10
11
12
13

<form action="blah.php" method="POST">
<!-- тут твой селект -->
<input type="submit" value="JMI">
</form>
<? input('./blah.php'); ?>


--[blah.php]--
<?
if (isset($_POST['тут имя передаваемого параметра']) && !empty($_POST['тут имя передаваемого параметра'])) {
 тут ты выбираешь из файла csv все в массив, там ищещь свои строки которые похожи, потом формируешь таблицу с этими значениями  и выводишь ее через echo допустим
}
?>

dsda, 05 Сентября 2009

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

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

+158.9

1
2
3
4
5

static $badwords = array(
...
'(?<=[_\d]) [гg]_?[оo]_?[вvb]_?[нnh]_?[оoаaяеeyу]', #говн[оаяеу]
...
);

самый дословный (мета-)говнокод.

из censure.php -- Функция пытается определить наличие мата (нецензурных, матерных слов) в html-тексте.
http://forum.dklab.ru/viewtopic.php?t=17146

OlgaWolga, 05 Сентября 2009

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

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

+49.9

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

bool __fastcall TForm1::ImportFile(AnsiString FName, int Direction)
{
bool StatusUpload;
StatusUpload = true;

TStringList *Inside;
Inside = new TStringList;
Inside->LoadFromFile(FName);
if (Direction == 1)
{
  // ...
  date_made = StrToSqlDate(Inside->Strings[1]);
  ops = Inside->Strings[0];

  Inside->Delete(0);
  Inside->Delete(0);
  Inside->Delete(0);

  int Iterations = (Inside->Count/5);
  for (int i=0; i<Iterations; i++)
  {
    AnsiString A, B, C, D, E;
    A = Inside->Strings[0].Trim();
    B = Inside->Strings[1].Trim();
    C = Inside->Strings[2].Trim();
    D = Inside->Strings[3].Trim();
    E = Inside->Strings[4].Trim();
    for (int j=0; j<5;j++)
       Inside->Delete(0);

    if (A == "1.1.2")
      E='1';

    if (A == "4.13" || A == "4.13" || A == "4.13")
	  E='20';
    C = RemoveZPT(C);
	ADOQuery1->SQL->Text = "INSERT INTO dnevnik_inside (row_id, ops, date_made, code, sign, val, val_init, direction, type) VALUES ("
      + row_id + ", '" + ops + "', '" + date_made + "', '" + A + "', '"
      + B + "', " + C + ", " + C + ", '" + D +"', '"+E+"')";
    ADOQuery1->ExecSQL();
  }
  Trans->CommitRetaining();
}

Собсно, название функции говорит само за себя :)
П.С. Коллега, не обижайся!

labutinpa, 05 Сентября 2009

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

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

+66.8

1
2
3
4
5
6
7
8
9

PChar GetFileContent(PChar FileName)
{
...
};

static inline signed int GetFileSize(PChar FileName)
{
  return(((signed int)(strlen(GetFileContent(FileName)))));
};

Всё гениальное - просто...

Говногость, 04 Сентября 2009

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

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

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

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

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

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

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

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

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

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

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

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