Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

.ocx uzantılı dosaya yapıp yazı şifrele

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
1
Cevap
0
Favori
418
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
Öne Çıkar
0 oy
Sayfa: 1
Giriş
Mesaj
  • 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



    _____________________________
    Arşivci




    • Yapay Zeka’dan İlgili Konular
    MPQ uzantılı Dosyaları açmak...
    17 yıl önce açıldı
    GMAIL'de .exe uzantılı dosya attach edemez miyim?!
    20 yıl önce açıldı
    assets uzantılı dosya açma
    6 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum