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

Всего: 120

Pascal / Говнокод #5454

+103

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

Const MAX32 : DWord = $FFFFFFFF;
 
Var
    State : Array[0..15] of DWord;
    Count : Array[0..1] of DWord;
    Len : Byte;
    Buffer : Array[0..31] of Byte;
 
Procedure SHIFT12(var U : Array of DWord; var M : Array of DWord; var S : Array of DWord);
Begin
        U[0] := M[0] xor S[6];
        U[1] := M[1] xor S[7];
        U[2] := M[2] xor (S[0] shl 16) xor (S[0] shr 16) xor (S[0] and $FFFF) xor
                (S[1] and $FFFF) xor (S[1] shr 16) xor (S[2] shl 16) xor S[6] xor (S[6] shl 16) xor
                (S[7] and $FFFF0000) xor (S[7] shr 16);
        U[3] := M[3] xor (S[0] and $FFFF) xor (S[0] shl 16) xor (S[1] and $FFFF) xor
                (S[1] shl 16) xor (S[1] shr 16) xor (S[2] shl 16) xor (S[2] shr 16) xor
                (S[3] shl 16) xor S[6] xor (S[6] shl 16) xor (S[6] shr 16) xor (S[7] and $FFFF) xor
                (S[7] shl 16) xor (S[7] shr 16);
        U[4] := M[4] xor
                (S[0] and $FFFF0000) xor (S[0] shl 16) xor (S[0] shr 16) xor
                (S[1] and $FFFF0000) xor (S[1] shr 16) xor (S[2] shl 16) xor (S[2] shr 16) xor
                (S[3] shl 16) xor (S[3] shr 16) xor (S[4] shl 16) xor (S[6] shl 16) xor
                (S[6] shr 16) xor(S[7] and $FFFF) xor (S[7] shl 16) xor (S[7] shr 16);
        U[5] := M[5] xor (S[0] shl 16) xor (S[0] shr 16) xor (S[0] and $FFFF0000) xor
                (S[1] and $FFFF) xor S[2] xor (S[2] shr 16) xor (S[3] shl 16) xor (S[3] shr 16) xor
                (S[4] shl 16) xor (S[4] shr 16) xor (S[5] shl 16) xor  (S[6] shl 16) xor
                (S[6] shr 16) xor (S[7] and $FFFF0000) xor (S[7] shl 16) xor (S[7] shr 16);
        U[6] := M[6] xor S[0] xor (S[1] shr 16) xor (S[2] shl 16) xor S[3] xor (S[3] shr 16) xor
                (S[4] shl 16) xor (S[4] shr 16) xor (S[5] shl 16) xor (S[5] shr 16) xor S[6] xor
                (S[6] shl 16) xor (S[6] shr 16) xor (S[7] shl 16);
        U[7] := M[7] xor (S[0] and $FFFF0000) xor (S[0] shl 16) xor (S[1] and $FFFF) xor
                (S[1] shl 16) xor (S[2] shr 16) xor (S[3] shl 16) xor S[4] xor (S[4] shr 16) xor
                (S[5] shl 16) xor (S[5] shr 16) xor (S[6] shr 16) xor (S[7] and $FFFF) xor
                (S[7] shl 16) xor (S[7] shr 16);
End;
 
Procedure SHIFT16(var H : Array of DWord; var V : Array of DWord; var U : Array of DWord);
Begin
        V[0] := H[0] xor (U[1] shl 16) xor (U[0] shr 16);
        V[1] := H[1] xor (U[2] shl 16) xor (U[1] shr 16);
        V[2] := H[2] xor (U[3] shl 16) xor (U[2] shr 16);
        V[3] := H[3] xor (U[4] shl 16) xor (U[3] shr 16);
        V[4] := H[4] xor (U[5] shl 16) xor (U[4] shr 16);
        V[5] := H[5] xor (U[6] shl 16) xor (U[5] shr 16);
        V[6] := H[6] xor (U[7] shl 16) xor (U[6] shr 16);
        V[7] := H[7] xor (U[0] and $FFFF0000) xor (U[0] shl 16) xor (U[7] shr 16) xor
                (U[1] and $FFFF0000) xor (U[1] shl 16) xor (U[6] shl 16) xor (U[7] and $FFFF0000);
