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

    Всего: 17

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

    −125

    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
    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)
  3. VisualBasic / Говнокод #4372

    −99

    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
    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)
  4. PHP / Говнокод #4370

    +163

    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
    <?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)
  5. PHP / Говнокод #4360

    +189

    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
    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)
  6. JavaScript / Говнокод #4345

    +165

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 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)
  7. PHP / Говнокод #4342

    +157

    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
    // (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)
  8. PHP / Говнокод #4341

    +168

    1. 1
    2. 2
    3. 3
    4. 4
    function m($s, $re)
        {
            return preg_match($re, $s);
        }

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

    Arigato, 11 Октября 2010

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