#!/usr/bin/perl $metodo = $ENV{'REQUEST_METHOD'}; if ($metodo eq "POST") { $in=; $input = $in; } else { $input = $ENV{'QUERY_STRING'}; } @input = split(/&/,$input); foreach $i (0 .. $#input) { ($key,$value)=split(/=/,$input[$i],2); $key=~ s/%(..)/pack("c",hex($1))/ge; $value=~ s/%(..)/pack("c",hex($1))/ge; $value=~ s/\+/ /g; $entries{$key}=$value; } print "content-Type: text/html\n\n"; $ncruzes = $entries{'n'}; if ($ncruzes < 6) { print " \n"; print "Aparentemente você não usou a nossa página do Totoloto
\n"; print "clique aqui\n"; print "\n"; exit; } for ($i = 0; $i < $ncruzes; $i++) { $name = $i + 1; $apostas[$i] = $entries{"text$name"}; # print "apostas[$i]=$apostas[$i]
"; if ($apostas[$i] == 0) { print "\n"; print "Aparentemente você não usou a nossa página do Totoloto
\n"; print "DEBUG: n=$entries{'n'} i=$i aposta=$apostas[$i]
\n"; print "clique aqui\n"; print "\n"; exit; } } @multiplas = (0, 0, 0, 0, 0, 0, 1, 7, 28, 84, 210, 462, 924); $napostas = $multiplas[$ncruzes]; $preco = $napostas * 0.25; $preco_esc = $preco * 200.482; print " \n"; print "

Totoloto electronico

\n"; print "Casa da Lotaria Informática na Internet\n"; print "

\n"; print "Nº de cruzes: $ncruzes
\n"; print "Nº de apostas: $napostas
\n"; print "Preço: $preco Euros ($preco_esc Esc.)
"; print "Apostas: \n"; for ($i = 0; $i <= $#apostas; $i++) { print "$apostas[$i] "; } print " ";