|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: criptografar e descriptografar dados
|
 |
|
|
|
Postada em 9/12/2003 por Martini
crie o arquivo Funcoes.asp (Vbscript), retire todo código e coloque o código abaixo
<%
'trata encriptação dos dados nas tabelas de segurança
Public Function EncriptaPW(vgSt)
Dim x
x = Trim(Cript(RPad(vgSt, 25, "+"), "SGA"))
While Right(x, 1) = "+"
x = left(x, Len(x) - 1)
Wend
EncriptaPW = x
End Function
'criptografa/descriptografa
Public Function Cript(St, Pw)
Dim x, A, i , n , p , j , no, OK, Cont 'dimensiona
p = 0
Cont = 0
For i = 1 To Len(St) 'para cada caracter
p = p + 1 'incrementa ponteiro
If p > Len(Pw) Then p = 1 'testa e reseta, se for o caso
j = Asc(Mid(Pw, p, 1)) Or 128 'pega char da senha evitando acima de 128
n = Asc(Mid(St, i)) 'pega char da string a encriptar
n = n Xor j 'encripta...
while (n < 31) Or (n > 127 And n < 159)
Cont = Cont + 1
if Cont > 1 then
n = n Xor j
end if
If n < 31 Then 'se char de controle
n = (128 + n) 'somar 128 e
ElseIf n > 127 And n < 159 Then 'se nesta faixa pode ser char de controle
n = n - 128 'tira 128 e
End If
wend
x = x + Chr(n) 'concatena string encriptada
Next 'próximo caracter a encriptar
Cript = x 'retorna a nova string
End Function
'RPad - Enche caracteres à direita de uma string
Public Function RPad(St, Tm, Ch)
Dim x 'dimensiona
If VarType(St) = vbString Then 'se veio uma string
x = St 'pega ela...
Else 'senão,
x = cStr(St) 'transforma em string
End If
RPad = left(LTrim(x) + String(Tm, Ch), Tm) 'completa com brancos à direita
End Function
%>
******************
nos locais onde você usará estas funções, coloque um include desse arquivo, depois é só chamar a função
exemplo:
<!--#include file="Funcoes.asp" -->
<%
Login = trim(Request("Nome"))
Senha = trim(Request("Senha"))
Confirma = trim(Request("Confirma"))
if Login <> "" And Senha <> "" And Senha = Confirma then
Login = EncriptaPw(Login)
Senha = EncriptaPw(Senha)
|
|
|
|
|
