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

Всего: 162

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

+125

1

Безопасная работа с Tstringlist из потоков

Товарищи, гламурно ли будет создать класс на базе tstringlist и все методы вызывать через criticalsection? Иначе потоки злобно ухмыляясь показывают голый член и грозят меня изнасиловать.

Stertor, 30 Июня 2013

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

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

+146

1

Бляяяяяяяяяяяяяяяяяяяяя! Где этот шекель??

Ваш сайт меня сильно испортил. Мне перестали нравиться голые парни, а вчера приснилось, как я деру телку. Не знаю, хорошо это или плохо, но как-то необычно.

Stertor, 30 Июня 2013

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

VisualBasic / Говнокод #13270

−111

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

var
  h,sh,g: integer;
label
   m2;
begin
  m2:
  application.ShowMainForm:=false;
  sleep(10);
  h:=FindWindow('#32770',nil);
  If h > 0 then
  sh:=FindWindowEx(h,0,'Static',nil);
  g:= findwindowex(h,sh,'Static',nil);
  SendMessage(g,WM_SETTEXT,0,lparam(LPCTSTR(' Свой текст  ')));// меняем текст в окне
  SetWindowText(FindWindow('#32770',Nil), 'Свой текст'); // меняем заголовок окна

if h = 0 then
Goto m2;
sleep(1000);
application.ProcessMessages;
exitprocess(0);
end;
end.

Ловля рыбы руками, как сказал бы капитан Очевидность.
Взято с филиала сайта go..okod.ru boolean.name, точнее
http://forum.boolean.name/showthread.php?p=262271#post262271

Stertor, 30 Июня 2013

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

VisualBasic / Говнокод #13269

−100

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

procedure TForm1.Button3Click(Sender: TObject);
var
list: TStringList;
begin
 list := TStringList.Create;
  WebBrowser1.Navigate('http://wmmail.ru/');
  list.Add('cf=akk-login');
  list.Add('ulogin=Мой логин');
  list.Add('pass=Мой пароль');
  list.Add('x=16');
  list.Add('y=18');
     list.Add('remember=on');
  try
memo1.lines.text := IdHTTP1.Post('http://wmmail.ru/index.php',list);
memo1.Lines.SaveToFile('aaa.htm');
WebBrowser1.Navigate(extractfilepath(application.exename)+'aaa.htm');

  finally

    list.Free;
    IdHTTP1.Disconnect;
  end;
end;

Автор наверно слабо понимал, что делает. Будем гуманны, товарищи!
Взято с http://forum.boolean.name/showthread.php?p=262338#post262338

Stertor, 30 Июня 2013

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

VisualBasic / Говнокод #13268

−112

01
02
03
04
05
06
07
08
09
10

NewList Chars.s( )

For Char = 0 To 1000
	AddElement( Chars( ) )
	Chars( ) = Chr( Char & 255 )
Next

StrListRemDups( Chars( ) )

Debug ListSize( Chars( ) ); должно быть 256, выводит 412

А вот так, товарищи, кодит Platon с Булки:
http://forum.boolean.name/showthread.php?t=18297

(_o_), (_._), (_O_)

На любой вкус )

Stertor, 30 Июня 2013

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

VisualBasic / Говнокод #13267

−110

01
02
03
04
05
06
07
08
09
10
11

ResetList( Chars( ) )
While NextElement( Chars( ) )
	Define Address.l = @Chars( )
	Define Reference.s = Chars( )
	While NextElement( Chars( ) )
		If Chars( ) = Reference
			DeleteElement( Chars( ) )
		EndIf
	Wend
	ChangeCurrentElement( Chars( ), Address )
Wend

ололо. Этот код ищет дубликаты в списке и лишает их невинности. Но поглядите товарищи, сколько же итераций должен выполнить цикл, чтобы дефлорировать все элементы! :O
Взято с http://forum.boolean.name/showthread.php?t=18297

Stertor, 30 Июня 2013

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

VisualBasic / Говнокод #13266

−109

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

; извлечь из архива список содержащихся в нем файлов
; jopaU - Jammed Objects Packaged Archive (Unit)
Procedure.s GetJopaList(JopaFilename.s)
  Protected Text.s = ""
  If FileExists(JopaFilename)
    OpenPack(JopaFilename)
    Text = PeekS(NextPackFile())
    Text = Left(Text, PackFileSize())
    ClosePack()
  EndIf
  ProcedureReturn Text
