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

    −105

    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
    Public LettersB() As Char = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
    Public LettersM() As Char = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
    Public Numbers() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
<...>
    Public Function GenLetterB() As String
        GenLetterB = LettersB(rnd.Next(0, LettersB.Length - 1)).ToString
    End Function
    Public Function GenLetterM() As String
        GenLetterM = LettersM(rnd.Next(0, LettersB.Length - 1)).ToString
    End Function
    Public Function GenNumber() As String
        GenNumber = rnd.Next(0, 9).ToString
    End Function
<...>
For i = 1 To numLen.Value
RndGen:     curType = rnd.Next(0, 3)
            Select Case curType
                Case 0
                    If chkB.Checked = True Then
                        pass += GenLetterB()
                        rnd.Next(0, LettersB.Length - 1)
                    Else
                        GoTo RndGen

                    End If
                    
                Case 1
                    If chkM.Checked = True Then
                        pass += GenLetterM()
                        rnd.Next(0, LettersM.Length - 1)
                    Else
                        GoTo RndGen
                    End If
                Case 2
                    If chkNum.Checked = True Then
                        pass += GenNumber()
                        rnd.Next(0, LettersM.Length - 1)
                    Else
                        GoTo RndGen
                    End If

                Case Else
                    If chkNum.Checked = True Then
                        pass += GenNumber()
                        rnd.Next(0, LettersM.Length - 1)
                    Else
                        GoTo RndGen
                    End If
            End Select



        Next

    Очень древний мой высер, ещё из тех времён, когда я писал на VB. Кстати, прога есть на сурсфордже, у неё достаточно много скачиваний и жалоб нету.

    Запостил: RaZeR, 21 Марта 2011

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

    • ava danilissimus 21.03.2011 22:15 # 0

      название проги?
      Ответить

      • ava bugmenot 21.03.2011 22:34 # +3

        http://sourceforge.net/users/razor681

        доставила жлобская лицензия и отсутствие сырцов
        Ответить

        • ava danilissimus 21.03.2011 22:38 # 0

          так про какую тут речь то идет?
          PassGen?
          Ответить

          • ava bugmenot 21.03.2011 23:13 # 0

            говорю же - нет сырцов в "файлах"
            Ответить

          • ava RaZeR 23.03.2011 17:34 # 0

            Ага :)
            P.S: Блин, тут походу почти все мои аккаунты и сайты нашли =D
            Ответить

    • ava guest 01.04.2011 15:44 # 0

      типа скомпиленный говнокод скрывает свою говнистость от школоты?
      Ответить

    Добавить комментарий