|
|
|
|
|
|
|
|
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
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
|
|
|
|
|
