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

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

+65

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

/*
 * 
 * 
 */

public class Chapter1 {
	private String text[] = { "Returns a  new string that is a ",
			"substring of this string" };
	private String splitted[];

	private int k = 2; // 
	private char c = '<'; 

	public void run() {
		for (int i = 0; i < text.length; i++) {
			text[i] = makeString(text[i], change(i)); 
														
			System.out.println(text[i]);
			
		}
	}

	/*
	 * 
	 */
	private String makeString(String textLine, String[] changed) {
		StringBuilder sBui = new StringBuilder(textLine);

		int i = 0; // changed index
		int beginIndex = 0; 
		

		for (int j = 0; j < splitted.length; j++) {
			beginIndex = sBui.indexOf(splitted[j], beginIndex); // word begin		
			int endIndex = beginIndex + splitted[j].length(); // word end
			
			if(splitted[j].length() > k){			
				sBui.delete(beginIndex, endIndex);
				sBui.insert(beginIndex, changed[i++]);
			} 
			
			beginIndex = endIndex;
		}
						
		return sBui.toString();
	}

	/*
	 * 
	 * 
	 */
	public String[] change(int i) {

		splitted = text[i].split("\t|\n| "); 

		for (int indx = 0; indx < splitted.length; indx++) {
			if (splitted[indx].length() > k) {
				StringBuilder sBuild = new StringBuilder(splitted[indx]);
				sBuild.setCharAt(k, c);
				splitted[indx] = sBuild.toString(); // irasomas pakeistas zodis				
			}
		}

		return splitted;
	}

} // end

help, задание - вкаждом слове текста к-тую буквы заменить с символом, если длина слова меньше к, замену не выполнять.

Exception in thread "main" java.lang.StringIndexOutOfBoundsExceptio n: String index out of range: -1 (проблема)

spivti, 24 Августа 2013

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

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

−114

01
02
03
04
05
06
07
08
09
10

- (void)setHidden:(BOOL)newHidden
{
    [super setHidden:newHidden];
    if (newHidden){
        [m_bannerViewController hideBanner];
        return;
    }
    
    [self reload];
}

ZevsVU, 23 Августа 2013

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

C++ / Говнокод #13656

+16

1
2
3
4
5
6
7
8
9

void setEnabled(bool enabled)
{
    super.setEnabled(enabled)
    if (enabled) {
        objectsArray.disable();
        return;
    }
    enable();
}

ZevsVU, 23 Августа 2013

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

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

+141

1

for (; b < d; b++)

subj

Stealth, 23 Августа 2013

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

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

+144

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

<body style=margin:0 

onload="for( 

s=window.screen, 
w=q.width=s.width, 
h=q.height=s.height, 
m=Math.random, 
p=[], 
i=0; i<256; 

p[i++]=1 );

setInterval('9Style=\'rgba(0,0,0,.05)\'9Rect(0,0,w,h)9Style=\'#0F0\';

p.map(function(v,i){9Text(String.fromCharCode(3e4+m()*33),i*10,v);
p[i]=v>758+m()*1e4?0:v+10})'.split(9).join(';q.getContext(\'2d\').fill'),33)">


<canvas id=q>

Найди утечку ( many many times i jerk -> ctx ;)

Stealth, 23 Августа 2013

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

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

−126

1

NSDictionary *d =  [NSDictionary dictionaryWithObjectsAndKeys:@(NO?1:2), @"EVENT_VISIBILITY"];

mas_an, 23 Августа 2013

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

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

+136

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

begin
if(TimerVremya.Enabled = True) then
  begin
    if(CheckBox1.Checked = False) then
    begin
    Bass_channelPlay(Channel, false);
    Panel1.Caption := 'Playing';
    TimerFraza.Enabled := False;
    end
    else
    begin
     Bass_channelPlay(Privlek, false);
     Timer2.Enabled := True;
     TimerFraza.Enabled := False;
    end;
end;

А не ударить ли нам по басам? Вот только запашок не к месту, с чего бы такая оказия?..

Stertor, 23 Августа 2013

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

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

+141

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

function GetProcessUser(aPID: Cardinal; var aResult: string): Boolean;
type
  PTOKEN_USER = ^TOKEN_USER; 

  _TOKEN_USER = record
    User: TSidAndAttributes;
  end;

  TOKEN_USER = _TOKEN_USER;
var
  cbBuf: Cardinal;
  ptiUser: PTOKEN_USER;
  snu: SID_NAME_USE;
  hToken, hProcess: THandle;
  UserSize, DomainSize: Cardinal;
  bSuccess: Boolean;
  sUser, sDomain: string;
begin
  Result := False;
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION, False, aPID);
  if hProcess <> 0 then
  begin
    if OpenProcessToken(hProcess, TOKEN_QUERY, hToken) then
    begin
      bSuccess := GetTokenInformation(hToken, TokenUser, nil, 0, cbBuf);
      ptiUser := nil;
      while (not bSuccess) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) do
      begin
        ReallocMem(ptiUser, cbBuf);
        bSuccess := GetTokenInformation(hToken, TokenUser, ptiUser, cbBuf, cbBuf);
      end;
      CloseHandle(hToken);

      if not bSuccess then

