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

    Всего: 3

  2. JavaScript / Говнокод #6823

    +168

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    function randlogo(){
arr=new Array('<img src="http://site.com/logo-pomegranate.png" border="0" width="677" height="345">','<img src="http://site.com/logo-leaves.png" border="0" width="677" height="345">','<img src="http://site.com/logo-lime.png" border="0" width="677" height="345">','<img src="http://site.com/logo-coffee.png" border="0" width="677" height="345">','<img src="http://site.com/logo-lime.png" border="0" width="677" height="345">','<img src="http://site.com/logo-peach.png" border="0" width="677" height="345">','<img src="http://site.com/logo-lemon.png" border="0" width="677" height="345">','<img src="http://site.com/logo-leaf.png" border="0" width="677" height="345">','<img src="http://site.com/logo-apples.png" border="0" width="677" height="345">','<img src="http://site.com/logo-grapes.png" border="0" width="677" height="345">','<img src="http://site.com/logo-autumn.png" border="0" width="677" height="345">','<img src="http://site.com/logo-strawberry.png" border="0" width="677" height="345">')
rand=Math.floor(Math.random()*arr.length)
document.getElementById('randlogo').innerHTML=arr[rand]
}
randlogo()

    Код для генерации случайного логотипа.

    undiscovered, 02 Июня 2011

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

  3. VisualBasic / Говнокод #6455

    −99

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    If Not Me.Opacity > 1 Then 'полный провал
      Opacity = Opacity + 0.02
Else
     Timer1.Enabled = False
End If

    Часть кода из функции таймера

    undiscovered, 22 Апреля 2011

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

  4. VisualBasic / Говнокод #6216

    −110

    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
    Public Class Decoder
    Dim arr_en() As String = {"q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "[", "]", "a", "s", "d", "f", "g", "h", "j", "k", "l", ";", "'", "z", "x", "c", "v", "b", "n", "m", ",", ".", "/", "?", "@"}
    Dim arr_ua() As String = {"й", "ц", "у", "к", "е", "н", "г", "ш", "щ", "з", "х", "ъ", "ф", "ы", "в", "а", "п", "р", "о", "л", "д", "ж", "є", "я", "ч", "с", "м", "и", "т", "ь", "б", "ю", ".", ",", "'"}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Clear()

        Dim t As Char
        Dim ch As Char
        Dim vv As String

        For Each vv In TextBox1.Lines
            For Each t In vv
                For i As Integer = 0 To arr_en.Count - 1
                    ch = arr_en.GetValue(i)
                    If t = ch Then
                        t = arr_ua.GetValue(i)
                        Exit For
                    End If
                Next
                TextBox2.Text = TextBox2.Text & t
            Next
            TextBox2.Text = TextBox2.Text & vbCrLf
        Next
    End Sub
End Class

    Декодер с английской раскладки за 5 минут.

    undiscovered, 04 Апреля 2011

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