<% islem = Request.QueryString("islem") If islem = "" Then islem = "gkodu" End If %> <% Select Case islem %> <% Case "gkodu" %> <% GKODUuzunluk=8 strHarf=1 strSayi=1 Function SifreUret(KarekterMiktari, RakamOlacakmi, strHarf) Harfler=Array("a" ,"b" ,"c" ,"d" ,"e" ,"f" ,"g" ,"h" ,"i" ,"j" ,"k" ,"m" ,"n" ,"p" ,"q" ,"r" ,"s" ,"t" ,"u" ,"v" ,"w" ,"x" ,"y" ,"z" ,"2" ,"3" ,"4" ,"5" ,"6" ,"7" ,"8" ,"9") Rakamlar=Array("2" ,"3" ,"4" ,"5" ,"6" ,"7" ,"8" ,"9" ,"A" ,"B" ,"C" ,"D" ,"E" ,"F" ,"G" ,"H" ,"I" ,"J" ,"K" ,"L" ,"M" ,"N" ,"P" ,"R" ,"S" ,"T" ,"U" ,"Y" ,"Z") 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 * 32) + 0)) ElseIf TempK = 2 Then TempPass = TempPass& "" & Rakamlar(Int((Rnd * 29) + 0)) End If Next SifreUret = TempPass End Function Function GKODUYazdir(Veri) For i = 1 To Len(Veri) : GKOD = Mid(Veri,i,1) Response.Write "" & GKOD & "" Next End Function 'Bu Fonksiyonumuzda Bitiyor Session("GKODU" ) = SifreUret(GKODUUzunluk,strSayi,strHarf) GKODUYazdir Session("GKODU" ) %>
<% Case "kontrol" %> yazmanız gereken_: <%=Session("GKODU" ) %>
yazdıgınız kod____: <%=request("GKODU" ) %>
Sonuc__________:<% If Request("GKODU" )=Session("GKODU" ) Then %>
dogru <%Else%> yanlıs <%End If%> <% End Select %> input tipini hidden ve degerini <%=Session("GKODU")%> yaparak ziyaretçileri sıkmadan sitenizin guvenligine katkıda bulunabilirsiniz
Asp KodBank
Deprecated: strtotime(): Passing null to parameter #1 ($datetime) of type string is deprecated in /var/www/vhosts/melekkentmen.com/httpdocs/config.php on line 1077
60 yıl önce
Melek Kentmen
3873
