.NET Armon 64

  Public Shared Function ARMON64_Encrypt(ByVal message As String, Optional ByVal key As String = "ARMON64-CRYPO") As String
        Dim out As New System.Text.StringBuilder
        If key.Length < 3 Then Return message
        Dim intkey() As Byte = System.Text.Encoding.UTF8.GetBytes(key)
        Dim x As Integer
        Do While x < message.Length
            Dim hextemp As String = ""
            Dim y As String = ""
            If x > 0 Then y = "+"
            For i As Integer = x To Math.Round(key.Length / 2)
                If i < message.Length Then hextemp += Hex(Asc(message(i)))
            Next
            Dim thenum As Double = "&H" & hextemp
            If Information.IsNumeric(thenum) = False Then Return message
            For z As Integer = 0 To key.Length - 1
                Dim operation As Integer = z Mod 4
                Select Case operation
                    Case 0
                        thenum += intkey(z)
                    Case 1
                        thenum /= intkey(z)
                    Case 2
                        thenum -= intkey(z)
                    Case 3
                        thenum *= 0.01 * intkey(z)
                End Select
            Next
            out.Append(y & thenum)
            x += Math.Round(key.Length / 2)
        Loop
        Return out.ToString.Replace(",", ".")
    End Function
    Public Shared Function ARMON64_Decrypt(ByVal message As String, Optional ByVal key As String = "ARMON64-CRYPO") As String
        Dim out As New System.Text.StringBuilder
        If key.Length < 6 Then Return message
        Dim intkey() As Byte = System.Text.Encoding.UTF8.GetBytes(key)
        message = message.Replace(".", ",")
        Dim oOutString As String() = Split(message, "+")
        For x As Integer = 0 To oOutString.Length - 1
            For z As Integer = key.Length - 1 To 0 Step -1
                Dim operation As Integer = z Mod 4
                Select Case operation
                    Case 0
                        oOutString(x) -= intkey(z)
                    Case 1
                        oOutString(x) *= intkey(z)
                    Case 2
                        oOutString(x) += intkey(z)
                    Case 3
                        oOutString(x) /= 0.01 * intkey(z)
                End Select
            Next
            oOutString(x) = Hex(Math.Round(Double.Parse(oOutString(x))))
        Next
        For i As Integer = 0 To Join(oOutString).Length - 1 Step +2
            out.Append(Chr(("&H" & Join(oOutString).Substring(i, 2))))
        Next
        Return out.ToString
    End Function