Publicado em 6 de ago.

login com encriptacao md5

Ola a todos Alguém poderia me ajuda pois sou iniciante em programação em ASP e não estou conseguindo colocar para funcionar um sistema. Eu fiz um novo layout mas não estou conseguindo implementar o sistema de acesso a área restrita e administrativa.

ABAIXO VAI OS CODIGOS DO SISTEMA

PAGINA DO NOVO LAYOUT

CONSULTA.ASP

<%Option Explicit
Response.Expires = 0
%>





<%
Dim strNivelDir,intNivelDirPagina
strNivelDir = ""
intNivelDirPagina = 0
call AbrirBD(intNivelDirPagina)
call FecharBD
%>
<%
dim Conexao, SQL, rs
dim sg_login, sg_senha
dim strSecao, strCaixaPreta
dim msg, boolOk
dim strNivelDirPagina, strNomeModulo
dim DataAtual
DataAtual = Date()
set rs = Server.CreateObject("ADODB.RecordSet")
call AbrirBD(intNivelDirPagina)
Randomize(Time())
msg = ""
sg_login = Request.Form("edtUsuario")
sg_senha = Request.Form("edtSenha")
strSecao = Request.Form("strSecao")
strCaixaPreta = Request.Form("strCaixaPreta")
boolOk = (Request.Form.Count <> 0)
if boolOk then
msg = LoginCorreto(sg_login, strSecao, strCaixaPreta)
if msg <> "" then
Session("sg_login") = ""
Session("Secao") = ""
Session("Senha") = ""
Session("cd_usuario") = ""
Session("msg") = msg
boolOk = false
else
'response.Write("CERTO!")
'response.end()
end if
end if
if boolOk then
call FecharBD
Response.Redirect(strNivelDir & "adm/main.asp")
else
Session.Abandon()
end if
%>

<script language="JavaScript" type="text/JavaScript" src="<%=strNivelDir%>includes/md5.js">
</script>
<script language="javascript"><!--
function doOnLoad() {
 // Activate the appropriate input form field.
 if (document.formAutenticacao.edtUsuario.value == '') {
 document.formAutenticacao.edtUsuario.focus();
 } else {
 document.formAutenticacao.edtSenha.focus();
 }
}
function Criptografar() {
 var str = document.formAutenticacao.edtUsuario.value + ":" +
 MD5(document.formAutenticacao.edtSenha.value) + ":" +
 document.formAutenticacao.strSecao.value;
 document.formAutenticacao.strCaixaPreta.value = MD5(str);
 document.formAutenticacao.edtSenha.value = "";
 return true;
}
//--></script>

<html>
<head>
<script language="JavaScript" type="text/JavaScript">function mmLoadMenus() {
 if (window.mm_menu_0407140415_0) return;
 window.mm_menu_0407140415_0 = new Menu("root",107,18,"Arial, Helvetica, sans-serif",12,"#000000","#FF9966","#c1dfa3","#003399","left","middle",3,0,1000,-5,7,true,false,true,0,true,true);
 mm_menu_0407140415_0.addMenuItem("Quem Somos","location='quemsomos.htm'");
 mm_menu_0407140415_0.addMenuItem("Equipe","location='equipe.htm'");
 mm_menu_0407140415_0.addMenuItem("Diferenciais","location='diferenciais.htm'");
 mm_menu_0407140415_0.addMenuItem("Clientes","location='clientes.htm'");
 mm_menu_0407140415_0.hideOnMouseOut=true;
 mm_menu_0407140415_0.bgColor='#555555';
 mm_menu_0407140415_0.menuBorder=1;
 mm_menu_0407140415_0.menuLiteBgColor='#FFFFFF';
 mm_menu_0407140415_0.menuBorderBgColor='#777777';
	window.mm_menu_0407140729_0 = new Menu("root",89,18,"Arial, Helvetica, sans-serif",12,"#000000","#FF9966","#c1dfa3","#003399","left","middle",3,0,1000,-5,7,true,false,true,0,false,true);
 mm_menu_0407140729_0.addMenuItem("Quem Somos","location='quemsomos.htm'");
 mm_menu_0407140729_0.addMenuItem("Equipe","location='equipe.htm'");
 mm_menu_0407140729_0.addMenuItem("Diferenciais","location='diferenciais.htm'");
 mm_menu_0407140729_0.addMenuItem("Clientes","location='clientes.htm'");
 mm_menu_0407140729_0.hideOnMouseOut=true;
 mm_menu_0407140729_0.bgColor='#555555';
 mm_menu_0407140729_0.menuBorder=1;
 mm_menu_0407140729_0.menuLiteBgColor='#FFFFFF';
 mm_menu_0407140729_0.menuBorderBgColor='#777777';
mm_menu_0407140729_0.writeMenus();

} // mmLoadMenus()
<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized
 if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
	document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
 else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

