Heryerde kullanabileceğiniz bir fonksiyon. Özellikle şifre oluşturmakta zorlananlar için aranılan bir fonksiyon.
İstediğiniz miktarda karışık kod üretebilmeniz için ayarlandı.
'Kod üretici
function kodUret(karakter)
kar = Array ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","r","q","s","t","u","w","v","y","x","z","0","1","2","3","4","5","6","7","8","9","-","_")
s = ""
randomize
for a = 1 to karakter
s = s & kar(rnd(1)*35)
next
kodUret = s
end function
fonksiyonun çağrılış şekli
kodUret(10)
10 karakterli rastgele bir kod üretir.
Demo kullanım için:
http://ozturkce.com/abm/kodolustur.asp
