Sir,
I am using following encryption code to convert text value. This is working properly but the encrypt word is not converting in url.
The code is converting text value like this 9??=< :4=488? :
www.abc.com/9??=< :4=488? :
Not treating the whole convert value in url
Please help
Public Function Encrypt(ByVal sString As String) As String
Dim intCounter As Integer
For intCounter = 1 To sString.Length
Mid(sString, intCounter, 1) = Chr(Asc(Mid(sString, intCounter, 1)) Xor 13)
Next
Return sString
End Function
Encrypt is correct but URL is breaking at = sign
QR read is not reading this link as well, but If we copy and paste on browser the hole like, it working properly.
