VBScript'te Logaritma kullanarak yapılabilecek sınırlı işlem var ancak eğer bunu parola üretmek gibi fonksiyonlara yorumlarsak basit komutlar ile işimizi halledebiliriz.
Öncelikle logaritmanın çalışma prensibini anlamak için aşağıdaki kodu kopyalayıp, logaritma.htm adıyla kaydedin. Evet htm çünkü henüz ASP ile ilgili kısma geçmedik...
Kodu çalıştırınca Log yazısından sonraki boşluğa logaritma tabanını, tabandan sonraki boşluğa ise logaritma değerini girin ve Hesapla tuşuna basın. Alttaki sonuç kısmında sonuc olarak çıkan karmaşık bir sayı göreceksiniz. İşte bu sayıyı biraz da ASP yardımıyla parola şekline dönüştüreceğiz...
------------Logaritma.htm---------------------------------
<script language="vbscript">
Function Logaritma()
rem Bu script Cemil CENGİZ tarafından 21:54 18.04.2003 tarihinde yazılmıştır!
degerim=deger.value
logdegerim=logdeger.value
if degerim="" or logdegerim="" then
msgbox "Lütfen alanları doldurunuz!"
else
Logaritma = Log(degerim) / Log(logdegerim)
sonuc.value = Logaritma
end if
End Function
</script>
<script language="JavaScript">
function Temizle(){
logdeger.value=''
deger.value=''
}
</script>
<style>
body,button,input{
font:10pt trebuchet ms;
}
</style>
<font size="5">log </font><input type="text" name="logdeger" size="2" > <input type="text" name="deger" size="5"> <button onclick="Logaritma()"> Hesapla </button> <button onclick="Temizle()"> Temizle </button>
<br><br><hr><br><font size="5">Sonuç:<br><textarea name="sonuc"></textarea>
-------------------------------------------------------------
Şimdi ise ASP ile yarattığımız koda bakalım...
<%
rem Bu script Cemil CENGİZ tarafından 10:49 19.04.2003 tarihinde yazılmıştır!
Const DGR = 1000
Randomize
degerim = Int((DGR * Rnd) + 1)
Const DGRM = 1000
Randomize
logdegerim = Int((DGRM * Rnd) + 1)
Logaritma = Log(degerim) / Log(logdegerim)
'Virgülü atıyoruz
Logaritma = Replace(Logaritma,"," ,"" )
Response.Write Logaritma
'isterseniz alttaki kodun önündeki tırnağı kaldırarak Redirect işeleminde de bu kodu kullanabilirsiniz...
'Response.Redirect "Aktivasyon.asp?Kod=" +Logaritma
%>
--------------------------------
Bu kod ile 1-1000 arası 2 rakam alarak bu rakamların logaritmaları ile virgülü de atarak uzunca bir parola oluşturuyoruz...
Yaratıcı olabilirsek başka bir çok işlem için ;Logaritma kullanabiliriz...