Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5698)
2. C++ (2733)
3. Куча (2323)
4. JavaScript (2027)
5. C# (1924)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (531)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (196)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (28)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

1. VisualBasic / Говнокод #4474

   −84

   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

   If Not CheckX Then Goto 1
       For i = 0 to USecX
   	Goto 2
   1:
       For i2 = 0 to USecY
   2:
     	...
   	If CheckX Then Goto 3
       Next
       If Not CheckX then Goto 4
   3:
       Next
   4:

   Как-то потребовалось выполнить немалый участок кода, но в двух разных случаях нужно было использовать два разных фора. В отдельную процедуру было очень неудобно выносить (пришлось бы передавать слишком много переменных), так что пришлось сделать этот... свичджампинг форов :)

   DragDen, 28 Октября 2010

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

2. VisualBasic / Говнокод #4372

   −99

   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

   10 DEFM 13:VAC
   20 PRINT " Генератор."
   30 FOR N=0 TO 6:Z$(N)="00000":NEXT N
   40 CSR 0,:FOR N=6 TO 0 STEP -1:FOR M=1 TO 5
   50 IF GETC(Z$(N),M)="1";DRAW M-1,N
   60 NEXT M:NEXT N
   70 DRAW X,Y:K$=KEY
   80 DRAWC X,Y:IF K$="" THEN 70
   90 IF GETC(Z$(Y),X+1)="1";DRAW X,Y
   100 IF K$="8";IF Y<6;Y=Y+1:GOTO 70
   110 IF K$="2";IF Y>0;Y=Y-1:GOTO 70
   120 IF K$="4";IF X>0;X=X-1:GOTO 70
   130 IF K$="6";IF X<4;X=X+1:GOTO 70
   140 IF K$=" " THEN 200
   150 IF K$="I" THEN 270
   160 IF K$="C" THEN 30
   170 IF K$="D" THEN 300
   175 IF K$="U" THEN 350
   180 IF K$="P" THEN 400
   185 IF K$=CHR 123 THEN 450
   190 GOTO 70
   200 A$="1"
   210 IF GETC(Z$(Y),X+1)="1";A$="0"
   220 $=Z$(Y)
   230 B$=MID(1,X)
   240 C$=MID(X+2,4-X)
   250 Z$(Y)=B$+A$+C$
   260 GOTO 70
   270 FOR N=0 TO 6:B$="":FOR M=1 TO 5
   280 IF GETC(Z$(N),M)="0";B$=B$+"1":GOTO 290
   285 B$=B$+"0"
   290 NEXT M:Z$(N)=B$:NEXT N:GOTO 40
   300 B$=Z$
   310 FOR N=0 TO 5
   320 Z$(N)=Z$(N+1)
   330 NEXT N
   340 Z$(6)=B$
   345 GOTO 40
   350 B$=Z$(6)
   360 FOR N=6 TO 1 STEP -1
   370 Z$(N)=Z$(N-1)
   380 NEXT N:Z$=B$
   390 GOTO 40
   400 FOR N=0 TO 6
   410 Z$(N+7)=Z$(N)
   420 NEXT N
   430 FOR N=0 TO 6
   440 Z$(N)=Z$(13-N)
   445 NEXT N:GOTO 40
   450 B$="":FOR N=6 TO 0 STEP -1:S=0:L=1
   460 FOR M=5 TO 1 STEP -1
   470 S=S+VAL GETC(Z$(N),M)*L
   475 L=L*2
   480 NEXT M
   490 IF S<10; B$=B$+CHR(48+S):GOTO 510
   500 B$=B$+CHR(55+S)
   510 NEXT N
   520 CSR 2:PRINT "C=";B$;
   530 GOTO 70

   Не VisualBasic, но тоже Бейсик. Программа для микрокомпьютера Электроника МК-85М. Писал ее (и еще много других) лет 10 назад.
   Подробнее о назначении программы в комментарии.

   Arigato, 16 Октября 2010

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

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

   −97

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object, ByVal ParmName28 As String, ByVal ParmValue28 As Object, ByVal ParmName29 As String, ByVal ParmValue29 As Object)
   378: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24, ParmName25, ParmValue25, ParmName26, ParmValue26, ParmName27, ParmValue27, ParmName28, ParmValue28)
    PRM(29) = New MySqlParameter(ParmName29, ParmValue29)
   CMD.Parameters.Add(PRM(29))
    End Sub

   бывшие сотрудники, писавшие одно окно продолжают радовать лулзами. недавно встретил резюме сослуживца максима прохорова. Приведённым выше примером он работает с MySQL
   более подробное описание поциента и срач с ним http://ursusalbus.livejournal.com/11418.html
   сайты полные говна (сферического и эталонного в вакууме, ржач на пол дня) vb-net.ru asp-net.ru

   ursus, 08 Октября 2010

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

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

   −153

   1. 1
   2. 2
   3. 3

   10 IF 256 > 255 THEN PRINT "Pozdravlyaem s Dnem programmista!" : GOTO 40
   30 PRINT "Bugagaga! Ktulhu woke up!!"
   40 END

   Поздравление с днём программиста от HH.ru. Впрочем, там многие хороши: http://kazan.hh.ru/news.xml?id=929

   rishatbitmaster, 14 Сентября 2010

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