//-->

</script>
</head>
<body bgcolor="#ffffff">
<script language="JavaScript1.2">mmLoadMenus();</script>

<table border="0" cellpadding="0" cellspacing="0" width="985">
 <!-- fwtable fwsrc="login1.png" fwbase="login.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
 <tr>
	<!-- Shim row, height 1. -->
	<td><img src="imagens/spacer.gif" width="88" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="95" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="155" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="109" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="32" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="34" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="47" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="100" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="12" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="138" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="100" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="53" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 1 -->
	<td rowspan="2" colspan="2"><img src="imagens/login_r1_c1.gif" alt="" name="login_r1_c1" width="183" height="136" border="0" usemap="#login_r1_c1Map"></td>
	<td colspan="11"><img name="login_r1_c3" src="imagens/login_r1_c3.gif" width="802" height="100" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="100" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 2 -->
	<td colspan="2"><img src="imagens/login_r2_c3.gif" alt="" name="login_r2_c3" width="177" height="36" border="0" usemap="#login_r2_c3Map"></td>
	<td><a href="#" onMouseOver="MM_showMenu(window.mm_menu_0407140729_0,15,34,null,'login_r2_c5')" onMouseOut="MM_startTimeout();"><img name="login_r2_c5" src="imagens/login_r2_c5.gif" width="109" height="36" border="0" alt=""></a></td>
	<td colspan="3"><a href="tributario.htm" onMouseOut="MM_startTimeout();"><img name="login_r2_c6" src="imagens/login_r2_c6.gif" width="113" height="36" border="0" alt=""></a></td>
	<td colspan="2"><a href="cartorario.htm"><img name="login_r2_c9" src="imagens/login_r2_c9.gif" width="112" height="36" border="0" alt=""></a></td>
	<td><a href="consulta.htm"><img name="login_r2_c11" src="imagens/login_r2_c11.gif" width="138" height="36" border="0" alt=""></a></td>
	<td colspan="2"><img src="imagens/login_r2_c12.gif" alt="" name="login_r2_c12" width="153" height="36" border="0" usemap="#login_r2_c12Map"></td>
	<td><img src="imagens/spacer.gif" width="1" height="36" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 3 -->
	<td rowspan="2" colspan="13"><img name="login_r3_c1" src="imagens/login_r3_c1.gif" width="985" height="44" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="2" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 4 -->
	<td><img src="imagens/spacer.gif" width="1" height="42" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 5 -->
	<td colspan="6"><div id="Layer3" style="position:relative; width:496px; height:34px; z-index:2; left: 8px; top: 0px;">
 A CR - Consultoria de Resultados oferece aos seus clientes um sistema
 on-line, protegido por senha e criptografia, onde é possível
 acompanhar o andamento de suas ações passo a passo.</div></td>
	<td rowspan="5"><img name="login_r5_c7" src="imagens/login_r5_c7.gif" width="34" height="393" border="0" alt=""></td>
	<td rowspan="2" colspan="6"><div id="Layer4" style="position:relative; width:444px; height:82px; z-index:3; left: 2; visibility: hidden;">
 <p align="justify">Essa ferramenta é muito útil pois mantém
 o cliente sempre atualizado e auxilia na <strong>   </strong>tomada
 de decisões importantes. <br>
 Entre em contato conosco e saiba mais sobre este e outros benefícios que
 a CR Consultoria de Resultados pode trazer à sua empresa.</p>
 </div></td>
	<td><img src="imagens/spacer.gif" width="1" height="90" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 6 -->
	<td rowspan="5"> </td>
	<td colspan="2" rowspan="2" bgcolor="#174D8B">
 <!--#include file="includes/header.asp" -->
	</td>
	<td rowspan="5" colspan="3"> </td>
	<td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 7 -->
	<td rowspan="4" colspan="2"> </td>
	<td colspan="3" rowspan="2" bgcolor="#174D8B"> <div id="Layer2" style="position:absolute; left:712px; top:298px; width:144px; height:139px; z-index:1">
 <table width="10" border="0" cellspacing="0" cellpadding="6">
 <tr>
 <td colspan="2"><div align="center"><font color="#FFFFFF"><strong>Cartorária</strong></font>
 </div></td>
 </tr>
 <tr>
 <td><font color="#FFFFFF"><strong>Login:</strong></font></td>
 <td><input name="edtUsuario2" type="text" id="edtUsuario3" size="15" maxlength="12"></td>
 </tr>
 <tr>
 <td><font color="#FFFFFF"><strong>Senha:</strong></font></td>
 <td><input name="edtSenha2" type="password" id="edtSenha2" size="10" maxlength="12"></td>
 </tr>
 <tr>
 <td> </td>
 <td><div align="right">
 <input type="submit" name="Submit22" value="Entrar">
 <input name="strSecao2" type="hidden" value="11920">
 <input name="strCaixaPreta2" type="hidden">
 </div></td>
 </tr>
 </table>
 </div></td>
	<td rowspan="4"> </td>
	<td><img src="imagens/spacer.gif" width="1" height="149" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 8 -->
	<td rowspan="3" colspan="2"> </td>
	<td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 9 -->
	<td rowspan="2" colspan="3"> </td>
	<td><img src="imagens/spacer.gif" width="1" height="152" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 10 -->
	<td><img name="login_r10_c7" src="imagens/login_r10_c7.gif" width="34" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
 </tr>
 <tr>
	<!-- row 11 -->
	<td colspan="13"><img name="login_r11_c1" src="imagens/login_r11_c1.gif" width="985" height="26" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="26" border="0" alt=""></td>
 </tr>
 <!-- This table was automatically created with Macromedia Fireworks -->
 <!-- [url="[http://www.macromedia.com"]http://www.macromedia.com[/url]](http://www.macromedia.com) -->
