Kod:
Public Function yazisifrele(ByVal yazi As String, ByVal sdegisken As Integer) As String 'On Error Resume Next 'Function by Fatih54102 aka Tetrasoft '====== 'sdegisken 0 ile 10 arasında olmalıdır! Dim yazial As String, midal As String, casc As Integer, sifrele As Integer, tyeni1 As String Const ssayi As Integer = 10 yazial = yazi tyeni1 = vbNullString For k = 1 To Len(yazial) midal = Mid(yazial, k, 1) 'MsgBox Mid(yazial, k, 1) casc = Asc(midal) sifrele = (casc - ssayi) + sdegisken tyeni1 = tyeni1 & Chr(sifrele) Next k yazisifrele = tyeni1 End Function Public Function ysifrecoz(ByVal sifreliyazi As String, ByVal sdegisken As Integer) As String 'Function by Fatih54102 aka Tetrasoft '====== 'sdegisken 0 ile 10 arasında olmalıdır! Dim yazial As String, midal As String, casc As Integer, sifrecoz As Integer, tyeni1 As String Const ssayi As Integer = 10 yazial = sifreliyazi tyeni1 = vbNullString For k = 1 To Len(yazial) midal = Mid(yazial, k, 1) 'MsgBox Mid(yazial, k, 1) casc = Asc(midal) sifrele = (casc + ssayi) - sdegisken tyeni1 = tyeni1 & Chr(sifrele) Next k ysifrecoz = tyeni1 End Function

Yukarıdaki kodlar kendi yaptığım metin-yazı şifreleme fonksiyonudur.

Ornek Kullanım: (Yukarıdaki kodları formun kod bolumune yapıştırın)

Şifreleme:

Kod:
Msgbox yazisifrele("Fatih54102", 4) 'Buradaki 4 bağımsız bir sayıdır, buraya 0 ile 10 arasında bir sayı girin.
Bu kullanım sonucunda Mesaj kutusu icinde : "?Zmba.-*]" yazacaktır. Bu da bize şifrelendiğini gosterir.
---
Şifre Cozme:

Kod:
Msgbox ysifrecoz("?Zmba.-*]", 4) ' İlk değişkene şifrelenen yazıyı yazın ikince değişkene ise şifrelemekte kullandığınız bağımsız sayıyı yazın.Bunun sonucunda mesaj kutusunda "Fatih54102" yazacaktır.
---
Bunun dışında textbox a girilen yazıları da şifreleyebilirsiniz. Bunun icin 2 tane textbox ve 2 tane button ekleyip şu kodları yazın:

NOT: Textboxların adı Text1 ve Text2 Buttonların adının Command1 ve Command2 olması gerekmektedir.

Kod:
Private Sub Command1_Click() Text2.Text = yazisifrele(Text1.Text, 3) End Sub Private Sub Command2_Click() Text1.Text = ysifrecoz(Text2.Text, 3) End Sub
Command1 e bastığınızda textbox1 deki yazılar şifrelenip textbox2 de şifrelenmiş metini goreceksiniz.

Command2 de ise tam tersi.
__________________