Algorithms

Date of transaction      Reference        Invoice        Payment        Balance
2016-02-25 09:23         FLO1602001       2281.2700      0              2281.2700
2016-02-25 09:51         FLO1602002       18860.1000     0              21141.3700
2016-04-14 09:39         RV16040100       0              -20205.3700    936

A chaotic image encryption algorithm based on perceptron model

X = 0, Y = 0, Z = 10^(-10)

Anyone here understand the following question?

SET sum TO 0
FOR i=1 to size
FOR j=1 to size
sum=sum +1



H


Any help is appreciated! TY

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