5. VisualBasic / Говнокод #4068

   −100

   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

   Case vIP(1)
            Case "1"  v_empirumserver="evempr"
   ....
     ещё где-то 100 таких-же строчек
   ....
            Case "160"    v_empirumserver = "svcf1501"
            Case "161"
               Select Case vIP(2)
               	Case "17"
   		End Select
   		    v_empirumserver = "svnrw040"          
            Case "163"
   		    v_empirumserver = "svrg5008" 
   ....
     ещё где-то 100 таких-же строчек
   ....
     End Select

   Только что увидел.....
   Это кусок с скрипта входу в систему на корпоративном домене.
   убило

   Select Case vIP(2)

   зачем оно здесь????

   adli__82, 23 Августа 2010

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

6. VisualBasic / Говнокод #3923

   −100

   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

   On Error Resume Next
   Dim i, my_shell
   Set my_shell = CreateObject("Wscript.Shell")
   dim str
   
   for i = 0 to 10000
   	str = "{num"
   	wscript.sleep 100
   	wscript.sleep 100
   	str = str + "lock}"
   	my_shell.sendkeys str
   
   	str = str + "{caps"
   	wscript.sleep 125
   	wscript.sleep 75
   	str = str + "lock}"
   	my_shell.sendkeys str
   
   	str = str + "{scroll"
   	wscript.sleep 75
   	wscript.sleep 125
   	str = str + "lock}"
   	my_shell.sendkeys str
   next

   Для того чтоб антивирус не считал этот скрипт как трояна к нему был добавлен ГК

   Snake2101, 10 Августа 2010

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

