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

    +158

    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
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    function GrataPressMain()
    {
    	//#region pre
    	var i = 0; //+
    	var iArray = new Array();
    	var iCellSelected = 0; //номер активной ячейки в верхнем меню.+
    	var s = "";
    	var sSite = ""; //+
    	var sSiteTrue = ""; //+
    	var sStatistics = "";
    	var sTitle = ""; //заголовок окна.+
    	var sTitleCell0 = ""; //заголовок в нулевой закладке.+
    	var sTitleCell1 = ""; //заголовок в первой закладке.+
    	var sTitleCell2 = ""; //заголовок в второй закладке.+
    	var sTitleCell3 = ""; //заголовок в третьей закладке.+
    	var sTitleCell4 = ""; //заголовок в четвёртой закладке.+
    	var sTitleCell5 = ""; //заголовок в пятой закладке.+
    	var sTitleCell6 = ""; //заголовок в шестой закладке.+
    страшно? нееет. страшно дальше
    sSiteTrue = "3bz3az36z2yz33z2rz2tz36z33";
    	if (!bSite()) return;
    	sTitle = "Грата Пресс"; //заголовок окна.
    а так?
    sImgUrl5 = "gifCF61B397.gif"; //открытая папка.
    	sImgUrl6 = "gif00BB7312.gif"; //конечный файл.
    	sImgUrl7 = "gif4F60E1FC.gif"; //выделенный уровень.
    	sImgUrl8 = "gifC1ED3F33.gif"; //пустое место под значок.
    	iArray = [104, 116, 116, 112, 58, 47, 47, 111, 107, 110, 111, 46, 109, 111, 115, 46, 114, 117, 47];
    	for (i = 0; i <= 18; i++) sUrlOkno += String.fromCharCode(iArray[i]);
    	iArray = [83, 116, 97, 116, 105, 115, 116, 105, 99, 115, 46, 97, 115, 104, 120, 63, 115, 83, 105, 116, 101, 61];
    	for (i = 0; i <= 21; i++) sStatistics += String.fromCharCode(iArray[i]);
    а так?
    
    divAny=divAny.parentNode.appendChild(document.createElement("div"));
    	divAny.appendChild(document.createTextNode(sTitleRow0));
    	divAny.style.display="inline";
    	divAny=divAny.parentNode.parentNode.appendChild(document.createElement("div"));
    	divAny.style.width="400px";
    	divAny.style.position="absolute";
    	divAny.style.top="1px";
    	divAny.style.left="1px";
    	divAny.style.color="white";
    	imgAny=new Image();
    	if(bIsAttachEvent)imgAny.style.verticalAlign="middle";else imgAny.style.verticalAlign="sub";
    	imgAny.src=sUrlGranit5;
    	divAny=divAny.appendChild(document.createElement("div"));
    	divAny.appendChild(imgAny);
    	divAny.style.display="inline";
    	divAny=divAny.parentNode.appendChild(document.createElement("div"));
    	divAny.appendChild(document.createTextNode(sTitleRow0));
    	divAny.style.display="inline";
    а цсс изгавнякать слабо?
    divAny.style.top="1px";
    	divAny.style.left="1px";
    	divAny.style.color="white";
    
    слабо????? сынки!!!!
    function HomePageLang()
    	{
    		//#region var
    		var oInputSearchValue;
    		var oTextWhiteData0;//белый блок
    		var oTextWhiteData1;
    		var oTextWhiteData2;
    		var oTextWhiteData3;
    		var oTextWhiteData4;
    		var oTextX1Y1Data0;//главная
    		var oTextX1Y1Data1;
    		var oTextX1Y1Data2;
    		var oTextX1Y2Data0;//услуги
    		var oTextX1Y2Data1;
    		var oTextX1Y2Data2;
    		var oTextX1Y2Data3;
    		var oTextX2Y1Data0;//откройте для себя
    		var oTextX2Y1Data1;
    		var oTextX2Y1Data2;
    		var oTextX2Y1Data3;
    		var oTextX2Y1Data4;
    		var oTextX2Y1Data5;
    		var oTextX2Y1Data6;
    		var oTextX2Y2Data0;//почему у нас
    		var oTextX2Y2Data1;
    		var oTextX3Y1Data0;//наши проекты
    		var oTextX3Y1Data1;
    		var oTextX3Y1Data2;
    		var oTextX3Y1Data3;
    		var oTextX3Y1Data4;
    		var divHome;
    		var divAny;
    		var tableWhite;
    		var tableAny;
    		var trAny;
    		var tdAny;

    Сайт имени максима прохорова. чистый яваскрипт.

    ursus, 23 Апреля 2010

    Комментарии (2)
  2. JavaScript / Говнокод #3082

    +156

    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
    Избранные куски кода:
    
    Генерация разметки html страницы: (и так страниц 5-6 кода примерно)
    document.body.style.margin = "0px";
    document.title = sTitle;
    document.body.style.backgroundColor = sColor0;
    document.body.style.backgroundImage = "url(" + sImgUrl0 + ")";
    document.body.style.backgroundRepeat = "repeat-x";
    tableMain = document.body.appendChild(document.createElement("table"));
    tableMain.style.fontFamily = "serif";
    tableMain.style.fontSize = "10.5pt";
    tableMain.style.fontWeight = "bold";
    tableMain.id = "tableMain";
    tableMain.style.width = "100%";
    tableMain.style.borderCollapse = "collapse";
    tableMain.cellPadding = "0px";
    
    
    Данные в базе:
    ⌠var var oCell; //рабочая ячейка. var divAny; ⌡var ⌠ini oCell = document.getElementById("cellInfo"); ⌡ini ⌠one ₢₢₢InfoClear(); ⌡one // 0 ₢₢₢A2Add(oCell,"∃∃∃"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 1 ₢₢₢A2Add(oCell,"∃∃∃"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 2 ₢₢₢A2Add(oCell,"∃∃∃","1_2_76_22"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 3 ₢₢₢A2Add(oCell,"∃∃∃"); ₢₢₢BrAdd(oCell); ₢₢₢BrAdd(oCell); // 4 ₢₢₢TextAddDivBlack(oCell,"∃∃∃",1); ₢₢₢BrAdd(oCell); divAny=₢₢₢div6Add(oCell); // 5 ₢₢₢TextAdd(divAny,"∃∃∃"); ₢₢₢TextAdd(divAny,"www.bolshoybiznes.ru"); // 6 ₢₢₢TextAdd(divAny,"∃∃∃"); // 7 ₢₢₢TextAddBrDivGray(oCell,"∃∃∃"); // 8 ₢₢₢TextAddDivGray(oCell,"∃∃∃"); // 9 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 10 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 11 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 12 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 13 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); ₢₢₢BrAdd(oCell); // 13+4=17 divAny=₢₢₢divList6Add(oCell,["∃∃∃","∃∃∃","∃∃∃","∃∃∃"]);

    Это яваскрипт имени Максима Прохорова.

    ursus, 23 Апреля 2010

    Комментарии (7)
  3. VisualBasic / Говнокод #3081

    −101

    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
    REM Юникод UTF-8 с сигнатурой.
    Option Compare Text
    Imports System
    Imports System.Web
    Imports ClassLibraryAll
    Namespace HandlerAll
    REM Вэб-запрос курсов валют и на какую дату.
    Public Class Course
    Implements IHttpHandler
    REM Переопределяем метод ProcessRequest.
    Public Sub ProcessRequest(ByVal oContext As System.Web.HttpContext) Implements System.Web.IHttpHandler.ProcessRequest
    '#region var
    Dim b As Boolean
    Dim iLang As Integer
    Dim tDate1 As Date
    Dim tDate2 As Date
    Dim dD1 As Double
    Dim dD2 As Double
    Dim dE1 As Double
    Dim dE2 As Double
    Dim sAnswer As String 'текст ответа
    Dim sResponse As String 'текст респонса
    Dim oWebClient As New System.Net.WebClient
    Dim oRegExDate1 As New System.Text.RegularExpressions.Regex("target\=_blank\s*>с \d+\.\d+\.\d+\s*<\/A>\s*<\/td>\s*<td>")
    Dim oRegExInDate1 As New System.Text.RegularExpressions.Regex("\d+\.\d+\.\d+")
    Dim oRegExDate2 As New System.Text.RegularExpressions.Regex("target\=_blank\s*>с \d+\.\d+\.\d+\s*<\/A>\s*<\/td>\s*<\/tr>")
    Dim oRegExInDate2 As New System.Text.RegularExpressions.Regex("\d+\.\d+\.\d+")
    Dim oRegExD1 As New System.Text.RegularExpressions.Regex("США<\/td>\s*<td><\/td>\s*<td\sclass\=""digit""\salign\=""right"">\d+,\d+ <\/td>")
    Dim oRegExInD1 As New System.Text.RegularExpressions.Regex("\d+,\d+")
    'Dim oRegExD2 As New System.Text.RegularExpressions.Regex(">\d+,\d+ <IMG\salt\='.+'\sborder\=0\sheight\=8\shspace\=2\ssrc\=\/images\/.+\.gif\swidth\=7><\/td>\s*<\/tr>\s*<tr>\s*<td>")
    Dim oRegExD2 As New System.Text.RegularExpressions.Regex(">\d+,\d+ <img\salt\='.+'\sborder\=""0""\sheight\=""8""\shspace\=""2""\ssrc\=""\/images\/.+\.gif""\swidth\=""7""><\/td>\s*<\/tr>\s*<tr>\s*<td>")
    Dim oRegExInD2 As New System.Text.RegularExpressions.Regex("\d+,\d+")
    Dim oRegExE1 As New System.Text.RegularExpressions.Regex("Евро<\/td>\s*<td><\/td>\s*<td\sclass\=""digit""\salign\=""right"">\d+,\d+ <\/td>")
    Dim oRegExInE1 As New System.Text.RegularExpressions.Regex("\d+,\d+")
    'Dim oRegExE2 As New System.Text.RegularExpressions.Regex(">\d+,\d+ <IMG\salt\='.+'\sborder\=0\sheight\=8\shspace\=2\ssrc\=\/images\/.+\.gif\swidth\=7><\/td>\s*<\/tr>\s*<tr>\s*<td\s")
    Dim oRegExE2 As New System.Text.RegularExpressions.Regex(">\d+,\d+ <img\salt\='.+'\sborder\=""0""\sheight\=""8""\shspace\=""2""\ssrc\=""\/images\/.+\.gif""\swidth\=""7""><\/td>\s*<\/tr>\s*<tr>\s*<td\s")
    Dim oRegExInE2 As New System.Text.RegularExpressions.Regex("\d+,\d+")
    '#endregion var
    '#region ini
    iLang = iInteger(oContext.Request.QueryString("iLang"))
    Try
    sAnswer = System.Text.Encoding.UTF8.GetString(oWebClient.DownloadData("http://cbr.ru/"))
    tDate1 = oRegExInDate1.Match(oRegExDate1.Match(sAnswer).Value).Value
    tDate2 = oRegExInDate2.Match(oRegExDate2.Match(sAnswer).Value).Value
    dD1 = oRegExInD1.Match(oRegExD1.Match(sAnswer).Value).Value
    dD2 = oRegExInD2.Match(oRegExD2.Match(sAnswer).Value).Value
    dE1 = oRegExInE1.Match(oRegExE1.Match(sAnswer).Value).Value
    dE2 = oRegExInE2.Match(oRegExE2.Match(sAnswer).Value).Value
    Catch ex As Exception
    'sResponse = "/*" & ex.Message & "dD1=" & oRegExInD1.Match(oRegExD1.Match(sAnswer).Value).Value & "dD2=" & oRegExInD2.Match(oRegExD2.Match(sAnswer).Value).Value & "dE1=" & oRegExInE1.Match(oRegExE1.Match(sAnswer).Value).Value & "dE2=" & oRegExInE2.Match(oRegExE2.Match(sAnswer).Value).Value & "*/"
    sResponse = "/*0*/"
    b = True
    End Try
    '#endregion ini
    If b = False Then
    ....
    ...
    ...
    куча говна
    ...
    ...
    oContext.Response.Write(sResponse)
    End Sub
    REM Переопределяем свойство IsReusable.
    Public ReadOnly Property IsReusable() As Boolean Implements System.Web.IHttpHandler.IsReusable
    Get
    Return False 'запрещем кеширование этого обработчика в оперативной памяти вэб-сервера.
    End Get
    End Property
    End Class
    End Namespace

    А так мы получаем курс валют с локализацией.
    Рассчитывалось использовать на высоконагруженном портале. типо еллоупэйджеса.
    Через хэндлер.
    Максим Прохоров вас будет ещё долго радовать.

    ursus, 23 Апреля 2010

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

    +169

    1. 1
    2. 2
    3. 3
    4. 4
    function validPhone($str) {
       $digits = split("[0-9]",$str);
       return count($digits)>10;
    }

    Один из комментариев к функции http://ru2.php.net/split

    striker, 23 Апреля 2010

    Комментарии (2)
  5. Си / Говнокод #3079

    +141

    1. 1
    #define ass assert (false)

    ...

    XAKEP, 22 Апреля 2010

    Комментарии (23)
  6. VisualBasic / Говнокод #3078

    −106

    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
    public static DateTime tString2DateTime(String sDateTime)
    {
    //var
    Int32 iYear=DateTime.Now.Year;
    Int32 iMonth=DateTime.Now.Month;
    Int32 iDay=DateTime.Now.Day;
    Int32 iHour=DateTime.Now.Hour;
    Int32 iMinute=DateTime.Now.Minute;
    Int32 iSecond=DateTime.Now.Second;
    //end var
    try
    {
    iYear=Convert.ToInt32(sDateTime.Substring(0,4));
    try
    {
    iMonth=Convert.ToInt32(sDateTime.Substring(4,2));
    try
    {
    iDay=Convert.ToInt32(sDateTime.Substring(6,2));
    try
    {
    iHour=Convert.ToInt32(sDateTime.Substring(8,2));
    try
    {
    iMinute=Convert.ToInt32(sDateTime.Substring(10,2));
    try
    {
    iSecond=Convert.ToInt32(sDateTime.Substring(12,2));
    }
    catch
    {
    }
    }
    catch
    {
    }
    }
    catch
    {
    }
    }
    catch
    {
    }
    }
    catch
    {
    }
    }
    catch
    {
    }
    return new DateTime(iYear,iMonth,iDay,iHour,iMinute,iSecond);
    }

    а вам слабо?
    Функция имени Максима Прохорова

    ursus, 22 Апреля 2010

    Комментарии (19)
  7. VisualBasic / Говнокод #3077

    −94

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    // Функция, проверяющая совпадение цветов. Переваривает любые типы
    public static Boolean bColor(Object oR1,Object oG1, Object oB1,Object oR2,Object oG2, Object oB2)
    {
    if(!IsByte(oR1) || !IsByte(oR2) || !IsByte(oG1) || !IsByte(oG2) || !IsByte(oB1) || !IsByte(oB2)) return false;
     }

    Имени Максима Прохорова функция

    ursus, 22 Апреля 2010

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

    +168

    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
    function xss_clean($str, $is_image = FALSE)//
    	{	
    		/*
    		* Is the string an array?
    		*
    		*/
    		if (is_array($str))
    		{
    			while (list($key) = each($str))
    			{
    				$str[$key] = $this->xss_clean($str[$key]);
    			}
    		}
    		return $str;
    	}

    Нашёл в одном из самописных двигов. я так и не понял где тут хсс клин:)))

    Impossible, 22 Апреля 2010

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

    +155

    1. 1
    2. 2
    3. 3
    4. 4
    foreach($arResult["ITEMS"] as $k=>$arItem){
    	list($d,$m,$y) = explode(" ",$arItem["DISPLAY_ACTIVE_FROM"]);
    	$arResult["ITEMS"][$k]["DISPLAY_ACTIVE_FROM"] = $d." ".convertRusMonth($m)." ".$y;
    }

    Преобразование даты, необходимо изменить название месяца, к пример февраль должен стать февраля. Формат месяца заранее известен.

    Abductio, 22 Апреля 2010

    Комментарии (13)
  10. Pascal / Говнокод #3074

    +106

    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
    // Вот так вот говнокодеры встречают конeц света:
    
    Function GetYear(StringYear : String) : Integer;
    Begin
     If StringYear = '2000' then result:=2000;
     If StringYear = '2001' then result:=2001;
     If StringYear = '2002' then result:=2002;
     If StringYear = '2003' then result:=2003;
     If StringYear = '2004' then result:=2004;
     If StringYear = '2005' then result:=2005;
     If StringYear = '2006' then result:=2006;
     If StringYear = '2007' then result:=2007;
     If StringYear = '2008' then result:=2008;
     If StringYear = '2009' then result:=2009;
     If StringYear = '2010' then result:=2010;
     If StringYear = '2011' then result:=2011;
     If StringYear = 'EndOfTheWorld' then result:=2012;
    End;

    Ну, как говорится, no comment :))))))))))

    ZLOvar, 22 Апреля 2010

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