Wminyo.com'a Hoşgeldiniz. Bu ilk Ziyaretinizmi? Kayıt ol
Toplam 3 adet sonuctan sayfa basi 1 ile 3 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

  3. #3

    Üyelik tarihi
    19 Ağustos 2019
    Mesajlar
    112
    Konular
    1
    Beğenmiş
    2
    Beğenilmiş
    0
    <strong><a href="http://sv.montblancvip.co/">montblanc pennor</a></strong><br>
    <strong><a href="http://www.montblancvip.co/sv/">montblanc pennor</a></strong><br>
    montblanc penmontblanc penmontblanc pen
    Lyxig Montblanc Greta Garbo ha varit i hög efterfrågan Eftersom Lång
    US Dollar
    Euro
    GB Pound
    Canadian Dollar
    Australian Dollar
    Jappen Yen
    Norske Krone
    Swedish Krone
    Danish Krone
    CNY
    Kategorier
    <a class="category-top" href="http://www.montblancvip.co/sv/montblanc-boheme-c-5.html">Montblanc Boheme</a>
    Montblanc
    Montblanc Etoile
    Montblanc Greta Garbo
    Montblanc Penna
    Montblanc Penna
    Montblanc Ingrid Bergman
    Montblanc Marlene Dietrich
    Montblanc Pen
    Montblanc Walker
    Utvalda - [mer]
    <a href="http://www.montblancvip.co/sv/montblanc-doue-silver-korn-meister-pen-svart-104544-138f-p-78.html"><img src="http://www.montblancvip.co/sv/images/_small//ml_21/Montblanc-Pen/Montblanc-Doue-Silver-Barley-Meisterstuck-Pen-9.png" alt="Montblanc Doue Silver Korn Meister Pen Svart 104.544 [138f]" title=" Montblanc Doue Silver Korn Meister Pen Svart 104.544 [138f] " width="130" height="34" /></a>Montblanc Doue Silver Korn Meister Pen Svart 104.544 [138f]SEK 1,929 SEK 1,021Spara: 47% mindreMontblanc Doue Stainless Steel Meister Pen Svart 05.020 [411f]
    Montblanc Doue Stainless Steel Meister Pen Svart 05.020 [411f]SEK 1,894 SEK 960Spara: 49% mindreMontblanc Eternelle Etoile Pen Silver 105.953 [be89]
    Montblanc Eternelle Etoile Pen Silver 105.953 [be89]SEK 1,687 SEK 934Spara: 45% mindre

    Hem ::
    Montblanc Greta Garbo
    Montblanc Greta Garbo
    Filter Results by:
    Produkter startar med ...
    A
    B
    C
    D
    E
    F
    G
    H
    I
    J
    K
    L
    M
    N
    O
    P
    Q
    R
    S
    T
    U
    V
    W
    X
    Y
    Z
    0
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Visar 1 till 2 (av 2 produkter)

    Montblanc Special Edition Greta Garbo Kulspetspenna Black And Cream 36121 [094b]
    Montblanc Special Edition Greta Garbo Kulspetspenna Black And Cream 36121 [094b]SEK 1,868 SEK 1,029Spara: 45% mindreKöp Nu
    Montblanc Special Edition Greta Garbo Reservoarpenna Svart och Cream 36120 [c2cc]
    Montblanc Special Edition Greta Garbo Reservoarpenna Svart och Cream 36120 [c2cc]SEK 1,860 SEK 951Spara: 49% mindre<a href="http://www.montblancvip.co/sv/montblanc-greta-garbo-c-24.html?products_id=231&action=buy_now&sort=20a">< img src="http://www.montblancvip.co/sv/includes/templates/polo/buttons/swedish/button_buy_now.gif" alt="Köp Nu" title=" Köp Nu " width="110" height="21" class="listingBuyNowButton" /></a>

    Visar 1 till 2 (av 2 produkter)


    .articles{width:900px; margin:0 auto;}
    .articles ul{width:900px; }
    .articles li{width:450px; float:left;}
    \ n
    Hem
    Frakt
    Grossist
    Försändelsespårning
    <a href="http://www.montblancvip.co/sv/index.php?main_page=Coupons" target="_blank">kuponger</a>
    Betalningsmetoder
    Kontakta oss
    <a href="http://www.montblancpens.co/sv/" target="_blank">Montblanc Kulspetspenna</a>
    Mont Blanc Marlene Dietrich
    <a href="http://www.montblancpens.co/sv/" target="_blank">Mont Blanc Etoile De Pennor</a>
    Montblanc Pen
    Montblanc Reservoarpenna

    Copyright © 2012-2015 All Rights Reserved.
    <a href="http://sv.montblancvip.co/">montblanc pennor</a>
    montblanc pennor

 

 

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
  •