- 1
- 2
- 3
function addGetParam($key,$value){
$_GET[$key]=$value;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+158
function addGetParam($key,$value){
$_GET[$key]=$value;
}
В аду найдется специальное место для таких :-)
+139
type
TCriricalThread = class (TThread)
private
FileS : integer;
Percent : integer;
DlSize : integer;
procedure SetMaxPos;
procedure SetCurPos;
procedure LockButton;
procedure DislockButton;
protected
Ну, уж если есть критические секции, почему бы не сделать критический поток?
TCriricalThread = class (TThread)
+88
program Project6;
{$APPTYPE CONSOLE}
uses SysUtils;
type TIntArr = array of integer;
function GetSingleArr (i: integer): TIntArr;
begin
SetLength(Result, 1);
Result[0] := i;
end;
var
W: TIntArr;
i : integer;
begin
readln(i);
if i=0 then begin
W := GetSingleArr(5);
WriteLn(W[0]);
end;
ReadLn;
end.
Delphi-7
[Warning] Project6.dpr(25): Variable 'W' might not have been initialized
Да какого хуя? Динмассив вообще по определению - чисто автоматический тип, как он может не инициализироваться?
И почему для других типов такая хрень не вылазит?
+163
$soobschenie = <<<ZDESDOCUMENT
Страйкер, бл� �, поправь уже эту е� �аную кодировку и исправь х� �йню, что html-сущности превращаются в <s>элегантные шор</s> в символы. Вот здесь было написано nbsp: " ".
ZDESDOCUMENT;
for ($i = 0; $i <= 9000; $i++)
mail('[email protected]', 'Fucking Report', $soobschenie);
Наболело.
+127
UINT32 GetHostName(char *hostName, UINT32 hostNameBufSize)
{
if (hostName == NULL ){
OSALTRACE(OSAL_ERROR, ("Error: Input parameter hostName(null)."));
return -1;
}
FILE *fp = NULL;
static char buffer[512];
char tag[64];
// hope this size will be OK for one line to read from the fileOB
char line[1000];
char *linep=line;
int buffSize = sizeof(buffer);
int found = 0;
fp = fopen("/etc/resolv.conf", "r");
if ( fp == NULL)
{
OSALTRACE(OSAL_ERROR, ("failed to open resolver config file."));
return -1;
}
while ( ((*linep=getc(fp)) != EOF) && !found )
{
if (*linep++ == '\n')
{
*linep = '\0';
sscanf(line, "%s %s", tag, buffer);
if (tag[0] && (!strcmp(tag, "search") || !strcmp(tag, "domain") ) ) {
found = 1;
break;
}
linep = line;
}
}
fclose(fp);
if ( found )
{
strcpy(hostName,buffer);
OSALTRACE(OSAL_DEBUG, ("DHCP domain is %s.", buffer));
}
else
{
OSALTRACE(OSAL_ERROR, ("Could not find dhcp domain in resolv.conf."));
return -1;
}
return !found;
}
Intel WiMAX Network Service, не какая-то пионерская поделка...
+128
include ("bd.php");// файл bd.php должен быть в той же папке, что и все остальные, если это не так, то просто измените путь
$result4 = mysql_query ("SELECT avatar FROM users WHERE activation='0' AND UNIX_TIMESTAMP() - UNIX_TIMESTAMP(date) > 3600");//извлекаем аватарки тех пользователей, которые в течении часа не активировали свой аккаунт. Следовательно их надо удалить из базы, а так же и файлы их аватарок
if (mysql_num_rows($result4) > 0) {
$myrow4 = mysql_fetch_array($result4);
do
{
//удаляем аватары в цикле, если они не стандартные
if ($myrow4['avatar'] == "avatars/net-avatara.jpg") {$a = "Ничего не делать";}
else {
unlink ($myrow4['avatar']);//удаляем файл
}
}
while($myrow4 = mysql_fetch_array($result4));
}
Вот как учат детей программировать там http://ruseller.com/lessons.php?rub=37&id=369
просто умер от этого while($myrow4 = mysql_fetch_array($result4));
+171
// Remove empty tags (three times, just to be sure).
html = html.replace( /<([^\s>]+)(\s[^>]*)?>\s*<\/\1>/g, '' ) ;
html = html.replace( /<([^\s>]+)(\s[^>]*)?>\s*<\/\1>/g, '' ) ;
html = html.replace( /<([^\s>]+)(\s[^>]*)?>\s*<\/\1>/g, '' ) ;
найдено в коде FCKEditor - редактора для веб-интерфейса
+162
void __fastcall TForm1::Button1Click(TObject *Sender)
{
bool Valid = true;
bool f1;
bool f2;
unsigned step = 0;
for( bool x1=false; x1<2; x1++ )
for( bool x2=false; x2<2; x2++ )
for( bool x3=false; x3<2; x3++ )
for( bool x4=false; x4<2; x4++ )
for( bool x5=false; x5<2; x5++ )
for( bool x6=false; x6<2; x6++ )
for( bool x7=false; x7<2; x7++ )
for( bool x8=false; x8<2; x8++ )
for( bool x9=false; x9<2; x9++ )
for( bool x10=false; x10<2; x10++ )
for( bool x11=false; x11<2; x11++ )
for( bool x12=false; x12<2; x12++ )
for( bool x13=false; x13<2; x13++ )
for( bool x14=false; x14<2; x14++ )
for( bool x15=false; x15<2; x15++ )
{
step++;
f1 = ( x1 && x2 || x3 && x4 || x5 && x6 && x7 || x8 && x9 && x10 ) && ( !x11 || x12 && x13 || x14 && x15 );
f2 = (!(!x1 || !x2) || !(!x3 || !x4) || !(!x5 || !x6 || !x7) || !(!x8 || !x9 || !x10)) && ( !(!x14 || !x15) || !x11 || !(!x12 || !x13) );
if ( f1 != f2 ) Valid = false; break;
}
if( Valid ) Application->MessageBox( "Функции идентичны", "Функции идентичны", MB_OK );
else Application->MessageBox( "NOT Valid", IntToStr(step).c_str(), MB_OK );
}
Проверка идентичности логических функций путем перебора аргументов.
+119
private static bool TryDeleteFile(string path)
{
try
{
File.Delete(path);
return true;
}
catch (IOException e)
{
return false;
}
catch (UnauthorizedAccessException e)
{
return false;
}
catch (ArgumentException ae)
{
return false;
}
catch (NotSupportedException e)
{
return false;
}
}
Простое удаление файла. Простая проверка в MSDN показывает, что перехватываются все возможные исключения
+243.6
format ELF
include 'macros.inc'
public main
extrn printf
extrn puts
extrn exit
extrn strtok
extrn getenv
extrn strcmp
extrn strtol
extrn strcpy
; Функции для общения с БД
extrn get_version ; ремейк на mysql_get_client_info()
extrn get_product_by_single_name_ex
CGI_HEADER db "Content-Type: text/html", 13,10, "X-Powered-by: FASM (Flat Assembler 1.68)",13,10,0
QUERY_STRING db ?
REQUEST_METHOD db ?
query_str_env_req db "QUERY_STRING", 0
request_method_env_req db "REQUEST_METHOD", 0
RM_GET db "GET", 0
RM_POST db "POST",0
NO_ACTION_ERROR_MSG db "No action", 0
q_token db "="
r_token db "&"
; Константы ACTION
AC_VERSION equ 0; Инфа о версии и копирайте
AC_PRODUCT_ID_BY_SINGLE_NAME equ 1; ID продукта по полному совпадению имени
section '.text' executable
_start:
main:
ccall puts, CGI_HEADER
ccall getenv, request_method_env_req
push eax
;c
xor eax, eax
pop eax
ccall strcmp, eax, RM_GET ; TODO: ЗМЕНИТЬ НА POST!!!1111
cmp eax, 0
jne quit
;Что прислали в Action. ( ТОЛЬКО GET )
ccall getenv, query_str_env_req
ccall strcpy, QUERY_STRING, eax
ccall strtok, QUERY_STRING, q_token
push eax
ccall strcmp, eax, "act"
cmp eax, 0
jne no_act
je act
no_act:
ccall puts, NO_ACTION_ERROR_MSG
jmp quit
act:
; Узнаём, что за опция в act
pop eax;
ccall strtok, 0, q_token
ccall strtol, eax, 0, 10
cmp eax, AC_VERSION
je version_put
cmp eax, AC_PRODUCT_ID_BY_SINGLE_NAME
je product_id_by_single_name
jne quit
version_put:
; версия - из mysql
ccall puts, "Web kernel v0.1. (c) 2009 by Sergei V. Adoniew ( [email protected] ) with MySQL: "
ccall get_version
ccall puts, eax
jmp quit
product_id_by_single_name:
;НА Входе: name=%docname%
;НА Выходе id
; дробим строку на a=b разделителем &
ccall getenv, "QUERY_STRING"
;у нас в eax вся строка
Собственный пьяный высер на фасме ( FASM ).
Обратить внимание на ветвление:)