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

1C / Говнокод #10073

−120

1
2
3
4
5

Если НЕ Докум.ПроверенноБухгалтером Тогда
	ЧихПых = Истина;     // подмена контрагента на НЕПРОВЕРЕНО БУХОМ
Иначе
	ЧихПых = Ложь;
КонецЕсли;

Вот такой вот фокус от программистов для бухгалтеров.

koshak84, 28 Апреля 2012

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

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

+84

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

public static String converterMsToTimeString(Long msecond){
		String result="";
		if (msecond!=0){
			long hours =  msecond /(1000*60*60);
			long minuts =  (msecond % (1000*60*60))/(1000*60);
			long seconds =  ((msecond % (1000*60*60)) %(1000*60)) / 1000;
			result = (hours < 10 ? "0" + String.valueOf(hours) : String.valueOf(hours)) + ":" 
					+ (minuts < 10 ? "0" + String.valueOf(minuts) : String.valueOf(minuts)) + ":"
						+ (seconds < 10 ? "0" + String.valueOf(seconds) : String.valueOf(seconds));
			
		}
		result=""; // not many
		return result;
	}

Вставлено как есть. Смысл комента ускользает...

alexcom, 28 Апреля 2012

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

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

+79

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

function exeSQL($inSQL,$withDebug = true,$iniDb = '') {
	global $db;
	
	$tmp_db = $db;
	if ($iniDb != '') {
		$tmp_db = $iniDb;
	}

	if (isset($_SESSION['HIDDEN']) and is_numeric($_SESSION['HIDDEN']['HIDDEN']) and $_GET['HIDDEN'] == 'YES') {
		echo "
		<br>---------------------------------------------------------------------
		BEG_TIME: " . date('h:i:s A');
				print "<pre>";
				print_r($inSQL);
		echo "<br>END_TIME: " . date('h:i:s A') . "<br>
		------------------------------------------------------------------------";		
	}
	
	$result = mysql_query($inSQL, $tmp_db);

    $error = mysql_error($tmp_db);
    
    if ($error) {
    	if (strpos($inSQL, 'USD-CODED_RECORD:V') !== false) {
    		$strSQL = util::decodeRecord($inSQL);
    		exeSQL($strSQL, $withDebug);
    		return ;
    	}
    	if ($withDebug) {    
	   	//	if (!is_dir("d:/temp") and $_GET['debug2'] != 'Y') {
		 //   	echo file_get_contents($_SERVER['DOCUMENT_ROOT'] . '/index.html');
		//		die(); 		
	   	//	}
    			
	    	echo $error;
			print "<pre>";
			print ($inSQL);
	    	die();    	
    	}
    }
    
    // -- CHECK IF IT WAS INSERTION ---
    
    // -- TRY TO RETURN DATASET
     $arr = @mysql_fetch_array($result);
    // -- NO RESULT AT ALL
    if (is_array($arr)) {
    
	    // -- RETURN AS VARCHAR ----
	    if (count($arr) <= 2) return $arr[0];
	    
	    // FORM RESULT ARRAY TO RETURN TO USER
	    $res = array();
	    while ($arr) {
	    	$res[] = $arr;
	    	$arr = mysql_fetch_array($result);
	    }
	           
	    return $res;
    } else {
    	return '';
    	$id = mysql_insert_id($tmp_db);
		if ($id > 0) {
		  	return $id;
		}    	
    }
    
    return '';
}

Работа с СУБД.

nethak, 28 Апреля 2012

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

bash / Говнокод #10070

−366

1

d:/mingw/lib/gcc/../../x86_64-w64-mingw32/include/io.h:175:16: error: 'long long long' is too long for GCC

lebutirate, 28 Апреля 2012

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

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

+90

1
2
3
4
5

* {
  display: block;
  padding: 0;
  margin: 0;
}

напомнил www.govnokod.ru/10060

я понял, что перестарался с таким reset.css, когда мне броузер с готовностью отобразил и title, и скрипты.

я и не думал, что браузер обращает на них внимание.

Lure Of Chaos, 28 Апреля 2012

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

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

+107

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 Ns(ds: char; var vs: byte): boolean;
begin
   case ds of
'Q': vs:= 81;
'W': vs:= 87;
'E': vs:= 69;
'R': vs:= 82;
'T': vs:= 84;
'Y': vs:= 89;
'U': vs:= 85;
'I': vs:= 73;
'O': vs:= 79;
'P': vs:= 80;
'A': vs:= 65;
'S': vs:= 83;
'D': vs:= 68;
'F': vs:= 70;
'G': vs:= 71;
'H': vs:= 72;
'J': vs:= 74;
'K': vs:= 75;
'L': vs:= 76;
'Z': vs:= 90;
'X': vs:= 88;
'C': vs:= 67;
'V': vs:= 86;
'B': vs:= 66;
'N': vs:= 78;
'M': vs:= 77;
else vs:= 0;
  end;
 if vs = 0 then Result:= false else Result:= true;
 end;

