1. 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)
  2. 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)
  3. 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)
  4. 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)
  5. 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)
  6. 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)
  7. 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)
  8. 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)
  9. 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)
  10. VisualBasic / Говнокод #3534

    −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
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    Macro BL(X):For I=0 To 3:X:Next:EndMacro:Dim G(14,28):Dim G2(14,28):Dim C(1)
    Macro IT:X+PX(PC,I,Rt),Y+PY(PC,I,Rt):EndMacro:Dim PX(6,3,3):Dim PY(6,3,3)
    Macro F(X,Y):For X=0 To Y:EndMacro:Macro N:Next:EndMacro:Macro Q:EndIf:EndMacro
    F(I,28):G(1,I)=1:G(13,I)=1:G(I%13,27)=1:N:F(Pe,6):eC=0:F(Eg,1):F(PL,3)
    If Val("$"+Mid("33F06336747172",2*Pe+1+Eg,1))&(1<<PL):F(Ag,3):Y=1-PL:A=1.57*Ag;
    C=Cos(A):S=Sin(A):PX(Pe,eC,Ag)=C*Eg-S*Y:PY(Pe,eC,Ag)=S*Eg+C*Y:N:eC+1:Q:N:N:N
    Macro K0:AddKeyboardShortcut:EndMacro:OpenWindow(0,0,0,208,432,"",$CF0001)
    K0(0,37,10):K0(0,40,32):K0(0,39,12):K0(0,38,16):X=7:Y=2:D=1000:C(0)=$FFFFFF
    C(1)=$1:Ok=1:Repeat:Delay(1):Et=WindowEvent():StartDrawing(WindowOutput(0))
    F(A,28):F(B,14):Box(B*16-16,(A-1)*16,16,16,C(G(B,A)|G2(B,A))):N:N:StopDrawing()
    If Ok:BL(G2(IT)=0):MN=0:If Et=13101:MN=EventMenu():If MN=32:CH!1:Q:Q
    EL=ElapsedMilliseconds():If EL>T Or CH:T=EL+D:Y+1:Q:CA=0:F(I,3):If G(IT):CA=1:Q
    N:If CA:Y-1:CH=0:MN=0:BL(G(IT)=1):X=7:Y=2:SC+1:If D>100:D-10:Q:DY=0
    For Y3=26 To 0 Step -1:CM=1:For X3=1 To 12:If G(X3,Y3)=0:CM=0:Q
    G(X3,Y3+DY)=G(X3,Y3):N:If CM:DY+1:Q:If Y3-DY<=0:Break:Q:N:SC+(DY*(DY+1))
    SetWindowTitle(0,Str(SC)):PC=Random(6):Rt=Random(3):Ok=1:F(I,3):If G(IT):Ok=0:Q
    N:Else:BL(G2(IT)=1):Q:BL(G2(IT)=0):NS=0:If MN&8:NS=MN-11:Q:If NS:X+NS:Q:C0=0
    F(I,3):If G(IT):C0=1:Q:N:If C0:X-NS:Q:If MN&16:Rt+1:Rt&3:Q:C3=0:F(I,3):If G(IT)
    C3=1:Q:N:If C3:Rt-1:Rt&3:Q:BL(G2(IT)=1):Q:Until Et=16

    Тетрис на PureBasic

    pbg, 22 Июня 2010

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