1. C# / Говнокод #121

    +30

    1. 1
    2. 2
    clsLine L = Lines[4][i];
int Ind = Lines[4].IndexOf(L);

    guest, 12 Декабря 2008

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

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

    +39.2

    1. 1
    <?php echo "Кру"; ?>чу, <script>document.write('вер');</script><?php print("чу, "); ?>запу<?php eval(" ?>тать<?php "); echo ' хочу'; ?>

    Защита от копирования ))))))

    guest, 12 Декабря 2008

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

  3. C++ / Говнокод #119

    +890.7

    1. 1
    #define private public

    guest, 12 Декабря 2008

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

  4. SQL / Говнокод #118

    −370.9

    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
    CREATE OR REPLACE FUNCTION hex_inc(in_str character, n integer)
RETURNS character AS
$BODY$
DECLARE x varchar;
BEGIN
x=in_str;
if (substring(in_str from n for n+1)='0') or (substring(in_str from n for n+1)='1') or (substring(in_str from n for n+1)='2')
or (substring(in_str from n for n+1)='3') or (substring(in_str from n for n+1)='4') or (substring(in_str from n for n+1)='5')
or (substring(in_str from n for n+1)='6') or (substring(in_str from n for n+1)='7') or (substring(in_str from n for n+1)='8')
or (substring(in_str from n for n+1)='A') or (substring(in_str from n for n+1)='B') or (substring(in_str from n for n+1)='C')
or (substring(in_str from n for n+1)='D') or (substring(in_str from n for n+1)='E') THEN
x=raplace_char(n,x,chr((ascii(substring(in_str from n for n+1))+1))); -- inc() только для string
ELSIF (substring(in_str from n for n+1)='9') THEN
x=raplace_char(n,x,'A'); -- ну т.к. это уже 10
ELSIF (substring(in_str from n for n+1)='F') THEN
x=raplace_char(n,x,'0'); -- ну т.к. это +1 разряд :)
x=hex_inc(x,n-1);
END IF;
RETURN x;
END;
$BODY$
LANGUAGE 'plpgsql' VOLATILE
COST 100;

CREATE OR REPLACE FUNCTION raplace_char(n integer, in_str character, in_char character)
RETURNS character AS
$BODY$
Begin
IF ( n = char_length(in_str) ) THEN
RETURN substring(in_str from 1 for n-1) || in_char;
ELSIF (n = 1) THEN
RETURN in_char || substring(in_str from 2 for char_length(in_str)-1) ;
ELSE
RETURN substring(in_str from 1 for n-1) || in_char || substring(in_str from n+1 for char_length(in_str)-n);
END IF;
END;
$BODY$
LANGUAGE 'plpgsql' STABLE
COST 100;

    Язык PL/PgSQL
    Функция должна делать inc числу, записанному в строке в шестнадцатеричном виде

    guest, 12 Декабря 2008

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

  5. C# / Говнокод #117

    +27

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    if (Monitor.TryEnter(this))
            {
                ...
            }
            else
            {
                // do not do anything
            }

    guest, 12 Декабря 2008

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

  6. PHP / Говнокод #115

    −58.5

    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
    //Вознашу хвалу тебе, о великий индуский бог программинга! Как ни странно, работает, но надо переписать на досуге.
	       
$city_xml = $CityArray->GetXml("CityList");
	foreach($city_xml as $tmp_array){
		if(!is_string($tmp_array) && $tmp_array[0] != "" && $tmp_array[0] != "Success" ){
			foreach($tmp_array as $second_array){
				$ixml = new xml();
			    	$ixml->Insert($second_array);
			    	foreach($ixml as $country_array){
			    		if(!is_string($country_array) && $country_array[0] != "" && $country_array[0] != "Success" ){
						foreach($country_array as $rxml){
							if(!is_string($rxml)){
								foreach($rxml as $axml){
									if(!is_string($axml) && $axml[0] && $axml[0] != "Position"){
										foreach($axml as $bxml){
											foreach($bxml as $cxml){
												if(!is_string($cxml) && is_array($cxml) && $cxml["Name"]){
													$cities[] = $cxml;
												}
											}
										}	
									}
								}
							}
						}
				    	}
				    }
				}
			}
		}
return $cities;

    Парсинг xml

    guest, 11 Декабря 2008

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

  7. PHP / Говнокод #114

    +29

    1. 1
    $result = $this->CachedRequest(600, $sirenaXml->Write(true) . ' ', $rxml);  // Никто никогда не поверит, зачем нужен пробел. ЧТОБЫ ВСЕ РАБОТАЛО! Магия.

    запрос в систему бронирования авиабилетов

    guest, 11 Декабря 2008

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

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

    −23.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
    if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'Т_НАЦ' + FieldDelim, OpArtFields) > 0)) then
    sSelect := sSelect + ', ' + LMax + 'AR.Percent' + R + ' AR_Percent';
  if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'Т_КАТ' + FieldDelim, OpArtFields) > 0)) then
    sSelect := sSelect + ', ' + LMax + 'AR.ID_ArtCat' + R + ' AR_ID_ArtCat';
  if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'Т_ВЕС' + FieldDelim, OpArtFields) > 0)) then
    sSelect := sSelect + ', ' + LMax + 'AR.Weight' + R + ' AR_Weight';
  if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'Т_ОБЪЕМ' + FieldDelim, OpArtFields) > 0)) then
    sSelect := sSelect + ', ' + LMax + 'AR.Capacity' + R + ' AR_Capacity';
  if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'МИННАЦ' + FieldDelim, OpArtFields) > 0)) then
    sSelect := sSelect + ', ' + LMax + 'AR.MinDiscount' + R + ' AR_MinDiscount';
  if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'Т_МИНКОЛ' + FieldDelim, OpArtFields) > 0)) then
    sSelect := sSelect + ', ' + LMax + 'AR.MinQuantity' + R + ' AR_MinQuantity';
  if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'Т_СТАТУС' + FieldDelim, OpArtFields) > 0)) then
    sSelect := sSelect + ', ' + LMax + 'AR.Status' + R + ' AR_Status';
  if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'Т_ГТД' + FieldDelim, OpArtFields) > 0)) then
    sSelect := sSelect + ', ' + LMax + 'AR.GTD' + R + ' AR_GTD';
  if (TableData = 1) or ((TableData = 2) and
    (Pos(FieldDelim + 'Т_СТРАНА' + FieldDelim, OpArtFields) > 0)) then 
    sSelect := sSelect + ', ' + LMax + 'CO.Name' + R + ' AR_Country';

    Собирание SQL - запроса для выборки полей. И это маленький кусочек :)
    Серьёзная контора с миллиардными оборотами!

    guest, 11 Декабря 2008

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

  9. JavaScript / Говнокод #111

    +133.2

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    if (a.length > 0){
    if (a.length <> 0){
        if (a.length == 7){
            if (a.length === 7){
                return a;
            }
        }
    }
}

    7 раз отмерь 1 отрежь

    guest, 11 Декабря 2008

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

  10. SQL / Говнокод #110

    −1105.8

    1. 1
    2. 2
    3. 3
    4. 4
    IF LTRIM(RTRIM(LEN(ISNULL(@MandantTags,'')))) > 0
BEGIN
	SET @TagsSQL = 'INSERT INTO #MandantTmp (...
END

    guest, 11 Декабря 2008

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