BlackBoard | Bildung | Basic Visual B. Programmierung eines Pwd generators

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
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:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:

 
Private Sub cmdgen_Click()
If IsNumeric(txtanzahl) = False Then Exit Sub 'Prüft ob txtanzahl keinen Buchstaben besitzt

keygen (txtanzahl)



End Sub

'------------------------------------------------

Function keygen(ByVal anzahlstellen As Integer)
Dim dummie As Integer
Dim dum As Integer


For dummie = 1 To anzahlstellen
 Randomize
 dum = Rnd * 37
 Select Case dum
  Case 0
   ergebnis = ergebnis & "a"
  Case 1
   ergebnis = ergebnis & "b"
  Case 2
   ergebnis = ergebnis & "c"
  Case 3
   ergebnis = ergebnis & "d"
  Case 4
   ergebnis = ergebnis & "e"
  Case 5
   ergebnis = ergebnis & "f"
  Case 6
   ergebnis = ergebnis & "g"
  Case 7
   ergebnis = ergebnis & "h"
  Case 8
   ergebnis = ergebnis & "i"
  Case 9
   ergebnis = ergebnis & "j"
  Case 10
   ergebnis = ergebnis & "k"
  Case 11
   ergebnis = ergebnis & "l"
  Case 12
   ergebnis = ergebnis & "m"
  Case 13
   ergebnis = ergebnis & "n"
  Case 14
   ergebnis = ergebnis & "o"
  Case 15
   ergebnis = ergebnis & "p"
  Case 16
   ergebnis = ergebnis & "q"
  Case 18
   ergebnis = ergebnis & "r"
  Case 19
   ergebnis = ergebnis & "s"
  Case 20
   ergebnis = ergebnis & "t"
  Case 21
   ergebnis = ergebnis & "u"
  Case 22
   ergebnis = ergebnis & "v"
  Case 23
   ergebnis = ergebnis & "w"
  Case 24
   ergebnis = ergebnis & "x"
  Case 25
   ergebnis = ergebnis & "y"
  Case 26
   ergebnis = ergebnis & "z"
  Case 27
   ergebnis = ergebnis & "0"
  Case 28
   ergebnis = ergebnis & "1"
  Case 29
   ergebnis = ergebnis & "2"
  Case 30
   ergebnis = ergebnis & "3"
  Case 31
   ergebnis = ergebnis & "4"
  Case 32
   ergebnis = ergebnis & "5"
  Case 33
   ergebnis = ergebnis & "6"
  Case 34
   ergebnis = ergebnis & "7"
  Case 35
   ergebnis = ergebnis & "8"
  Case 36
   ergebnis = ergebnis & "9"
  Case 37
   ergebnis = ergebnis & "*"
 End Select
Next dummie

txtergebnis = ergebnis
End Function

a=cint(rnd*2) if a=0 then pwd=pwd & chr(rnd*(90-65)+65) ' Großbuchstaben elseif a=1 then pwd=pwd & chr(rnd*(122-97)+97) ' Kleinbuchstaben elseif a=2 then pwd=pwd & chr(rnd*(57-48)+48) ' Zahlen end if