Ü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)