Source

Basis: MD5-Verfahren

# Ermittele aus der IP des Nutzers eine anonymierte IP und aus den Parametern
# eine kuenstliche Userid, die nur fuer metager eindeutig ist.

$fullip=$ENV{'REMOTE_ADDR'};
$subnetip=$ENV{'REMOTE_ADDR'};
$subnetip=~ s/^(\d+\.\d+\.\d+)\.\d+/$1\.0/;

$anonId=md5_hex("MySeCrEtSeEdFoRmd5".$ENV{'REMOTE_ADDR'}.$ENV{'HTTP_ACCEPT'}.
  $ENV{'HTTP_ACCEPT_CHARSET'}.$ENV{'HTTP_ACCEPT_ENCODING'}.$ENV{'HTTP_ACCEPT_LANGUAGE'}.
  $ENV{'HTTP_USER_AGENT'}.$ENV{'HTTP_KEEP_ALIVE'}.$ENV{'HTTP_X_FORWARDED_FOR'}.$hour);