По колено в коде — Говнокод.ру

JavaScript / Говнокод #6598

+161

1

var ptzReq = auction.responseText.slice(auction.responseText.indexOf('id="ptzReq'+id+'"')+18+id.toString().length, auction.responseText.indexOf('id="ptzReq'+id+'"')+51+id.toString().length);

Зато здесь хотя-бы нет jQuery.

popoffka, 08 Мая 2011

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

PHP / Говнокод #6597

+166

01
02
03
04
05
06
07
08
09
10

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

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

PHP / Говнокод #6596

+170

1
2
3
4
5
6

$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

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

PHP / Говнокод #6595

+163

1

str_replace('-','/',date("Y-m-d",($from+(60*60*24*$i))))

Как-то очень спешил и сам себе наговнокодил, ну куда деваться, со всеми бывает )

stasyan, 08 Мая 2011

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

Pascal / Говнокод #6594

+78

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

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

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

PHP / Говнокод #6593

+162

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

$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

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

Pascal / Говнокод #6592

+147

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

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

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

Pascal / Говнокод #6591

+147

01
02
03
04
05
06
07
08
09
10
11
12
13

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

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

Pascal / Говнокод #6590

+147

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

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

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

Pascal / Говнокод #6589

+147

1
2
3
4
5
6
7

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

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

Говнокод: по колено в коде.

JavaScript / Говнокод #6598

PHP / Говнокод #6597

PHP / Говнокод #6596

PHP / Говнокод #6595

Pascal / Говнокод #6594

PHP / Говнокод #6593

Pascal / Говнокод #6592

Pascal / Говнокод #6591

Pascal / Говнокод #6590

Pascal / Говнокод #6589