Encripta e decripta

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

%>