Programı Limitli Hale Getirin

Bu Kodla Programınız Sizin İstediğiniz Kadar Kulanılabilir
Şimdi Formumuza 1 adet label koyalım adını da değiştirmeyelim.
Label bize programın kaç defa çalıştırıldığını söyleyecek

Option Explicit

Private Sub Form_Load()
Dim kbel As String
kbel = GetSetting("sınır", "sınırla", "kbel", 0)
If kbel >= 5 Then 'Burdaki 5 rakamını isterseniz yükseltebilirsiniz bu rakam programın kaç kere çalışacağını belirtiyor.
SaveSetting "sınır", "sınırla", "kbel", 111111
MsgBox "Programın kullanım süresi bitti", vbOKOnly, "Uyarı'"
Unload Me
End
Else
kbel = kbel + 1
SaveSetting "sınır", "sınırla", "kbel", kbel
Label1.Caption = kbel
End If
End Sub


Alıntı:Vb-coder

Ancak bu tür basit işlemler bir iki hexadcemial program tarafından kaldırılabilir.
hex editörlerle programı açıp , o satırı değişirler programın kullanma süresi uzar.
Genede güzel bir kod.

SaveSetting methodu kayıtları regedit e atar. Yani yeri bellidir isteyen girip 5' i , 99999999 yapar sınırsız kullanır

hikaye bu iş

Zamanında demo işi için çok kafa patlatmıştık.

Exe sıkıştırıcılar, boyut değişimi kontrolleri , donanım değişiklikleri kontrolü, profesyonel bileşenler vs. denemediğimiz yöntem kalmadı...

Hepsinin sonu "doğru mu yanlış mı" ya çıktığı için, hex kodda "doğruysa böyle yap" yerine "yanlışsa böyle yap" gibi bir değişiklik yapıp, yanlış key ile lisanslama yapıyorlar. Bu belkide en basit yöntemleri.

Bu konularda göz önünde bulunması gereken, ne kadar sıkı kontrol yaparsanız yapın, bu işlerle uğraşıp kayafa takan biri programınızı kırar.

Önemli olan orta halli kullanıcıları es geçirmek.

Ayrıca bırakın kullansınlar kaçak biçimde programlarınızı .bu kadar kontrol yerine senelik servis işlemlerini (devirler, yıl açma vs.) gibi işlemleri ekstra programlarla yapıp bu programları kullanıcıda bırakmamak iyi bir yöntem olabilir.

Veya atıyorum bir sene sonra geldiğinde içerideki dataları şifreleyip kullanıcıyı dumur etmek ve "xxx xx xx" nolu numarayı arayın gibi bir mesajla lisanssız kullanıcıları lisanslamak oldukça keyiflidir