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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5698)
2. C++ (2733)
3. Куча (2324)
4. JavaScript (2027)
5. C# (1924)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (531)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (196)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (28)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

1. Список говнокодов пользователя SadKo

   Всего: 18

2. Java / Говнокод #6436

   +72

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17
   18. 18
   19. 19
   20. 20
   21. 21
   22. 22
   23. 23
   24. 24
   25. 25
   26. 26
   27. 27
   28. 28
   29. 29
   30. 30
   31. 31
   32. 32
   33. 33
   34. 34
   35. 35
   36. 36
   37. 37
   38. 38
   39. 39
   40. 40
   41. 41
   42. 42
   43. 43
   44. 44
   45. 45
   46. 46
   47. 47
   48. 48
   49. 49
   50. 50
   51. 51
   52. 52
   53. 53
   54. 54
   55. 55
   56. 56
   57. 57
   58. 58
   59. 59
   60. 60
   61. 61
   62. 62
   63. 63
   64. 64
   65. 65
   66. 66
   67. 67
   68. 68

   public class Tm_SP_RP extends Tm_Service implements IObject{
   	private static final String m_MsgProfileStore =
   		"UPDATE TM_SP_RP SET strMsgProfile=? WHERE nServiceID=?";
   	private static final String m_WorkaroundHack =
   		"SELECT data_type FROM user_tab_columns WHERE table_name='TM_SP_RP' AND column_name='STRMSGPROFILE'";
   
   	private String strMsgProfile = null;
   
   /* Здесь ещё разные всякие методы */
   
           private static String getWorkaroundType(Connection conn) throws SQLException
       {
       	PreparedStatement stmt = conn.prepareStatement(m_WorkaroundHack);
       	try
       	{
       		ResultSet rset = stmt.executeQuery();
       		try
       		{
       			if (!rset.next())
       				return "VARCHAR2";
       			return rset.getString(1);
       		}
       		finally
       		{
       			if (rset != null)
       				rset.close();
       		}
       	}
       	finally
       	{
       		if (stmt!=null)
       			stmt.close();
       	}
       }
   
   	public void storeMsgProfile(Connection conn) throws SQLException
   	{
   		String w_around = getWorkaroundType(conn); 
   		
       	PreparedStatement stmt = conn.prepareStatement(m_MsgProfileStore);
       	try
       	{
       		if (w_around.equalsIgnoreCase("VARCHAR2") ||
       			w_around.equalsIgnoreCase("VARCHAR"))
       		{
       			if (strMsgProfile == null)
       				stmt.setNull(1, Types.NULL);
       			else
       				stmt.setString(1, strMsgProfile);
       		}
       		else
       		{
       			byte []data = (strMsgProfile == null) ?
   	    				new byte[0] : strMsgProfile.getBytes();
   	    		stmt.setBytes(1, data);
       		}
       		
       		stmt.setLong(2, this.getId());
       		
       		stmt.executeUpdate();
       	}
       	finally
       	{
       		if (stmt!=null)
       			stmt.close();
       	}
   	}
   }

   Комбинация из багованных JDBC-дров Oracle и работающего с ним Hibernate (чтоб он сдох) иногда заставляет рождать вот такие хитрые workaround-хаки. Несколько баз, в одной тип поля - LONG, в другой - VARCHAR2.

   SadKo, 21 Апреля 2011

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

