|
Rastgele şifre üretmek
Bu uygulama genellikle üyelik işlemlerinde üyeliği aktive etmek için maile gönderilen aktivasyon kodu olarak kullanılır. SıfreUret(X) şeklinde X karakterden oluşan randomize bir şifre üretilmiş olur.
<%
Function SifreUret(Boy)
Dim sifre,KarakterBoyu,KacinciKarakter
´ Şifrenin içermesini istediğimiz karakterleri burada belirliyoruz. Türkçe karakter kullanmak bazen maile gönderim olaylarında sorun çıkarabilir o yüzden mümkünse türkçe karakter kullanmayın.
Const Karakterler = "0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNOPRQSTUVYZ"
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
´Fonsiyonumuz tamam şimdi 50 karaketerden oluşan random bir şifre üretip bunu ekrana yazdıralım.
Response.Write SifreUret(50)
%>
|
 |
Arkadaşınıza gönderin
