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:  Função para Criptografar e Descriptografar Informações
Postada em 23/7/2003 por Adriano Faria      Clique aqui para enviar email para o autor  adriano.faria@camara.gov.br
Criptografar:
<%
Const EncC1 = 109
Const EncC2 = 191
Const EncKey = 161

Public Function EncriptaStr(Texto)
Dim TempStr, TempResult, TempNum, TempChar
Dim TempKey
Dim i

TempStr = Texto
TempResult = ""
TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

For i = 1 To Len(TempStr)
TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256
TempChar = Chr(TempNum)
TempKey = (((Asc(TempChar) + TempKey) * EncC1) + EncC2) Mod 65536
TempResult = TempResult & TempChar
Next

EncriptaStr = TempResult
End Function
%>

Descriptografar:
<%
Public Function DecriptaStr(Texto)
Dim TempStr, TempResult, TempNum, TempChar
Dim TempKey
Dim i

TempStr = Texto
TempResult = ""
TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

For i = 1 To Len(TempStr)
TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256
TempChar = Chr(TempNum)
TempKey = (((Asc(Mid(TempStr, i, 1)) + TempKey) * EncC1) + EncC2) Mod 65536
TempResult = TempResult & TempChar
Next

DecriptaStr = TempResult
End Function

Private Function AuxShr(Numero, BShr)
AuxShr = Int(Numero / (2 ^ BShr))
End Function
%>

Para usar:
<%Dim Valor
Valor = EncriptaStr("Adriano")
Response.Write("Texto criptografado: " & Valor) & "<br>"
Response.Write("Texto descriptografado: " & DecriptaStr(Valor))%>

Resulta nisso:
Texto criptografado: çð³àðÀ
Texto descriptografado: Adriano
 


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