3. JavaScript / Говнокод #6303

   +165

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17
   18. 18
   19. 19
   20. 20
   21. 21
   22. 22
   23. 23
   24. 24
   25. 25
   26. 26
   27. 27
   28. 28

   function securityMode(c_f)                                                                                                                                   
   {                                                                                                                                                            
           var security_mode;
   
           changed = c_f;
   
           hideWep();
   
           document.getElementById("div_security_shared_mode").style.visibility = "hidden";
           document.getElementById("div_security_shared_mode").style.display = "none";
           document.getElementById("div_wpa").style.visibility = "hidden";
           document.getElementById("div_wpa").style.display = "none";
           document.getElementById("div_wpa_algorithms").style.visibility = "hidden";
           document.getElementById("div_wpa_algorithms").style.display = "none";
           document.getElementById("wpa_passphrase").style.visibility = "hidden";
           document.getElementById("wpa_passphrase").style.display = "none";
           document.getElementById("wpa_key_renewal_interval").style.visibility = "hidden";
           document.getElementById("wpa_key_renewal_interval").style.display = "none";
           document.getElementById("wpa_PMK_Cache_Period").style.visibility = "hidden";
           document.getElementById("wpa_PMK_Cache_Period").style.display = "none";
           document.getElementById("wpa_preAuthentication").style.visibility = "hidden";
           document.getElementById("wpa_preAuthentication").style.display = "none";
           document.security_form.cipher[0].disabled = true;
           document.security_form.cipher[1].disabled = true;
           document.security_form.cipher[2].disabled = true;
   
           // etc...                                                                                                                                                           
   }

   Китайский говнокод, который пока даже страшно рефакторить.

   SadKo, 10 Апреля 2011

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

4. Perl / Говнокод #5766

   −115

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17
   18. 18
   19. 19

   # Функция обновляет файл базы
           # Пользоваться: cut_jnl($bc, $local_ip, $jnl_string_new);
           sub cut_jnl
           {
   
                        my ( $bc, $ip_old, $string_new ) = @_;
                        open (JNL, "<$bc->{const}{base_jnl}");
                        undef $\;
                        my @all_file = <JNL>;
                        close JNL;
                        chomp($string_new);
                        $string_new .= "\n" if ($string_new ne '');
                        grep { s/.*$ip_old;.*/$string_new/sg } @all_file;
                        open (JNL, ">$bc->{const}{base_jnl}");
                        grep { print JNL } @all_file;
                        close JNL;
                        $bc->{const}{info}->debug("Update jnl, update string: $ip_old on $string_new");
   
           }

   no comments... особенно доставляют инструкции grep {}, это похлеще map {} будет.

   SadKo, 22 Февраля 2011

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

5. Perl / Говнокод #5764

   −125

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17
   18. 18
   19. 19
   20. 20
   21. 21
   22. 22

   # Функция проверки валидность и сравнение ip адресов
           # Пользоваться: dynamic_comparison_ip($bc, $s1, $s3, $s5, $s8)
           sub  dynamic_comparison_ip
           {
                 my ( $bc, $s1, $s3, $s5, $s8 ) = @_;
   
                 my $ip_regext = qr/(?:[0-9]\.|[0-9]{2}\.|[0-2][0-9]{2}\.){3}(?:[0-9]|[0-9]{2}|[0-2][0-9]{2})/;
   
                 if ( ( $bc->{config_params}{HOST} eq $s1 ) or
                      ( $bc->{config_params}{HOST} eq $s3 ) or
                      ( $s1 eq $s3 ) or
                     ( ($s5 =~ $ip_regext ) and ( $bc->{config_params}{HOST} eq $s5  or  $s1 eq $s5 or  $s3 eq $s5  ) ) or
                     ( ($s8 =~ $ip_regext ) and ( $bc->{config_params}{HOST} eq $s8  or  $s1 eq $s8 or  $s3 eq $s8  ) ) or
                     ( ($s5 =~ $ip_regext ) and ($s8 =~ $ip_regext ) and ( $s5 eq $s8 ) )
                    ) {
                                      $bc->{const}{warning}->debug("Warning!!!! String $_ not valid!!!");
                                      return 1;
                } else {
   
                                      return 0;
                }
           }

   Предыдущие куски были мной отформатированы уже для лучшего понимания. А это - оригинал... Просто шедевр.

   SadKo, 22 Февраля 2011

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