End;

qbasic, 31 Января 2011

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

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

+159

1
2
3
4
5
6
7

<?
exec('dir "'.str_replace('/','\\',$fname).'"',$r);
$r = implode("\r\n",$r);
$r = str_replace("\xFF",' ',$r);
preg_match('/[\d]{2,2}\.[\d]{2,2}\.[\d]{2,4}[\s]+[\d]{2,2}\:[\d]{2,2}[\s]+([\d\s]+)/im',$r,$m);
if (!isset($m[1])) return false;
$size = str_replace(' ','',$m[1]);

qbasic, 31 Января 2011

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

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

+160

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
68
69
70
71
72
73
74
75
76
77
78
79
80

<?php
 
if ( !defined ( "DATALIFEENGINE" )){
    die ( "Hacking Attemp!" );
}
 
$buff = dle_cache( "main", $config['skin'] );
 
$sql_result = mysql_query ( "SELECT * FROM " . PREFIX . "_post WHERE approve='1' ORDER BY date DESC LIMIT 0, 6" );
 
$buff = <<<HTML
<table class="choser">
HTML;
 
$rows=mysql_fetch_array($sql_result);
 
for($i=0;$i<mysql_num_rows($sql_result);$i++){
    $row[$i] = array ( 'title'=>$rows['title'], 'category'=>$rows['category'], 'alt_name'=>$rows['alt_name'], 'full_story'=>$rows['full_story'], 'id'=>$rows['id'] );
    $link[$i] = $config['http_home_url'] . get_url( $row[$i]['category'] ) . "/" . $row[$i]['id'] . "-" . $row[$i]['alt_name'] . ".html";
    $title[$i] = stripslashes ( $row[$i]['title'] );
    preg_match ( "#<img src=[\"\'](.+?)[\"\'](.*)/>#si", $row[$i]['full_story'], $match );
    if ( trim ( $match[1] ) == '' ){
      preg_match ( "#<!--TBegin--><a href=[\"\'](.+?)[\"\'](.*)></a><!--TEnd-->#si", $row[$i]['full_story'], $match );
   }
   $img[$i] = '<a href="'.$link[$i].'"><img src="'.$match[1].'" alt="'.$title[$i].'" /></a>';
    $full_story[$i] = strip_tags ( stripslashes ( $row[$i]['full_story'] ));
    if ( strlen ( $full_story ) > 100 ){
      $full_story = substr ( $full_story, 0, 100 ) . ' ...';
   }
}
 
$buff .= <<<HTML
<tr>
   <td rowspan=5>
     {$img[1]}
     {$row[1]['title']}
     {$full_story[1]}  
   </td>
 
   <td>
     {$row[2]['title']}
     {$full_story[2]}  
   </td>
</tr>
 
<tr>
   <td>
     {$row[3]['title']}
     {$full_story[3]}
   </td>
</tr>
 
<tr>
   <td>
     {$row[4]['title']}
     {$full_story[4]}
   </td>
</tr>
 
<tr>
   <td>
     {$row[5]['title']}
     {$full_story[5]}
   </td>
</tr>
 
<tr>
   <td>
     {$row[6]['title']}
     {$full_story[6]}
   </td>
</tr>
</table>
HTML;
 
create_cache ( "main", $buff, $config['skin']);
 
echo $buff;
 
?>

qbasic, 29 Января 2011

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

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

+162

1
2
3
4

<?php
if ((substr($_SERVER['USER_AGENT'],0,6)=='Yandex') || (substr($_SERVER['USER_AGENT'],0,11)=='YaDirectBot')) $bot='yandex';
else if ((strpos($_SERVER['USER_AGENT'],'Googlebot')!==false) || (strpos($_SERVER['USER_AGENT'],'Mediapartners-Google')!==false) || (strpos($_SERVER['USER_AGENT'],'Google Search Appliance')!==false)) $bot='google';
else if (substr($_SERVER['USER_AGENT'],0,12)=='StackRambler') $bot='rambler';

qbasic, 28 Января 2011

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

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

+161

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

<?php

