Jump to content


Login Encriptado

Started By Whitesnake , 31/07/2004, 19:40

  • Faça o login para participar
2 replies to this topic

#1 Whitesnake

Whitesnake
  • Visitantes

Posted 31/07/2004, 19:40

Pra você q tem um site compartilhado com vários admnistradores, e deseja proteger seus dados com uma senha que só você pode saber, fiz este sistema de login encriptado.
Uma vez executado, ele pede para que crie um login e uma senha, estes dados que somente você saberá serão encriptados e salvos em um arquivo de texto.
Eis o script:

#!/usr/bin/perl
print "Content-type:text/html\n\n";

$pwd = "password.txt"; # Arquivo onde o Login e a Senha serão salvos

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@conteudo = split(/&/, $buffer);
foreach $par (@conteudo) {
        ($campo, $valor) = split(/=/, $par);
        $valor =~ tr/+/ /;
        $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $CAMPO{$campo} = $valor;
}



sub conteudo {print qq~
<!-- AQUI VOCÊ COLOCA O CONTEUDO PROTEGIDO //-->







<!-- AQUI VOCÊ COLOCA O CONTEUDO PROTEGIDO //-->
~;}

$qs = "$ENV{QUERY_STRING}";

if ($qs eq "")        {if (-e $pwd){&login;}else{&cadastro;}}
if ($qs eq "cadastra"){&cadastrar;}
if ($qs eq "login")   {&logar;}

sub cadastrar{
$senha = substr(crypt($CAMPO{senha},substr($CAMPO{senha},0,2)),2);

open (PWD,">$pwd");
print PWD "$CAMPO{login}\n$senha";
close(PWD);

print qq|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Secure Admin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.texto {font-family:Sans-serif; font-size:8pt;}
.bold {font-weight:bold; font-family:Sans-serif; font-size:8pt}
INPUT {font-weight:bold; font-family:Verdana; font-size:9pt}
.tabela {background-repeat:no-repeat; padding:10pt; }
TEXTAREA {font-weight:bold; font-family:Verdana; font-size:9pt; overflow:auto;}
A {font-family:Sans-serif; font-size:8pt; color:555555; text-decoration:none}
A:hover {font-family:Sans-serif; font-size:8pt; color:99999; text-decoration:none}
</style>
</head>
<body leftmargin="3" topmargin="3" marginwidth="3" marginheight="3">
  <table width="80%" align="center" cellspacing="2" class="texto">
    <tr>
      <td width="100%" bgcolor="#006600"><div align="center" class="bold"><font color="#FFFFFF">True
        Login </font></div></td>
    </tr>
  <tr>
    <td class="tabela">Parab&eacute;ns <font class="bold">$CAMPO{login}</font>,
      o password foi setado corretamente.<a href="?">Clique aqui para voltar
      à tela de login.</a></td>
    </tr>
  </table>
  </body>
</html>
|;}

sub cadastro{
print qq|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Secure Admin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.texto {font-family:Sans-serif; font-size:8pt;}
.bold {font-weight:bold; font-family:Sans-serif; font-size:8pt}
INPUT {font-weight:bold; font-family:Verdana; font-size:9pt}
.tabela {background-repeat:no-repeat; padding:10pt; }
TEXTAREA {font-weight:bold; font-family:Verdana; font-size:9pt; overflow:auto;}
A {font-family:Sans-serif; font-size:8pt; color:555555; text-decoration:none}
A:hover {font-family:Sans-serif; font-size:8pt; color:99999; text-decoration:none}
</style>
</head>
<body leftmargin="3" topmargin="3" marginwidth="3" marginheight="3">
  <table width="80%" align="center" cellspacing="2" class="texto">
    <tr>
      <td width="100%" bgcolor="#006600"><div align="center" class="bold"><font color="#FFFFFF">Secure Admin </font></div></td>
    </tr>
  <tr>
    <td class="tabela">
      Atenção! Só se cadastre caso você for o administrador do site.<br>
       <form name="form1" method="post" action="?cadastra">
        <table width="100%" class="bold">
          <tr>
            <td width="51%"><div align="right">Login:</div></td>
            <td width="49%"><input name="login" type="text" id="login"></td>
          </tr>
          <tr>
            <td><div align="right">Senha:</div></td>
            <td><input name="senha" type="password" id="password"></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td width="50%">&nbsp;</td>
          </tr>
          <tr>
            <td colspan="2"><div align="center">
                <input type="submit" name="Submit" value="Cadastrar">
              </div></td>
          </tr>
        </table>
      </form>
    </td>
    </tr>
  </table>
  </body>
</html>
|;}

