Rastgele Şifre Üretimi ASP

Fonksiyonu kullanarak rastgele karakterlerden oluşan şifreler üretebilirsiniz
KullanırkenResponse.Write(SifreUret(10))
%>
Şeklinde kullanabilirsiniz, buradaki 10 üretilecek şifreninin kaç karakter olduğudur, tercihinize göre değiştirebilirsiniz.

Fonksiyon aşağıdadır.
Function SifreUret(Uzunluk)
Karakterler = "0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNOPRQSTUVYZ"
Randomize
KarakterBoyu = Len(Karakterler)
For i = 1 To Uzunluk
      KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)
      UretilenSifre = UretilenSifre & Mid(Karakterler,KacinciKarakter,1)
Next
SifreUret = UretilenSifre
End Function
%>

Dipnot

Bu yazı 12 Haziran 2010 Cumartesi günü yazılmıştır. Bulunduğu kategori : ASP,asp şifre,asp şifre üretme,otomatik şifre,şifre üretimi,şifre üretme. Yazdığım yazıları RSS 2.0 sistemini kullanarak takip edebilir, dilerseniz yorum yapabilirsiniz. Unutmadan, Bu yazı sizler tarafından tam tamına defa okunmuştur.