Убило название. Дальше можете не читать.

http://www.programmersforum.ru/showthread.php?t=242541

Stertor, 23 Августа 2013

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

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

+134

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

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  MText ,temp: string;
  memorystream:tmemorystream;
  link:string;
  i:integer;
  startpos,endpos:integer;
  stag,etag:string;
  c:integer;
begin
  stop:=false;
  try
  memorystream:=tmemorystream.create;
  stag:='target="_blank" href="#url?to=';

    memorystream.clear;
    try
      idhttp1.Get('http://otvet.mail.ru/93516',memorystream);
    except
    end;
    if idhttp1.connected=true then
    idhttp1.Disconnect;
    mtext:=memo1.text;//memorystreamtostring(memorystream);
    memo1.lines.add(mtext);

// Выдает access violation

    StartPos := 0;
    endpos:=0;
    while (true) do
    begin
      startPos := Posex(stag, MText,startpos+1);
      endPos := PosEx(etag, MText, startPos);
      if startpos>0 then
      begin
        temp := Copy(MText, startPos, endPos - startPos);
        Memo2.lines.add(temp);
      end
      else
      break;
    end;
finally
  end;
end;

Вонь стоит жуткая. Тому, кто первым найдет ошибку, поставлю пятерку)

Ы.з. Это мой сотый код, так что теперь я на все 100% с Вами) обнимаю вас всех.

Stertor, 23 Августа 2013

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

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

+110

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

