Başlangıç > Kodlar > Visual Basic 6 ile verileri şifrelemek

Visual Basic 6 ile verileri şifrelemek


Yazıları Şifrelemek

Kodun yazıldığı sistem..: Pentium II 333Mhz, 64Mb ram
İşletim Sistemi.............: MS WindowsNT 4.0, Service Pack 5
Version.......................: MS Visual Basic 6.0 Enterprise

Bu activex örneğinde verilen bir textin şifrelenmesini sağlıyacak bir OCX yapacağız. Bir Activex Kontrol projesi başlatarak aşağıdaki kodu User kontrol içine yapıştırın.

 

 


Private Result As String
Private Code As Integer
Private AssRes As String 

Public Function Encrypt(StrEnc As String, IntVal As Integer) As String
If inval > 128 Then IntVal = 128
AssRes = ""
For i = 1 To Len(StrEnc)
Result = Mid$(StrEnc, i, 1)
Code = Asc(Result)
Code = Code + Int(IntVal)
If Code > 255 Then
Code = Code - 255
End If
AssRes = AssRes & Chr$(Code)
Next i
Encrypt = AssRes
End Function

Public Function Decrypt(StrEnc As String, IntVal As Integer) As String
If inval > 128 Then IntVal = 128
AssRes = ""
For i = 1 To Len(StrEnc)
Result = Mid$(StrEnc, i, 1)
Code = Asc(Result)
Code = Code - Int(IntVal)
If Code > 255 Then
Code = Code - 255
End If
AssRes = AssRes & Chr$(Code)
Next i
Decrypt = AssRes
End Function

Görüldüğü gibi sadece 2 adet fonksiyonumuz var ve bunlar textleri şifrelemek için kullanılıyor. Şimdi File menüsünden make XXXXXX.ocx seçeneği ile ocx dosyamızı oluşturalım. Güzel bir isimde vermeyi unutmayın. Ocx oluştuktan sonra yeni bir exe projesi açın ve yarattığınız OCX dosyasını components kısmına ekleyin. Formun üzerine 3 adet edit box ve 2 adet buton koyun. Tabii ki yarattığınız OCX dosyasınıda koymayı unutmayın. Şimdi ilk text box'a yazacağımız text 1. buton ile şifrelenerek 2. text box'a gelecek ve şifreyi açmak içinde diğre butonu kullanıcaz. O zamanda şifrelenmiş text eski hali ile 3. text box'da görünecek. Kolay gelsin

Gurkan YENICERI


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: