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

Samsung Galaxy S25: Yapay Zeka Parmaklarınızın Ucunda https://www.amazon.com.tr/stores/page/92F263DE-74F5-45CA-B8EE-2FA578898A76?ref_=s25dh

Spigen U100 Universal Metal Kick Stand Tüm Cihazlarla Uyumlu (Video ve Oyun Ayağı) Black - 000EM20860 : Amazon.com.tr: Elektronik https://www.amazon.com.tr/gp/product/B01LW6NN8T 18 sa. önce paylaşıldı

Lee Destekli Ceket L222378 Mont Erkek : Amazon.com.tr: Moda https://www.amazon.com.tr/gp/product/B0CQ431N2V 7 sa. önce paylaşıldı

Ltb Koyu Grı Mont 011244800625018 12882 011244800625018_12882 S Fiyatları ve Özellikleri https://www.n11.com/urun/ltb-koyu-gri-mont-011244800625018-12882-01124480062501812882-47781993?magaza=ltb 23 sa. önce paylaşıldı

Hacı Şakir Doğal Geleneksel Beyaz Sabun (4 Adet) : Amazon.com.tr: Kişisel Bakım ve Kozmetik https://www.amazon.com.tr/dp/B086GNDQB4 3 yıl önce paylaşıldı

APPLE iPhone 16 Pro 512GB Akıllı Telefon Beyaz Titanium MYNN3TU/A Fiyatları ve Modelleri - Pazarama https://www.pazarama.com/apple-iphone-16-pro-512gb-akilli-telefon-beyaz-titanium-mynn3tua-p-0195949772894?magaza=mediamarkt dün paylaşıldı

Omo Active Beyazlar & Renkliler Toz Deterjanı 7.5 kg : Amazon.com.tr: Sağlık ve Bakım https://www.amazon.com.tr/dp/B08KK84G7P?ref=cm_sw_r_cso_cp_apin_dp_8K4YH7AAJR6YHA48ZGYW&ref_=cm_sw_r_cso_cp_apin_dp_8K4YH7AAJR6YHA48ZGYW&social_share=cm_sw_r_cso_cp_apin_dp_8K4YH7AAJR6YHA48ZGYW&starsLeft=1&skipTwisterOG=1&newOGT=1 20 sa. önce paylaşıldı

The Mill Çekirdeksiz Siyah Zeytin 300 g Teneke (12'li Paket) - 361-400 adet/kg - Çekirdeksiz - Salamura - Kuzey Ege Bölgesi Zeytinleri - Vitamin, Mineral ve Antioksidanca Zengin - Veganlara Uygun : Amazon.com.tr: Gıda Ürünleri https://www.amazon.com.tr/dp/B0C94MGH51 18 sa. önce paylaşıldı

{{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}}

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

1 Misafir - 1 Masaüstü

5 sn

1
Cevap

0
Favori

356
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konudaki Resimler

Mesaj Tarihine Göre En Beğenilen Son Ekleneneler

Seçimimi Hatırla

Mesaj Tarihine Göre

Mesaj Tarihine Göre
En Beğenilenler
Son Eklenenler

Konuya Özel

Favorilerime Ekle
Konuyu Açandan
Popüler Mesajlar
Linkli Mesajlar
Yazdır
E-Posta Aboneliği
Konuyu Gizle

0 oy

Öne Çıkar

x İlgini çekti mi?
Öne çıkar, anasayfada
daha üstte görünsün.
Daha Fazla Bilgi

Cevapla

Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Delphi / C++ /Vb >> .ocx uzantılı dosaya yapıp yazı şifrele | DonanımHaber Forum

Sayfa: 1

Giriş

Mesaj

RedHat

7 Mesaj

"er": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

13 Ekim 2005 14:29:47 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

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