1. Pascal / Говнокод #4273

    +111

    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
    procedure TForm1.Timer1Timer(Sender: TObject);
function UpTime(sf:string):boolean;
var time:string;
 t:textfile;
begin
 if form1.MaskEdit5.Text<>'' then
 if Findmas_u(255,0,sf)<0 then
 begin UpTime:=false;exit;end;
 if not FileExists(sf) then
 begin UpTime:=false;exit;end;
 time:=DateUpdating_u(sf);
 if time<>'' then
 begin
 try
 assignfile(t,ExtractFilePath(form1.MaskEdit1.Text)+ChangeFileExt(ExtractFileName(sf),'.tim'));
 rewrite(t);
 writeln(t,time);
 closefile(t);
 except UpTime:=false;exit;end;
 end;
 UpTime:=true;
end;
var x,y,i1,i2,i3,xf,yf:integer;
 sf,id,ff:string;
 b:boolean;
begin
 form1.Timer1.Enabled:=not form1.Timer1.Enabled;
 try
 form1.ProgressBar1.Position:=0;
 application.ProcessMessages;
 masopt_u(254,x,y);
 if form1.MaskEdit1.Text='' then
 form1.BitBtn3.Click else
 if (DateUpdating_u(form1.MaskEdit1.Text)<>DateUpdatingMas_u(254))or(y>0) then
 begin
 if form1.MaskEdit3.Text<>'' then
 if form1.CheckBox1.Checked then
 sf:=TJ7PassAutentikR_u(form1.MaskEdit3.Text,form1.MaskEdit2.Text) else
 sf:=TJ7PassAutentik_u(form1.MaskEdit3.Text,form1.MaskEdit2.Text) else
 sf:=form1.MaskEdit2.Text;
 if not OpenOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked),3) then
 begin
 DeleteFile(ChangeFileExt(form1.MaskEdit1.Text,'.tmp'));
 form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+') Превышен интервал времени доступа.');
 OpenOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked),3);
 end;
 i1:=TJ7ReadMas_u(254,form1.MaskEdit1.Text,sf);
 CloseOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked));
 if (i1<>0)and(i1<>11) then
 begin
 form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+') Ошибка чтения команд, код: '+inttostr(i1)+'.');
 closemas_u(254);
 initmas_u(254,2,0);
 TJ7CreateMas_u(254,form1.MaskEdit1.Text,sf,false,false,false,false,false);
 closemas_u(254);
 form1.Timer1.Enabled:=not form1.Timer1.Enabled;
 exit;
 end;
 masopt_u(254,x,y);id:='';
 if not form1.RadioButton1.Checked then
 begin
 for i1:=0 to y-1 do
 if (masr_u(254,1,i1)<>'') then
 if ((form1.RadioButton2.Checked)and(ord(masr_u(254,1,i1)[1])mod 2=0))or
 ((form1.RadioButton3.Checked)and(ord(masr_u(254,1,i1)[1])mod 2<>0))then
 begin id:=masr_u(254,1,i1);break;end;
 end else id:=masr_u(254,1,0);
 if (id='')or(y=0) then
 begin
 if RTime_u(strtodatetime(DateUpdatingMas_u(254)),date+time)<1200 then
 closemas_u(254);
 form1.Timer1.Enabled:=not form1.Timer1.Enabled;
 exit;
 end;
 if y>0 then form1.StaticText13.Caption:='в обработке';
 application.ProcessMessages;
 form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+'/Старт):'+id);
 if form1.CheckBox3.Checked then
 begin
 masopt_u(255,xf,yf);
 ff:=ExtractFilePath(form1.MaskEdit1.Text)+id+'.tj7';
 masw_u(255,0,yf,ff);
 end;
 application.ProcessMessages;
 if form1.MaskEdit6.Text<>'' then
 PsevdoSQL_u(form1.MaskEdit6.Text);
 for i1:=0 to y-1 do
 if masr_u(254,1,i1)=id then
 begin
 if form1.CheckBox3.Checked then
 begin
 i2:=pos('TId',masr_u(254,0,i1));
 if i2>0 then
 masw_u(254,0,i1,copy(masr_u(254,0,i1),1,i2-1)+id+copy(masr_u(254,0,i1),i2+3,255));
 end;
// *** И дальше в том же духе

    Автор сего поделия, кусок которого приведён выше (привёл бы полностью, но там 160 строк), называет ЭТО "сервером распределённых вычислений" и "самой прогрессивной СУБД в мире, которая лучше всех этих ваших ораклов. При этом автор вроде как и не школьник...

    Vinny_the_POOH, 17 Сентября 2010

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

  2. Куча / Говнокод #4272

    +144

    1. 1
    http://nemolaboratory.ru/blog/about_a_miscellaneous/Nemo-Laboratory-About

    Напишите здесь все свои замечания, буду благодарен

    nemo, 17 Сентября 2010

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

  3. PHP / Говнокод #4271

    +123

    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
    <? include ("header.php");
