Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Evilkenzera

Encripta e decripta

Recommended Posts

Pesssoal, eu peguei este código que criptgrafa e descriptgrafa, estou usando essa função para criptografar um valor de url, porém ele gera apenas 4 caracteres. Eu gostaria que me gerasse uns 20. Eu tentei mexer nesse código más é demais pra mim. Álguém aí com conhecimento avançado poderia me ajudar?

Tipo esse código me gera algo assim: 5D5F

 

 

 

<%
Function Decrypt(s)

Dim r, i, ch
For i = 1 To Len(s)/2
ch = "&H" & Mid(s, (i-1)*2+1, 2)
ch = ch Xor 111
r = r & Chr(ch)
Next
Decrypt = r

End Function
'_________________________________________________________________________

Function Encrypt(s)

Dim r, i, ch
For i = 1 To Len(s)
ch = Asc(Mid(s, i, 1))

ch = ch Xor 111
r = r & Right("0" & hex(ch),2)
Next
Encrypt = r

End Function

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ela gera de acordo com o número de caracteres informado.

 

São dois caracteres para cada caracter informado. Se você informar uma palavra com 10 caracteres, irá gerar os 20.

Compartilhar este post


Link para o post
Compartilhar em outros sites

a quantidade de caracteres criptografados não farão diferença se souberem a lgica da criptografia. Recomendo você criar seu proprio script para critografar se deseja segurança ou utilize esse mesmo, sem alterar pois não fará diferença na segurança.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.