// Двухклеточная прямая.
       ({D2A2}(Pixels[X+h,Y-1]=clWhite) and(Pixels[x+h,y-2]=clBlack) and(Pixels[x+h,y-3]=clBlack)     and{D2A2} (Pixels[x+h+1,y-1]=clWhite) and(Pixels[x+h+1,y-2]=clBlack) and(Pixels[x+h+1,y-3]=clWhite)  and{D2A2}(Pixels[x+h+2,y-2]=clWhite) and(Pixels[x+h+2,y-3]=clBlack) and(Pixels[x+h+2,y-4]=clWhite) and{D2A2}(Pixels[x+h+3,y-2]=clWhite) and(Pixels[x+h+3,y-3]=clBlack) and(Pixels[x+h+3,y-4]=clWhite)) or {D2A2}
    ({D2A2A-1}(Pixels[X+h,Y-1]=clWhite) and(Pixels[x+h,y-2]=clBlack) and(Pixels[x+h,y-3]=clWhite)     and{D2A2A-1}(Pixels[x+h+1,y-1]=clWhite) and(Pixels[x+h+1,y-2]=clBlack) and(Pixels[x+h+1,y-3]=clWhite)  and{D2A2A-1}(Pixels[x+h+2,y-2]=clWhite) and(Pixels[x+h+2,y-3]=clBlack) and(Pixels[x+h+2,y-4]=clBlack) and{D2A2A-1}(Pixels[x+h+3,y-2]=clWhite) and(Pixels[x+h+3,y-3]=clBlack) and(Pixels[x+h+3,y-4]=clWhite)) or {D2A2A-1}
       ({D2A3}(Pixels[X+h,Y-1]=clWhite) and(Pixels[x+h,y-2]=clBlack) and(Pixels[x+h,y-3]=clWhite)     and{D2A3}(Pixels[x+h+1,y-1]=clWhite) and(Pixels[x+h+1,y-2]=clBlack) and(Pixels[x+h+1,y-3]=clBlack)  and{D2A3}(Pixels[x+h+2,y-2]=clWhite) and(Pixels[x+h+2,y-3]=clBlack) and(Pixels[x+h+2,y-4]=clWhite) and{D2A3}(Pixels[x+h+3,y-2]=clWhite) and(Pixels[x+h+3,y-3]=clBlack) and(Pixels[x+h+3,y-4]=clWhite) and{D2A3}(Pixels[x+h+4,y-3]=clWhite) and(Pixels[x+h+4,y-4]=clBlack) and(Pixels[x+h+4,y-5]=clWhite)) or {D2A3}
       ({D2A4}(Pixels[X+h,Y-1]=clBlack) and(Pixels[x+h,y-2]=clBlack) and(Pixels[x+h,y-3]=clWhite)     and{D2A4}(Pixels[x+h+1,y-1]=clWhite) and(Pixels[x+h+1,y-2]=clBlack) and(Pixels[x+h+1,y-3]=clWhite)  and{D2A4}(Pixels[x+h+2,y-2]=clWhite) and(Pixels[x+h+2,y-3]=clBlack) and(Pixels[x+h+2,y-4]=clWhite) and{D2A4}(Pixels[x+h+3,y-2]=clWhite) and(Pixels[x+h+3,y-3]=clBlack) and(Pixels[x+h+3,y-4]=clWhite)) or {D2A4}
   ... Ещё 20 строк в таком стиле
       ({D2B2}(Pixels[X+h,Y-1]=clWhite) and(Pixels[x+h,y-2]=clWhite) and(Pixels[x+h,y-3]=clBlack)     and{D2B2}(Pixels[x+h+1,y-1]=clWhite) and(Pixels[x+h+1,y-2]=clBlack) and(Pixels[x+h+1,y-3]=clWhite)      and{D2B2}(Pixels[x+h+2,y-2]=clWhite) and(Pixels[x+h+2,y-3]=clBlack) and(Pixels[x+h+2,y-4]=clWhite)    and{D2B2}(Pixels[x+h+3,y-2]=clWhite) and(Pixels[x+h+3,y-3]=clBlack) and(Pixels[x+h+3,y-4]=clWhite)     and{D2B2}(Pixels[x+h+4,y-3]=clWhite) and(Pixels[x+h+4,y-4]=clBlack) and(Pixels[x+h+4,y-5]=clWhite)) or {D2B2}
       ({D2B3}(Pixels[X+h,Y-1]=clWhite) and(Pixels[x+h,y-2]=clWhite) and(Pixels[x+h,y-3]=clWhite)     and{D2B3}(Pixels[x+h+1,y-1]=clWhite) and(Pixels[x+h+1,y-2]=clBlack) and(Pixels[x+h+1,y-3]=clBlack)      and{D2B3}(Pixels[x+h+2,y-2]=clWhite) and(Pixels[x+h+2,y-3]=clBlack) and(Pixels[x+h+2,y-4]=clWhite)    and{D2B3}(Pixels[x+h+3,y-2]=clWhite) and(Pixels[x+h+3,y-3]=clBlack) and(Pixels[x+h+3,y-4]=clWhite)     and{D2B3}(Pixels[x+h+4,y-3]=clWhite) and(Pixels[x+h+4,y-4]=clBlack) and(Pixels[x+h+4,y-5]=clWhite)) or {D2B3}
       ({D2B4}(Pixels[X+h,Y-1]=clBlack) and(Pixels[x+h,y-2]=clWhite) and(Pixels[x+h,y-3]=clWhite)     and{D2B4}(Pixels[x+h+1,y-1]=clWhite) and(Pixels[x+h+1,y-2]=clBlack) and(Pixels[x+h+1,y-3]=clBlack)      and{D2B4}(Pixels[x+h+2,y-2]=clWhite) and(Pixels[x+h+2,y-3]=clBlack) and(Pixels[x+h+2,y-4]=clWhite)    and{D2B4}(Pixels[x+h+3,y-2]=clWhite) and(Pixels[x+h+3,y-3]=clBlack) and(Pixels[x+h+3,y-4]=clWhite)     and{D2B4}(Pixels[x+h+4,y-3]=clWhite) and(Pixels[x+h+4,y-4]=clBlack) and(Pixels[x+h+4,y-5]=clWhite)) {or} {D2B4}
         {(J1(Pixels[X+h,Y-1]=clWhite) and (Pixels[x+h,y]=clWhite) and (Pixels[x+h,y-2]=clBlack))} then // Проверка, если обрыв по x, начало следующей ступенрки.
         begin
          goto k8;
           end ;
            goto k3;//Если убрать эту строчку,то может фиксироваться вся линия исключая точку с дифектоми, т.к.
             end;   // если не отрабатывает сравнение пикселей по длине ступеньки и не отрабатывает по переходу на новую ступеньку, прог. прибавляет h и перемещает пиксель опроса в право.
 
    k8: if (CPlx-CPLxI=0) or (CPlx-CPlxI=1) or (CPlxI-CPlx=1)or(CPlxI-CPlx=CPlxI/2) or (CPlx-CPlxI=CPlx/2) or (CPlxI-CPlx=(CPlxI/2)-1) or (CPlx-CPlxI=(CPlx/2)-1) or ((CPlxI-CPlx>(CPlxI/2)-1) and (CPlxI-CPlx<(CPlxI/2)+1)) then
 
    begin
     a:=x+h;
     b:=y-1;
     count:=count+1; // Счет ступеник.
     goto k5;
      end;
 
      k3: OperEnd:=DateTimeToTimeStamp(Now);
 Total:=OperEnd.Time-OperBegin.Time;
 
 
   ListBox1.Items.Add(IntToStr(CPlx0)+' CPlx0');
   ListBox1.Items.Add(IntToStr(CPlxI)+' CPlxI');
   ListBox1.Items.Add(IntToStr(count)+' Ступеньки.');
   ListBox1.Items.Add(IntToStr(Total)+' MSec');
     end; // Конец прог.
       end;
         end.

Адовый пиздец с киберфорума.

http://www.cyberforum.ru/delphi-beginners/thread941698.html

murder, 23 Августа 2013

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

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

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

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

C++ / Говнокод #13656

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

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

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

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

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

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

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