sssssssssss

Usuário:


Senha:

#!/usr/bin/perl print "content-type:text/html\n\n"; $senha = "teste"; # Coloque a senha que deseja use CGI; $query = new CGI; $acao = $query->param("acao"); # Pega a query ACAO $senhax = $query->param("senha"); # Pega a query SENHA if ($acao eq '') { print qq~

Digite a senha:

~; } else { &verifica; } sub verifica { if ($senhax eq $senha) { print qq~LOGADO~; } else { print qq~Senha errada.~; } }

Nome de usuário: Senha: