In questo script sfrutteremo l'indirizzo IP del visitatore per ottenere 4 numeri casuali.
<%
function genera(indirizzo)
dim intNumeri
intNumeri = split(indirizzo,".")
for i=0 to ubound(intNumeri)
response.write "<br>"&i+1&"° Numero Casuale --> " & intNumeri(i)
next
end function
call genera(Request.ServerVariables("REMOTE_ADDR"))
%>
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.