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

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

+110.2

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

function HexStrToint(S: String): Integer;
begin
if (s='$00000000') or (s='clBlack')then HexStrToint:=0
else
if s='$00010101' then HexStrToint:=1
else
if s='$00020202' then HexStrToint:=2
else
if s='$00030303' then HexStrToint:=3
else
if s='$00040404' then HexStrToint:=4
else
if s='$00050505' then HexStrToint:=5
else
if s='$00060606' then HexStrToint:=6
else
if s='$00070707' then HexStrToint:=7
else
if s='$00080808' then result:=8
else
if s='$00090909' then result:=9
else
if s='$000A0A0A' then result:=10
else
if s='$000B0B0B' then result:=11
else
if s='$000C0C0C' then result:=12
else
if s='$000D0D0D' then result:=13
else
if s='$000E0E0E' then result:=14
else
if s='$000F0F0F' then result:=15
else
if s='$00101010' then result:=16
else
if s='$00111111' then result:=17
else
if s='$00121212' then result:=18
else
if s='$00131313' then result:=19
else
if s='$00141414' then result:=20
else
if s='$00151515' then result:=21
else
if s='$00161616' then result:=22
else
if s='$00171717' then result:=23
else
if s='$00181818' then result:=24
else
if s='$00191919' then result:=25
else
if s='$001A1A1A' then result:=26
else
if s='$001B1B1B' then result:=27
else
if s='$001C1C1C' then result:=28
else
if s='$001D1D1D' then result:=29
else
if s='$001E1E1E' then result:=30
else
if s='$001F1F1F' then result:=31
else
if s='$00202020' then result:=32
else
if s='$001D1D1D' then result:=33
else
if s='$00222222' then result:=34
else
if s='$00232323' then result:=35
else
if s='$00242424' then result:=36
else
if s='$00252525' then result:=37
else
if s='$00262626' then result:=38
else
if s='$00272727' then result:=39
else
if s='$00282828' then result:=40
else
if s='$00292929' then result:=41
else
if s='$002A2A2A' then result:=42
else
if s='$002B2B2B' then result:=43
else
if s='$002C2C2C' then result:=44
else
if s='$002D2D2D' then result:=45
else
if s='$002E2E2E' then result:=46
else
if s='$002F2F2F' then result:=47
else
if s='$00303030' then result:=48
else

Наткнулся на проявление "гениальности"
// про язык, на котором написано, вообще молчу

Это перевод хексов оттенков серого в числа (там до 255 включительно, но здесь не влезает)
Код, может, и сгенерирован, но все равно это говнокод ^_^

m08pvv, 11 Апреля 2010

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

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

+130.8

1

^.*rutor\.org\/(?:(?:torrent)|(?:download))\/(\d*)\/?.*

govnoacc, 11 Апреля 2010

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

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

+115.2

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

class TReadWrapper<TItemType>
    {
		public static object item(string ItemString)
        {
			if (typeof(TItemType) == typeof(double))
				return Convert.ToDouble(ItemString);
            TDbg.Assert(false);
            return null;
        }
    };

    class TRead<TItemType>
    {
		public static TItemType item(StreamReader BinaryStream)
        {
			string ItemString = BinaryStream.ReadLine();
			if (ItemString == null)
				throw new Exception();
			return (TItemType)TReadWrapper<TItemType>.item(ItemString);
        }
    };

	class TFileToList<TListItem> : List<TListItem>
    {
        public TFileToList(string FileName)
        {
			if(typeof(TListItem)==typeof(char))
			{
				StreamReader file = new StreamReader(FileName, Encoding.Unicode);
				string FileData = file.ReadToEnd();
				foreach (char item in FileData)
					this.Add((TListItem)(object)item);
				file.Close();
				return;
			};

			StreamReader fileSource = new StreamReader(FileName, Encoding.Unicode);
			try
            {
				for (;;)
					this.Add(TRead<TListItem>.item(fileSource));
			}
			catch
			{
			};
			fileSource.Close();
        }
    }

    class TListToFile<TListItem>
    {
        static public void rewrite(string NameOfDestinationFile, List<TListItem> Source)
        {
			if(typeof(TListItem)==typeof(char))
			{
				StreamWriter file = new StreamWriter(NameOfDestinationFile, false, Encoding.Unicode);
				foreach (TListItem item in Source)
					file.Write(item);
				file.Flush();
				file.Close();
				return;
			};

			StreamWriter fileDestination = new StreamWriter(NameOfDestinationFile, false, Encoding.Unicode);
			foreach (TListItem item in Source)
				fileDestination.WriteLine(Convert.ToString(item));
			fileDestination.Flush();
			fileDestination.Close();
        }
    }