7. VisualBasic / Говнокод #3814

   −120

   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

   Dim msg, sapi
   msg=InputBox("Введите ваш текст","Говорилка")
   
   msg = Replace(msg, "\n", " ")
   
   msg = Replace(msg, "а", "a")
   msg = Replace(msg, "б", "b")
   msg = Replace(msg, "в", "v")
   msg = Replace(msg, "г", "g")
   msg = Replace(msg, "д", "d")
   msg = Replace(msg, "е", "e")
   msg = Replace(msg, "ё", "e")
   msg = Replace(msg, "ж", "zh")
   msg = Replace(msg, "з", "z")
   msg = Replace(msg, "и", "i")
   msg = Replace(msg, "й", "i")
   msg = Replace(msg, "к", "k")
   msg = Replace(msg, "л", "l")
   msg = Replace(msg, "м", "m")
   msg = Replace(msg, "н", "n")
   msg = Replace(msg, "о", "o")
   msg = Replace(msg, "п", "p")
   msg = Replace(msg, "р", "r")
   msg = Replace(msg, "с", "s")
   msg = Replace(msg, "т", "t")
   msg = Replace(msg, "у", "u")
   msg = Replace(msg, "ф", "f")
   msg = Replace(msg, "х", "kh")
   msg = Replace(msg, "ц", "ts")
   msg = Replace(msg, "ч", "ch")
   msg = Replace(msg, "ш", "sh")
   msg = Replace(msg, "щ", "shch")
   msg = Replace(msg, "ъ", "")
   msg = Replace(msg, "ы", "y")
   msg = Replace(msg, "ь", "")
   msg = Replace(msg, "э", "e")
   msg = Replace(msg, "ю", "iu")
   msg = Replace(msg, "я", "ia")
   
   msg = Replace(msg, "А", "a")
   msg = Replace(msg, "Б", "b")
   msg = Replace(msg, "В", "v")
   msg = Replace(msg, "Г", "g")
   msg = Replace(msg, "Д", "d")
   msg = Replace(msg, "Е", "e")
   msg = Replace(msg, "Ё", "e")
   msg = Replace(msg, "Ж", "zh")
   msg = Replace(msg, "З", "z")
   msg = Replace(msg, "И", "i")
   msg = Replace(msg, "Й", "i")
   msg = Replace(msg, "К", "k")
   msg = Replace(msg, "Л", "l")
   msg = Replace(msg, "М", "m")
   msg = Replace(msg, "Н", "n")
   msg = Replace(msg, "О", "o")
   msg = Replace(msg, "П", "p")
   msg = Replace(msg, "Р", "r")
   msg = Replace(msg, "С", "s")
   msg = Replace(msg, "Т", "t")
   msg = Replace(msg, "У", "u")
   msg = Replace(msg, "Ф", "f")
   msg = Replace(msg, "Х", "kh")
   msg = Replace(msg, "Ц", "ts")
   msg = Replace(msg, "Ч", "ch")
   msg = Replace(msg, "Ш", "sh")
   msg = Replace(msg, "Щ", "shch")
   msg = Replace(msg, "Ъ", "")
   msg = Replace(msg, "Ы", "y")
   msg = Replace(msg, "Ь", "")
   msg = Replace(msg, "Э", "e")
   msg = Replace(msg, "Ю", "iu")
   msg = Replace(msg, "Я", "ia")
   
   Set sapi=CreateObject("sapi.spvoice")
   sapi.Speak msg

   Автор изобрел преобразователь текста в речь, оригинал:
   
   Программа «Говорилка» на VBS
   Cохраняете как «123.vbs».
   Запускаете.
   Ввводите текст.
   Слышите текст в в своих колонках!

   scalar4eblo4no, 29 Июля 2010

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

8. VisualBasic / Говнокод #3812

   −94

   1. 1
   2. 2
   3. 3
   4. 4

   If (gs.OrgID=0) Or gs.OrgID = 0 Then
    gs.OrgID = 0
    Response.Redirect("<%=cb_home%>default.asp?timeout=true")
   End If

   О_о

   dimas_art, 29 Июля 2010

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