6. Perl / Говнокод #5763

   −123

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17
   18. 18
   19. 19
   20. 20
   21. 21
   22. 22
   23. 23
   24. 24
   25. 25
   26. 26
   27. 27
   28. 28
   29. 29
   30. 30
   31. 31
   32. 32
   33. 33
   34. 34
   35. 35
   36. 36
   37. 37
   38. 38
   39. 39
   40. 40
   41. 41
   42. 42
   43. 43
   44. 44
   45. 45
   46. 46
   47. 47
   48. 48
   49. 49
   50. 50
   51. 51
   52. 52
   53. 53
   54. 54
   55. 55
   56. 56
   57. 57
   58. 58
   59. 59
   60. 60
   61. 61
   62. 62
   63. 63
   64. 64
   65. 65
   66. 66
   67. 67
   68. 68
   69. 69
   70. 70
   71. 71
   72. 72

   sub initialize  # Действия выполняемые непосредственно перед стартом цикла если мы ведём базу, что бы подгрузится из неё!!!!!
   {
   	my $bc = shift; 
   
   	if ( $bc->{const}{jnl} eq "1" )
   	{
   		$bc->{variable}{ip_addr} = run_shell_script("ip a", 'l');
   
   		open JNL, '<', $bc->{const}{base_jnl};
   		undef $\;
   		my @jnl_strings = <JNL>;
   		close JNL;
   
   		my $ip_regext = qr/(?:[0-9]\.|[0-9]{2}\.|[0-2][0-9]{2}\.){3}(?:[0-9]|[0-9]{2}|[0-2][0-9]{2})/;
   
   		map
   		{
   			chomp;
   
   			if (/^($ip_regext);(.*);($ip_regext);(.*);opt\[ip_v_2:(.*),(.*);int_2:(.*),(.*),(.*)\]$/)
   			{
   				my ( $s1, $s2, $s3, $s4, $s5, $s6, $s7, $s8, $s9 ) = ( "$1", "$2", "$3", "$4", "$5", "$6", "$7", "$8", "$9" );
   
   				if ( dynamic_comparison_ip($bc, $s1, $s3, $s5, $s8) == '1' )
   				{
   					cut_jnl($bc, $s1, '');
   				}
   				else
   				{
   					$bc->{variable}{base_virtual_ip}{$s1} = $s3;
   					$bc->{variable}{base_mask_v_ip}{$s1} = $s2;
   					$bc->{variable}{base_id}{$s1} = $s4;
   					$bc->{variable}{base_addit_v_ip}{$s1} = $s5;
   					$bc->{variable}{base_mask_v_ip_addit}{$s1} = $s6;
   					$bc->{variable}{base_addit_dev}{$s1} = $s7;
   					$bc->{variable}{base_addit_ip}{$s1} = $s8;
   					$bc->{variable}{base_mask_ip_addit}{$s1} = $s9;
   					$bc->{variable}{base_info_T}{$s1} = $bc->{variable}{no_info_T_max};
   					$bc->{variable}{base_delay}{$s1} = 0;
   					$bc->{const}{info}->debug("String $_ has been added in dynamic base");
   
   					push @{$bc->{variable}{base_load_conf}}, $s1; # Формируем базу загруженных из файла
   
   					$bc->{variable}{intrf_eth0} = Modules_SR::Ifconfig_all->new(
   						"$bc->{config_params}{HOST}", 
   						"$bc->{variable}{base_mask_v_ip}{$s1}");
   
   					if ($bc->{variable}{base_addit_v_ip}{$s1})
   					{
   						$bc->{variable}{intrf_eth00} = Modules_SR::Ifconfig_all->new("
   							$bc->{config_params}{HOST}", 
   							"$bc->{variable}{base_mask_v_ip_addit}{$s1}"); 
   					}
   					
   					if ($bc->{variable}{base_addit_dev}{$s1})
   					{
   						$bc->{variable}{intrf_eth1} = Modules_SR::Ifconfig_all->new(
   							"$bc->{variable}{base_addit_dev}{$s1}", 
   							"$bc->{variable}{base_mask_ip_addit}{$s1}");  
   					}
   
   					check_stop_status($bc, "$s1");
   				}
   			}
   			else
   			{
   				$bc->{const}{info}->debug("String $_ hasn't been added in dynamic base");
   				$bc->{const}{warning}->debug("String $_  has incorrect format!!!");
   			}
   		} @jnl_strings;
   	}
   } # end Действия выполняемые непосредственно перед стартом цикла

   Всё оттуда же. Инициализация объекта. Теперь делать через map {} стало, по-видимому, модно. Куча непонятно зачем нужных переменных и полей... FACEPALM...

   SadKo, 22 Февраля 2011

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

7. Perl / Говнокод #5762

   −124

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17
   18. 18
   19. 19
   20. 20
   21. 21
   22. 22
   23. 23
   24. 24
   25. 25
   26. 26
   27. 27
   28. 28
   29. 29
   30. 30
   31. 31
   32. 32
   33. 33
   34. 34
   35. 35
   36. 36
   37. 37
   38. 38
   39. 39
   40. 40
   41. 41
   42. 42
   43. 43
   44. 44
   45. 45
   46. 46
   47. 47
   48. 48
   49. 49
   50. 50
   51. 51
   52. 52
   53. 53
   54. 54
   55. 55
   56. 56
   57. 57
   58. 58
   59. 59
   60. 60
   61. 61
   62. 62
   63. 63
   64. 64
   65. 65
   66. 66
   67. 67
   68. 68
   69. 69
   70. 70
   71. 71
   72. 72
   73. 73
   74. 74
   75. 75
   76. 76
   77. 77

   if ($bc->{variable}{status} eq "1" && $bc->{variable}{wait} eq "mmua" &&    # Действия при получении подтверждения старта
   			$bc->{const}{data} =~ /^MMUA\(mkd;$bc->{config_params}{VIRTUAL_IP};.*;$bc->{config_params}{HOST};$bc->{config_params}{TCM_ID};.*;.*\)$/)
   	{
   #		$bc->{const}{info}->debug("START ACCEPT");
   		
   		$bc->{const}{console_out} = "1.Answer SR-Slave: ok\n";
   		
   		my $res = check_virtual_ip($bc, "0", "0", "1", "$bc->{config_params}{VIRTUAL_IP}");
   		$bc->{const}{info}->debug("check_virtual_ip = $res");
   
   		unless ($res =~ /.*exist already and not local.*/)
   		{
   			EXECUTE_START($bc);
   			$bc->{const}{info}->debug("Start permit");
   		}
   		else
   		{
   			$bc->{const}{info}->debug("Start not recommend");
   		}
   
   		$bc->{const}{console_out} .= "2.Answer check_virtual_ip: " . $res;
   		open (RESPONSE, ">$bc->{const}{res_start}");
   		print RESPONSE $bc->{const}{console_out};
   		close RESPONSE;
   	}
   	elsif ($bc->{variable}{status} eq "1" && $bc->{variable}{wait} eq "mmua") # Действия при ожидании подтверждения от Сервера старта
   	{
   #		$bc->{const}{info}->debug("START ACCEPT WAIT");
   		
   		if ( $bc->{variable}{var_T1} >=  $bc->{variable}{T1} )
   		{
   			$bc->{const}{console_out} = "1.Answer SR-Slave: slave doesn't answer\n";
   			
   			my $res = check_virtual_ip($bc, "0", "0", "1", "$bc->{config_params}{VIRTUAL_IP}");
   			$bc->{const}{info}->debug("check_virtual_ip = $res");
   
   			unless( $res =~ /.*exist already and not local.*/ )
   			{
   				EXECUTE_START($bc);
   				$bc->{const}{info}->debug("Start permit");
   			}
   			else
   			{
   				$bc->{const}{info}->debug("Start not recommend");
   			}
   
   			$bc->{const}{console_out} .= "2.Answer check_virtual_ip: " . $res;
   
   			open (RESPONSE, ">$bc->{const}{res_start}");
   			print RESPONSE $bc->{const}{console_out};
   			close RESPONSE;
   		}
   		else
   		{
   			++$bc->{variable}{var_T1};
   		}
   ### Возможно жопа здесь !!!!!
   	}
   	elsif (-e $bc->{const}{req_restart} or $bc->{variable}{before_start} eq '1') # Действия при обноружении рестарта ручного или при первом запуске
   	{
   #		$bc->{const}{info}->debug("FIRST START / RESTART");
   		
   		unlink $bc->{const}{req_restart};
   		unlink $bc->{const}{req_restart_program};
   		unless($bc->{variable}{before_start})
   		{
   			$bc->{const}{info}->debug("Found restart.req");
   		}
   		else
   		{
   			$bc->{const}{info}->debug("Starting MASTER -> send MMU...");	      
   		}	      
   
   		send_mmu ($bc, "1", "mmua-for-restart");
   		$bc->{variable}{delay} = $bc->{variable}{delay_max};
   		$bc->{variable}{before_start} = 2 if ($bc->{variable}{before_start} eq '1');   # Не будем отправлять INFO, пока не прийдёт подтверждение MMUA
   	}

   Ещё несколько перлов из утилиты. Так записываем конечный автомат по функционированию протокола. Привёл только маленький кусочек из цепочки IF'ов.

   SadKo, 22 Февраля 2011

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