Говногость, 11 Апреля 2010

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

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

+144

1
2

<script type="text/javascript" src="/media/ddd20ce56acf1d9ebadd126322495087.js?files=jquery.js,jquery.scrollTo.js,govnokod.js,jshighlight/highlight.pack.js&amp;v=3"></script>
<

Armanio, 10 Апреля 2010

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

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

+144.8

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

#ifndef __gen_spi_h
#define __gen_spi_h

#ifndef SPI_PORT_TYPE_OVERRIDE
#define SPI_PORT_TYPE unsigned int
#endif

#ifndef SPI_BYTE_TYPE_OVERRIDE
#define SPI_BYTE_TYPE unsigned char 
#endif

// SPI SS SIGNAL --- OUT
#define DECL_SS(N, P, B) \
volatile SPI_PORT_TYPE *const _##N##_SS_POUT = &(P##OUT); \
volatile SPI_PORT_TYPE *const _##N##_SS_PDIR = &(P##DIR); \
const SPI_PORT_TYPE           _##N##_SS_BIT  = B

// SPI SCK SIGNAL --- OUT
#define DECL_SCK(N, P, B) \
volatile SPI_PORT_TYPE *const _##N##_SCK_POUT = &P##OUT; \
volatile SPI_PORT_TYPE *const _##N##_SCK_PDIR = &(P##DIR); \
const SPI_PORT_TYPE           _##N##_SCK_BIT  = B

// SPI MOSI SIGNAL --- OUT
#define DECL_MOSI(N, P, B) \
volatile SPI_PORT_TYPE *const _##N##_MOSI_POUT = &P##OUT; \
volatile SPI_PORT_TYPE *const _##N##_MOSI_PDIR = &P##DIR; \
const SPI_PORT_TYPE           _##N##_MOSI_BIT  = B

// SPI MISO SIGNAL --- IN
#define DECL_MISO(N, P, B) \
volatile SPI_PORT_TYPE *const _##N##_MISO_PIN  = &P##IN; \
volatile SPI_PORT_TYPE *const _##N##_MISO_PDIR  = &P##DIR; \
const SPI_PORT_TYPE           _##N##_MISO_BIT  = B

#define SETSS(N) *(_##N##_SS_POUT) |= _##N##_SS_BIT
#define CLRSS(N) *(_##N##_SS_POUT) &= ~(_##N##_SS_BIT)

#define SETMOSI(N) *(_##N##_MOSI_POUT) |= _##N##_MOSI_BIT
#define CLRMOSI(N) *(_##N##_MOSI_POUT) &= ~(_##N##_MOSI_BIT)

#define SETCLK(N) *(_##N##_SCK_POUT) |= _##N##_SCK_BIT
#define CLRCLK(N) *(_##N##_SCK_POUT) &= ~(_##N##_SCK_BIT)

#define READMISO(N) (((*(_##N##_MISO_PIN)) & _##N##_MISO_BIT) != 0)

