Public Function Criptografar(ByVal Texto As String) As String
    Dim i As Integer
    Dim FuncaoA, FuncaoB, FuncaoC, FuncaoD, FuncaoE, FuncaoF As Integer
    Dim ChA, ChB, ChC, ChD, ChE, ChF As Integer
    Dim SomatorioA, SomatorioB, SomatorioC, SomatorioD, SomatorioE, SomatorioF As Integer
    Dim CifraA, CifraB, CifraC, CifraD, CifraE, CifraF As Integer

        ChA = 2
        ChB = 4
        ChC = 3
        ChD = 5
        ChE = 2
        ChF = 4


    For i = 1 To Len(Texto)
        tmpTexto = Mid(Texto, i, 1)
        tmpTexto = Asc(tmpTexto)
        ContaCaracter = tmpTexto
        Select Case i
            Case 1
                FuncaoA = ChA * (i ^ 5) + ChB * (i ^ 4) + ChC * (i ^ 3) + ChD * (i ^ 2) + ChE * i + ChF
                SomatorioA = tmpTexto + FuncaoA
                CifraA = (Chr(SomatorioA Mod 256))
            Case 2
                FuncaoB = ChA * (i ^ 5) + ChB * (i ^ 4) + ChC * (i ^ 3) + ChD * (i ^ 2) + ChE * i + ChF
                SomatorioB = tmpTexto + FuncaoB
                CifraB = (Chr(SomatorioB Mod 256))

            Case 3
               FuncaoC = ChA * (i ^ 5) + ChB * (i ^ 4) + ChC * (i ^ 3) + ChD * (i ^ 2) + ChE * i + ChF
                Text2.Text = FuncaoC
                SomatorioC = tmpTexto + FuncaoC
                CifraC = (Chr(SomatorioC Mod 256))

            Case 4
                FuncaoD = ChA * (i ^ 5) + ChB * (i ^ 4) + ChC * (i ^ 3) + ChD * (i ^ 2) + ChE * i + ChF
                Text2.Text = FuncaoD
                SomatorioD = tmpTexto + FuncaoD
                CifraD = (Chr(SomatorioD Mod 256))

            Case 5
                FuncaoE = ChA * (i ^ 5) + ChB * (i ^ 4) + ChC * (i ^ 3) + ChD * (i ^ 2) + ChE * i + ChF
                Text2.Text = FuncaoE
                SomatorioE = tmpTexto + FuncaoE
                CifraE = (Chr(SomatorioE Mod 256))

            Case 6
                FuncaoF = ChA * (i ^ 5) + ChB * (i ^ 4) + ChC * (i ^ 3) + ChD * (i ^ 2) + ChE * i + ChF
                Text2.Text = FuncaoF
                SomatorioF = tmpTexto + FuncaoF
                CifraF = (Chr(SomatorioF Mod 256))
            End Select
    Next
    Text2.Text = CifraA & CifraB & CifraC & CifraD & CifraE & CifraF

End Function