</table>

<map name="login_r1_c1Map">
 <area shape="rect" coords="8,8,169,128" href="index.htm">
</map>
<map name="login_r2_c3Map">
 <area shape="rect" coords="89,4,163,30" href="index.htm">
</map>
<map name="login_r2_c12Map">
 <area shape="rect" coords="10,4,123,30" href="faleconosco.htm">
</map>
</body>
</html>

<%
call FecharBD
%>________________________________________

SIS_ACESSO.ASP

<%
redim arr_sg_nivel(0)
redim arr_cd_nivel(0)

Session.Timeout = 40

private function eAdministrador
dim strSQL, sg_adm

 strSQL = "SELECT sg_administrador FROM ac_usuario WHERE sg_login=" & paraLiteralSQL(Session("sg_login_aut"))
 rs.Open strSQL, Conexao, 1, 3
 if rs.EOF then
 sg_adm = false
 else
 sg_adm = rs("sg_administrador")
 end if
 rs.Close
 eAdministrador = sg_adm

end function

function usuarioLogado
dim strMsg
if Session("sg_login_aut") <> "" and Session("sg_senha_aut") <> "" then
strMsg = LoginCorreto(Session("sg_login_aut"), Session("cd_secao_aut"), Session("sg_senha_aut"))

 'response.Write("<br>r=" & strMsg)
 'response.End()
 else
 'response.Write("<br>u=" & Session("sg_login_aut"))
 'response.Write("<br>s=" & Session("sg_senha_aut"))
 strMsg = "Entre com seu login/senha."
 'response.End()
 end if
 usuarioLogado = strMsg

end function

private function LoginCorreto(sg_login, strSecao, strCaixaPreta)
 dim SQL, rsAutenticar, msg, sg_senha
 SQL = "SELECT cd_usuario, nm_usuario, sg_usuario_ativo, sg_senha FROM ac_usuario"
 SQL = SQL & " WHERE sg_login=" & paraLiteralSQL(sg_login)
 msg = ""
 set rsAutenticar = Conexao.Execute(SQL)
 if not rsAutenticar.eof then
 if rsAutenticar("sg_usuario_ativo")=false then
 msg = "Este usuário está inativo."
 else
 sg_senha = rsAutenticar("sg_senha")
 if md5(sg_login & ":" & md5(sg_senha) & ":" & strSecao) <> strCaixaPreta then
	'response.Write("<br>U=" & Session("sg_login_aut"))
	'response.Write("<br>S=" & Session("sg_senha_aut"))
	'response.Write("<br>N=" & strSecao)
	'Response.Write("<br>atua=" & md5(sg_login & ":" & md5(sg_senha) & ":" & strSecao))
	'Response.Write("<br>form=" & strCaixaPreta)
	msg = "A senha informada está incorreta"
 else
	Session("cd_usuario_aut") = rsAutenticar("cd_usuario")
	Session("cd_secao_aut") = strSecao
	Session("sg_senha_aut") = strCaixaPreta
	Session("sg_login_aut") = sg_login
 end if
 end if
 else
 msg = "Este usuário não existe."
 end if
 rsAutenticar.Close
 set rsAutenticar = nothing
 if msg <> "" then
 Session.Abandon
 end if
 LoginCorreto = msg

