Accés al correu electrònic:

#!/usr/bin/perl $ENV{TZ}='CET'; # pq enlloc de donar l'hora a GMT ens dongui la hora aqui que es la CET (=GMT +2hores) $date_command = "/bin/date"; # Get the Date for Entry #$date = `$date_command +"%A, %B %d, %Y at %T (%Z)"`; $shortdate = `$date_command +"%D %T %Z"`; #$segonsany = `$date_command +"%s"`; # es el mateix $segonsany = time; $redundancia = $segonsany *33; $redundancia = $redundancia % 10000; $redundancia = $redundancia + $redundancia * 330000; $redundancia =~ tr/0-9/1952864370/; $hora = `$date_command +"%H"`; $dia = `$date_command +"%D"`; $ip=$ENV{'REMOTE_ADDR'}; @ipn = split(/\./,$ip); $ipt= $ipn[0] + $ipn[1]; $ipt = $ipt % 30; $ipt= $ipt + $ipn[2]; $ipt = $ipt % 30; $hora = $hora * $ipn[3]; $dia = $dia * $ipn[2]; $ipt= $ipt + $hora; $ipt= $ipt + $dia; $ipt =~ tr/0-9/1952864370/; $clau = $ipt % 30; #la clau varia cada hora i per cada ip #$clau = ($redundancia) % 30; chop($shortdate); $usuari= $shortdate . '-[' . $segonsany . ']- '.$ENV{'REMOTE_ADDR'}.' - '.$ENV{'HTTP_USER_AGENT'}.'-'.$ENV{'HTTP_ACCEPT_LANGUAGE'}; open (FILE,"ips.txt") || die "S'ha produit un Error!\n"; @LINES=; close(FILE); # $SIZE=@LINES; open(FILE,">" . "ips.txt"); print FILE $usuari, "\n"; for ($i=0;$i<=200;$i++) { print FILE $LINES[$i]; } #print FILE $LINES[0]; #print FILE $LINES[1]; #print FILE $LINES[2]; #print FILE $LINES[3]; #print FILE $LINES[4]; #print FILE $LINES[5]; #print FILE $LINES[6]; #print FILE $LINES[7]; #print FILE $LINES[8]; #print FILE $LINES[9]; #print FILE $LINES[10]; #print FILE $LINES[11]; #print FILE $LINES[12]; #print FILE $LINES[13]; #print FILE $LINES[14]; #print FILE $LINES[15]; #print FILE $LINES[16]; #print FILE $LINES[17]; #print FILE $LINES[18]; #print FILE $LINES[19]; #print FILE $LINES[20]; #print FILE $LINES[21]; #print FILE $LINES[22]; #print FILE $LINES[23]; #print FILE $LINES[24]; #print FILE $LINES[25]; #print FILE $LINES[26]; #print FILE $LINES[27]; #print FILE $LINES[28]; #print FILE $LINES[29]; close(FILE); #redirecciona a la pagina de correu: #print "Location: https://dafyn.com/ControlPanel/index.xsl?logout=true\n\n"; #print "Location: index3.htm\n\n"; # #open(DATA,"index3.txt"); # @linies = ; #close(DATA); # # print "Content-type: text/html\n\n"; # foreach $lineresposta (@linies) # { # # if (chop($lineresposta) ne "") # { # print $lineresposta; # } # else # { # print $clau; # } # } print < Accés al correu electrònic: Accés a comptes externes finalHTM exit;