Visual Basic Anahtarlı Metin Şifreleme ve Çözme


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    1 Yorum    226 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 11.05.2016, 21:37:54 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,010 Konuları:442 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

PHP Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
PublicClassForm1 
Private Sub btnSifrele_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifrele.Click




Dim metin As String = textBox1.Text




Dim anahtar As String = textBox3.Text 




Dim sifreli_metin As String = ""




Dim j As Byte = 0




For k = 0 To Strings.Len(metin) - 1 




sifreli_metin = sifreli_metin + Strings.Chr((Strings.Asc(metin(k)) + Strings.Asc(anahtar(j))) Mod 255)




'Şifreli metni, her bir karakterinin koduna anahtar kelimenin sıradaki karakterinin kodunu ekleyerek bul.




'Neden Mod 255? Çünkü toplam 255 değerini aşabilir.




j = j + 1 




If j = Strings.Len(anahtar) Then j = 0 'Anahtar kelimenin indisi ayrı tutulmalı. Yoksa indisde değer aşımı olur.




Next




textBox2.Text = sifreli_metin




End Sub 




Private Sub btnSifreCoz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifreCoz.Click




Dim sifreli_metin As String = textBox1.Text




Dim anahtar As String = textBox3.Text




Dim metin As String = ""




Dim kod As Integer 




Dim j As Byte = 0




For k = 0 To Strings.Len(sifreli_metin) - 1




kod = Strings.Asc(sifreli_metin(k)) - Strings.Asc(anahtar(j))




If kod <= 0 Then kod = kod + 255 Else kod = kod Mod 255




metin = metin + Strings.Chr(kod) 




j = j + 1




If j = Strings.Len(anahtar) Then j = 0




Next




textBox2.Text = metin




End Sub








EndClass


Kullanıcı İmzası
#fenerbahçeA.A.K.
Resim http://i.hizliresim.com/nErB8V.png
İletişim İçin Facebook;

Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



Resim http://i.hizliresim.com/LQgldG.png






 

         


Paylaşım Tarihi: 11.05.2016, 21:38:42 #2
422lizard42 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:12 Konuları:1 Kayıt Tarihi:07.05.2016 Rep Puanı: 1

Baya uzun yazmışsın saol ben anlamam ama + vercem.










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi