Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+166
function utf8_substr($str,$start,$end){
preg_match_all("/./u", $str, $ar);
if(func_num_args() >= 3) {
$end = func_get_arg(2);
return join("",array_slice($ar[0],$start,$end));
} else {
return join("",array_slice($ar[0],$start));
}
}Вылысыпыдысты
telnet,
08 Мая 2011
+170
$letters = array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z");
foreach($letters as $x){
if(strpos($_POST['integers'], $x)){
die("No letters Please!");
}
}
Проверка переменной, нет ли в ней чего-нибудь кроме цифр.
Комментарий автора улыбнул ещё больше: "There might be a few bugs"
Источник: http://forums.tizag.com/showthread.php?t=2939
Axell,
08 Мая 2011
+163
str_replace('-','/',date("Y-m-d",($from+(60*60*24*$i))))Как-то очень спешил и сам себе наговнокодил, ну куда деваться, со всеми бывает )
stasyan,
08 Мая 2011
+78
procedure TForm1.WSocket1DataAvailable(Sender: TObject; ErrCode: Word);
var
msg,msg1: string;
begin
msg:=Wsocket1.ReceiveStr;
Memo1.Lines.add(UTF8DECODE(msg));
if copy(msg,0,8)='HAAAPSI ' then
begin
msg1:=Copy(msg,8,pos(msg,#20));
WSocket1.SendStr(':ru IDENT 34 -1 4030 :GALA'+#13#10);
if Edit1.Text='' then
exit;
WSocket1.SendStr('RECOVER ' +Edit1.Text+#13#10)
end
else if Copy(msg,0,9)='REGISTER ' then
begin
msg1:=copy(msg,9,length(msg));
WSocket1.SendStr('USER '+msg1+#13#10);
end
else if Copy(msg,0,5)='LBS 1' then
WSocket1.SendStr('GETPL'+#13#10)
else if Copy(msg,0,3)='822' then
begin
WSocket1.SendStr('JOIN'+#13#10);
WSocket1.SendStr('ADDONS'+#13#10);
WSocket1.SendStr('MYADDONS'+#13#10);
end
else if Copy(msg,0,4)='PING' then
WSocket1.SendStr('PONG'+#13#10);
end;
procedure TForm1.WSocket1DnsLookupDone(Sender: TObject; ErrCode: Word);
begin
WSocket1.Port:='6667';
WSocket1.Proto:='tcp';
WSocket1.Addr:=WSocket1.DnsResult;
WSocket1.Connect;
con:=true;
end;Говно код подкл. к чату галактика знакомств да еще по 34 протоколу его скоро закроют....
megaruliz,
08 Мая 2011
+162
$uploadedFileNameParts = explode('.',$fileName);
$uploadedFileExtension = array_pop($uploadedFileNameParts); //pathinfo($fileName, PATHINFO_EXTENSION);
//Это наверно круче и быстрей, чем array('jpeg', 'jpg', 'gif', 'png')
$validFileExts = explode(',', 'jpeg,jpg,png,gif');
$extOk = false;
foreach($validFileExts as $key => $value)
{
if( preg_match("/$value/i", $uploadedFileExtension ) )
{
$extOk = true;
}
}
// if(!in_array($fileExtension, array('png', 'jpg', 'gif', 'jpeg'), false)) не катит...
if ($extOk == false)
{
echo JText::_( 'INVALID EXTENSION' );
return;
}
//...
if( !is_int($imageinfo[0]) || !is_int($imageinfo[1]) || !in_array($imageinfo['mime'], $validFileTypes) )
{
//Кто нибудь встречал картинки с размером 0 на x(где x > 0)..?
//....
}Из туториала http://docs.joomla.org/Creating_a_file_uploader_in_your_compone nt ...
Jetti,
07 Мая 2011
+147
procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do
begin
SelStart := Length(Text);
SelAttributes.Color := AColor;
SelAttributes.Size := 8;
SelAttributes.Name := 'MS Sans Serif';
Lines.Add(AText);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AddColoredLine(RichEdit1, 'Govnokoder уебок', clRed);
AddColoredLine(RichEdit1, 'Govnocoder уебок', clGreen);
end;говнокодер уебак разными цветами
megaruliz,
07 Мая 2011
+147
Program n_a;
uses crt;
Var c:char; k: byte;
BEGIN
clrscr; k:=0;
Write(‘Введите текст:'); read(c);
Repeat
While(c=' ') and Not eoln Do Read(c);
inc(k);
While(c<>' ') and Not eoln Do Read(c);
Until eoln;
WriteLn('k= ',k:3);
END.так физматы находят сколько слов в тексте
megaruliz,
07 Мая 2011
+147
Program n_g;
uses crt;
Var c:char; st:string[50]; k: byte;
BEGIN clrscr;
k:=255;
Write('Vvedite tekst:');
read(c);
Repeat
While(c=' ') and (c<>#13 Do Read(c);
st:='';
While(c<>' ') and (c<>#13 Do Begin
st:=st+c;
Read(c); End;
WriteLn('st=',st);
If ord(st[0])<k Then k:=ord(st[0]);
Until c=#13;
WriteLn('k= ',k:3); readLn
END.Так физматы находят длинну самого короткого слова
megaruliz,
07 Мая 2011
+147
Procedure ks(s:string;q:char; var k:byte);
var i:byte;
Begin
k:=0;
For i:=1 To Length(s) Do
If s[i]=q Then inc(k);
End;Гавно код
megaruliz,
07 Мая 2011
+147
s1:=‘789’; s2:=’34.6’; s3:=‘3+2a’;
Val(s1,p,w); writeLn(p:4,w:2);
Val(s2,q,w); writeLn(q:6:1,w:2);
WriteLn(p+q:7:1);
Val(s3,p,w); writeLn(w);
s1:=‘Я Вас люблю’; WriteLn(s1);
q:=Length(s1); WriteLn(q);
p:=Pos(‘о’,s1); WriteLn(p);
p:=Pos(‘к’,s1); WriteLn(p);
megaruliz,
07 Мая 2011
Follow us!