Определение кода виртуальных клавиш, вот что бывает, когда кто-то не знает матчасть, вся эта белиберда легко заменяется на :

function Ns(ds: char; var vs: byte): boolean;
begin
case ds of
'A'..'Z': vs:= byte(ds);
else vs:= 0;
end;
if vs = 0 then Result:= false else Result:= true;
end;

И не лень же было клаву мучить!

Alegun, 27 Апреля 2012

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

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

+72

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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

const 
zn1 = #60; { < }   
zn2 = #62; { > } 

function EnCrypt(ds: string): string;
  var 
k,l,m: string; 
i,b,g: integer; 
t: char;
   function Lvs(ds: byte): string;
   begin
    case ds of 
   Byte(zn1): Result:= zn1+zn2;
   Byte(zn2): Result:= zn2+zn1;
         0: if Random(2)=0 then  Result:= zn1+zn1 
             else Result:= zn2+zn2;
           else 
             Result:= Chr(ds);end;
   end;
  begin
   if length(ds)=0 then Exit; 
   Randomize;  k:=''; m:='';  b:=1;
 for i:=1 to RandomRange(5,16) do 
  k:= k+Chr(RandomRange(1,256));
   for i:=1 to Length(ds) do  begin 
g:= Byte(ds[i])xor Byte(k[b]);
   l:= Lvs(g); t:= k[b];
if i<= Length(k) then m:= m+t+l else m:=m+l;
Inc(b);
   if b>Length(k) then b:= 1; 
  end; 
l:= Chr(Length(k))+m;
   for  i:=1 to Length(l) do begin 
b:= Byte(l[I]) xor i;k:= Lvs(b);
   Result:= Result+k; 
end;
  end;

 function DeCrypt(ds: string): string;
  var 
k,c,l,n: string; 
i,b,m: integer; 
d: boolean;
   function Svl(ds: string; ts: integer): char;
   var t: byte;
   begin
    t:=Byte(ds[1]);
    if ds=zn1+zn2 then t:=Byte(zn1);
    if ds=zn2+zn1 then t:=Byte(zn2);
    if(ds=zn1+zn1) or (ds=zn2+zn2) then t:= 0;
   Result:=Chr(Byte(t xor ts));
   end;
  begin
   if length(ds)=0 then Exit;
 b:=1; i:=1; n:='';
   while i<=Length(ds) do begin c:= ds[i];
   if (ds[i]=zn1)or(ds[i]=zn2)then begin 
c:=ds[i]+ds[i+1]; Inc(i); end;
   Inc(i);
 n:= n+Svl(c,b); 
Inc(b); 
end; c:=''; k:=''; b:=1; i:=1; 
d:=false;
m:=Byte(n[1]); 
Delete(n,1,1);
   while i<=Length(n)do begin 
if b<=m*2 then begin if d then begin 
l:=n[i];
  if (n[i]=zn1) or (n[i]=zn2) then 
begin 
    l:= n[i]+n[i+1]; Inc(i); 
end;
   c:=c+l; 
Inc(b);
d:=false; 
end else 
begin 
k:=k+n[i]; d:=true; Inc(b); 
end;
   end else begin 
l:= n[i]; 
if (n[i]=zn1) or (n[i]=zn2) then 
begin   l:= n[i]+n[i+1]; Inc(i); end;  
c:=c+l; end;
 Inc(i); end;
   if length(c)=0 then Exit;
i:=1;b:=1; 
while i<=Length(c)do begin 
l:=c[i];
   if (c[i] = zn1) or (c[i] = zn2) then 
begin 
l:= c[i] + c[i+1]; Inc(i); 
end;
   Inc(i);
Result:= Result + Svl(l, Byte(k[b]));
Inc(b);
if b>Length(k)then b:=1;
   end;
  end;

В очень далёком 99м году была совершена попытка шифровать и дешифровать пароли пользователей простым ХОР-замесом. Тогда такой способ казался идеальным и оригинальным :) Но посмотрите, если руки не оттуда откуда надо растут, как же можно извратиться, чистый говнокод! До сих пор им пользуюсь, немного. Интересно, ктонить догадается, зачем здесь константные знаки используются?

