Список говнокодов пользователя Govnocoder#0xFF

Всего: 47

ActionScript / Говнокод #5747

−241

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

while (i < 6) 
{
    scene.scene["pirat" + i].shot = false;
    scene.scene["pirat" + i].num = i;
    scene.scene["pirat" + i].gotoAndStop(1);
    scene.scene["pirat" + i]._visible = false;
    scene.scene["pirat" + i].swapDepths(10 + i);
    scene.scene["pirat" + i].thisDepth = scene.scene["pirat" + i].getDepth();
    scene.scene["pirat" + i].pirat.piratFall.gotoAndStop(1);
    scene.scene["pirat" + i].pirat.piratFall._visible = false;
    scene.scene["splash" + i].splash1.gotoAndStop(1);
    scene.scene["splash" + i].splash2.gotoAndStop(1);
    scene.scene["splash" + i]._visible = false;
    ++i;
}

Данный кусок был найден в недрах флеш-рекламы.

Govnocoder#0xFF, 21 Февраля 2011

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

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

+94

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

For i := 0 to 7 do
     Begin
      If ((iMass[i])[1] = dClick.xAlf) and (StrToInt((iMass[i])[2]) = dClick.yFlt) then
      BegiN
       cObject.Caption := '';
       If (i = 1) or (i = 2) then
       Begin
        (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier1.bmp');
        Break;
       End;

       If i = 4 then
       Begin
        (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier3.bmp');
        Break;
       End;

       If i >= 5 then
       Begin
        (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier2.bmp');
        Break;
       End;

       (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier'+IntToStr(i + 1)+'.bmp');
       Break;
      EnD;
     End;

Мой высер. За неимением идей, больше ничего придумать не смог.

Govnocoder#0xFF, 15 Января 2011

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

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

+104

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

procedure TForm1.FormCreate(Sender: TObject);   
begin  
RS[0]:='а'; PRS[0]:='@';   
RS[1]:='б'; PRS[1]:='6';   
RS[2]:='в'; PRS[2]:='B';   
RS[3]:='г'; PRS[3]:='r';   
RS[4]:='д'; PRS[4]:='g';   
RS[5]:='е'; PRS[5]:='e';   
RS[6]:='ё'; PRS[6]:='e';   
RS[7]:='ж'; PRS[7]:='}|{';   
RS[8]:='з'; PRS[8]:='3';   
RS[9]:='и'; PRS[9]:='u';   
RS[10]:='й'; PRS[10]:='u';   
RS[11]:='к'; PRS[11]:='k';   
RS[12]:='л'; PRS[12]:='JI';   
RS[13]:='м'; PRS[13]:='M';   
RS[14]:='н'; PRS[14]:='H';   
RS[15]:='о'; PRS[15]:='o';   
RS[16]:='п'; PRS[16]:='n';   
RS[17]:='р'; PRS[17]:='p';   
RS[18]:='с'; PRS[18]:='c';   
RS[19]:='т'; PRS[19]:='T';   
RS[20]:='у'; PRS[20]:='y';   
RS[21]:='ф'; PRS[21]:='%';   
RS[22]:='х'; PRS[22]:='x';   
RS[23]:='ц'; PRS[23]:='?';   
RS[24]:='ч'; PRS[24]:='4';   
RS[25]:='ш'; PRS[25]:='III';   
RS[26]:='щ'; PRS[26]:='III,';   
RS[27]:='ъ'; PRS[27]:='b';   
RS[28]:='ы'; PRS[28]:='bI';   
RS[29]:='ь'; PRS[29]:='b';   
RS[30]:='э'; PRS[30]:='&';   
RS[31]:='ю'; PRS[31]:='I-o';   
RS[32]:='я'; PRS[32]:='9I';   
RS[33]:='А'; PRS[33]:='A';   
RS[34]:='Б'; PRS[34]:='6';   
RS[35]:='В'; PRS[35]:='B';   
RS[36]:='Г'; PRS[36]:='r';   
RS[37]:='Д'; PRS[37]:='g';   
RS[38]:='Е'; PRS[38]:='E';   
RS[39]:='Ё'; PRS[39]:='E';   
RS[40]:='Ж'; PRS[40]:='}|{';   
RS[41]:='З'; PRS[41]:='3';   
RS[42]:='И'; PRS[42]:='U';   
RS[43]:='Й'; PRS[43]:='U';   
RS[44]:='К'; PRS[44]:='K';   
RS[45]:='Л'; PRS[45]:='JL';   
RS[46]:='М'; PRS[46]:='M';   
RS[47]:='Н'; PRS[47]:='H';   
RS[48]:='О'; PRS[48]:='O';   
RS[49]:='П'; PRS[49]:='n';   
RS[50]:='Р'; PRS[50]:='p';   
RS[51]:='С'; PRS[51]:='c';   
RS[52]:='Т'; PRS[52]:='T';   
RS[53]:='У'; PRS[53]:='Y';   
RS[54]:='Ф'; PRS[54]:='%';   
RS[55]:='Х'; PRS[55]:='X';   
RS[56]:='Ц'; PRS[56]:='?';   
RS[57]:='Ч'; PRS[57]:='4';   
RS[58]:='Ш'; PRS[58]:='III';   
RS[59]:='Щ'; PRS[59]:='III,';   
RS[60]:='Ъ'; PRS[60]:='b';   
RS[61]:='Ы'; PRS[61]:='bI';   
RS[62]:='Ь'; PRS[62]:='b';   
RS[63]:='Э'; PRS[63]:='&';   
RS[64]:='Ю'; PRS[64]:='I-O';   
RS[65]:='Я'; PRS[65]:='9I';   
ES[0]:='a'; PPS[0]:='@';   
ES[1]:='b'; PPS[1]:='6';   
ES[2]:='c'; PPS[2]:='|_|,';   
ES[3]:='d'; PPS[3]:=',^,';   
ES[4]:='e'; PPS[4]:='e';   
ES[5]:='f'; PPS[5]:='%';   
ES[6]:='g'; PPS[6]:='|"';   
ES[7]:='h'; PPS[7]:='][';   
ES[8]:='i'; PPS[8]:='|/|';   
ES[9]:='j'; PPS[9]:='>|<';   
ES[10]:='k'; PPS[10]:='K';   
ES[11]:='l'; PPS[11]:='/\';   
ES[12]:='m'; PPS[12]:='M';   
ES[13]:='n'; PPS[13]:='|-|';   
ES[14]:='o'; PPS[14]:='0';   
ES[15]:='p'; PPS[15]:='n';   
ES[16]:='q'; PPS[16]:='k|3';   
ES[17]:='r'; PPS[17]:='P';   
ES[18]:='s'; PPS[18]:='$';   
ES[19]:='t'; PPS[19]:='T';   
ES[20]:='u'; PPS[20]:='Y';   
ES[21]:='v'; PPS[21]:='\/';   
ES[22]:='w'; PPS[22]:='|3';   
ES[23]:='x'; PPS[23]:='kc';   
ES[24]:='y'; PPS[24]:='9';   
ES[25]:='z'; PPS[25]:='3';   
ES[26]:='A'; PPS[26]:='@';   
ES[27]:='B'; PPS[27]:='6';   
ES[28]:='C'; PPS[28]:='|_|,';   
ES[29]:='D'; PPS[29]:=',^,';   
ES[30]:='E'; PPS[30]:='E';   
ES[31]:='F'; PPS[31]:='%';

Найдено в DRKB. Double F@$EР@LM.

Govnocoder#0xFF, 13 Декабря 2010

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

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

+107

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

Uses Windows;
Var Olly : hWnd;
begin
 Olly:=FindWindow('OllyDBG', nil);
 If Olly <> 0 then Exit;
 Olly:=FindWindow('OllyDbg', nil);
 If Olly <> 0 then Exit;
 Olly:=FindWindow('OLLYDBG', nil);
 If Olly <> 0 then Exit;
 Olly:=FindWindow('ollydbg', nil);
 If Olly <> 0 then Exit;
 MessageBox(0, 'You are run me!', 'RunMe v0.1', 48);
end.

Код моей молодости. Кто не вкурил, это такая говнозащита от отладчика OllyDbg.

Govnocoder#0xFF, 11 Декабря 2010

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

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

+158

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

protected function composeResolvers()
    {
        require_once systemConfig::$pathToSystem . '/resolver/init.php';
        require_once systemConfig::$pathToSystem . '/resolver/templateMediaResolver.php';
        require_once systemConfig::$pathToSystem . '/resolver/moduleMediaResolver.php';
        require_once systemConfig::$pathToSystem . '/resolver/extensionBasedModuleMediaResolver.php';
        require_once systemConfig::$pathToSystem . '/core/fileLoader.php';

        $baseresolver = new compositeResolver();
        $baseresolver->addResolver(new fileResolver(systemConfig::$pathToApplication . '/*'));
        $baseresolver->addResolver(new fileResolver(systemConfig::$pathToWebRoot . '/*'));
        $baseresolver->addResolver(new fileResolver(systemConfig::$pathToSystem . '/*'));

        $resolver = new compositeResolver();
        $resolver->addResolver(new templateMediaResolver($baseresolver));
        $resolver->addResolver(new moduleMediaResolver($baseresolver));
        $resolver->addResolver(new extensionBasedModuleMediaResolver($baseresolver));
        $resolver->addResolver(new classFileResolver($baseresolver));

        if (function_exists('external_callback')) {
            external_callback($resolver, $baseresolver);
        }

        return new cachingResolver($resolver, 'resolver_media_cache');
    }

Прямиком с http://govnokod.googlecode.com/svn/trunk/govnoquoter/www/bundle.php
Там ещё много всего интересного!

Govnocoder#0xFF, 07 Декабря 2010

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

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

+100

1
2
3
4
5

{Pascal}
function f( a: boolean ) : boolean;
begin
if a then return := f(a) else return := false;
end;

При а - истина программа вылетит с переполненным стеком.

Govnocoder#0xFF, 16 Ноября 2010

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

Куча / Говнокод #4517

+124

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

СLS
DEFLNG M-N,P,S

INPUT "N=";N
IF N>9.999999999999999D+48 THEN END
M=N
S=0
WHILE M<> 0

P=M MOD 10
S=S+P
M=M\10
PRINT "S=";S;
WEND
PRINT"P="; "S=";S;
PRINT

ЗДЕСЬ ВСЕ ВЕРНО ! СУММА ПОДСЧИТЫВАЕТСЯ ПРАВИЛЬНО. Часть 2 ЭТОЙ ЗАДАЧИ

WHILE S<>10
M=S: P=0
S1=0

WHILE M<>0

P=M MOD 10

S1=S1+P
M=M\10
PRINT S1

PRINT S1
WEND
PRINT"SUMMA=";S1
WEND
END

Это QBasic. Для числа подсчитываются сумма его цифр. Если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. Например, если исходное число 3247598, то результат 2. Взято отсюда: http://otvet.mail.ru/question/47598848/

Govnocoder#0xFF, 02 Ноября 2010

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

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