end function

private function ModuloSemAcesso(strSiglaModulo)
 ModuloSemAcesso = "Seu usuário não tem direito de acesso à este módulo."

end function %>________________________________________

SIS_STR.ASP

private function paraLiteralSQL(s)
 dim s0

 s0 = s
 s0 = Replace(s0, "'", "''")
 s0 = "'" & s0 & "'"
 paraLiteralSQL = s0

end function

private function paraLogicoSQL(s)
 dim s0

 if (s) then s0 = "TRUE" else s0 = "FALSE"
 paraLogicoSQL = s0

end function

private function paraDataSQL(s)
 dim s0

 if IsDate(s) then
 s0 = paraLiteralSQL(StrZero(Day(dt), 2) & "/" & StrZero(Month(dt), 2) & "/" & StrZero(Year(dt), 4))
 else
 s0 = "NULL"
 end if
 paraLogicoSQL = s0

end function

private function paraLiteralHTM(s)
 dim s0

 if IsNull(s) then
 s0 = ""
 else
 s0 = s
 s0 = Replace(s0, "&", "&")
 s0 = Replace(s0, "<", "<")
 s0 = Replace(s0, ">", ">")
 s0 = Replace(s0, " ", "  ")
 s0 = replace(s0, vbCrLf, "<br>")
 end if
 paraLiteralHTM = s0

end function

private function paraLiteralHTMEdicao(s)
 dim s0

 if IsNull(s) then
 s0 = ""
 else
 s0 = paraLiteralHTM(s)
 s0 = replace(s0, "<br>", vbCrLf)
 end if
 paraLiteralHTMEdicao = s0

end function

private function paraNumeralSQL(s)
 dim s0

 s0 = s
 if isNull(s0) then
 s0 = "NULL"
 else
 s0 = Replace(s0, ",", ".")
 if not IsNumeric(s0) or s0 = "" then
 s0 = "NULL"
 end if
 end if
 paraNumeralSQL = s0

end function

private function paraDataSQL(dt)
 if IsDate(dt) then
 paraDataSQL = "'" & year(dt) & "-" & month(dt) & "-" & day(dt) & " " &_
 hour(dt) & ":" & minute(dt) & ":" & second(dt) & "'"
 else
 paraDataSQL = "NULL"
 end if

end function

private function estaVazio(var)
 estaVazio = isNull(var) or isEmpty(var) or var = 0

end function

private function StrZero(str, dig)
 dim ret, qt
 ret = Trim(cstr(str))
 qt = cint(dig)
 'Response.Write("|qt=" & qt)
 'Response.Write("|len=" & Len(ret))
 while len(ret) < qt
 ret = "0" & ret
 qt = qt - 1
 wend
 StrZero = ret

end function %>________________________________________

SIS_ARQUIVO.ASP

<%
const vw_Usuario="SELECT cd_usuario,nm_usuario,sg_login,sg_senha,sg_administrador,sg_usuario_ativo,nm_emp
resa,cd_cnpj FROM ac_usuario"

const vw_UltimoUsuario="SELECT MAX(cd_usuario) AS cd_ultimo_usuario FROM ac_usuario"
const vw_AcaoUsuario="SELECT cd_acao,acao.cd_usuario,nm_acao,nm_assunto,nm_tributo,nm_local,nm_fase,cd_pasta,

dt_inicio,cd_processo,nm_julgado,nm_reu,ac_usuario.nm_usuario,ac_usuario.nm_empr
e
sa FROM acao INNER JOIN ac_usuario ON acao.cd_usuario=ac_usuario.cd_usuario"

const vw_AndamentoAcaoUsuario="SELECT cd_acao,cd_andamento,dt_andamento,ds_andamento FROM andamento_acao"
const vw_UltimaAcao="SELECT MAX(cd_acao) AS cd_ultima_acao FROM acao"

