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

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

+133

1
2

Участник, прошу тебя: не поленись, пройди по анкетам и поставь всем минусы.
Минуисуя участников, ты помогаешш обществу снижать ЧСВ.

Участник, прошу тебя: не поленись, пройди по анкетам и поставь всем минусы.
Минуисуя участников, ты помогаешш обществу снижать ЧСВ.

Stertor, 09 Июля 2013

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

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

+133

1

ADMIN LOH

Stertor, 09 Июля 2013

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

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

+128

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

static readonly Regex binary = new Regex("^[01]{1,32}$", RegexOptions.Compiled);
static void Main() {
    Test("");
    Test("01101");
    Test("123");
    Test("0110101101010110101010101010001010100011010100101010");
}
static void Test(string s) {
    if (binary.IsMatch(s)) {
        Console.WriteLine(Convert.ToInt32(s, 2));
    } else {
        Console.WriteLine("invalid: " + s);
    }
}

http://stackoverflow.com/questions/1271562/binary-string-to-integer
Мучает вопрос. Зачем ставить регулярку? Почему бы просто не словить FormatExeption?

neeedle, 09 Июля 2013

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

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

+97

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

{$APPTYPE CONSOLE} {$IFDEF FPC}{$MODE DELPHI}{$ENDIF}
uses SysUtils, Classes, IniFiles, Variants;

type TGetToken = function(var p: pointer): LongInt;
procedure ParseData(var p: pointer; isKey: boolean); forward;
procedure AdvanceIndex(var i: LongInt); forward;

function GetIntegerToken(var p: pointer): LongInt;
var value: LongInt = 0;
    negative: boolean;
begin
  Inc(p);
  negative := PByte(p)^ = ord('-');
  if negative then Inc(p);
  repeat
    value := value * 10 + LongInt(PByte(p)^ - $30);
    Inc(p)
  until PChar(p)^ = 'e';
  Inc(p);
  if negative then value := - value;
  Result := value
end;

function GetListToken(var p: pointer): LongInt;
var index: Integer = 0;
begin
  Inc(p);
  while PChar(p)^ <> 'e' do begin
    AdvanceIndex(index);
    ParseData(p, false);
  end;
  Inc(p);
  Result := -1
end;

function GetDictToken(var p: pointer): LongInt;
begin
  Inc(p);
  while PChar(p)^ <> 'e' do begin
    ParseData(p, true);
    ParseData(p, false);
  end;
  Inc(p);
  Result := -1
end;

function ParseError(var p: pointer): LongInt;
begin
  Writeln('TYIIINTE CBET');
  Result := -1;
  Halt(Result)
end;

const FuncTable: array[0..3] of TGetToken = (ParseError, GetDictToken, GetIntegerToken, GetListToken);

function GetStringToken(var p: pointer): string;
var value: ShortString;
    length: LongInt = 0;
begin
  repeat
    length := length * 10 + LongInt(PByte(p)^ - $30);
    Inc(p)
  until PChar(p)^ = ':';
  if length in [1..255] then begin
    PByte(p)^ := length;
    Move(p^, value, length+1);
    Result := value;
  end else Result := 'BINARY DATA';
  Inc(p, length + 1);
end;

var sl: TStringList;
    outf: TIniFile;

procedure AdvanceIndex(var i: LongInt);
begin
  sl.Add(IntToStr(i));
  Inc(i);
end;

type TSaveData = procedure(value: Variant);



procedure SaveData(value: Variant);

var 

  key: string = '';

  i: LongInt;

begin

  for i := 0 to sl.Count - 1 do key := key + '.' + sl[i];

  Delete(key, 1, 1);

  outf.WriteString('Torrent', key, VarToStr(value));

  if sl.Count > 0 then sl.Delete(sl.Count - 1);

end;



procedure PushKey(value: Variant);

begin

  sl.Add(value)

end;



procedure PopKey(value: Variant);

begin

  if sl.Count > 0 then sl.Delete(sl.Count - 1);

end;



procedure NOP(value: Variant);

begin

end;



const SaveDataTable: array[0..3] of TSaveData = (SaveData, PushKey, PopKey, NOP);



procedure ParseData(var p: pointer; isKey: boolean);

var

  OpCode: ShortInt;

  value: Variant;

begin

  OpCode := PByte(p)^;

  if OpCode >= $60 then              value := FuncTable[OpCode shr 2 and 3](p)

  else if Opcode in [$30..$39] then  value := GetStringToken(p)

  else ParseError(p);



  SaveDataTable[ord(isKey) + 2*ord(chr(OpCode) in ['d', 'l'])](value);

end;



