Numeri casuali da un IP

In questo script sfrutteremo l'indirizzo IP del visitatore per ottenere 4 numeri casuali. I 4 numeri ottenuti, variano col variare dell'IP di connessione dell'utente. Se lo stesso utente si collega più volte con la stessa sessione di navigazione, i numeri ottenuti saranno sempre gli stessi.

<%
function genera(indirizzo)
dim intNumeri
intNumeri = split(indirizzo,".") 
for i=0 to ubound(intNumeri)
response.write "<br>"&amp;i+1&amp;"° 
Numero Casuale --> " &amp; intNumeri(i)
next
end function
call genera(Request.ServerVariables("REMOTE_ADDR"))
%>