Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
.ocx uzantılı dosaya yapıp yazı şifrele
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
0
Cevap 387
Tıklama 0
Öne Çıkarma
Cevap 387
Tıklama 0
Öne Çıkarma
1. sayfa
-
.ocx uzantılı dosaya yapıp yazı şifrele
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
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
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.