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

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

+124

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

import elements
import functions
import system
error = 'Ошибок нет'
add = input ('Введите элемент, который вы хотите добавить в таблицу')
table = element.table
addToTable : add
if addTo.table : Successful {
 put 'Ошибок нет' }
else 
put error
system.exit

На случай, если друг подумает, что ничего не работает..
Писалось на языке без названия, не придумал ещё :)

Mobac, 24 Апреля 2014

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

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

+154

1
2
3

foreach(array_keys(get_defined_vars())as$__v)$__refs[$__v]=&$$__v;
do_action("ws_plugin__s2member_before_paypal_api_response", get_defined_vars());
unset /* Unset defined __refs, __v. */($__refs, $__v);

И опять s2member для wordpress

antongorodezkiy, 24 Апреля 2014

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

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

+143

1

CFGDBFACADOEBFAAAACOABAOBBGAAODBFADCCCFDOGDACCOGAAAAAACOBDBGAAOCBGDEBDFDADGCBEDAABCOBEECBDAOECFCCFCCEOBDOAABDFOAOBDBOBGOBDBBEECBBAOOBADBADAEGAOCBEFAABCFDBGOAFGBGEBBDBBGBBGBEACOOACAAABCBDADGACAAABDOOAAFCBBDBODCBDFDCBEDAAACEAGACFDCADDFOBCCBOBDGEDEFBAAAABDAACDBDGODGBCBBDCOAEGAOBAEFBOEDGCCGEDBOCFDBEBBEFAOCACGBFEAAEBGFDOBCAADACAAECGEAABDBFACGBGECEGCDADBFACGABOCGGDFEABOCOGCFGCOAAAAAOEAAABGECCODAD

"Змейка" в машинных кодах на системе счисления wct. WctEditor - http://yadi.sk/d/i9Me1IQ7MbHCD.

Mobac, 24 Апреля 2014

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

C# / Говнокод #15839

+138

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

private static Dictionary<RoleEnum, string> Roles = new Dictionary<RoleEnum, string>
        {
            {RoleEnum.TeamMember, "Team Member"},
            {RoleEnum.ProjectManager, "Project Manager"},
            {RoleEnum.ProgramManager, "Program Manager"},
            {RoleEnum.PortfolioManager, "Portfolio Manager"},
            {RoleEnum.Executive, "Executive"},
            {RoleEnum.Undefined, "Undefined"}
        };

        public static RoleEnum ParseRole(string role)
        {
            RoleEnum result = RoleEnum.Undefined;
            Roles
                .Where(_ => _.Value == role)
                .ToList()
                .ForEach(_ => result = _.Key);

            return result;
        }

Странное использование дикшинари, очень странное, в обратную сторону можна сказать

boades, 24 Апреля 2014

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

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

+126

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

program FeyverkFirework;

{$R+}

uses
  Crt, Graph;

var
  GraphDriver, GraphMode, ErrorCode : Integer;
  Ch : Char;
  I, J, K, XStart, YStart : Integer;
  XX,YY,CC : Array[1..1000] of Integer;
  FX,FY,DX,DY : Array[1..70] of Real;
  R, T, X, Y : Real;

procedure Explode (C : Integer);

begin
  T := -Pi;
  I := 0;
  Repeat
    I := I + 1;
    DX[I] := Sin(T)*5;
    DY[I] := Cos(T)*5;
    FX[I] := X;
    FY[I] := Y;
    T := T + 0.15;
  Until T > Pi;

  K := 0;
  Repeat
    For J := 1 to I do
      begin
        If C = 0 then
          PutPixel (Round(FX[J]),Round(FY[J]),0)
        else
          PutPixel (Round(FX[J]),Round(FY[J]),Random(GetMaxColor+1));
        FX[J] := FX[J] + DX[J];
        FY[J] := FY[J] - DY[J];
        DY[J] := DY[J] - 0.2;
      end;
    K := K + 1;
    Delay(10); { This was not in the original. }
  Until Keypressed or (K > 50);
end;

procedure ShootFireWork;

begin
  { Delay (1000); }
  Randomize;
  T := Random / 2 - 0.25 + Pi/2;
  X := XStart;
  Y := YStart;
  R := 20;
  I := 0;
  Repeat
    Inc (I);
    XX[I] := Round(X);
    YY[I] := Round(Y);
    CC[I] := GetPixel (XX[I],YY[I]);
    If I > 1 then
      If (XX[I] = XX[I-1]) and (YY[I] = YY[I-1]) then CC[I] := CC[I-1];
    PutPixel (XX[I],YY[I],Random(GetMaxColor+1));
    If I > 5 then
      PutPixel (XX[I-5],YY[I-5],CC[I-5]);
    X := X + Cos(T)*R;
    Y := Y - Sin(T)*R;
    If T > Pi/2 then
      T := T + 0.02
    else
      T := T - 0.02;
    R := R * 0.93;
    Delay (20);
  Until KeyPressed or (T < 0) or (T > Pi);

  For J := I-5 to I do

     PutPixel (XX[J],YY[J],CC[J]);
{    ch := readkey; }
  Explode (1);
  Explode (0);
end;

begin
  GraphDriver := Detect;
  InitGraph (GraphDriver, GraphMode, '..');
  ErrorCode := GraphResult;
  If ErrorCode <> grOk then
    begin
      Writeln ('Graphics Error: ',GraphErrorMsg(ErrorCode));
      Halt;
    end;
  SetColor (GetMaxColor);
  XStart := GetMaxX div 2;
  YStart := GetMaxY - 20;

  Repeat
    ShootFireWork;
  Until Keypressed;

