güvenlik kodu uygulaması

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Güvenlik Kodu Uygulaması

arkadaşlar bu güvenlik kodu uygulamasını bir scriptte görmüştüm.yani alıntıdır

güle güle kullanın.localhostta denedim .hemen çalışıyor

Kod Alanı:

<%
ParolaUzunluk=6
strHarf=1
strSayi=1

Function SifreUret(KarekterMiktari, RakamOlacakmi, strHarf)
Harfler=Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","P","Q","R","S","T","U

","V","W","X","Y","Z")
Rakamlar=Array("1","2","3","4","5","6","7","8","9")
If RakamOlacakmi = "1" AND strHarf = "1" Then
    Kontrol = "3"
Elseif RakamOlacakmi = "1" Then
    TempK = "2"
Elseif strHarf = "1" Then
    TempK = "1"
End if
i = DatePart("s", Now)+2 : do while i > j : j=DatePart("s", Now) : loop
Randomize Timer
For I = 1 To INT(KarekterMiktari)
    If Kontrol = "3" Then TempK = Int((Rnd * 2) + 1)
    If TempK = 1 Then
TempPass = TempPass & "" & Harfler(Int((Rnd * 25) + 0))
    Elseif TempK = 2 Then
TempPass = TempPass& "" & Rakamlar(Int((Rnd * 9) + 0))
    End if
Next
SifreUret = TempPass
End Function
%>

<% Function ParolaYazdir(Veri)
for i = 1 to Len(Veri) : TH = Mid(Veri,i,1)
response.write "" & TH &""
next
end function
Session("Parola") = SifreUret(ParolaUzunluk,strSayi,strHarf)
ParolaYazdir Session("Parola")
%>

Hosting Sponsorumuz - Noktahost internet hizmetleri