Numeri casuali da un IP

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.