'Inserido : 07/05/2003 (programador : Fabio A. F.) - INICIO

const vw_Noticia="Select cd_noticia,nm_titulo,nm_subtitulo,dc_noticia,dt_data_noticia,nm_fonte,nm_autor FROM noticias"
const vw_UltimaNoticia="SELECT MAX(cd_noticia) AS cd_ultima_noticia FROM noticias"

'Inserido : 07/05/2003 (programador : Fabio A. F.) - FIM

dim strDiretorioAtual
strDiretorioAtual = ""

private function ExecutarSQL(SQL)
 call Conexao.Execute(SQL)

end function

private function AbrirBD(intNivel)
 dim strCaminhoBD, intTempNivelDir, intTempNivelDirMenu

 intTempNivelDir=intNivel
 intTempNivelDirMenu = intNivel+1
 strCaminhoBD = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
 strDiretorioAtual = Request.ServerVariables("SCRIPT_NAME")
 intTempNivelDir = intTempNivelDir + 2
 if (InStr(strCaminhoBD,"novo") > 0) then
 intTempNivelDir = intTempNivelDir + 1
 intTempNivelDirMenu = intTempNivelDirMenu + 1
 end if
 while intTempNivelDir > 0
 ' *** não considera o nível de diretório do banco de dados ***
 if intTempNivelDirMenu > 0 then
 strDiretorioAtual = Left(strDiretorioAtual, InStrRev(strDiretorioAtual, "/")-1)
 end if
 strCaminhoBD = Left(strCaminhoBD, InStrRev(strCaminhoBD,"\")-1)
 intTempNivelDir = intTempNivelDir - 1
 intTempNivelDirMenu = intTempNivelDirMenu - 1
 wend
 strCaminhoBD = strCaminhoBD & "\dados\bd.mdb"
 strDiretorioAtual = "http://" & Request.ServerVariables("HTTP_HOST") & strDiretorioAtual
	set conexao = Server.CreateObject("ADODB.Connection")
 on error resume next
 ' ** tenta a conexão OLEDB
 ' *
 conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_
 "Data Source=" & strCaminhoBD
 if err.Number <> 0 then
 ' ** tenta a conexão ODBC
 ' *
 conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
 "DBQ=" & strCaminhoBD & ";" & _
 "PWD="
 if err.Number <> 0 then
 response.write "Caminho para o banco de dados: " & strCaminhoBD
 response.Write("<br>Diretório atual: " & strNivelDirPagina)
 response.Write("<br>Diretórios: " & intTempNivelDir)
 response.Write("<br>Código de erro: " & err.Number)
 response.Write("<br>Descrição do erro: " & err.Description)
 response.Write("<br>Página atual: " & Request.ServerVariables("SCRIPT_NAME"))
 response.Write("<br>Página anterior: " & Request.ServerVariables("HTTP_REFERER"))
 response.Write("<br>Help Context: " & err.helpcontext)
 response.Write("<br>Help Path: " & err.helppath)
 response.Write("<br>Native Error: " & err.nativeerror)
 response.Write("<br>Source: " & err.source)
 response.Write("<br>SQLState: " & err.sqlstate)
 dim objFSO
 set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 if objFSO.FileExists(strCaminhoBD) then
	Response.Write("<br>...o arquivo existe.")
 else
	Response.Write("<br>ARQUIVO NÃO ENCONTRADO!")
 end if
 set objFSO = nothing
 response.End()
 end if
 end if
 on error goto 0

end function private function FecharBD Conexao.Close set Conexao = nothing end function %>________________________________________

SIS_NIVEL_DIR.ASP

<%
' Calcula a quantidade de níveis de diretório que será preciso retornar para
' linkar corretamente as páginas e includes.
private function DeterminarNivelDiretorio
dim intNivelTemp
intNivelTemp = intNivelDirPagina
strNivelDirPagina = Request.ServerVariables("PATH_INFO")
strNivelDirPagina = Left(strNivelDirPagina, InStrRev(strNivelDirPagina, "/")-1)
while intNivelTemp > 0
strNivelDirPagina = Left(strNivelDirPagina, InStrRev(strNivelDirPagina, "/")-1)
intNivelTemp = intNivelTemp - 1
wend
strNivelDirPagina = strNivelDirPagina & "/"
end function
%>

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...