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

    • название проги?
      Ответить
      • http://sourceforge.net/users/razor681

        доставила жлобская лицензия и отсутствие сырцов
        Ответить
        • так про какую тут речь то идет?
          PassGen?
          Ответить
          • говорю же - нет сырцов в "файлах"
            Ответить
          • Ага :)
            P.S: Блин, тут походу почти все мои аккаунты и сайты нашли =D
            Ответить
    • типа скомпиленный говнокод скрывает свою говнистость от школоты?
      Ответить

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