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
|