Metin Şifreleme Programı

Black Rain · 21 Ağustos 2008

iki adet textbox
iki adet label
iki adet command button
gelişigüzel yerleştirebilirsiniz.
Textbox ların ikisinin de multiline seçeneğini true yapın
(klavye üzerindeki bütün karakterler için işie yarıyor. Programın bazı değişik karakterleri de tanımasını birkaç ufak değişiklik yaparak sağlayabilirsiniz.

Kod:

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()
Form1.Height = 4020
Form1.Width = 8205

Text1.Text = ""
Text1.Height = 2415
Text1.Left = 120
Text1.Top = 960
Text1.Width = 2895

Text2.Text = ""
Text2.Height = 2415
Text2.Left = 5040
Text2.Top = 960
Text2.Width = 2895

Command1.Height = 975
Command1.Left = 3240
Command1.Top = 1080
Command1.Width = 1575
Command1.Caption = "---------->"
Command1.FontSize = 14

Command2.Height = 975
Command2.Left = 3240
Command2.Top = 2280
Command2.Width = 1575
Command2.Caption = "<----------"
Command2.FontSize = 14


Label1.Caption = "NORMAL YAZI"
Label2.Caption = "ŞİFRELİ YAZI"

Label1.Height = 615
Label1.Left = 120
Label1.Top = 120
Label1.Width = 2895
Label1.FontSize = 18

Label2.Height = 615
Label2.Left = 5040
Label2.Top = 120
Label2.Width = 2895
Label2.FontSize = 18



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) = "<"



End Sub

Black Rain