VB6 ile metin şifrelemek & çözmek

Text1(multiline=true), text2(multiline=true), command1, command2 ekliyoruz
Dim kar(107) As String
Private Sub Command1_Click()
Text2.Text = ""
uzunluk = Len(Text1.Text)
For X = 1 To uzunluk
harf = Mid(Text1.Text, X, 1)
For Y = 1 To 107
If harf = kar(Y) Then
Text2.Text = Text2.Text & kar(Y + 1)
ElseIf harf = kar(107) Then
Text2.Text = Text2.Text & kar(1)
End If
Next
Next
End Sub
Private Sub Command2_Click()
Text1.Text = ""
uzunluk = Len(Text2.Text)
For X = 1 To uzunluk
harf = Mid(Text2.Text, X, 1)
For Y = 1 To 107
If harf = kar(Y) Then
Text1.Text = Text1.Text & kar(Y - 1)
ElseIf harf = kar(1) Then
Text1.Text = Text1.Text & kar(107)
End If
Next
Next
End Sub
Private Sub Form_Load()
kar(1) = "%"
kar(2) = "]"
kar(3) = "/"
kar(4) = "^"
kar(5) = "f"
kar(6) = "k"
kar(7) = "o"
kar(8) = "ş"
kar(9) = "v"
kar(10) = "."
kar(11) = "4"
kar(12) = "9"
kar(13) = "$"
kar(14) = "_"
kar(15) = "="
kar(16) = "b"
kar(17) = "g"
kar(18) = "l"
kar(19) = "p"
kar(20) = "u"
kar(21) = "w"
kar(22) = ","
kar(23) = "1"
kar(24) = "5"
kar(25) = "#"
kar(26) = "["
kar(27) = "-"
kar(28) = "*"
kar(29) = "&"
kar(30) = "c"
kar(31) = "h"
kar(32) = "j"
kar(33) = "n"
kar(34) = "s"
kar(35) = "ü"
kar(36) = "z"
kar(37) = "q"
kar(38) = "A"
kar(39) = "F"
kar(40) = "M"
kar(41) = "T"
kar(42) = "X"
kar(43) = "2"
kar(44) = "7"
kar(45) = "\"
kar(46) = """"
kar(47) = " "
kar(48) = "ç"
kar(49) = "ı"
kar(50) = "m"
kar(51) = "r"
kar(52) = "t"
kar(53) = "y"
kar(54) = "ğ"
kar(55) = "B"
kar(56) = "Ğ"
kar(57) = "L"
kar(58) = "Ş"
kar(59) = "Z"
kar(60) = "Q"
kar(61) = "8"
kar(62) = "?"
kar(63) = "i"
kar(64) = "x"
kar(65) = "C"
kar(66) = "J"
kar(67) = "3"
kar(68) = "N"
kar(69) = "6"
kar(70) = "E"
kar(71) = "P"
kar(72) = "0"
kar(73) = "I"
kar(74) = "d"
kar(75) = "ö"
kar(76) = "!"
kar(77) = "U"
kar(78) = "İ"
kar(79) = "'"
kar(80) = "O"
kar(81) = "Ü"
kar(82) = "W"
kar(83) = "e"
kar(84) = "+"
kar(85) = "R"
kar(86) = "a"
kar(87) = "("
kar(88) = "Y"
kar(89) = "Ö"
kar(90) = "Ç"
kar(91) = "V"
kar(92) = "S"
kar(93) = "K"
kar(94) = "H"
kar(95) = "G"
kar(96) = "D"
kar(97) = ")"
kar(98) = "}"
kar(99) = "@"
kar(100) = ":"
kar(101) = "{"
kar(102) = "|"
kar(103) = ";"
kar(104) = "é"
kar(105) = ">"
kar(106) = "~"
kar(107) = "<"
'TD Software
End Sub