-
Лучший говнокод
- В номинации:
-
- За время:
-
-
+96
- 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
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Transparent:=true;
Image1.Picture.LoadFromFile('ab.bmp');
inbot:='1';
wkbot:='1';
Memo1.Text:='';
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
statusbar1.Panels.Items[0].Text:='Клиент подключон';
si:='log.txt';
assignfile(fi,si);
reset(fi);
for i:=0 to 1590 do begin
Readln(fi, a);
b:=b+a;
end;
Memo1.Lines.Add(b);
CloseFile(fi);
statusbar1.Panels.Items[0].Text:='Ожидание подключения клиента';
Button2.Enabled:=false;
end;
Ещё один говнокод от ВебКилла. MOAR!!!!111: http://3.webkill.ru/socket_messager.html
Govnocoder#0xFF,
13 Апреля 2011
-
+149
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
<?php
...
echo "<table border=1>";
for($j = 0; $j < 7; $j++)
{
echo "<tr>";
for($i = 0; $i < count($week); $i++)
{
if(!empty($week[$i][$j]))
{
if($j == 5 || $j == 6)
echo "<td><font color=red>".$week[$i][$j]."</font></td>";
else echo "<td>".$week[$i][$j]."</td>";
}
else echo "<td> </td>";
}
echo "</tr>";
}
echo "</table>";
?>
Колендарик =) хочу сделать windows в виде html,это реально сделать?точней ввиде"сайта"
BlackMonolit,
11 Апреля 2011
-
+168
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
template <typename T> T min3 (T v1, T v2, T v3) {
T min = v1;
if (min > v2)
min = v2;
if (min > v3)
min = v3;
return min;
};
template <typename T> T max3 (T v1, T v2, T v3) {
T max = v1;
if (max < v2)
max = v2;
if (max < v3)
max = v3;
return max;
};
Как говорится - главное, чтоб работало.
panter_dsd,
04 Апреля 2011
-
+141
Смотрим хтмл код в самом низу.
alex322,
15 Марта 2011
-
+123
- 1
- 2
- 3
if (!(IsPostBack == true))
// далее везде, см. ссылку
Реальный индус (Thoothukudi, Tamil Nadu, India) в реальном вопросе на StackOverflow (http://stackoverflow.com/questions/5295149/) наложил натуральную кучу говна.
abatishchev,
14 Марта 2011
-
+168
- 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
function ProcButton0()
{
var s=document.getElementById("InputN").value;
if (s!="")
{
s+="0";
}
document.getElementById("InputN").value=s;
}
function ProcButton1()
{
document.getElementById("InputN").value+="1";
}
function ProcButton2()
{
document.getElementById("InputN").value+="2";
}
function ProcButton3()
{
document.getElementById("InputN").value+="3";
}
function ProcButton4()
{
document.getElementById("InputN").value+="4";
}
function ProcButton5()
{
document.getElementById("InputN").value+="5";
}
function ProcButton6()
{
document.getElementById("InputN").value+="6";
}
function ProcButton7()
{
document.getElementById("InputN").value+="7";
}
function ProcButton8()
{
document.getElementById("InputN").value+="8";
}
function ProcButton9()
{
document.getElementById("InputN").value+="9";
}
function ProcButtonClear()
{
document.getElementById("InputN").value="";
}
С сайта о программировании (#5809).
http://codesite.hut2.ru/JavaScriptTests/Factorial/
7ion,
26 Февраля 2011
-
+131
- 1
if (Edit40.Text<>t1) and (Edit38.Text<>t1) and (Edit36.Text<>t1) and (Edit34.Text<>t1) and (Edit32.Text<>t1) and (Edit30.Text<>t1) and (Edit28.Text<>t1) and (Edit26.Text<>t1) and (Edit24.Text<>t1) and (Edit22.Text<>t1) and (Edit20.Text<>t1) and (Edit18.Text<>t1) and (Edit16.Text<>t1) and (Edit14.Text<>t1) and (Edit12.Text<>t1) and (Edit10.Text<>t1) and (Edit8.Text<>t1) and (Edit6.Text<>t1) and (Edit4.Text<>t1) and (edit2.Text<>t1) ...
Старый мем с форума:
"Здрасте, вообщем такая проблемка:
У меня Unit10.pas занимает 13378 КБ (13.0 МБ)
И при работе в коде 10 формы после 5-10 изменений делфи начинает виснуть на 5-20 сек. (приходится вырезать весь текс кроме нужной процедуры и т.д, вставлять в блокнот, писать процедуру и затем обратно вставлять в делфи вырезанный текст из блокнота).
И компелируется тож долговато.
Всего 59988 строк.
На строчке 400-500 знаков (эт только там где условие, но часть условия(для удобства) переходит на 2 строчку (если все вместить, то будет примерно 35000 строк))
____________________________________
Постараюсь нормально сформулировать что хочу сделать.
Есть часть условия:
(код выше. прим. ReallyBugMeNot)
____________________________________
Оно повторяется если быть точным 4200 раз.
Изменяются только "номера\имена" эдитов (только четные от 2 до 240) и "t1" (t2, t3, t4, .. ,t35).
Хотелось бы задать переменную (Например "Z") и присвоить ей это условие, но так чтобы переменные "t1, t2, t3, .. ,t35)" и "имена\номера" эдитов задавались в каждой процедуре (всего 6 процедур), где находится оставшееся часть условия.
Можите подсказать как мне это реализовать?
Зарание спс."
Остается только удивлятся терпеливости человека, который позволил исходнику разростись до тринадцати мегов, прежде чем заметил, что что то не так.
ReallyBugMeNot,
25 Февраля 2011
-
+163
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
function tpl_include($filepath) {
global $lang;
global $lang_array;
$tpl_body = file_get_contents($filepath);
$tpl_body = preg_replace('/\{loop \$(.*?)\}\n(.*?)\n\{\/loop\}/i', "\nEOL;\nforeach ($\\1 as \$var=>\$val) echo <<<EOL\n\\2\nEOL;\necho <<<EOL\n", $tpl_body);
$to_eval = "echo <<<EOL\n".$tpl_body."\nEOL;\n";
eval($to_eval);
}
Вчера срочно и быстро понадобился шаблонизатор в один проект.
Синтаксис: {$variable} и
{loop $some_array}
$var хранит $val
{/loop}
7ion,
13 Февраля 2011
-
+155
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
#if __STDC_WANT_SECURE_LIB__
_Check_return_wat_ _CRTIMP_ALTERNATIVE errno_t __cdecl wcscat_s(_Inout_z_cap_(_SizeInWords) wchar_t * _Dst, _In_ rsize_t _SizeInWords, _In_z_ const wchar_t * _Src);
#endif
__DEFINE_CPP_OVERLOAD_SECURE_FUNC_0_1(errno_t, wcscat_s, _Deref_prepost_z_ wchar_t, _Dest, _In_z_ const wchar_t *, _Source)
__DEFINE_CPP_OVERLOAD_STANDARD_FUNC_0_1(wchar_t *, __RETURN_POLICY_DST, _CRTIMP, wcscat, _Pre_cap_for_(_Source) _Prepost_z_, wchar_t, _Dest, _In_z_ const wchar_t *, _Source)
_Check_return_ _CRTIMP _CONST_RETURN wchar_t * __cdecl wcschr(_In_z_ const wchar_t * _Str, wchar_t _Ch);
_Check_return_ _CRTIMP int __cdecl wcscmp(_In_z_ const wchar_t * _Str1, _In_z_ const wchar_t * _Str2);
#if __STDC_WANT_SECURE_LIB__
_Check_return_wat_ _CRTIMP_ALTERNATIVE errno_t __cdecl wcscpy_s(_Out_z_cap_(_SizeInWords) wchar_t * _Dst, _In_ rsize_t _SizeInWords, _In_z_ const wchar_t * _Src);
#endif
Хедеры из Microshit Visual Studio. Там так почти везде...
Говногость,
02 Февраля 2011
-
+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
if(!isset($_SESSION['captcha'])) $error = "Please Enable Cookies";
else {
$name = $_POST["name"];
$msg = $_POST["msg"];
if(strlen($msg) <= 2)
{ $error = "слишком маленькое сообщение"; }
else if($_POST["captcha"] !== $_SESSION["captcha"])
{ $error = "символы не введено не верно"; }
else if(strlen($name) > 25)
{ $error = "слишком длиное имя"; }
else if(strlen($msg) > 256)
{ $error = "слишком длиное сообщение"; }
else if(strlen($name) > 25 && strlen($msg) >256)
{ $error = "слишком длинное имя и сообщение"; }
else if(strlen($name) <= 25 && strlen($msg) <=256)
{
$msg = str_value($msg);
if($msg == "") $error = "введите сообщение";
else {
write_file($name,$msg);
$d2d_1 = mktime(0,0,0,1,1,2037);
setcookie('nameData',$name,$d2d);
$error = "";
}
}
}
}
сперто из гостевой книги
skylex_hacker,
21 Января 2011
Follow us!