- 1
- 2
- 3
...
w << (byte)(char)0x00;
...
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+170
...
w << (byte)(char)0x00;
...
вывод в файл нулевого байта, иначе не работало
+163
//table[0][i] - win1251
table[0][0]=0xA8;
for (q=192;q<=255;q++) {
table[0][q-191]=(byte)q;
}
table[0][65]=0xB8;
//table[1][i] - KOI8
table[1][0]=0xB3; table[2][1]=0xE1; table[1][2]=0xE2; table[1][3]=0xF7; table[1][4]=0xE7; table[1][5]=0xE4;
table[1][6]=0xE5; table[1][7]=0xF6; table[1][8]=0xFA; table[1][9]=0xE9; table[1][10]=0xEA; table[1][11]=0xEB;
table[1][12]=0xEC; table[1][13]=0xED; table[1][14]=0xEE; table[1][15]=0xEF; table[1][16]=0xF0; table[1][17]=0xF2;
table[1][18]=0xF3; table[1][19]=0xF4; table[1][20]=0xF5; table[1][21]=0xE6; table[1][22]=0xE8; table[1][23]=0xE3;
table[1][24]=0xFE; table[1][25]=0xFB; table[1][26]=0xFD; table[1][27]=0xFF; table[1][28]=0xF9; table[1][29]=0xF8;
table[1][30]=0xFC; table[1][31]=0xE0; table[1][32]=0xF1; table[1][33]=0xC1; table[1][34]=0xC2; table[1][35]=0xD7;
table[1][36]=0xC7; table[1][37]=0xC4; table[1][38]=0xC5; table[1][39]=0xD6; table[1][40]=0xDA; table[1][41]=0xC9;
table[1][42]=0xCA; table[1][43]=0xCB; table[1][44]=0xCC; table[1][45]=0xCD; table[1][46]=0xCE; table[1][47]=0xCF;
table[1][48]=0xD0; table[1][49]=0xD2; table[1][50]=0xD3; table[1][51]=0xD4; table[1][52]=0xD5; table[1][53]=0xC6;
table[1][54]=0xC8; table[1][55]=0xC3; table[1][56]=0xDE; table[1][57]=0xDB; table[1][58]=0xDD; table[1][59]=0xDF;
table[1][60]=0xD9; table[1][61]=0xD8; table[1][62]=0xDC; table[1][63]=0xC0; table[1][64]=0xD1; table[1][65]=0xA3;
// table[2][i] - CP866
table[2][0]=0xf0;
for (q=128;q<=175;q++) {
table[2][q-127]=(byte)q;
}
for (q=224;q<=239;q++) {
table[2][q+49-224]=(byte)q;
}
table[2][65]=0xf1;
// table[3][i] - Unicode
table[3][0]=0x01;
for (q=16;q<=79;q++) {
table[3][q-15]=(byte)q;
}
table[3][65]=0x51;
Таблица кодировок.
+157
void QeLabel::mouseReleaseEvent(QMouseEvent *ev) {
switch (ev->button()) {
case Qt::LeftButton : {
click++;
click %=2;
if (click == 0) {
emit dbl_clicked(id);
}
emit clicked(id);
break;
}
default: break;
}
}
сигналы на нажатие мыши
−187
SELECT ....
CASE WHEN [StatusChange] = 0 THEN 0
WHEN [StatusChange] = 1 THEN 1 -- "желтый", изменен
WHEN [StatusChange] = 2 THEN 2-- "серый", исключенный пункт
WHEN [StatusChange] = 3 THEN 3 -- "светло-зеленый", добавленный пункт
WHEN [StatusChange] = 4 THEN 4-- "зеленый", добавленный и измененный пункт
ELSE 100
END AS 'StatusColor'
FROM ....
+95
program z1;
function func (x: real): real;
const e = 0.000000000000001; {15 знаков после запятой}
var f: real; {переменая для расчета двойного факториала}
i, k: integer; {счетчик проходов, i-общий, k-частный}
d: real; {добавляемая дельта}
y: real; {переменная искомого значения}
begin
y := 1.0;
i := 1;
repeat
f := 1; {----------}
k := i; {--расчет--}
while (k >= 2) do begin {-двойного-}
f := f * k; {факториала}
k := k - 2; {----------}
end; {----------}
d := 1; {---------------------}
for k := 1 to i do {считаем степень числа}
d := d * x; {---------------------}
d := d / f; {-----------------находим d-----------------}
if (d < e) then break; {проверяем ее на попадание в разрядную сетку}
y := y + d;
i := i + 1;
until (false);
func := y;
end;
var x: real;
begin
write ('Введите x: ');
readln (x);
writeln ('y = ', func (x):3:15);
end.
+166
if (strpos($arFields['URL'],'detail.php')!==false ||
strpos($arFields['URL'],'sea.php')!==false ||
strpos($arFields['URL'],'add.php')!==false ||
strpos($arFields['URL'],'form.php')!==false ||
strpos($arFields['URL'],'/atlas-update/')!==false ||
strpos($arFields['URL'],'auth')!==false ||
strpos($arFields['URL'],'sect_')!==false ||
strpos($arFields['URL'],'search')!==false ||
strpos($arFields['URL'],'/forum1/')!==false)
{
return false;
}
else
return $arFields;
+147
Мой скромный говнокод для любителей фильтрации и xss
При записи в базу
$msg = stripslashes(htmlspecialchars(trim($_POST['msg']))); // Очищаем от мусора
Вывод из базы
function post($text, $html=true, $nl2br = true, $smiles = true, $bbcode = true)
{
if ($html)
{
$text=html_entity_decode($text, ENT_QUOTES, 'UTF-8'); // в базе в htmllenties обратная перекодировка
}
if($smiles)
{
$text = smiles($text);
}
if($bbcode)
{
$text = bbcode($text);
}
if($nl2br)
{
$text = nl2br($text);
}
return $text;
}
Недавно нашел в своем скрипте блога )
+163
// и нафига я использовал тут исключения? :)
try {
if(!trim($to)) throw new Exception('aдpecaт');
if(!trim($in['msg'])) throw new Exception('тeкcт');
if(!trim($in['subj'])) throw new Exception('тема');
} catch (Exception $e) {
raise_error('Отсутствует '.$e->GetMessage().' сообщения.', 'write.php?to='.$to.'&'.SID);
да, нафига?)
+164
// Emulate register_globals on
if (!ini_get('register_globals')) {
$superglobals = array($_SERVER, $_ENV,
$_FILES, $_COOKIE, $_POST, $_GET);
if (isset($_SESSION)) {
array_unshift($superglobals, $_SESSION);
}
foreach ($superglobals as $superglobal) {
extract($superglobal, EXTR_SKIP);
}
ini_set('register_globals', true);
}
PHP-Fusion, эмулятор register_globals
+138
function StripLeadingComma(str)
str = Ltrim(str)
if len(str) > 0 then
if Left(str,1) = "," then str = Mid(str,2)
end if
if len(str) > 0 then
if Left(str,1) = "," then str = Mid(str,2)
end if
if len(str) > 0 then
if Left(str,1) = "," then str = Mid(str,2)
end if
if len(str) > 0 then
if Left(str,1) = "," then str = Mid(str,2)
end if
StripLeadingComma = str
end function
function StripTrailingComma(str)
str = rtrim(str)
if len(str) > 0 then
if Right(str,1) = "," then str = Left(str,len(str)-1)
end if
if len(str) > 0 then
if Right(str,1) = "," then str = Left(str,len(str)-1)
end if
if len(str) > 0 then
if Right(str,1) = "," then str = Left(str,len(str)-1)
end if
if len(str) > 0 then
if Right(str,1) = "," then str = Left(str,len(str)-1)
end if
if len(str) > 0 then
if Right(str,1) = "," then str = Left(str,len(str)-1)
end if
if len(str) > 0 then
if Right(str,1) = "," then str = Left(str,len(str)-1)
end if
StripTrailingComma = str
end function
Классика жанра на production. ASP, VBScript.