include ("../setup.php");
$resultg=mysql_query("select * from seting ");
$rog=mysql_fetch_array($resultg);
?>

<center><h4><font color=7C87C2>Настройка Казино</font></h4><br></center>


<table border="0" align="center" cellpadding="0" cellspacing="10">
<FORM action=config.php method=post>
<TR><td>Логин админа : </td><TD><INPUT size=40 name=alog value=<? echo $rog[0] ?>></TD></TR>
<TR><td>Пароль админа </td><TD><INPUT size=40 name=apas value=<? echo $rog[1] ?>></TD></TR>
<TR><td>Email казино</td><TD><INPUT size=40 name=adm_email value=<? echo $rog[2] ?>></TD></TR>
<TR><td>ICQ казино (если нет то пусто)</td><TD><INPUT size=40 name=icq value=<? echo $rog['icq'] ?>></TD></TR>
<TR><td>url казино (начиная с http:// и без "/" конце)</td><TD><INPUT size=40 name=cas_url value=<? echo $rog[3] ?>></TD></TR>
<TR><td>Название казино</td><TD><INPUT size=40 name=cas_name value=<? echo $rog[4] ?>></TD></TR>
<TR><td>Партнерские</td><TD><INPUT size=20 name=pcash value=<? echo $rog['pcash'] ?>> %</TD></TR>

<TR><td><b>Высылать Email админу:</b></td><TD></TD></TR>
<TR><td>При пополнение счета</td><TD><input type=checkbox name="paymail" value="yes"<? if($rog["paymail"] == 'yes') { echo ' checked'; } ?>></TD></TR>
<TR><td>Зарегился новый игрок</td><TD><input type=checkbox name="regmail" value="yes"<? if($rog["regmail"] == 'yes') { echo ' checked'; } ?>></TD></TR>
<TR><td>Вывод средств</td><TD><input type=checkbox name="zakmail" value="yes"<? if($rog["zakmail"] == 'yes') { echo ' checked'; } ?>></TD></TR>

<TR>

<td bgcolor="#FFFFFF"><font face="Verdana" size="2">

<span style="background-color: #FFFFFF">Сумма ежедневных бонусов WMR(разделитель .)</span></font></td>

<TD bgcolor="#FFFFFF"><font face="Verdana">

<INPUT size=10 name=us_bonus value="<? echo $rog['bonus'] ?>"></font></TD>

</TR>


<TR><td><b>Настройка Roboxchange.com</b></td><TD></TD></TR>
<TR><td>LOGIN в Robox</td><TD><INPUT size=40 name=mrh_login value=<? echo $rog[5] ?>></TD></TR>
<TR><td>PASS1 в Robox</td><TD><INPUT size=40 name=mrh_pass1 value=<? echo $rog[6] ?>></TD></TR>
<TR><td>PASS2 в Robox</td><TD><INPUT size=40 name=mrh_pass2 value=<? echo $rog[7] ?>></TD></TR>

<TR><TD><INPUT type=hidden value=1 name=send><INPUT type=hidden value=<? echo $rog[cas_bon] ?> name=cas_bon><INPUT type=submit value="Сохранить"></TD></TR>
</FORM>
</table>


<?

if ($send=="1"){
mysql_query("UPDATE seting SET alog='$alog',apas='$apas',adm_email='$adm_email',cas_url='$cas_url',cas_name='$cas_name',mrh_login='$mrh_login',mrh_pass1='$mrh_pass1',mrh_pass2='$mrh_pass2',pcash='$pcash',cas_bon='$cas_bon',bonus='$us_bonus',paymail='$paymail',regmail='$regmail',zakmail='$zakmail',icq='$icq'");
echo "<script> alert('Настройки сохранены!'); document.location.href='config.php';</script>";
}

include ("footer.php"); ?>

    Кусок Скрипта готового Казино

    Vasiliy, 17 Сентября 2010

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

  4. C++ / Говнокод #4270

    +178

    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
    прислали реальный код:
while(i --> 10) { }

придумано, но выглядят эффектно:
while (i <- 10) {}

while( *i* *i* *i* *i* (4 /* раза повторить *i* */) > 0) {}

int n = i ** i;

int n = i ********* i;

int n = a / * b; // это не открытие комментария - там пробел есть

int n = a? 0:-E; /* типа смайлик 0 : - E в коде */

или даже

while(myclass<i> *a2) {}
что на самом деле является вот этим:

int myclass = 0;
int *a2 = &myclass;
while( (myclass < i) > *a2) {}

    о неправильной расстановке пробелов...
    или за что нужно убивать.

    ctm, 17 Сентября 2010

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

  5. PHP / Говнокод #4269

    +148

    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
    $temp_leader=array();
//получаю список всех пользователей
$resUser = CUser::GetList($by = 'ID', $order = 'ASC', array("ACTIVE"=>"Y"));
while ($arUser = $resUser->Fetch())
{
        //получаю для конкретного юзера элементы
        $resElementUser = CIBlockElement::GetList(Array(), Array('ACTIVE'=>"Y", 'IBLOCK_ID'=>"45", 'CREATED_BY'=>$arUser['ID'], ">PROPERTY_POINT_FISH"=>"1"), false, false, Array("PROPERTY_POINT_FISH", "ID"));
        $p=0;
        while ($arElementUser = $resElementUser->Fetch())
        {
                $p++;
                $arElementUser111[] = $arElementUser;
                $tempElementUser[] =  $arElementUser;
        }
        for ($i=0; $i<$p; $i++)
        {
                $temp_fish[$i] = $arElementUser111[$i]["PROPERTY_POINT_FISH_VALUE"];
        }
        //надо подсчитать количество видов у пользователя
        if (count($temp_fish)>0)
        {
                if (count($temp_fish) == 1)
                {
                        $count_fish = 1;
                }
                else
                {
                        $res = array_count_values($temp_fish);
                        $count_fish = count($res);
                }
                //если еще меньше 6 лидеров то надо в массив писать лидера без проверок
                if (count($temp_leader)<6)
                {
                        $temp_leader[]=$count_fish;
                        $temp_login[]= get_user_name($arUser['ID']);
                        $temp_user[]=$arUser['ID'];
                }
                //иначе выявляю min и запоминаю позицию его и если у текущего пользователя больше min то пишем в массив
                else
                {
                        $min = $temp_leader[0];
                        $temp_pos = 0;
                        for ($i=1; $i<7; $i++)
                        {
                                if ($temp_leader[$i] < $min) {$min=$temp_leader[$i]; $temp_pos = $i;}
                        }
                        if ($count_fish > $min)
                        {
                                $temp_leader[$temp_pos] = $count_fish;
                                $temp_login[$temp_pos]= get_user_name($arUser['ID']);
                                $temp_user[$temp_pos] = $arUser['ID'];
                        }
                }
                unset($temp_fish);
                unset($tempElementUser);
                unset($arElementUser111);
        }
}
for ($i=0;$i<count($temp_leader);$i++)
{
        for ($j=count($temp_leader)-1; $j>$i; $j--)
        {
                if ($temp_leader[$j-1]<$temp_leader[$j])
                {
                        $per = $temp_leader[$j-1];
                        $temp_leader[$j-1] = $temp_leader[$j];
                        $temp_leader[$j] = $per;

                        $per1 = $temp_login[$j-1];
                        $temp_login[$j-1] = $temp_login[$j];
                        $temp_login[$j] = $per1;

                        $per2 = $temp_user[$j-1];
                        $temp_user[$j-1] = $temp_user[$j];
                        $temp_user[$j] = $per2;
                }
        }
}

    atarix12, 17 Сентября 2010

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

  6. C# / Говнокод #4268

    +129

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    if (obj == null)
	return 0;
if (obj == DBNull.Value)
	return 0;
return int.Parse (obj.ToString ());

    в столбце хранится Integer...

    akai_mirror, 17 Сентября 2010

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

  7. C# / Говнокод #4267

    +144

    1. 1
    Response.Write ("<script>window.open (\"~/DownloadFile.aspx?FileID=" + e.id + "\")</script>");

    akai_mirror, 17 Сентября 2010

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

  8. Куча / Говнокод #4266

    +137

    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
    <html>
  <head>
    <meta http-equiv='content-type' content='text/html; charset=windows-1251' />
  </head>
  <body onload="try { document.getElementById('l').submit(); } catch(e) { document.getElementsByTagName('form')[0].submit(); }">
    <form id='l' method='post' action='http://vkontakte.ru/login.php'>
      <input type='hidden' name='s' value='53e713f48947d0cc53226754900179a58f3de5a05c24158804e3158f' />
            <input type='hidden' name='op' value='slogin' />
      <input type='hidden' name='redirect' value='1' />
      <input type='hidden' name='expire' value='0' />
      <input type='hidden' name='to' value='' />
    </form>
  </body>
</html>

    Нет, ну серьезно, зачем это?
    Этот велосипед для того, чтобы логинить сразу и на vk.com, и на vkontakte.ru?
    Так при разлогине такого нет, vk.com остается залогиненым вроде как.
    И через vk.com сидеть невозможно, если на vkontakte.ru не залогинен - много ссылок ведут на vkontakte.ru (неотрефакторили, видимо).
    И вообще - <meta http-equiv='content-type' content='text/html; charset=windows-1251' /> на самом популярном российском сайте, который к тому же стремится стать интернациональным...
    Я даже не знаю, как это помягче обозвать.

    7ion, 16 Сентября 2010

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

  9. Куча / Говнокод #4265

    +143

    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
    uses graph, crt;
var gd,gm,i:integer;
    x0,y0,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,l,r:integer;
procedure calculationx(r:integer);
begin
  x1:=x0;
  x2:=x0+trunc(r*sin(36*pi/180));
  x3:=x0-trunc(r*cos(18*pi/180));
  x4:=x0+trunc(r*cos(18*pi/180));
  x5:=x0-trunc(r*sin(36*pi/180));
end;
procedure drow(x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer);
begin
  line(x1,y1,x2,y2);
  line(x2,y2,x3,y3);
  line(x3,y3,x4,y4);
  line(x4,y4,x5,y5);
  line(x5,y5,x1,y1);
end;
procedure stars(r:integer); var y1,y2,y3,y4,y5:integer;
begin
  calculationx(r);
  y1:=y0-r;
  y2:=y0+trunc(r*cos(36*pi/180));
  y3:=y0-trunc(r*sin(18*pi/180));
  y4:=y0-trunc(r*sin(18*pi/180));
  y5:=y0+trunc(r*cos(36*pi/180));
  drow(x1,y1,x2,y2,x3,y3,x4,y4,x5,y5);
  r:=trunc(r*sin(18*pi/180)/sin(126*pi/180));
  calculationx(r);
  y1:=y0+r;
  y2:=y0-trunc(r*cos(36*pi/180));
  y3:=y0+trunc(r*sin(18*pi/180));
  y4:=y0+trunc(r*sin(18*pi/180));
  y5:=y0-trunc(r*cos(36*pi/180));
  drow(x1,y1,x2,y2,x3,y3,x4,y4,x5,y5);
  if (r>0) then stars(trunc(r*sin(18*pi/180)/sin(126*pi/180)));
end;
begin
  read(l);
  initgraph(gd,gm,'');
  x0:=getmaxx div 2;
  y0:=getmaxy div 2;
  r:=trunc(l/cos(18*pi/180)/2);
  {circle(x0,y0,r);}
  stars(r);
  readkey;
end.

    классический унылый быдлокод, или "за что я ненавижу паскаль"

    описание автора:

    Известно, что у правильной пятиконечной звезды вершины лежат в вершинах правильного пятиугольника. Так же пятиугольник образуется при пересечении ее сторон. Так что в пентаграмму можно вписать еще одну пентаграмму. Что, собственно, я и сделала.
    После несложных операций с рисунками мне удалось определить углы между стороной пентакла и отрезком, соединяющим вершину и центр, и между стороной правильного пятиугольника и высотой (медианой) к ней. Из углов удалось рассчитать нужные соотношения.
    Попробуйте самостоятельно посчитать их, прежде чем читать решение.
    Построение
    Программа нарисует звезду по длине ее стороны. Т.е. программе нужен расчет координат вершин и длины меньшей звезды от большей. Я использовала рекурсию для рисования звезды.

    http://clubs.ya.ru/4611686018427394475/replies.xml?item_no=1045&nocookiesupport =yes

    Lure Of Chaos, 16 Сентября 2010

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

  10. Си / Говнокод #4264

    +98

    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
    //
// Замена блоков __try/__finally нашей реализацией. Примеры использования:
// NTSTATUS SomeFunc() {
//     X *p = NULL;
//     NTSTATUS status = STATUS_SUCCESS;
//     Try {
//         p = new(NonPagedPool) X;
//         if (!p) Leave(status = STATUS_INSUFFICIENT_RESOURCES);
//
//         status = SomeKernelFunc();
//         LeaveNS(status = STATUS_UNSUCCESSFUL);
//     } Finally {
//         if (p) delete p;
//     }
//     return status;
// }
//
#define Try if (1)
#define Finally try_exit: NOTHING
#define Leave(s) { s; goto try_exit; }
#define LeaveNS(s) {if (!NT_SUCCESS(status)) Leave(s);}
#define Run(s) {status = s; LeaveNS(;);}

    Суровые исключения для Win32 драйвера

    rat4, 16 Сентября 2010

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