Fonksiyonu kullanarak rastgele karakterlerden oluşan şifreler üretebilirsiniz
Kullanırken
<%
Response.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)
Ne

İçeriğin devamı sadece üyeler içindir!