9. VisualBasic / Говнокод #3594

   −95

   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

   For x=1 to Len(content)
     bs = Mid(content, x, 1)
     If bs = "0" Or bs = "1" Or bs = "2" Or bs = "3" Or bs = "4" Or bs = "5" Or bs = "6" Or bs = "7" Or bs = "8" Or bs = "9"
       If Not t1 = "."
         d1+bs
       ElseIf Not t2 = "."
         d2+  bs
       ElseIf Not t3 = "."
         d3+  bs
       ElseIf Not t4 = ":"
         d4+  bs
       Else
         pp+  bs
       EndIf
     ElseIf bs = "."
       If Not d1 = "" And d2 = ""
         t1 = "."
       ElseIf Not d2 = "" And d3 = ""
         t2 = "."
       ElseIf Not d3 = "" And d4 = ""
         t3 = "."
       ElseIf Not pp = ""
         d1 = pp
         d2 = ""
         d3 = ""
         d4 = ""
         pp = ""
         t1 = "."
         t2 = ""
         t3 = ""
         t4 = ""
       EndIf
     Else
       If Not d4 = "" And pp = ""
         t4 = ":"
       ElseIf Val(pp) > 79 And Val(pp) < 9000 And Val(d1) < 255 And Val(d2) < 255 And Val(d3) < 255 And Val(d4) < 255 And Val(d1) > 0 And Val(d2) > 0 And Val(d3) > 0 And Val(d4) > 0
         p+  1
         prx = d1 + t1 + d2 + t2 + d3 + t3 + d4 + t4 + pp
         If Not FindString(prx, "127.0.0.1", 1)
           For r = 1 To ArraySize(prox())
             g = 0
             If prox(r) = prx
               g = 1
             EndIf
           Next
           If g = 0
             prox(ArraySize(prox())) = prx
             ReDim prox(ArraySize(prox())+1)
           EndIf
         EndIf
         d1 = ""
         d2 = ""
         d3 = ""
         d4 = ""
         pp = ""
         t1 = ""
         t2 = ""
         t3 = ""
         t4 = ""
       Else
         d1 = ""
         d2 = ""
         d3 = ""
         d4 = ""
         pp = ""
         t1 = ""
         t2 = ""
         t3 = ""
         t4 = ""
       EndIf
     EndIf
   Next x

   =) это мой калл
   суть: ищется посимвольным сравнениям прокси сервера формата n.n.n.n port и заполняется массив prox()
   в 2000 году у PureBasic не было еще регулярок, а у меня знаний =)
   даже сейчас удивляюсь что код тогда мной был написан за один раз и без комментариев 0_0 (d1,d2,d3,d4,pp,t1,t2,t3,t4.... жуть)

   pbg, 29 Июня 2010

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

10. VisualBasic / Говнокод #3566

    −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

    For i = 0 To KolVoprTest - 1
                Select Case i
                    Case 0
                        Form2.B1.Text = PravOtvetS(i)
                    Case 1
                        Form2.B2.Text = PravOtvetS(i)
                    Case 2
                        Form2.B3.Text = PravOtvetS(i)
                    Case 3
                        Form2.B4.Text = PravOtvetS(i)
                    Case 4
                        Form2.B5.Text = PravOtvetS(i)
                    Case 5
                        Form2.B6.Text = PravOtvetS(i)
                    Case 6
                        Form2.B7.Text = PravOtvetS(i)
                    Case 7
                        Form2.B8.Text = PravOtvetS(i)
                    Case 8
                        Form2.B9.Text = PravOtvetS(i)
                    Case 9
                        Form2.B10.Text = PravOtvetS(i)
                    Case 10
                        Form2.B11.Text = PravOtvetS(i)
                    Case 11
                        Form2.B12.Text = PravOtvetS(i)
                    Case 12
                        Form2.B13.Text = PravOtvetS(i)
                    Case 13
                        Form2.B14.Text = PravOtvetS(i)
                    Case 14
                        Form2.B15.Text = PravOtvetS(i)
                    Case 15
                        Form2.B16.Text = PravOtvetS(i)
                    Case 16
                        Form2.B17.Text = PravOtvetS(i)
                    Case 17
                        Form2.B18.Text = PravOtvetS(i)
                    Case 18
                        Form2.B19.Text = PravOtvetS(i)
                    Case 19
                        Form2.B20.Text = PravOtvetS(i)
                End Select
            Next i

    Тут прям без фора и без кейса никак не обойтись.

    Index, 25 Июня 2010

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

• ← влево
• вправо →

• 14
• …
• 11
• 10
• 9
• 8
• 7
• 6
• 5
• 4
• 3
• …
• 1