I use the following function to encrypt/decrypt a string

It works fine in my main computer. However, when I run it in my laptop, the Œ character gets decrypt as an & symbol. The correct result should be the letter “s” lower case.

        Dim i As Integer
        Dim Ecn As String = (ConfigurationSettings.AppSettings("sqlStr"))
        Dim Dcn As String
        For i = 1 To Len(Ecn)
            Dcn = Dcn & Chr(Asc(Mid(Ecn, i, 1)) - 25)
        Next i

You help is appreciated

Thank you
Tom

What are you decoding from? Base64?

"The one language all programmers understand is profanity."

I have encoded a text string, and saved the encoded string in the Web.config
This function is decoding the string from the Web.config and should return the same test string as the beginning.

Tom

But you encoded it how? Base64? Or do you me you encrypted it with RSA, MD5, etc? Is the content encoding the same on both machines? (E.g. UTF-8)

"The one language all programmers understand is profanity."