Wminyo.com'a Hoşgeldiniz. Bu ilk Ziyaretinizmi? Kayıt ol
Toplam 2 adet sonuctan sayfa basi 1 ile 2 arasi kadar sonuc gösteriliyor
  1. #1

    Üyelik tarihi
    20 Ekim 2015
    Mesajlar
    100
    Konular
    99
    Beğenmiş
    0
    Beğenilmiş
    2

    Metin Şifreleme

    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.


    AŞAĞIDAKİ KODLARI FORMUN KOD KISMINA OLDUĞU GİBİ YAPIŞTIRIN!!!


    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

  2. #2

    Üyelik tarihi
    06 Haziran 2015
    Mesajlar
    50
    Konular
    10
    Beğenmiş
    4
    Beğenilmiş
    1
    teşekkürler bu güzel paylaşım için
    İ LOVE WMİNYO

 

 

Bu Konu için Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •