1. Perl / Говнокод #2307

    −106.6

    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
    # ВЫШЕ БУДЕТ МАСИВ С 1 до 7 за семь дней дабы делать выборку
for ($indx=0; $indx<7; $indx++) {	## каждый раз работаем с датой
@sql=();

my $bindings = 0;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+$indx*86400); # а тут надо будет написать что умножить эл. масива на чтото
$date=($year+1900).'-'.($mon<9?'0':'').($mon+1).'-'.($mday<10?'0':'').$mday;
$url2=$url.$date;
#####$url2=$url;

$cinema=&get($url2);

...

} # это скобка массива

    Вот такой фрагмент парсера. Комменты читать по 3-4 раза для полного впечатления

    Suor, 22 Декабря 2009

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

  2. PHP / Говнокод #2306

    +163.4

    1. 1
    $file_dump->isOpened()?$file_dump->close():die ($file_dump->open());

    AlDjabad, 22 Декабря 2009

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

  3. SQL / Говнокод #2305

    −125.1

    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
    create procedure [dbo].[pbsp_GetClientUsers]

	(
        @ClientId int,
        @fname varchar(100),
        @lname varchar(100),
        @email varchar(150)
	)

AS
	
DECLARE @SQL varchar(1000)

Set @SQL = 'Select TOP 500 *, tblRoles.title AS Role from tblUser INNER JOIN
        tbl_mtm_UserRoles ON tblUser.UserId = tbl_mtm_UserRoles.UserId INNER JOIN
        tblRoles ON tbl_mtm_UserRoles.RoleId = tblRoles.Id where tblUser.ClientId = ' + STR(@ClientId) + ' ' 

if LEN(@fname) > 0
    Set @SQL = @SQL + ' AND tblUser.fName like ''' + @fname + '%'' '
    
if LEN(@lname) > 0
    Set @SQL = @SQL + ' AND tblUser.lName like ''' + @lname + '%'' '
    
if LEN(@email) > 0
    Set @SQL = @SQL + ' AND tblUser.Email like ''' + @email + '%'' '        	
    
Set @SQL = @SQL + ' Order by tblUser.lName, tblUser.Fname'        	
exec (@SQL)

    По долгу работы приходится местами переписывать унаследованный код. Я держалась неделю, но после этого шедевра все таки зарегилась на сайте и решила поделиться перлом. Интересно, что бы делали, если бы параметров еще штук пускай даже двадцать добавить?

    Крендель, 21 Декабря 2009

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

  4. Pascal / Говнокод #2304

    +86.6

    1. 1
    if Mode = True then

    из исходников FastReport

    StriderMan, 21 Декабря 2009

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

  5. PHP / Говнокод #2303

    +167.3

    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
    if($num_rows == 0)
{
	$arrayToJs[2] = "true";
	echo '{"jsonValidateReturn":'.json_encode($arrayToJs).'}';
}
else
{
	for($x=0;$x<1000000;$x++)
	{
		if($x == 990000)
		{
			$arrayToJs[2] = "false";
			echo '{"jsonValidateReturn":'.json_encode($arrayToJs).'}';
		}
	}
	
}

    Indian mega govnokoding!

    p0dl0m, 21 Декабря 2009

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

  6. Си / Говнокод #2302

    +99.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    #include "org_herac_tuxguitar_player_impl_midiport_oss_MidiSystem.h"
...
JNIEXPORT jlong JNICALL Java_org_herac_tuxguitar_player_impl_midiport_oss_MidiSystem_malloc(JNIEnv* env, jobject obj) {
    ...
}

    Взято из TuxGuitar

    xaionaro, 19 Декабря 2009

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

  7. JavaScript / Говнокод #2301

    +165.7

    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
    function sendClicked(F)
{
var binary = document.getElementById("binary");
var binary_file = binary.value;
var binary_len = binary_file.length;
if(binary_file == ""){
binary.focus();
alert('File name can not be empty !');
return false;
}
else {
if(binary_len<=4) {
binary.focus();
alert('File is wrong !');
return false;
}
if(binary_file.charAt(0) != '/') {
if(binary_file.charAt(1) != ':') {
binary.focus();
alert('File is wrong !!');
return false;
}
}
if(binary_file.charAt(binary_len-4) != '.') {
binary.focus();
alert('File is wrong !!');
return false;
}
if(binary_file.charAt(binary_len-3) != 'B') {
if(binary_file.charAt(binary_len-3) != 'b') {
binary.focus();
alert('File is wrong !!');
return false;
}
}
if(binary_file.charAt(binary_len-2) != 'I') {
if(binary_file.charAt(binary_len-2) != 'i') {
binary.focus();
alert('File is wrong !!');
return false;
}
}
if(binary_file.charAt(binary_len-1) != 'N') {
if(binary_file.charAt(binary_len-1) != 'n') {
binary.focus();
alert('File is wrong !!');
return false;
}
}
show_div(true, "progress_div");
progress();
return true;
}
}

</script>

    Со странички обновления прошивки DWL-G700AP. Из-за этого говнокода прошивается только из internet explorer.

    user.user521, 19 Декабря 2009

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

  8. Pascal / Говнокод #2300

    −96

    1. 1
    2. 2
    {//}l:= a+sqrt(b); 
{//}r:= c+sqrt(d);

    Ещё из одного исходника олимпиадной задачи. Не удалять же символы комментов, если их можно закомментить?

    Сан Саныч, 19 Декабря 2009

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

  9. C# / Говнокод #2299

    +96.1

    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
    [TestFixture]
    class Program
    {
        static void Main(string[] args)
        {
            .................   
        }
    }

    [TestFixture]
    internal class FileParser
    {
        [Test]
        private static string Replace(string inputValue, string oldWord,string newWord)
        {
            return inputValue.Replace(oldWord, newWord);
        }

        [Test]
        private static string Remove(string inputValue, string word)
        {
            return inputValue.Replace(word, null);
        }

        [Test]
        public string Run(string stringFromFile)
        {
            foreach (var command in _listOfCommands)
            {
                switch (command.IdCommand)
                {
                    case 0:
                        stringFromFile = Replace(stringFromFile, command.OldWord, command.NewWord);
                        break;
                    case 1:
                        stringFromFile = Remove(stringFromFile, command.NewWord);
                        break;
                }
            }
            return stringFromFile;
        }
    }

    программист слишком буквально понял TestDrivenDevelopment :)) взято из консольного приложения

    explosion_head, 19 Декабря 2009

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

  10. PHP / Говнокод #2298

    +161.5

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    $keys = array_keys($_POST);
$vals = array_values($_POST);
for($i=0; $i<=count($keys); $i++)
{
    if($keys[$i]!='act' && $keys[$i]!='mode' && $keys[$i]!='pid')
    {
            $sql->Query('UPDATE `user_services_options` SET `value`=\''.$f->QuoteSql($vals[$i]).'\' WHERE `option`=\''.$f->QuoteSql($keys[$i]).'\' AND `service_id`='.$f->QuoteSql($service_id).' AND user_id='.$f->QuoteSql($user_id));
    }
}

    кагбе про foreach($_POST as $key => $value) я тогда и не знал.

    nolka4, 18 Декабря 2009

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