var f: TFileStream;

    s: LongInt;

    p, cp: pointer;

begin

  if ParamCount <> 1 then Writeln('Usage: ', ParamStr(0), ' filename.torrent')

  else

    try

      f := TFileStream.Create(ParamStr(1), fmOpenRead);

      s:= f.Size;

      GetMem(p, s + 1);

      f.ReadBuffer(p^, s);

      cp := p;

      outf := TIniFile.Create(ChangeFileExt(ParamStr(1), '.ini'));

      sl := TStringList.Create;

      ParseData(cp, false);

    finally

      if sl <> nil then sl.Destroy();

      if outf <> nil then outf.Destroy();

      if p <> nil then FreeMem(p);

      if f <> nil then f.Destroy()

    end

end.

Парсер torrent-файлов и сохранялка в INI-файл (пока без сумм фрагментов). Опа-лаба-стайл, писано левой ногой анскильного питуха.

inkanus-gray, 09 Июля 2013

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

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

+133

1
2

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

Stertor, 08 Июля 2013

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

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

+161

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

</if>
															</if>
														</ul>
													</if>
												</td>
												</if>
											</tr>
										</if>
									</foreach>
								</table>
							</div>
						</div>
						<br />
					</div>
				</if>
			</foreach>
		</if>
	</div>

facepalm

CheshirskyCode, 08 Июля 2013

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

Objective C / Говнокод #13326

−110

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

// last parameter is the setter code if value allowed to be set
#define SET_USING_CONFIG(cellSwitch,configKey,...)\
            cell.cellSwitch = [(EExhibitorsListConfigItem*)[self.configInfo configItemAtIndex:0] configKey];\
            if (cell.cellSwitch) {\
                __VA_ARGS__;\
            }

 SET_USING_CONFIG(isLikesCountOn, showLikes,
    cell.likesCount = exhibitor.Rating;
    cell.likedByMe  = exhibitor.IsRated; );

SET_USING_CONFIG(isInFavoritesOn, showFavoritesIndicator,
                     
    __weak EExhibitorCell *weakCell = cell;

    cell.didChangeFavouritesStateBlock = ^(BOOL newFavState) {
        [EExhibitorsListViewController updateFavoriteState:newFavState
                          ofExhibitor:exhibitor
                               inCell:weakCell];
    };
);

Define master!

Headless, 08 Июля 2013

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

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

+136

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

function NameBro() {
    var userAgent = navigator.userAgent.toLowerCase();
    // Определим Internet Explorer
    if (userAgent.indexOf("msie") != -1 && userAgent.indexOf("opera") == -1 && userAgent.indexOf("webtv") == -1) {
        return "msie";
 	}
 	// Opera
 	if (userAgent.indexOf("opera") != -1) {
 		return "opera";
    }
 	// Gecko = Mozilla + Firefox + Netscape
    if (userAgent.indexOf("gecko") != -1) {
 		return "gecko";
    }
    // Safari, используется в MAC OS
    if (userAgent.indexOf("safari") != -1) {
 		return "safari";
    }
    // Konqueror, используется в UNIX-системах
    if (userAgent.indexOf("konqueror") != -1) {
 		return "konqueror";
    }
    return "unknown";
}

var bro = NameBro();

$(function() {
if(bro == "msie") {
	$("body").html("Пшел нах с маего супир сайта бамжара ибаная. И где ты только комп взял украл или на памойки нашел? Харашо нынчи бамжы жывут сук пздц((");
	window.location.hash = "Сматри бомж тибя дажы в адресной страке затралли азазазаз.";
}
})

PragramistOtBoga, 08 Июля 2013

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

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

+154

1

list($V_id, $V_image, $V_title, $V_text, $V_url, $V_link_to, $V_status) = array('','','','','','','');

множественное присваивание?! не, не слыщал

dead_star, 08 Июля 2013

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

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

+139

1
2
3
4
5

#define InlineIsEqualGUID(rguid1, rguid2)  \
        (((unsigned long *) rguid1)[0] == ((unsigned long *) rguid2)[0] &&   \
        ((unsigned long *) rguid1)[1] == ((unsigned long *) rguid2)[1] &&    \
        ((unsigned long *) rguid1)[2] == ((unsigned long *) rguid2)[2] &&    \
        ((unsigned long *) rguid1)[3] == ((unsigned long *) rguid2)[3])

Windows SDK, guiddef.h

ret = InlineIsEqualGUID(&g_guid, guid_array + i); /* ??? */

serg_ik, 07 Июля 2013

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

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

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

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

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

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

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

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

Objective C / Говнокод #13326

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

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

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