Encripta e decripta

[Evilkenzera 0]

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

%>

[hargon 64]

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.

[Vinicius Ianni 189]

Dando uma olhada por cima nesse codigo, tem esta linhano decrypt:

 

ch = "&H" & Mid(s, (i-1)*2+1, 2)

 

 

tenta assim

 

ch = "&H" & Mid(s, (i-1)*2+1, 20)

 

o mesmo vale no encrypt

[Evilkenzera 0]

aumentou apenas 2 caracteres a mais. E qualquer valor que coloque só aumenta 2 caracteres

[jrcardozo 4]

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.