#define SPI_SETUP(N) \
    SETSS(N); \
   *(_##N##_SCK_PDIR)  |= _##N##_SCK_BIT;     \
   *(_##N##_MOSI_PDIR) |= _##N##_MOSI_BIT;    \
   *(_##N##_SS_PDIR)   |= _##N##_SS_BIT;      \
   *(_##N##_MISO_PDIR) &= ~(_##N##_MISO_BIT); \
    CLRSS(N); \
    SETSS(N)

#define DECL_SPI_TRANS_BYTE(N) \
SPI_BYTE_TYPE _##N##_spi_trans_byte(SPI_BYTE_TYPE val) { \
  register SPI_BYTE_TYPE bitnum; \
  for (bitnum = 0; bitnum < 8; bitnum++) { \
    if (val & 0x80) SETMOSI(N); \
    else CLRMOSI(N); \
    val <<= 1; \
    SETCLK(N); \
    val |= READMISO(N); \
    CLRCLK(N); \
  } \
  return val; \
} \

#define SPI_BEGIN(N) SETSS(N);CLRSS(N)
#define SPI_END(N)   SETSS(N)

#define SPI_TRANS_BYTE(N, B) _##N##_spi_trans_byte((B))

#endif

dmzlj.livejournal.com, 10 Апреля 2010

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

SQL / Говнокод #2983

−869.4

1

select ST1,lower(naim||' ( '||nam||' )') from ST_REAL, (select nvl(d.k_dor, g.k_admi+200) kod, decode(:lng,'uk',n_strnus/*ua_country*/,'ru',N_Strnr/*ru*_country*/) nam from (select relsa.k_admi,N_Strnr,n_strnus from d_adm@psv_nsi relsa, d_strn@psv_nsi strana/*, arm_spr.gosdor@uzc1 doroga*/ where relsa.k_strn=strana.k_strn)

ramzes2, 10 Апреля 2010

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

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

+144.8

1

<li><script type="text/javascript" src="http://reformal.ru/tab.js?title=%C3%EE%E2%ED%EE%EA%EE%E4.%F0%F3%3A+%EF%EE+%EA%EE%EB%E5%ED%EE+%E2+%EA%EE%E4%E5&amp;domain=govnokod&amp;color=adadad&amp;align=left&amp;charset=utf-8&amp;ltitle=%CE%F2%E7%FB%E2%FB&amp;lfont=Verdana,%20Geneva,%20sans-serif&amp;lsize=11px&amp;waction=0&amp;regime=1"></script></li>

А теперь отгадайте с какого это сайта

hromjo, 10 Апреля 2010

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

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

+92

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

{Обнуление сумм}

    sum1:=0;
    sum2:=0;
    sum3:=0;
    sum4:=0;
    sum5:=0;
    sum6:=0;
    sum7:=0.001;
    sum8:=0.001;
    giga1:=0;
    giga2:=0;
    sum9:=0;
    sum10:=0;
    sum11:=0;
    sum12:=0;
    sum13:=0;
    sum14:=0;
    sum15:=0;
    sum16:=0;

    for i:=0 to cnt do begin
    sum1:=sum1+TNP[i]; sum2:=sum2+TNO[i]; //Подсчёт "Прямого" и "Обратного"
    sum3:=sum3+TNP[i]-TNO[i]; //Подсчёт "Израсходовано воды"
    sum4:=sum4+PAR[i]; //Подсчёт "Израсходовано пара"
    sum5:=sum5+Tpar[i]; //Подсчёт "температуры пара"
    sum6:=sum6+Ppar[i]; //Подсчёт "давления пара"
    sum7:=sum7+Tprm[i]; //Подсчёт "температуры прямого"
    sum8:=sum8+Tobr[i]; //Подсчёт "температуры обратного"
    sum10:=sum10+Qvoz[i]; //Подсчёт "Израсходовано воздуха"
    sum11:=sum11+Tvoz[i]; //Подсчёт "температуры воздуха"
    sum12:=sum12+Pvoz[i]; //Подсчёт "давление воздуха"
    sum13:=sum13+Qhzv[i]; //Подсчёт "Израсходовано хоз. воды"
    sum14:=sum14+Qthv[i]; //Подсчёт "Израсходовано тех. воды"
    sum15:=sum15+Thzv[i]; //Подсчёт "Температуры. хоз воды"
    sum16:=sum16+Tthv[i]; //Подсчёт "Температуры. тех воды"

 // giga1:= (sum1 * 1000) * (660 * 0.000001) /  (sum7/sum8) ; // расчёт гигакалорий для отопления
 // giga1:= (sum1 * 1000) * (660 * 0.000001); // расчёт гигакалорий для отопления

    giga1:= (sum3 / 3.04); // расчёт гигакалорий для отопления

    giga2:= (sum4 * 1000) * (660 * 0.000001); // расчёт гигакалорий для пара
    end;    end;    end;

ka3ax, 10 Апреля 2010

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

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

+120

1
2

foreach(char Enter in Environment.NewLine)
              this.Add(Enter);

Говногость, 10 Апреля 2010

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

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

+144.8

1
2
3
4
5

<?php
if(!@isset($_POST[submit]))
{
...
?>

DmitryDick, 09 Апреля 2010

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

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

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

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

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

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

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

SQL / Говнокод #2983

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

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

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

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