EndProcedure

>>JopaFilename

Название этой переменной как бы отображает сущность всей программы.
Взято с http://forum.boolean.name/showthread.php?t=15802

Stertor, 30 Июня 2013

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

Perl / Говнокод #13262

−121

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

* g o a t s e x * g o a t s e x * g o a t s e x *
g                                               g  
o /     \             \            /    \       o
a|       |             \          |      |      a
t|       `.             |         |       :     t
s`        |             |        \|       |     s
e \       | /       /  \\\   --__ \\       :    e
x  \      \/   _--~~          ~--__| \     |    x  
*   \      \_-~                    ~-_\    |    *
g    \_     \        _.--------.______\|   |    g
o      \     \______// _ ___ _ (_(__>  \   |    o
a       \   .  C ___)  ______ (_(____>  |  /    a
t       /\ |   C ____)/      \ (_____>  |_/     t
s      / /\|   C_____)       |  (___>   /  \    s
e     |   (   _C_____)\______/  // _/ /     \   e
x     |    \  |__   \\_________// (__/       |  x
*    | \    \____)   `----   --'             |  *
g    |  \_          ___\       /_          _/ | g
o   |              /    |     |  \            | o
a   |             |    /       \  \           | a
t   |          / /    |         |  \           |t
s   |         / /      \__/\___/    |          |s
e  |           /        |    |       |         |e
x  |          |         |    |       |         |x
* g o a t s e x * g o a t s e x * g o a t s e x *

* g o a t s e x * g o a t s e x * g o a t s e x *

g                                               g  

o /     \             \            /    \       o

a|       |             \          |      |      a

t|       `.             |         |       :     t

s`        |             |        \|       |     s

e \       | /       /  \\\   --__ \\       :    e

x  \      \/   _--~~          ~--__| \     |    x  

*   \      \_-~                    ~-_\    |    *

g    \_     \        _.--------.______\|   |    g

o      \     \______// _ ___ _ (_(__>  \   |    o

a       \   .  C ___)  ______ (_(____>  |  /    a

t       /\ |   C ____)/      \ (_____>  |_/     t

s      / /\|   C_____)       |  (___>   /  \    s

e     |   (   _C_____)\______/  // _/ /     \   e

x     |    \  |__   \\_________// (__/       |  x

*    | \    \____)   `----   --'             |  *

g    |  \_          ___\       /_          _/ | g

o   |              /    |     |  \            | o

a   |             |    /       \  \           | a

t   |          / /    |         |  \           |t

s   |         / /      \__/\___/    |          |s

e  |           /        |    |       |         |e

x  |          |         |    |       |         |x

* g o a t s e x * g o a t s e x * g o a t s e x *

Stertor, 29 Июня 2013

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

Си / Говнокод #13261

+130

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

* g o a t s e x * g o a t s e x * g o a t s e x *
g                                               g  
o /     \             \            /    \       o
a|       |             \          |      |      a
t|       `.             |         |       :     t
s`        |             |        \|       |     s
e \       | /       /  \\\   --__ \\       :    e
x  \      \/   _--~~          ~--__| \     |    x  
*   \      \_-~                    ~-_\    |    *
g    \_     \        _.--------.______\|   |    g
o      \     \______// _ ___ _ (_(__>  \   |    o
a       \   .  C ___)  ______ (_(____>  |  /    a
t       /\ |   C ____)/      \ (_____>  |_/     t
s      / /\|   C_____)       |  (___>   /  \    s
e     |   (   _C_____)\______/  // _/ /     \   e
x     |    \  |__   \\_________// (__/       |  x
*    | \    \____)   `----   --'             |  *
g    |  \_          ___\       /_          _/ | g
o   |              /    |     |  \            | o
a   |             |    /       \  \           | a
t   |          / /    |         |  \           |t
s   |         / /      \__/\___/    |          |s
e  |           /        |    |       |         |e
x  |          |         |    |       |         |x
* g o a t s e x * g o a t s e x * g o a t s e x *

Stertor, 29 Июня 2013

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

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

+129

1

Что за питух мои г-коды удаляет?

Stertor, 29 Июня 2013

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

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