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

    Всего: 34

  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. 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)

  5. 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)