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

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)

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

+147

1
2
3
4
5
6
7
8
9

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

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

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

+147

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

unit Unit113145;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, OleCtrls, SHDocVw, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    XPManifest1: TXPManifest;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  msg:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
msg1:string;
msg:string;
msg2:string;
begin
msg:=ansiToUtf8(edit1.text);
msg1:=ansiToUtf8(edit2.text);
msg2:=ansiToUtf8(edit3.text);
ShellExecute(Handle, 'open', 'http://galaxy.mobstudio.ru//services/index.php?userID=&password=&usercur=&a=lottery_house&choise=right&lot_id=+&&kbv=92&lngg=ru&dbl=2%20HTTP/1.1', nil, nil, SW_RESTORE);
end;

end.

Говно Код
Что то тут не так помогите изменить чтоб все было правильно
Всяким антиначаям и скачям
не писать

megaruliz, 07 Мая 2011

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

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

+159

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

if (!$vid['video_code']) {
        $vars['player'] = 'Онлайн промотр недоступен (не указан плеер)';
        if ($vid['image'] != '') {
            $vars['image'] = RealPath2($config['video']['images_dir'] . SafeDB($vid['image'], 255, str));
            $vars['thumb_image'] = RealPath2($config['video']['images_dir'] . 'thumbs/' . SafeDB($vid['image'], 255, str));
        } else {
            $vars['image'] = false;
        }
    } else {
        if (!$user->Auth and $config['video']['hide_video_guest']) {
            $vars['player'] = '<a href="index.php?name=user&op=registration">Зарегистрируйтесь для просмотра видео онлайн.</a>';
            if ($vid['image'] != '') {
                $vars['image'] = RealPath2($config['video']['images_dir'] . SafeDB($vid['image'], 255, str));
                $vars['thumb_image'] = RealPath2($config['video']['images_dir'] . 'thumbs/' . SafeDB($vid['image'], 255, str));
            } else {
                $vars['image'] = false;
            }
        } else {
            $vars['player'] = $vid['video_code'];
            $vars['image'] = false;
        }
    }

Мартин, 07 Мая 2011

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

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

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

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

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

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

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

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

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

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

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

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