8. Perl / Говнокод #5754

   −123

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16

   sub check_interface
   {
   	my $int_input = shift;
   	my $all_intr_local = [];
   	$_ = qx[ip a];
   	s[\d{1,}:[ ]{1,}([^ ]{1,}):.*]<unshift(@$all_intr_local, $1)>ge;
   	if ( ! grep( { /^$config_params{$int_input}$/ } @$all_intr_local ))
   	{
   		$warning->debug("Error: interface $int_input can't found local!!!");
   		exit 1;         
   	}
   	else
   	{
   		$info->debug("Load param $int_input = $config_params{$int_input}.");   
   	}
   }

   А вот так мы сканируем сетевые интерфейсы...

   SadKo, 21 Февраля 2011

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

9. Perl / Говнокод #5753

   −124

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17
   18. 18
   19. 19
   20. 20
   21. 21
   22. 22
   23. 23
   24. 24
   25. 25
   26. 26
   27. 27
   28. 28
   29. 29
   30. 30
   31. 31
   32. 32
   33. 33
   34. 34
   35. 35
   36. 36
   37. 37
   38. 38
   39. 39
   40. 40
   41. 41
   42. 42
   43. 43
   44. 44
   45. 45
   46. 46
   47. 47
   48. 48
   49. 49
   50. 50
   51. 51
   52. 52
   53. 53
   54. 54
   55. 55
   56. 56

   sub check_dir
   {
   	my ($param, $mode) = @_;
   	$mode ||= 'sr';
   
   	unless ( $mode eq 'sc')
   	{
   		my $full_path = $config_params{$param};
   		$full_path =~ /^(.+)\/(.+)$/;
   		my $put = $1;
   
   		while(1)
   		{
   			if (-l $full_path)
   			{
   				$info->debug("Load param $param = $full_path it is symlink. Readlink...");
   				$full_path = readlink $full_path;
   			}
   			elsif (-d $full_path or -d "$put/$full_path")
   			{
   				$info->debug("Load param $param = $full_path. It is directory and it is exists");
   				last;
   			}
   			else
   			{
   				$warning->debug("Not valid config. Error parsing param: $param");
   				exit 1;
   			}
   		}
   	}
   	else
   	{
   		my $full_path = $config_params_sc{$param};
   		$full_path =~ /^(.+)\/(.+)$/;
   		my $put = $1;
   
   		while(1)
   		{
   			if (-l $full_path)
   			{
   				$info_sc->debug("Load param $param = $full_path it is symlink. Readlink...");
   				$full_path = readlink $full_path;
   			}
   			elsif (-d $full_path or -d "$put/$full_path")
   			{
   				$info_sc->debug("Load param $param = $full_path. It is directory and it is exists");
   				last;
   			}
   			else
   			{
   				$warning_sc->debug("Not valid config. Error parsing param: $param");
   				exit 1;
   			}
   		}
   	}
   }

   По крайней мере, этот код можно сократить вдвое... И подобное по всей утилите...

   SadKo, 21 Февраля 2011

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

• ← влево
• вправо →

• 2
• 1