Dim str1   As String
Dim ch
Dim z, a, b, c, x As Integer

Dim arc1(), arc2(), aa()

Private Sub Command1_Click()
str1 = Text1.Text
l = Len(str1)
ReDim arc1(l), arc2(l)
For j = 1 To l
ch = Mid(str1, j, 1)
Call ascfun(ch)
Call dv(x, u1, u2, u3)
Call crt(x)
Call dv(y, v1, v2, v3)
Call crt(y)
n = x + y
Call addtomatrixa(n)

Next
k = 1
For v = 1 To n
y = gettwodigit(k)
Call getandprintcipher(y)

Next
End Sub
Private Function ascfun(ch) As Integer
x = Asc(ch)
End Function
Private Sub dv(x, a, b, c)
a = x / 100
b = x Mod 100
c = b Mod 100
b = b / 10
End Sub
Private Sub crt(x)
x = (286 * u1 + 78 * u2 + 66 * u3) Mod 420


End Sub
Private Sub addtomatrixa(n)
Call dv(n, a, b, c)
i = 1

aa(i) = a
i = i + 1
aa(i) = b
i = i + 1
aa(i) = c
i = i + 1
End Sub
Private Function gettwodigit(ByRef k%) As Integer
x = a(k) * 10 + a(k + 1)
k = k + 2
gettwodigit = x

End Function
Private Sub getandprintcipher(x)
Select Case x
Case 0: Text2.Text = Text2.Text + "a"
Case 1: Text2.Text = Text2.Text + "b"
Case 2: Text2.Text = Text2.Text + "c"
Case 3: Text2.Text = Text2.Text + "d"
Case 4: Text2.Text = Text2.Text + "e"
Case 5: Text2.Text = Text2.Text + "f"
Case 6: Text2.Text = Text2.Text + "g"
Case 7: Text2.Text = Text2.Text + "h"
Case 8: Text2.Text = Text2.Text + "i"
Case 9: Text2.Text = Text2.Text + "j"
Case 10: Text2.Text = Text2.Text + "k"
Case 11: Text2.Text = Text2.Text + "l"
Case 12: Text2.Text = Text2.Text + "m"
Case 13: Text2.Text = Text2.Text + "n"
Case 14: Text2.Text = Text2.Text + "o"
Case 15: Text2.Text = Text2.Text + "p"
Case 16: Text2.Text = Text2.Text + "q"
Case 17: Text2.Text = Text2.Text + "r"
Case 18: Text2.Text = Text2.Text + "s"
Case 19: Text2.Text = Text2.Text + "t"
Case 20: Text2.Text = Text2.Text + "u"
Case 21: Text2.Text = Text2.Text + "v"
Case 22: Text2.Text = Text2.Text + "w"
Case 23: Text2.Text = Text2.Text + "x"
Case 24: Text2.Text = Text2.Text + "y"
Case 25: Text2.Text = Text2.Text + "z"
Case 26: Text2.Text = Text2.Text + "A"
Case 27: Text2.Text = Text2.Text + "B"
Case 28: Text2.Text = Text2.Text + "C"
Case 29: Text2.Text = Text2.Text + "D"
Case 30: Text2.Text = Text2.Text + "E"
Case 31: Text2.Text = Text2.Text + "F"
Case 32: Text2.Text = Text2.Text + "G"
Case 33: Text2.Text = Text2.Text + "H"
Case 34: Text2.Text = Text2.Text + "I"
Case 35: Text2.Text = Text2.Text + "j"
Case 36: Text2.Text = Text2.Text + "k"
Case 37: Text2.Text = Text2.Text + "l"
Case 38: Text2.Text = Text2.Text + "M"
Case 39: Text2.Text = Text2.Text + "N"
Case 40: Text2.Text = Text2.Text + "O"
Case 41: Text2.Text = Text2.Text + "p"
Case 42: Text2.Text = Text2.Text + "Q"
Case 43: Text2.Text = Text2.Text + "R"
Case 45: Text2.Text = Text2.Text + "S"
Case 46: Text2.Text = Text2.Text + "T"
Case 47: Text2.Text = Text2.Text + "U"
Case 48: Text2.Text = Text2.Text + "V"
Case 49: Text2.Text = Text2.Text + "W"
Case 50: Text2.Text = Text2.Text + "X"
Case 51: Text2.Text = Text2.Text + "Y"
Case 52: Text2.Text = Text2.Text + "Z"
Case 53: Text2.Text = Text2.Text + "0"
Case 54: Text2.Text = Text2.Text + "1"
Case 55: Text2.Text = Text2.Text + "2"
Case 56: Text2.Text = Text2.Text + "3"
Case 57: Text2.Text = Text2.Text + "4"
Case 58: Text2.Text = Text2.Text + "5"
Case 59: Text2.Text = Text2.Text + "6"
Case 60: Text2.Text = Text2.Text + "7"
Case 61: Text2.Text = Text2.Text + "8"
Case 62: Text2.Text = Text2.Text + "9"
Case 63: Text2.Text = Text2.Text + "+"
Case 64: textt2.Text = Text2.Text + "-"
Case 65: Text2.Text = Text2.Text + "*"
Case 66: Text2.Text = Text2.Text + "/"
Case 67: Text2.Text = Text2.Text + ")"
Case 68: Text2.Text = Text2.Text + "("
Case 69: Text2.Text = Text2.Text + "&"
Case 70: Text2.Text = Text2.Text + "%"
Case 71: Text2.Text = Text2.Text + "$"
Case 72: Text2.Text = Text2.Text + "#"
Case 73: Text2.Text = Text2.Text + "!"
Case 74: Text2.Text = Text2.Text + "."
Case 75: Text2.Text = Text2.Text + ";"
Case 76: Text2.Text = Text2.Text + "<"
Case 77: Text2.Text = Text2.Text + ">"
Case 78: Text2.Text = Text2.Text + "?"
Case 79: Text2.Text = Text2.Text + "~"
Case 80: Text2.Text = Text2.Text + "'"
Case 81: Text2.Text = Text2.Text + ":"
Case 82: Text2.Text = Text2.Text + ","
Case 83: Text2.Text = Text2.Text + "^"
Case 84: Text2.Text = Text2.Text + "]"
Case 85: Text2.Text = Text2.Text + "["
Case 86: Text2.Text = Text2.Text + "\"
Case 87: Text2.Text = Text2.Text + "_"
Case 88: Text2.Text = Text2.Text + "{"
Case 89: Text2.Text = Text2.Text + "}"
Case 90: Text2.Text = Text2.Text + " "
Case 91: Text2.Text = Text2.Text + "|"
Case 92: Text2.Text = Text2.Text + "="
Case 93: Text2.Text = Text2.Text + "\"
Case 94: Text2.Text = Text2.Text + """"
Case 95: Text2.Text = Text2.Text + " "
Case 96: Text2.Text = Text2.Text + " "
Case 97: Text2.Text = Text2.Text + " "
Case 98: Text2.Text = Text2.Text + " "
Case 99: Text2.Text = Text2.Text + "@"













EndSelect


End Sub