Ch := ReadKey;
ClearDevice;
CloseGraph;
end.

Работает же! Красиво получается :)
Выполнить код можно здесь: http://pma.clan.su/index.html.
Алгоритм выполнения кода. Жмём E. Вводим код. Нажимаем в левом нижнем углу CoPas editor. Нажимаем R. Радуемся! :)

Mobac, 24 Апреля 2014

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

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

+83

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

program FeyverkFirework;

{$R+}

uses
  Crt, Graph;

var
  GraphDriver, GraphMode, ErrorCode : Integer;
  Ch : Char;
  I, J, K, XStart, YStart : Integer;
  XX,YY,CC : Array[1..1000] of Integer;
  FX,FY,DX,DY : Array[1..70] of Real;
  R, T, X, Y : Real;

procedure Explode (C : Integer);

begin
  T := -Pi;
  I := 0;
  Repeat
    I := I + 1;
    DX[I] := Sin(T)*5;
    DY[I] := Cos(T)*5;
    FX[I] := X;
    FY[I] := Y;
    T := T + 0.15;
  Until T > Pi;

  K := 0;
  Repeat
    For J := 1 to I do
      begin
        If C = 0 then
          PutPixel (Round(FX[J]),Round(FY[J]),0)
        else
          PutPixel (Round(FX[J]),Round(FY[J]),Random(GetMaxColor+1));
        FX[J] := FX[J] + DX[J];
        FY[J] := FY[J] - DY[J];
        DY[J] := DY[J] - 0.2;
      end;
    K := K + 1;
    Delay(10); { This was not in the original. }
  Until Keypressed or (K > 50);
end;

procedure ShootFireWork;

begin
  { Delay (1000); }
  Randomize;
  T := Random / 2 - 0.25 + Pi/2;
  X := XStart;
  Y := YStart;
  R := 20;
  I := 0;
  Repeat
    Inc (I);
    XX[I] := Round(X);
    YY[I] := Round(Y);
    CC[I] := GetPixel (XX[I],YY[I]);
    If I > 1 then
      If (XX[I] = XX[I-1]) and (YY[I] = YY[I-1]) then CC[I] := CC[I-1];
    PutPixel (XX[I],YY[I],Random(GetMaxColor+1));
    If I > 5 then
      PutPixel (XX[I-5],YY[I-5],CC[I-5]);
    X := X + Cos(T)*R;
    Y := Y - Sin(T)*R;
    If T > Pi/2 then
      T := T + 0.02
    else
      T := T - 0.02;
    R := R * 0.93;
    Delay (20);
  Until KeyPressed or (T < 0) or (T > Pi);

  For J := I-5 to I do

     PutPixel (XX[J],YY[J],CC[J]);
{    ch := readkey; }
  Explode (1);
  Explode (0);
end;

begin
  GraphDriver := Detect;
  InitGraph (GraphDriver, GraphMode, '..');
  ErrorCode := GraphResult;
  If ErrorCode <> grOk then
    begin
      Writeln ('Graphics Error: ',GraphErrorMsg(ErrorCode));
      Halt;
    end;
  SetColor (GetMaxColor);
  XStart := GetMaxX div 2;
  YStart := GetMaxY - 20;

  Repeat
    ShootFireWork;
  Until Keypressed;

Работает же! Красиво получается :)
Выполнить код можно здесь: http://pma.clan.su/index.html.
Алгоритм выполнения кода. Жмём E. Вводим код. Нажимаем в левом нижнем углу CoPas editor. Нажимаем R. Радуемся! :)

Mobac, 24 Апреля 2014

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

C# / Говнокод #15836

+137

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

Index and length must refer to a location within the string.
Parameter name: length
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.ArgumentOutOfRangeException: Index and length must refer to a location within the string.
Parameter name: length

Source Error:


Line 1239:    // СЕГОДНЯ И ВЧЕРА
Line 1240:    string agent = Request.UserAgent;
Line 1241:    string sid = DateTime.Now.ToShortDateString().Substring(0, 10).Replace(".", "").Replace("/", "").Replace("-", "");
Line 1242:    string sid2 = DateTime.Now.AddDays(-1).ToShortDateString().Substring(0, 10).Replace(".", "").Replace("/", "").Replace("-", "");
Line 1243:    //

http://tltgorod.ru/news/theme-5/news-21502

Хуяк-хуяк и в продакшн.

bakagaijin, 24 Апреля 2014

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

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

+153

1
2
3
4
5
6
7

function getCallback( variable ){
    return function () {
        if (!private["loginManager"].isLogin() )
            return ( private["loginManager"].callbackReauth() && false) || null ;
        return private[variable];
    }
};

когда лень ставить лишние фигурные скобки ( все внимание на средний return )

Dart_Sergius, 24 Апреля 2014

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

Java / Говнокод #15834

+71

1
2
3
4
5
6

final String[] arg1 = {"name-ru", "phone", "address-ru"};
final Analyzer arg2 = getAnalyzer();
final QueryParser parser = ReflectionUtils.getTheOnlyMatchingConstructor(
    MultiFieldQueryParser.class,
    new Class<?>[]{arg1.getClass(), arg2.getClass()}
).newInstance(arg1, arg2);

Одним изящным движением превращаем миграцию на свежую версию lucene в попоболь.

roman-kashitsyn, 24 Апреля 2014

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

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

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

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

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

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

C# / Говнокод #15839

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

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

C# / Говнокод #15836

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

Java / Говнокод #15834