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

    Всего: 120

  2. Си / Говнокод #5176

    +134

    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
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    void epilog()
    {  
    	fprintf(fvih,"\tINCLUDE\tstd.asm\n");
    	fprintf(fvih,"_KOM\tENDS\n");
    	fprintf(fvih,"_STEK\tSEGMENT USE16\tSTACK\n");
    	fprintf(fvih,"\tDW\t100 DUP (?)\n");
    	fprintf(fvih,"_DNOST\tDW\t?\n");
    	fprintf(fvih,"_STEK\tENDS\n");
    	if (kolglb > 0) {  
    		fprintf(fvih,"_DAN\tSEGMENT USE16\n");
    		for (i = 1; i <= kolglb; i++)
    			if (tabim[i].vidob == 1)      /* пеpеменная */
    				if (tabim[i].typ == int_t)
    					fprintf(fvih,"%s\tDW\t?\n",tabim[i].imja);
    				else
    					fprintf(fvih,"%s\tDD\t?\n",tabim[i].imja);
    		fprintf(fvih,"_DAN\tENDS\n");
    	}
    	if (est6_main)
    		fprintf(fvih,"\tEND\t_main\n");
    	else fprintf(fvih,"\tEND\n");
    	fprintf(fvih,";Компилятоp С0 от 9/10/92:\n;колич. ошибок %d\n",kolosh);	
    	printf("Компилятоp С0 от 9/10/92:\nколич. ошибок %d\n",kolosh);
    }
    
         /**********************************************/
         /*             Основная пpогpамма             */
         /**********************************************/
    int main(int agrc, char *argv[])
    {  
    	int i;
    	for (i=0; i<=255; i++) leksim[i]=osh;
    	leksim['+']=plus;  leksim['-']=minus;  leksim['*']=umn;
    	leksim['/']=del;   leksim['%']=ost;    leksim['=']=prisv;
    	leksim['<']=men;   leksim['>']=bol;    leksim['(']=lskob;
    	leksim[')']=pskob; leksim['{']=flskob; leksim['}']=fpskob;
    	leksim[',']=zpt;   leksim[';']=tchzpt; 
    
        /* множество начальных лексем выpажения */
    	nvir = st2[ident] | st2[chislo] | st2[minus] | st2[lskob];
    
    	/* мн-во нач-х лексем оп-pа */
    	noper = st2[flskob] | st2[ifsl] | st2[whilesl] | st2[retsl] | st2[tchzpt] | st2[dosl] | nvir; 
    	vhstr[0]=' '; 
    	vhstr[1]='\0'; 
    	usim = vhstr;kolglb =kolim =ef =	tipop =est6_main =kolosh =kmet =0;
    	is_leave_old = false;
    	fvh=fopen("C://p.c0","r");
    	//fvh=fopen(argv[1],"r");            /* откpыть входной файл  */
    	fvih=fopen("C://p.asm","w"); 
    	//fvih=fopen(argv[2],"w");          /* откpыть выходной файл */
    	if ((fvh == NULL) || (fvih == NULL))
    		oshibka(8);                      /*  файлы не откpылись */
    	else {
    		prolog();
    		while (!ef) {
    			chleks();
    			if (leksema == intsl) {              /* слово int        */
    				opisper(0); 
    				kolglb=kolim; 
    			}/*описание глоб-х пер-х*/
    			else if (leksema == longsl) {              /* слово int        */
    				opisper_long(0); 
    				kolglb=kolim; 
    			}/*описание глоб-х пер-х*/
    			else if (leksema == ident)      /* имя                 */
    				oprfun();                  /* опpеделение функции */
    			else if (!ef)    /* тpебуется опис-е пеp-х или ф-ции */
    				test(st2[intsl] | st2[ident],st2[pskob] | st2[tchzpt],3);
    		}
    		epilog();
    		fclose(fvh);
    	    fclose(fvih);
    	}
    	return 0;
    }

    qbasic, 07 Января 2011

    Комментарии (1)
  3. PHP / Говнокод #5153

    +160

    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
    <?
    $ux=0; 
    $array = file( 'logins.TXT' );
    $count = count( $array );
    for ( $i = 0; $i < $count; $i++ )
    {
        If (trim($array[$i],"\n\r")==$Text1.$Password1) {$ux=1;};}
    If ($ux==0) {
    header('Location: index1.html');}
    If ($ux==1) {$logins=$Text1;
    $formers=<<<HERE
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
    <title>Перенаправление</title>
    <script language="JavaScript">
    var seconds=3;
    remain();
    function remain(){
    seconds--;
    document.timer.clock.value=seconds;
    if(seconds>0)
    {window.setTimeout('remain()',3000)}
    else
    {
    location.replace("insystem/1.php");}
    }
     
    </script>
    </head>
     
    <body onLoad="remain()">
    <p>Вы авторизированы!!! Сейчас вы будите перенаправлены в систему. Щёлкните по ссылке, если ваш браузер не поддерживает автопереадресацию.</p>
    <p><a href="insystem/insystem.php">Ссылка</a></p>
    <p>Через 3секунды переход произойдет автоматически.</p>
    <form action="" method="get" name="timer">
    Переадресация через:
    <input name="clock" type="text" size=2> 
    секунд
    </form>
    <form action="insystem/1.php" method="post">
    <input type="hidden"
    name="logint"
    value="$logins">
    </form>
    </body>
    </html>
    HERE;
    echo $formers;
    print $logint;}
    ?>

    qbasic, 05 Января 2011

    Комментарии (24)
  4. C# / Говнокод #5126

    +113

    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
    let rnd = System.Random()
     
    // создаём строку, содержащую 10 случайных чисел, разделённых пробелами
    let sourceString = System.String.Join (" ", [1..10] |> List.map (fun x -> rnd.Next(1, 10).ToString()))
     
    // функция, удаляющая повторяющиеся числа из строки
    let removeDuplicate str =
        // разбиваем строку на отдельные числа
        let sourceList = sourceString.Split ([|' '|]) |> Array.toList |> List.map (fun x -> System.Int32.Parse (x))
        
        // список, в который будем ложить неповторяющиеся элементы
        let newList = ref []
     
        // проходим по всем элементам исходного списка
        List.iter
            (fun x -> 
                // если элемента в новом списке ещё нет, кладём его туда
                if (List.exists (fun y -> y = x) !newList) = false 
                then (newList := List.append !newList [x]))
            sourceList
     
        // получаем строку из списка с неповторяющимися элементами
        System.String.Join (" ", !newList |> List.map (fun x -> x.ToString()))
     
    // получаем новую строку
    let resultString = removeDuplicate sourceString
     
    // выводим старую и новую строку
    printfn "%s" sourceString
    printfn "%s" resultString

    qbasic, 01 Января 2011

    Комментарии (37)
  5. C# / Говнокод #5125

    +113

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    open System
     
    let mutable str = "1234455566667778888"
     
    for i = str.Length - 1 downto 1 do
        if str.[i] = str.[i-1] && Char.IsDigit(str.Chars(i)) then
            str <- str.Remove(i, 1);
     
    printfn "%s" str
    Console.ReadKey() |> ignore

    qbasic, 01 Января 2011

    Комментарии (158)
  6. C# / Говнокод #5124

    +113

    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
    let rnd = System.Random()
     
    // список из 10-ти случайных элементов
    let myList = [1..10] |> List.map (fun x -> rnd.Next(1, 100))
     
    // функция, исключающая элементы с нечётными номерами
    let removeEven lst = [
        let i = ref 0
        for n in lst do
            if (!i % 2 <> 0) then yield n
            i := !i + 1]
     
    // выводим список
    printfn "%A" myList
     
    // исключаем нечётные и выводим
    printfn "%A" (removeEven myList)

    qbasic, 01 Января 2011

    Комментарии (46)
  7. PHP / Говнокод #5118

    +164

    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
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    <?php
    /**
    * Sticky Notes pastebin
    * @ver 0.1
    * @license BSD License - www.opensource.org/licenses/bsd-license.php
    *
    * Copyright (c) 2011 Sayak Banerjee <[email protected]>
    * All rights reserved. Do not remove this copyright notice.
    */
    
    class core
    {
        // Global vars
        var $build;
    
        // Constructor
        function __construct()
        {
            $this->build = '0.1.17122010.2';
        }
    
        // Function to return root path
        function path()
        {
            $path = $_SERVER['PHP_SELF'];
            $snip = strrpos($path, '/');
            $path = substr($path, 0, $snip + 1);
    
            return $path;
        }
    
        // Function to return remote IP
        function remote_ip()
        {
            return $_SERVER['REMOTE_ADDR'];
        }
    
        // Function to set a cookie
        function setcookie($name, $value, $expire = 0)
        {
            setcookie('stickynotes_' . $name, $value, $expire);
        }
    
        // Slash fix
        function fixslashes(&$data, $list = false)
        {
    	global $db;
    
    	$data = addslashes($data);
    	$db->unescape($data);
        }
    
        // Function to fetch query strings / post data
        function variable($name, $default, $is_cookie = false)
        {
            if (gettype($default) == "integer")
            {
                settype($default, "double");
            }
    
            if ($is_cookie && isset($_COOKIE['stickynotes_' . $name]))
            {
                $cookie_data = $_COOKIE['stickynotes_' . $name];
                settype($cookie_data, gettype($default));
    
                return $cookie_data;
            }
            else if (isset($_POST[$name]))
            {
                $post_data = $_POST[$name];
                settype($post_data, gettype($default));
    
                return $post_data;
            }
            else if (isset($_GET[$name]))
            {
                $get_data = $_GET[$name];
                settype($get_data, gettype($default));
    
                return $get_data;
            }
            else
            {
                return $default;
            }
    
        }

    qbasic, 30 Декабря 2010

    Комментарии (25)
  8. Куча / Говнокод #5116

    +132

    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
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <style type="text/css">
    <!--
    .стиль2 {
    font-family: "Times New Roman", Times, serif;
    font-style: italic;
    }
    .стиль3 {
    font-size: 16px;
    font-weight: bold;
    font-style: italic;
    }
    .стиль4 {font-size: 12px; font-weight: bold; font-style: italic; }
    -->
    </style>
    <head>
    <meta name="description" content="<?php echo $myrow['meta_d']; ?>" />
    <meta name="keywords" content="<?php echo $myrow['meta_k']; ?>" />
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
    <title><?php echo "Заметки по запросу - $search"; ?></title>
    <link href="style.css" rel="stylesheet" type="text/css" />
    </head>
    <body>
    <table width="700" align="center" cellpadding="0" cellspacing="0" class="main_border">
    <!--Блок с шапкой сайта-->
    <? include ("blocks/header.php"); ?>
    <tr>
    <!--Блок меню сайта-->
    <? include ("blocks/menu.php"); ?>
    <td width="554" valign="top" bgcolor="#FFFFFF">

    qbasic, 30 Декабря 2010

    Комментарии (3)
  9. PHP / Говнокод #5115

    +156

    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
    <?php
    $result = mysql_query ("SELECT id,title,description, view, author,date,text FROM recipes WHERE MATCH(text) AGAINST('$search')",$db);
    
    if (!$result)
    {
    echo "<p>Запрос на выборку данных из базы не прошел. Напишите об этом вдминистратору [email protected] .
    <br>
    <br>
    <strong>Код ошибки : </strong></p>";
    
    exit(mysql_error());
    }
    if (mysql_num_rows($result) > 0)
    {
    $myrow = mysql_fetch_array ($result);
    
    do
    {
    printf (" <table align='center' cellpadding='0' cellspacing='0' class='recipes'>
    
    <tr>
    <td class='recipes_title'><p class='recipes_name'><a href='recipes_template.php?=id=%s'>%s</a></p>
    <p class='recipes_adds'>Дата добавления: %s</p>
    <p class='recipes_adds'>Автор: %s</p>
    </td>
    </tr>
    <tr>
    <td>%s</td>
    </tr>
    
    </table><br><br>", $myrow["id"], $myrow["title"], $myrow["date"], $myrow["author"], $myrow["description"]);
    }
    while ($myrow = mysql_fetch_array ($result));
    }
    else
    {
    echo "<p> Информация по запросу не может быть извлечена в таблице нет записей. </p>";
    exit();
    }
    ?>
    
    </td>
    </tr>
    <!--Ниний блок сайта-->
    <? include("blocks/down.php"); ?>
    </table>
    </body>
    </html>

    qbasic, 30 Декабря 2010

    Комментарии (14)
  10. PHP / Говнокод #5088

    +160

    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
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    #!/usr/bin/php5
     
    <?php
    set_time_limit(0);
    //include("crypt.php");
     
    exec("rm jtv.zip");
    exec("wget http://www.teleguide.info/download/new3/jtv.zip"); //скачать архив телепрограммы в формате itv.zip//
    exec("rm list/*.* "); //очистить каталог "list"//
    exec("unzip -x jtv.zip -d list "); //извлеч файлы из архива в папку "list"//
    sleep(3);
     
    $dir = "/home/tt/wwwplaylist/list/";
     
    exec("ls list | grep '.ndx'", $tmplist);
    $ch = array(
    1=>1,2=>2,3=>3,250=>195,241=>196,209=>197,177=>168,
    //170=>198,186=>199,191=>200,174=>201,172=>202,189=>203,188=>204,
    //161=>205,171=>206,187=>207,211=>208,223=>209,212=>210,210=>211,
    //245=>212,213=>213,181=>214,254=>215,222=>216,218=>217,219=>218,
    //217=>219,253=>220,221=>221,175=>222,180=>223,199=>192,252=>193,
    //233=>194,226=>195,228=>196,224=>197,173=>168,229=>198,231=>199,
    //234=>200,235=>201,232=>202,239=>203,238=>204,236=>205,196=>206,
    //197=>207,201=>208,230=>209,198=>210,244=>211,246=>212,242=>213,
    //251=>214,249=>215,214=>216,220=>217,248=>218,163=>219,216=>220,
    //251=>214,249=>215,214=>216,220=>217,248=>218,163=>219,216=>221,
    215=>222,131=>223,0=>220);
      
    $serveraddress="localhost";
    $mysqluser="root";
    $mysqlpassword="12345";
    $mysqldatabase="pl";
     
    $descriptor = mysql_connect($serveraddress,$mysqluser,$mysqlpassword);
    mysql_select_db($mysqldatabase,$descriptor);
    mysql_query("SET NAMES CP1251");
     
    mysql_query("truncate table TV_epg");
     
    function int2float($i) {
          $x32 = 4294967296;
          $i = (float)$i;
          if ($i < 0) return $i + $x32 + 1; else return $i; /* signed int32 overflow */
    }
     
    function FILETIMEtoUNIXtime($FILETIME) {
      $x32 = 4294967296;
      $sec_btw_epoch = (float)(116444736 * 100);
      $low  =        (ord($FILETIME[0])) | (ord($FILETIME[1]) << 8) | (ord($FILETIME[2]) << 16) | (ord($FILETIME[3]) << 24);
      $high =        (ord($FILETIME[4])) | (ord($FILETIME[5]) << 8) | (ord($FILETIME[6]) << 16) | (ord($FILETIME[7]) << 24);
      $f64 = (int2float($high) * $x32 + int2float($low)) / 10000000;
      return (int)($f64 - $sec_btw_epoch);
    }
     
    foreach ($tmplist as $key=>$value) {
        $f=substr($value, 0, -4);
        $res=$f;
     
        for($i=0; $i<strlen($res); $i++) $res[$i]=(array_key_exists(ord($res[$i]),$ch)) ? chr($ch[ord($res[$i])]) : $res[$i];
     
        $f1=fopen("list/".$f.".ndx", "rb");
        $f2=fopen("list/".$f.".pdt", "rb");
     
        $test1 = bin2hex(fread($f1, 1));
        $test2 = bin2hex(fread($f1, 1));
        $countpr = hexdec($test2.$test1);
     
    for ($i=0; $i<$countpr; $i++ )
    {
        $tmp=0;
        $ft='';
        $tmp = fread($f1, 2);
        for ($j=0; $j<8; $j++)
        $ft.= (fread($f1, 1));//.$ft;
     
        $dates= date("Y-m-d H:i:s", FILETIMEtoUNIXtime($ft));
     
    //////////////index f2////////////
        $offset=0;
        $str = bin2hex(fread($f1, 1));
        $str2 = bin2hex(fread($f1, 1));
        $offset = hexdec($str2.$str);
    ///////////////name////////////////
        $len=0;
        fseek($f2, $offset);
        $str = bin2hex(fread($f2, 1));
        $str2 = bin2hex(fread($f2, 1));
        $len = hexdec($str2.$str);
        $name = fread($f2, $len);
     
        mysql_query("insert into `TV_epg` set `epg_ch`='$res',`epg_date`='$dates',`epg_name`='$name' ");
        }
    }
            #mysql_quuery("update TV_epg set epg_date=epg_date-interval 4 hour;");
            mysql_query("update TV_epg set epg_date=epg_date-interval 1 hour;");
    ?>

    qbasic, 28 Декабря 2010

    Комментарии (17)
  11. Куча / Говнокод #5079

    +129

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    <form method="POST" name="submit_form" action="form1.php"> 
    <input name="form" value="form" /> 
    < .... >
    <input type="submit" value="отобразить отчет" onclick="document.submit_form.action='form1.php';" />  
    <input type="submit" value="сохранить отчет" onclick="document.submit_form.action='form2.php';" />  
    </form>

    qbasic, 27 Декабря 2010

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