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

    Всего: 3

  2. Assembler / Говнокод #7383

    +242

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    proc HeapCompact(HANDLE hHeap, DWORD dwFlags)
    	mov     edi, edi
    	push    ebp
    	mov     ebp, esp
    	pop     ebp
    	jmp     RtlCompactHeap
    endp

    Код от Microsoft. Заглушка? А вот и нет! Для заглушки нужны 5 байтов, а pop ebp останется на месте, т.е. при вызове вершина стека нарушится. Вот не могли просто NOP написать...

    KIRK, 29 Июля 2011

    Комментарии (5)
  3. Куча / Говнокод #7288

    +127

    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
    <HTML>
    <HEAD>
    <TITLE>Free Web Graphics - Buttons, Backgrounds, Dividers, Bullets...</TITLE>
    <meta name="author" content="EverEden Design">
    <TITLE>Contact Us </TITLE>
    </HEAD>
    <BODY BGCOLOR="FFFFFF" BODY BACKGROUND="/images/whstuccobk2.gif" TEXT="#003333" LINK="#660033" VLINK="#003333" ALINK="#660033">
    ...
    <HTML>
    <HEAD>
    <TITLE>Contact Information</TITLE>
    </HEAD>
    <BODY BGCOLOR="#FFFFFF" TEXT="#990066" LINK="#006633" VLINK="#339900">
    ...
    </BODY>
    </HTML>

    Эта страница была сделана явно для проверки HTML-парсеров=)
    http://www.graphics-4free.com/contact.html

    KIRK, 19 Июля 2011

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

    −116.9

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    Public Function Str2Hex(ByVal strData As String)
    Dim i As Long, CryptString As String, tmpAppend As String
        On Local Error Resume Next
        For i = 1 To Len(strData)
            tmpAppend = Hex$(Asc(Mid$(strData, i, 1)))
            If Len(tmpAppend) = 1 Then tmpAppend = Trim$(Str$(0)) & tmpAppend
            CryptString = CryptString & tmpAppend: DoEvents
        Next i
        Str2Hex = CryptString
    End Function

    Работающий перевод строки в Hex.
    Но:
    1. On Error ... - Где тут может быть Error?!
    2. Вместо "0" почему-то написано Trim$(Str$(0)
    3. DoEvents, выполняющийся после каждого добавления к строке сильно замедлит код

    KIRK, 05 Октября 2009

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