1. JavaScript / Говнокод #877

    +198.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    function floor(value) {
        // http://kevin.vanzonneveld.net
        // +   original by: Onno Marsman
        // *     example 1: floor(8723321.4);
        // *     returns 1: 8723321
        
        return Math.floor(value);
    }

    сколько пафоса!

    guest, 16 Апреля 2009

    Комментарии (13)
  2. C# / Говнокод #876

    +149

    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
    protected void SubmitOk_ServerClick(object sender, EventArgs e)
        {
          ----- здесь код
    
          bool lOk = true;
          try
          {
            lSurvey.Save(int.Parse(mId.Value));
          }
          catch (Exception ex)
          {
            lOk = false;
            Util.ShowAdminError(ex.Message, this.Page);
          }
          if (lOk) Response.Redirect("AdminSurvey.aspx");
         }

    Поступило предложение написать свою СМСКУ (ЦМС), блин ну спаришиветсо зачем???

    guest, 16 Апреля 2009

    Комментарии (0)
  3. C++ / Говнокод #875

    +149

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    unsigned arrtoint(u_char *arr)
    {
        unsigned r=0;
        unsigned s=0xFF;
        for(unsigned int i=0; i<4; i++)
        {
            r+=arr[i]*s;
            s*=0xFF;
        }
        return r;
    }

    Крайне неудачная попытка моего коллеги сконвертить IP в число. Кто найдет больше ошибок?

    guest, 15 Апреля 2009

    Комментарии (12)
  4. PHP / Говнокод #874

    +141

    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
    function arr2xml($data, $rootNodeName = 'response', $xml = null) {
    
                        if ($xml == null) {
                                  $xml = simplexml_load_string("<$rootNodeName />");
                        }
    
                        // loop through the data passed in.
                        foreach($data as $key => $value) {
                // no numeric keys in our xml please!
                if (is_numeric($key)) {
                    // make string key...
                    $key = "unknownNode_". (string) $key;
                }
    
                // replace anything not alpha numeric
                $key = preg_replace('/[^a-z_0-9]/i', '', $key);
    
                // if there is another array found recrusively call this function
                if (is_array($value)) {
                    $node = $xml->addChild($key);
                    // recrusive call.
                    arr2xml($value, $rootNodeName, $node);
                } else {
                    // add single node.
                    $value = $value;
                    $xml->addChild($key,$value);
                }
            }
    
                        // pass back as string. or simple xml object if you want!
            $res = substr($xml->asXML(), 22);
            return $res;
    
        }

    ХУЙПИЗДА ЗУМЛЬ

    guest, 15 Апреля 2009

    Комментарии (0)
  5. VisualBasic / Говнокод #873

    −140

    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
    Public Function fRoundSumma(pDbl As Double) As Double
     On Error Resume Next
     Dim vStrSum As String
     If vFieldRoundSummuDoInt Then
        vStrSum = str(pDbl)
         If InStr(1, vStrSum, ".5") > 0 Then
            If pDbl < 0 Then
               fRoundSumma = Abs(Fix(pDbl)) + 1
               fRoundSumma = fRoundSumma * (-1)
              Else
               fRoundSumma = Fix(pDbl) + 1
            End If
           Else
            fRoundSumma = Round(pDbl, 0)
         End If
       Else
        fRoundSumma = Round(pDbl, vFieldRoundDo)
     End If
    End Function

    Такое забавное округление. Из коммерческого проекта :)

    guest, 15 Апреля 2009

    Комментарии (1)
  6. Куча / Говнокод #872

    +83.5

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    ret = (func(a, b) == SpecNumber) ? true : false;
        if (! ret)
        {
            ShowError ("Some message", a, b));
        }

    Обратить внимание на хитрость получения значения ret, а потом как его используют :)

    guest, 15 Апреля 2009

    Комментарии (1)
  7. Ruby / Говнокод #870

    −140.2

    1. 1
    :logger => lambda { |xyz| logger.info xyz }

    {
    :logger => lambda { |xyz| logger.info xyz }
    }

    guest, 14 Апреля 2009

    Комментарии (0)
  8. PHP / Говнокод #869

    +138.5

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    $text  = "я ты тут ляляля это тест подсветки слово1";
    $get = $_GET[text];
    preg_match_all('/([0-9a-zA-Zа-яА-Я]+)/',$get,$ok);
    for ($i=0; $i<count($ok[1]); $i++) $word.=$ok[1][$i]."|"; 
    $string=preg_replace("/($word)/si","<b>\\0</b>",$text);
    print $string;

    Подсветка слов

    guest, 14 Апреля 2009

    Комментарии (0)
  9. PHP / Говнокод #868

    +147.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
    $foo = "";
    $l = strlen($testoBanner);
    for($i=0; $i<$l; $i++) {
    	$t = substr($testoBanner, $i, 1);
    				
    	if($t != "\r") {
    		if($t == "\n") {
    			//$foo .= "<br>";
    		} else {
    			$foo .= $t;	
    		}
    	}
    }
    		
    $testoBanner = $foo;

    Нашел тут свой старый код. Это я так из строки удалял \r и \n :)

    guest, 14 Апреля 2009

    Комментарии (2)
  10. VisualBasic / Говнокод #867

    −316.8

    1. 1
    2. 2
    3. 3
    If CLng(Text1.Text)<400 and CLng(Text1.Text)>400 then
       Text3.Text="17"
    End if

    и почему условие не проходит?

    guest, 14 Апреля 2009

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