Alegun, 27 Апреля 2012

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

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

+82

1

info.setCreatingDate(document.getREGDATE() != null ? document.getREGDATE() : null);

из реального проекта

amberLord, 27 Апреля 2012

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

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

+100

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

$sql = "SELECT (SELECT Name FROM dbo.RoutesTypes WHERE RowID = Type) AS Name --Название маршрута
      ,(SELECT Name FROM dbo.Destinations WHERE Name = '$Src') AS DestA --Пункт отправления
      ,(SELECT Name FROM dbo.Destinations WHERE Name = '$Dst') AS DestB --Пункт назначения
      --,(SELECT COUNT([RowID]) FROM [RoutePartInstances] WHERE [RoutePartType] = RoutesTypes.RowID AND [Occuped] = 0) AS FreePlaces --Количество свободных мест на выбранную часть маршрута
      ,(SELECT SUM(Cost) From RoutesParts WHERE Ordern >= RoutesTypes.OrderA AND Ordern <= RoutesTypes.OrderB AND InstanceID = Type) AS TicketCost --Стоимость билета на выбранную часть маршрута
      ,(SELECT SUM(TimeInWay) From RoutesParts WHERE Ordern >= RoutesTypes.OrderA AND Ordern <= RoutesTypes.OrderB AND InstanceID = Type) AS TimeInWay --Время в пути на выбранной части маршрута
		--Расчёт времени отправления
      ,(SELECT DATEADD(Minute, 
            (SELECT 
				CASE
					WHEN RoutesTypes.OrderA > 1 THEN (SELECT SUM(TimeInWay) From RoutesParts WHERE Ordern < RoutesTypes.OrderA AND InstanceID = Type)+10*(SELECT COUNT(RowID) From RoutesParts WHERE Ordern < RoutesTypes.OrderA AND InstanceID = Type)
					ELSE 0
				END),[DateStart])) AS DepartureTime
		--Расчёт времени прибытия
      ,(SELECT DATEADD(Minute,
		   (SELECT SUM(TimeInWay) From RoutesParts WHERE Ordern >= RoutesTypes.OrderA AND Ordern <= RoutesTypes.OrderB AND InstanceID = Type)+10*(SELECT COUNT(RowID) From RoutesParts WHERE Ordern > RoutesTypes.OrderA AND Ordern <= RoutesTypes.OrderB AND InstanceID = Type), 
			   (SELECT DATEADD(Minute, 
				   (SELECT 
						CASE
							WHEN RoutesTypes.OrderA > 1 THEN (SELECT SUM(TimeInWay) From RoutesParts WHERE Ordern < RoutesTypes.OrderA AND InstanceID = Type)+10*(SELECT COUNT(RowID) From RoutesParts WHERE Ordern < RoutesTypes.OrderA  AND InstanceID = Type)
					ELSE 0
				END),[DateStart])))) AS ArrivalTime
	
	--,RoutesTypes.OrderA --Порядок выбранной точки отправления в маршруте. Это нам понадобится при покупке билета
    --,RoutesTypes.OrderB --Порядок выбранной точки назначания в маршруте. Это нам понадобится при покупке билета
    --,RoutesTable.[RowID] AS RouteID --Идентификатор рейса из таблицы расписаний. Это нам понадобится при покупке билета
    --,RoutesTable.[Type] AS RouteTypeID --Идентификатор типа маршрута из таблицы типов маршрутов. Это нам понадобится при покупке билета

  FROM [RoutesTable] AS RoutesTable
  INNER JOIN	(SELECT RoutesParts_A.[InstanceID],RoutesParts_A.[TimeA],RoutesParts_B.TimeB,RoutesParts_A.RowID,RoutesParts_  A.Ordern AS OrderA,RoutesParts_B.Ordern AS OrderB
				FROM [RoutesParts] AS RoutesParts_A
				INNER JOIN (SELECT [InstanceID],[TimeB],[Ordern] FROM [RoutesParts] WHERE [DestBID] = (SELECT RowID FROM Destinations WHERE Name = '$Dst')) AS RoutesParts_B ON RoutesParts_B.InstanceID = RoutesParts_A.InstanceID
				WHERE [DestAID] = (SELECT RowID FROM Destinations WHERE Name = '$Src'))AS RoutesTypes ON RoutesTable.Type = RoutesTypes.InstanceID";

Встретил на форуме phpforum.ru. Человек интересовался почему не работает запрос :)

vagrand, 27 Апреля 2012

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

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

+102

1
2
3

<html class="html">
.............
</html>

Бывает и такое

Hits, 27 Апреля 2012

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

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