Список говнокодов пользователя megaruliz

Всего: 9

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)

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)

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

+146

1
2

Говно код
form1.open

суперский код правда не работает

megaruliz, 07 Апреля 2011

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

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

+96

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

procedure TForm1.RegHttpRedirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
Log('Redirect № ' + IntToStr(NumRedirect)+ ' - '+ Dest ,  true, MainClr);
end;

procedure TForm1.HTTPCoreStatus(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
Log('Статус: '+ AStatusText, true, MainClr);
end;

{procedure TForm1.RegHttpW0rk(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin

end;}

лошарский код

megaruliz, 28 Февраля 2011

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

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

Список говнокодов пользователя megaruliz

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

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

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

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

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

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

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

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

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