Encriptar dados de forma simples


Autor/fonte: Rodrigo Araujo
Tags: [ criptografia ]



Digg del.icio.us

Sendo utilizado para garantir maior segurança na transmissão de dados, este código contém funções bem simples e de fácil implementação para encriptar e desencriptar dados.

Const EncC1 = 109
Const EncC2 = 191
Const EncKey = 161

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


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

Exemplo de uso:

'Testando o código
VarTeste = EncriptaStr("1 ,2 ,3 testando...")
Response.Write (VarTeste& "")
Response.Write (DecriptaStr(VarTeste))




Enviado por xKuRt em 22/06/2009 às 08:52


Avaliação

Esta publicação ainda não foi avaliada!


Avaliar:


A avaliação de publicações é restrita a membros cadastrados e logados no nosso site.



Comentários

AvatarEnviado por pedrofelipe em 18/06/2010 às 13:21

Ótimo código, bem estruturado.

No caso de chaves, é só usar um Request de um campo onde o user pode inserir a chave que deseja.

--
<% Response.Write(

AvatarEnviado por dddweb em 11/05/2010 às 16:04

O script é funcional, mas sera que nao da para publicar ums script para criptografia utilizando chaves, ou que sabe se nao for para pedir demais explique os algoritmos de criptografia

--
Programador da Library Asp


Envio de comentário:




  

Segunda, 01 de Setembro de 2014




Top 5 membros

Últimos membros online

Últimos membros cadastrados



Capa do livro
HTML 5 e CSS3: Desenvolva Hoje Com O Padrão De Amanhã


Capa do livro
Aprendendo JavaScript


Capa do livro
Linux - Controles de Redes





Hostnet

IMD