function info_user($USER_UIN, $volume="all"){
        $sql=mysql_query("SELECT * FROM `users` WHERE `uin`='$USER_UIN'");
        $req=mysql_fetch_assoc($sql);
        if($req['status']!='user') $status=" <font color='blue'>({$req['status']})</font>";
        if($req['sex']!=0) {$sex="Пол: "; if($req['sex']==1) $sex.="Мужской"; elseif($req['sex']==2) $sex.="Женский"; $sex.="<br>";}
        $end.= "<b>".htmlspecialchars($req['login'], ENT_QUOTES)." ({$req['uin']}</b>) <br>
        <small>".$req['public_status']."</small>$status<br>
        $sex    <br><br><br><br><br>
        ";//это 331 строка
        
        return $end;
        }

qbasic, 26 Января 2011

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

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

+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
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
68
69
70
71
72
73
74
75
76

<?php
session_start();
require_once 'connection/ConnectionConfig.php';
require_once 'classes/DBClass.php';
$DB = new DB($host, $user, $password);

function LoadContent($DB) {
    if (isset($_GET["ShowTable"]) || isset($_GET["ViewPage"]) || isset($_POST["Cancel"])) {
        $DB->SelectBase($_SESSION["CurrentDB"]);
        include 'loaders/view_table.te.php';
    }
    if (isset($_GET["NewRecord"]) || isset($_GET["EditRecord"])) {
        if (isset($_GET["EditRecord"]) && (!isset($_GET["SelectedRecord"]))) {
            $message = "Не выбрана запись для редактирования!";
            include 'templates/message.te.html';
        }
        else
            include 'loaders/edit_record.te.php';
    }
    if (isset($_POST["Save"])) {
        include 'loaders/edit_function.te.php';
    }
    if (isset($_GET["DeleteRecord"])) {
        if (!isset($_GET["SelectedRecord"])) {
            $message = "Не выбрана запись для удаления!";
            include 'templates/message.te.html';
        } else {
            include 'loaders/del_function.te.php';
        }
    }
}

function LoadMenu($DB) {
    include 'loaders/menu_bases.te.php';
    if (isset($_GET["SelectDatabase"])) {
        $DB->SelectBase($_GET["SelectedDatabase"]);
        $_SESSION["CurrentDB"] = $DB->GetCurrentBase();
    }
    if (isset($_SESSION["CurrentDB"]))
        include 'loaders/menu_tables.te.php';
}

include 'templates/common.te.html';
?>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
    <head>
        <title></title>
        <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
        <link rel="stylesheet" type="text/css" href="style/style.css">
    </head>
    <body>
        <table border="1" class="common">
            <tr>
                <td width="250" height="130">
                    <img src="image/logo1.jpg" alt="logo"/>

                </td>
                <td rowspan="2" valign="top">
                    <?php LoadContent($DB); ?>
                </td>
            </tr>
            <tr>
                <td valign="top" class="menu_container">
                    <?php LoadMenu($DB); ?>
                </td>
            </tr>
            <tr>
                <td colspan="2">
                    <p class="copyright">Разработано: 2011г. Автор: Тяготенков В.Э.</p>
                </td>
            </tr>
        </table>
    </body>
</html>

qbasic, 17 Января 2011

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

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

+123

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

