- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 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. Кстати, прога есть на сурсфордже, у неё достаточно много скачиваний и жалоб нету.
danilissimus 21.03.2011 22:15 # 0
bugmenot 21.03.2011 22:34 # +3
доставила жлобская лицензия и отсутствие сырцов
danilissimus 21.03.2011 22:38 # 0
PassGen?
bugmenot 21.03.2011 23:13 # 0
RaZeR 23.03.2011 17:34 # 0
P.S: Блин, тут походу почти все мои аккаунты и сайты нашли =D
guest 01.04.2011 15:44 # 0