CCPROXY Encryption/Decryption

Public Function DecryptCcproxyPassword(ByVal password As String)
        Dim temp As String = ""
        Dim s As String = password
        Dim i As Integer = 0
        While i < s.Length / 3
            Dim n As Integer
            n = Val(s.Substring(i * 3, 3))
            n = 999 - n
            temp += Chr(n)
            i += 1
        End While
        Return temp
End Function
Public Function EncryptCcproxyPassword(ByVal Text As String)
        Dim enc As String = ""
        Dim s As String = Text
        For i As Integer = 0 To s.Length - 1
            Dim n As Integer
            n = Asc(s.Substring(i, 1))
            n = 999 - n
            enc += n.ToString
        Next
        Return enc
End Function