Список говнокодов пользователя Arigato

Всего: 17

Perl / Говнокод #4504

−125

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

while (<>)
  {
    chomp;
    s/\r$//;
    next unless $_;
    my ($tag, $value) = split / /, $_, 2;
    die "Font is not fixed width\n"
      if $tag eq 'SPACING' and not $value =~ /[CM]/i;

    $currentchar = $value if $tag eq 'ENCODING';
    $minchar = $currentchar if not defined $minchar
      or ($currentchar < $minchar && $currentchar >= 0);
    $maxchar = $currentchar if not defined $maxchar
      or ($currentchar > $maxchar && $currentchar >= 0);

И дальше в том же духе...
Взято из файла bdf2gdfont.pl

Arigato, 01 Ноября 2010

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

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

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

10 DEFM 13:VAC
20 PRINT " Генератор."
30 FOR N=0 TO 6:Z$(N)="00000":NEXT N
40 CSR 0,:FOR N=6 TO 0 STEP -1:FOR M=1 TO 5
50 IF GETC(Z$(N),M)="1";DRAW M-1,N
60 NEXT M:NEXT N
70 DRAW X,Y:K$=KEY
80 DRAWC X,Y:IF K$="" THEN 70
90 IF GETC(Z$(Y),X+1)="1";DRAW X,Y
100 IF K$="8";IF Y<6;Y=Y+1:GOTO 70
110 IF K$="2";IF Y>0;Y=Y-1:GOTO 70
120 IF K$="4";IF X>0;X=X-1:GOTO 70
130 IF K$="6";IF X<4;X=X+1:GOTO 70
140 IF K$=" " THEN 200
150 IF K$="I" THEN 270
160 IF K$="C" THEN 30
170 IF K$="D" THEN 300
175 IF K$="U" THEN 350
180 IF K$="P" THEN 400
185 IF K$=CHR 123 THEN 450
190 GOTO 70
200 A$="1"
210 IF GETC(Z$(Y),X+1)="1";A$="0"
220 $=Z$(Y)
230 B$=MID(1,X)
240 C$=MID(X+2,4-X)
250 Z$(Y)=B$+A$+C$
260 GOTO 70
270 FOR N=0 TO 6:B$="":FOR M=1 TO 5
280 IF GETC(Z$(N),M)="0";B$=B$+"1":GOTO 290
285 B$=B$+"0"
290 NEXT M:Z$(N)=B$:NEXT N:GOTO 40
300 B$=Z$
310 FOR N=0 TO 5
320 Z$(N)=Z$(N+1)
330 NEXT N
340 Z$(6)=B$
345 GOTO 40
350 B$=Z$(6)
360 FOR N=6 TO 1 STEP -1
370 Z$(N)=Z$(N-1)
380 NEXT N:Z$=B$
390 GOTO 40
400 FOR N=0 TO 6
410 Z$(N+7)=Z$(N)
420 NEXT N
430 FOR N=0 TO 6
440 Z$(N)=Z$(13-N)
445 NEXT N:GOTO 40
450 B$="":FOR N=6 TO 0 STEP -1:S=0:L=1
460 FOR M=5 TO 1 STEP -1
470 S=S+VAL GETC(Z$(N),M)*L
475 L=L*2
480 NEXT M
490 IF S<10; B$=B$+CHR(48+S):GOTO 510
500 B$=B$+CHR(55+S)
510 NEXT N
520 CSR 2:PRINT "C=";B$;
530 GOTO 70

Не VisualBasic, но тоже Бейсик. Программа для микрокомпьютера Электроника МК-85М. Писал ее (и еще много других) лет 10 назад.
Подробнее о назначении программы в комментарии.

Arigato, 16 Октября 2010

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

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

+163

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

<?php

session_start();

// выводим верх страницы
include 'verh.php';

// проверяем данные из формы
$error='';
if (!preg_match('|^http://[0-9a-z\-\.]+\.[a-z]{2,4}|i', $_POST['url'])) {$error=$error."Ошибка. Не верно указан адрес сайта!<br/>";}
if (empty($_POST['name'])) {$error=$error."Ошибка. название сайта!<br/>";}
if ($_POST['words']!=$_SESSION['word']) {$error=$error."Ошибка. Неверно введено число!<br/>";}
if (empty($_POST['opis'])) {$error=$error."Ошибка. описание сайта!<br/>";}
if (!preg_match('|^[a-z0-9]{3,}$|i', $_POST['pass'])) {$error=$error."Ошибка. пароль!<br/>";}
if (!preg_match('|^[a-z0-9\.\_\-]+\@[a-z0-9\.\_\-]+$|i', $_POST['mail'])) {$error=$error."Ошибка. Не верно указан емаил!<br/>";}
if ( (!empty($_POST['wm'])) and (!preg_match('|R\d{12}|', $_POST['wm'])) ) {$error=$error."Ошибка. WMR-кошелек должен быть вида R111222333444<br/>";}
if (mysql_num_rows(mysql_query("SELECT * FROM inet_sites WHERE url='$_POST[url]'"))) {$error=$error."Ошибка! Этот сайт уже зерегистрирован";}
if (mysql_num_rows(mysql_query("SELECT * FROM inet_ban WHERE url='$_POST[url]'"))) {$error=$error."Ошибка! Этот сайт заблокирован";}

Много всякого добра на диске валяется. Вот какой-то двиг под названием (дословно): "Скрипт каталога сайтов с системой выплат за переходы и рефералов!".
По сути там кроме говнокода ничего нет. То, что привел - начало файла goreg.php

Arigato, 16 Октября 2010

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

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

+189

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

function location ($url)
{ // Перенаправление:
	@ header ("Location: $url");
	echo "<html>\n";
	echo "<head>\n";
	echo "<meta http-equiv='refresh' content='0; url=$url' />\n";
	echo "<title>$url</title>\n";
	echo "<script type='text/javascript'>//<![CDATA[\n";
	echo "document.location = '$url';\n";
	echo "//]]></script>\n";
	echo "</head>\n";
	echo "<body>\n";
	echo "<a href='$url'>Click me</a>\n";
	echo "</body>\n";
	echo "</html>";
	kernel_exit();
}

Перенаправление (кроссбраузерное).

Arigato, 13 Октября 2010

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

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

+165

1
2
3
4
5
6
7

function xchg(s,o,n)
{	var r=s.split(o).join(n);
	return r;
}

function toHTML(s)
{return xchg(xchg(xchg(xchg(xchg(xchg(s,'<BR>',''),'<br>',''),'&lt;','<'),'&gt;','>'),'&amp;','&'),'\'\'','\'');}

Кусок кода из моего скрипта Гостевой книги для Народа, добавляющей туда bb-теги, смайлы и прочие радости (сейчас там, вроде, скрипты уже вырезаются). Писалось лет 6 назад.

В целом код в скрипте оказался на удивление еще не таким говнокодестым, как я ожидал. Есть еще пара кусочков говнокогда...

Arigato, 12 Октября 2010

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

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

+157

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

// (c) Template Optimizer
// (c) Template Compiler
// skin/news.tpl

/*<?php
die ('<br /><br />Template Parser: <b>Access locked</b>');
?>*/

$value0 = '

';
if ( $this->get_tpl_tag ('USER.ACCESS') == '1' )
{
	$value0 .= '
	';
	$this->set_tpl_tag ('ACTION', 'new_add');
	$value0 .= '
	';
	$this->set_tpl_tag ('SUBMIT', 'Добавить');
	$value0 .= '
	';
	$this->set_tpl_tag ('CAPTION', 'Добавить новость');
	$value0 .= '
	' . $this->file_include ('content.tpl') . '
';
}
$value0 .= '

';
$this->open_local (array ('NEW'));
if ( is_array ($this->get_tpl_tag ('NEWS')) )
foreach ( $this->get_tpl_tag ('NEWS') as $this->tags['NEW'] )
{
	$value0 .= '
	<table class="news" width="100%">
		<tr>
			<th>
				<h2>' . $this->get_tpl_tag ('NEW.TITLE') . '</h2>
			</th>
			<th align="right">
				<span class="gensmall">' . $this->get_tpl_tag ('NEW.TIME') . ' </span>
				';
	if ( $this->get_tpl_tag ('USER.ACCESS') == '1' )
	{
		$value0 .= '
					<a href="admin.php?action=new_edit&new=' . $this->get_tpl_tag ('NEW.ID') . '"><img src="' . $this->root_dir . '/images/rename.gif" alt="Редактировать" title="Редактировать" style="vertical-align: middle; border: none;" /></a>
					<a href="admin.php?action=new_delete&new=' . $this->get_tpl_tag ('NEW.ID') . '" onclick="return confirm (\'Удалить новость за ' . $this->get_tpl_tag ('NEW.TIME') . '?\');"><img src="' . $this->root_dir . '/images/delete.gif" alt="Удалить" title="Удалить" style="vertical-align: middle; border: none;" />
				';
	}
	$value0 .= '
			</th>
		</tr>
		<tr>
			<td colspan="2">
				' . $this->get_tpl_tag ('NEW.BODY') . '
			</td>
		</tr>
	</table>
';
}
$this->close_local();
$value0 .= '

';
$this->set_tpl_tag ('_ALIGN_', 'LEFT');
$value0 .= '
' . $this->file_include ('pagebar.tpl');

Вот такой "говнокод" выдает мой шаблонизатор после компилирования шаблона.
В данном примере это блок новостей.

Arigato, 11 Октября 2010

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

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

+168

1
2
3
4

function m($s, $re)
    {
        return preg_match($re, $s);
    }

Из какого-то движка такая вот функа в файле function.php

Arigato, 11 Октября 2010

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

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