Algorithms

Public Shared Function Decrypt(ByRef Msg As String, ByRef Key As String) As String
        Dim str As String
        Dim builder As New StringBuilder
        Try 
            Dim num5 As Integer = (Msg.Length - 1)
            Dim i As Integer = 0
            Do While (i <= num5)
                Dim num3 As Integer = Strings.Asc(Conversions.ToChar(Msg.Substring(i, 1)))
                Dim num2 As Integer = Strings.Asc(MFunction.GetKey(Key, i))
                Dim charCode As Integer = (num3 - num2)
                builder.Append(Strings.Chr(charCode))
                i += 1
            Loop
            str = builder.ToString
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            Throw New Exception(("Public Function Decrypt(ByRef Msg As String, ByRef Key As String) As String Error : " & ChrW(13) & ChrW(10) & exception.Message.ToString & ChrW(13) & ChrW(10)))
        Finally
            builder.Length = 0
        End Try
        Return str
    End Function

Public Shared Function Encrypt(ByRef Msg As String, ByRef Key As String) As String
       Dim str As String
       Dim builder As New StringBuilder
       Try
           Dim num5 As Integer = (Msg.Length - 1)
           Dim i As Integer = 0
           Do While (i <= num5)
               Dim num3 As Integer = Strings.Asc(Conversions.ToChar(Msg.Substring(i, 1)))
               Dim num2 As Integer = Strings.Asc(MFunction.GetKey(Key, i))
               Dim charCode As Integer = (num3 + num2)
               builder.Append(Strings.Chr(charCode))
               i += 1
           Loop
           str = builder.ToString
       Catch exception1 As Exception
           ProjectData.SetProjectError(exception1)
           Dim exception As Exception = exception1
           Throw New Exception(("Public Function Encrypt(ByRef Msg As String, ByRef Key As String) As String Error : " & ChrW(13) & ChrW(10) & exception.Message.ToString & ChrW(13) & ChrW(10)))
       Finally
           builder.Length = 0
       End Try
       Return str
   End Function