sub logar{
open(PWD,"$pwd");
@pwd = <PWD>;
close(PWD);
$senha = substr(crypt($CAMPO{senha},substr($CAMPO{senha},0,2)),2);
foreach (@pwd){chomp;}
if($CAMPO{login} eq "$pwd[0]"){
if ($senha eq "$pwd[1]"){
&conteudo;
}else{
print qq|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Secure Admin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.texto {font-family:Sans-serif; font-size:8pt;}
.bold {font-weight:bold; font-family:Sans-serif; font-size:8pt}
INPUT {font-weight:bold; font-family:Verdana; font-size:9pt}
.tabela {background-repeat:no-repeat; padding:10pt; }
TEXTAREA {font-weight:bold; font-family:Verdana; font-size:9pt; overflow:auto;}
A {font-family:Sans-serif; font-size:8pt; color:555555; text-decoration:none}
A:hover {font-family:Sans-serif; font-size:8pt; color:99999; text-decoration:none}
</style>
</head>
<body leftmargin="3" topmargin="3" marginwidth="3" marginheight="3">
  <table width="80%" align="center" cellspacing="2" class="texto">
    <tr>
      <td width="100%" bgcolor="#006600"><div align="center" class="bold"><font color="#FFFFFF">Secure Admin </font></div></td>
    </tr>
  <tr>
    <td class="tabela"> Desculpe <font class="bold">$CAMPO{login}</font>, mas
      esta não é a senha correta. <br>
      Volte e tente novamente. <br>
      <br>
      <input type="button" name="Button" value="Voltar" onClick="self.location.href('java script:history.go(-1)')"> </td>
    </tr>
  </table>
  </body>
</html>
|;}
}else{
print qq|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Secure Admin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.texto {font-family:Sans-serif; font-size:8pt;}
.bold {font-weight:bold; font-family:Sans-serif; font-size:8pt}
INPUT {font-weight:bold; font-family:Verdana; font-size:9pt}
.tabela {background-repeat:no-repeat; padding:10pt; }
TEXTAREA {font-weight:bold; font-family:Verdana; font-size:9pt; overflow:auto;}
A {font-family:Sans-serif; font-size:8pt; color:555555; text-decoration:none}
A:hover {font-family:Sans-serif; font-size:8pt; color:99999; text-decoration:none}
</style>
</head>
<body leftmargin="3" topmargin="3" marginwidth="3" marginheight="3">
  <table width="80%" align="center" cellspacing="2" class="texto">
    <tr>
      <td width="100%" bgcolor="#006600"><div align="center" class="bold"><font color="#FFFFFF">Secure Admin </font></div></td>
    </tr>
  <tr>
    <td class="tabela">
Desculpe <font class="bold">$CAMPO{login}</font>, mas este não é o login correto.
<br>Volte e tente novamente. <br>
      <br>
      <input type="button" name="Button" value="Voltar" onClick="self.location.href('java script:history.go(-1)')"> </td>
    </tr>
  </table>
  </body>
</html>
|;}
}

sub login{
print qq|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Secure Admin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.texto {font-family:Sans-serif; font-size:8pt;}
.bold {font-weight:bold; font-family:Sans-serif; font-size:8pt}
INPUT {font-weight:bold; font-family:Verdana; font-size:9pt}
.tabela {background-repeat:no-repeat; padding:10pt; }
TEXTAREA {font-weight:bold; font-family:Verdana; font-size:9pt; overflow:auto;}
A {font-family:Sans-serif; font-size:8pt; color:555555; text-decoration:none}
A:hover {font-family:Sans-serif; font-size:8pt; color:99999; text-decoration:none}
</style>
</head>
<body leftmargin="3" topmargin="3" marginwidth="3" marginheight="3">
<font class="texto">Você acessou uma área restrita. Faça o login para prosseguir.</font>
  <table width="80%" align="center" cellspacing="2" class="texto">
    <tr>
      <td width="100%" bgcolor="#006600"><div align="center" class="bold"><font color="#FFFFFF">Secure Admin </font></div></td>
    </tr>
  <tr>
    <td class="tabela"><form name="form1" method="post" action="?login">
        <br>
        <table width="100%" class="bold">
          <tr>
            <td width="51%"><div align="right">Login:</div></td>
            <td width="49%"><input name="login" type="text" id="login"></td>
          </tr>
          <tr>
            <td><div align="right">Senha:</div></td>
            <td><input name="senha" type="password" id="senha"></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td width="50%">&nbsp;</td>
          </tr>
          <tr>
            <td colspan="2"><div align="center">
                <input type="submit" name="Submit" value="Login">
              </div></td>
          </tr>
        </table>
      </form>
    </td>
    </tr>
  </table>
  </body>
</html>
|;
}


#2 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 01/08/2004, 12:53

Legalzinho o script!

Parabéns!

flw..
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#3 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 07/10/2017, 09:18

Acheter Viagra Ligne France Mail Order Clarithromycin 500 Mg Propecia Where Can I Buy viagra online Cialis Y Deporte Topimax Without A Prescription Canada
Voltar para Artigos, Dicas e Tutoriais de CGI/Perl


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → Outras Linguagens e Tecnologias
  4. → CGI/Perl
  5. → Artigos, Dicas e Tutoriais de CGI/Perl
  6. Privacy Policy
  7. Regras ·
IPB Skin By Virteq