dim letter
dim paswoord
dim nummer
dim teken(100)
teken(0)="a"
teken(1)="b"
teken(2)="c"
teken(3)="d"
teken(4)="e"
teken(5)="f"
teken(6)="g"
teken(7)="h"
teken(8)="i"
teken(9)="j"
teken(10)="k"
teken(11)="l"
teken(12)="m"
teken(13)="n"
teken(14)="o"
teken(15)="p"
teken(16)="q"
teken(17)="r"
teken(18)="s"
teken(19)="t"
teken(20)="u"
teken(21)="v"
teken(22)="w"
teken(23)="x"
teken(24)="y"
teken(25)="z"
teken(26)="0"
teken(27)="1"
teken(28)="2"
teken(29)="3"
teken(30)="4"
teken(31)="5"
teken(32)="6"
teken(33)="7"
teken(34)="8"
teken(35)="9"
teken(36)="0"
teken(37)="."
teken(38)="-"
teken(39)=" "
teken(40)=","
teken(41)="+"
teken(42)=":"
teken(43)=";"
teken(44)="?"
teken(45)="!"
teken(46)="="
teken(47)="@"
teken(48)="#"
randomize
for nummer = 1 to 5 'een paswoord van vijf
letter = teken(rnd*49)
paswoord = paswoord & letter
next
msgbox "Je kan als paswoord kiezen voor" & vbcrlf & paswoord