USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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)

 


CyberWEB Network Ltda.    © Copyright 2000-2017   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página