//1.    Реализовать с помощью персептронов распознавание изображений букв, заданных в виде матриц (4x4, 8x8 или др.). 
//Набор букв для распознавания определяется фамилией студента (‘Иванов‘ = ‘И‘, ‘В‘, ‘А‘, ‘Н‘, ‘О‘).
//Выполнить в виде сети из одного слоя. Необходимо выполнить обучение сети на требуемый набор букв. 
namespace lab1_1
{
    class Program
	{
		 static int[,] wRe = new int[5,25] { 
			{1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1 },
			{1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1 }, ...
		};
...
		///  Дельта обучение 
		static int delta()
		{
			bool p = true;
			while (p){
				p = false;
				int yRes1 = 0, yRes2 = 0, yRes3 = 0, yRes4 = 0, yRes5 = 0;
				if ((y[0, 0] == 1) && (y[0, 1] == 0) && (y[0, 2] == 0) && (y[0, 3] == 0) && (y[0, 4] == 0)) yRes1 = 1;
				if ((y[1, 0] == 0) && (y[1, 1] == 1) && (y[1, 2] == 0) && (y[1, 3] == 0) && (y[1, 4] == 0)) yRes2 = 1;
....
 
				for (int i = 0; i < 25; i++) w[i]=wRe[0, i];
					// суматоры 
				int s1 = b[0] + w[0] * iBukva[0, 0] + w[1] * iBukva[0, 1] + w[2] * iBukva[0, 2] + w[3] * iBukva[0, 3] + w[4] * iBukva[0, 4] +
					w[5] * iBukva[1, 0] + w[6] * iBukva[1, 1] + w[7] * iBukva[1, 2] + w[8] * iBukva[1, 3] + w[9] * iBukva[1, 4] +
....
				 t1 = s1 < fi ? 0 : 1;
				int yResT1 = 0;
				if ((t1 == 1) && (t2 == 0) && (t3 == 0) && (t4 == 0) && (t5 == 0)) yResT1 = 1;
				// первая буква
				if ((yRes1 != yResT1) && (yRes1 == 0))
				{
					for (int i = 0; i < 5; i++)
						for (int j = 0; j < 5; j++)
							if (iBukva[i, j] == 1) w[5 * i + j]--;
					b[0]--;
					p = true;
				}
				 if ((yRes1 != yResT1) && (yRes1 == 1))
				{
					for (int i = 0; i < 5; i++)
						for (int j = 0; j < 5; j++)
							if (iBukva[i, j] == 1) w[5 * i + j]++;
					b[0]++;
					p = true;
				}
				 for (int i = 0; i < 25; i++) wRe[0, i] = w[i];
 
				for (int i = 0; i < 25; i++) w[i] = wRe[1, i];
				int s2 = b[1] + w[0] * vBukva[0, 0] + w[1] * vBukva[0, 1] + w[2] * vBukva[0, 2] + w[3] * vBukva[0, 3] + w[4] * vBukva[0, 4] +
					w[5] * vBukva[1, 0] + w[6] * vBukva[1, 1] + w[7] * vBukva[1, 2] + w[8] * vBukva[1, 3] + w[9] * vBukva[1, 4] +
...
				 t2 = s2 < fi ? 0 : 1;
				int yResT2 = 0;
				if ((t1 == 0) && (t2 == 1) && (t3 == 0) && (t4 == 0) && (t5 == 0)) yResT2 = 1;
				//вторая буква
				if ((yRes2 != yResT2) && (yRes2 == 0))
				{
					for (int i = 0; i < 5; i++)
						for (int j = 0; j < 5; j++)
							if (vBukva[i, j] == 1) w[5 * i + j]--;
					b[1]--;
					p = true;
				}
				 if ((yRes2 != yResT2) && (yRes2 == 1))
				{
					for (int i = 0; i < 5; i++)
						for (int j = 0; j < 5; j++)
							if (vBukva[i, j] == 1) w[5 * i + j]++;
					b[1]++;
					p = true;
				}
				 for (int i = 0; i < 25; i++) wRe[1, i] = w[i];
 
				for (int i = 0; i < 25; i++) w[i] = wRe[2, i];
				int s3 = b[2] + w[0] * aBukva[0, 0] + w[1] * aBukva[0, 1] + w[2] * aBukva[0, 2] + w[3] * aBukva[0, 3] + w[4] * aBukva[0, 4] +
					w[5] * aBukva[1, 0] + w[6] * aBukva[1, 1] + w[7] * aBukva[1, 2] + w[8] * aBukva[1, 3] + w[9] * aBukva[1, 4] +
					w[10] * aBukva[2, 0] + w[11] * aBukva[2, 1] + w[12] * aBukva[2, 2] + w[13] * aBukva[2, 3] + w[14] * aBukva[2, 4] +
					w[15] * aBukva[3, 0] + w[16] * aBukva[3, 1] + w[17] * aBukva[3, 2] + w[18] * aBukva[3, 3] + w[19] * aBukva[3, 4] +
					w[20] * aBukva[4, 0] + w[21] * aBukva[4, 1] + w[22] * aBukva[4, 2] + w[23] * aBukva[4, 3] + w[24] * aBukva[4, 4];
...

qbasic, 16 Января 2011

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

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

+160

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
68
69

<?php
 include '/system/config_bd.php'; // соединение с базой
 
class pagination_start {
public $page;
public $CountListPage=10; 
public $sql="SELECT * FROM `news`";
public $start;
public $limit;
public $ires;
 
public function page_settings() {
$this->page_get();
$this->start=($this->page-1)*$this->CountListPage; 
$this->limit=" LIMIT $this->start,$this->CountListPage";
$this->ires=mysql_query($this->sql.$this->limit);
}
 
public function page_get() {
if(empty($_GET['page'])){$this->page=1;} 
else {$this->page=$_GET['page'];} 
}
}
 
class pagination_end extends pagination_start{
public $link_interval;
public $i;
public $sp;
 
public function pagination($class_all,$class_once) {
 $link_page = '';
 $this->page_get();
 $count=mysql_num_rows(mysql_query($this->sql)); 
 if($count>$this->CountListPage){ 
$CountList=ceil($count/$this->CountListPage); 
 if($this->page > 3 && $CountList > 5){echo '<span class="'.$class_all.'"><a href="?page=1'.$this->link_interval.'">1</a></span><span class="'.$class_all.'">...</span>';} 
if($this->page > 3 && $CountList > 5){$this->sp=$this->page-2;}else{$this->sp=1;} 
if($this->page > $CountList-3 && $CountList > 5){$this->sp=$CountList-4; } 
if($CountList>5)$cpc=5;else $cpc=$CountList; 
for($this->i=$this->sp;$this->i<$this->sp+$cpc;$this->i++){ 
 
if($this->i == $this->page){  printf ('<span class="'.$class_once.'">%s</span>',$this->i); }
else{ $suit=$this->link_interval.$this->i; 
$links_cent = '<span class="'.$class_all.'"><a href="?page='.$suit.'">'.$this->i.'</a></span>';
 echo $links_cent;  } } 
$suit=$this->link_interval."?page=".$CountList.""; 
if($this->page<=$CountList-3 and $CountList>5){echo '<span class="'.$class_all.'">...</span>  <span class="'.$class_all.'"><a href="'.$suit.'">'.$CountList.'</a></span> ';} }
}
}

$CountListPage = 5;   // Сколько объектов отображать на странице # по умолчанию 10
$sql="SELECT * FROM `news` ";  // SQL запрос # по умолчанию "SELECT * FROM `news`"
$class_all='page_all'; // Css класс всех страниц кроме текущей
$class_once='class_once'; // Css класс всех страниц кроме текущей

/* Формирование страниц и sql запрос */
$pagination = new pagination_start();
$pagination->CountListPage = $CountListPage;
$pagination->sql = $sql;
$pagination->page_settings();
while($ires_result=mysql_fetch_array($pagination->ires))
{
echo $ires_result['id']."<br/>";
} 
/* Пагенирование */
$pagination_end = new pagination_end();
$pagination_end->CountListPage = $CountListPage;
$pagination_end->sql = $sql;
$pagination_end->pagination($class_all,$class_once); // От css клас от 2 страници до предпоследней

qbasic, 11 Января 2011

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

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

+123

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

WebClient webClient = new WebClient();
            int i = 1;
            while (true)
            {
                try
                {
                    webClient.DownloadFile("http://sayt.ru/" + i.ToString() + ".exe", @i.ToString() + ".exe");
                    number += 1;
                                       
                }
                catch
                {
                 break; 
                }
         }

qbasic, 09 Января 2011

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

Ruby / Говнокод #5180

−100

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

N = 5
$mas = (1..N).to_a
$c = 0
 
def generate(l = 0)
    if l == N-1
        for i in 0..N-1 do
            print("#{$mas[i]} ")
        end
        $c += 1; print("\n")
    else
        for i in l..N-1 do
            t = $mas[l]; $mas[l] = $mas[i]; $mas[i] = t;
            generate(l+1)
            t = $mas[l]; $mas[l] = $mas[i]; $mas[i] = t;
        end
    end
    return $c
end
 
p generate(0);

qbasic, 08 Января 2011

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

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

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

Pascal / Говнокод #5454

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

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

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

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

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

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

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

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

Ruby / Говнокод #5180