Üyelik sistemi gibi proje hazırlayanlar veya sitenizdeki projenizde rastgele bir veri kullanmak istiyorsanız harf/rakam karışımlı bir veri yaratmanızı sağlayacak basit bir kod ekliyorum.

Aşağıdaki kod ile 8 karakterli rastgele bir şifre üretebilirsiniz.
Eğer daha fazla karakter isterseniz en alt satırda yazan SifreUret(8) satırdaki rakamı 10, 12, 11, 13 gibi istediğiniz şekilde değiştirebilirsiniz.

Function SifreUret(Boy)

Dim sifre,KarakterBoyu,KacinciKarakter

Const Karakterler = "0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNO PRQSTUVYZ"

Randomize

KarakterBoyu = Len(Karakterler)

For x = 1 To Boy

KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)

sifre = sifre & Mid(Karakterler,KacinciKarakter,1)

Next

SifreUret = sifre

End Function

RefCode = SifreUret(8)