1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Metin Şifreleme Programı


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    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