Keygen yapalım

Bu dersimizde Delphi ile keygen yapmağı öğreneceğiz.

Merheba arkadaşlar,

Bu Delphi dersimizde bir Keygen yapmayı öğreneceğiz.

Öncelikle bir TButton ve bir TEdit belirtin. Butonun adını "Değiştir" koyun. Şimdi butona iki kez tıklayıp şu kodu ekleyin:


var

x, y, x2, y2 : integer;

begin

x := Random(100000);

x2 := Random(100000);

y := Random(100000);

y2 := Random(100000);



Edit1.Text := IntToStr(x)+ '-' +  IntToStr(x2)+ '-' +   IntToStr(y)+ '-' +  IntToStr(y2)



Şimdi Run butonuna basın ve programı çalıştırın. "Değiştir" butonuna tıklandıkda Edit'deki rakamlar değişiyor. Yazının sadece okunmasını istiyorsak da Edit'e tıklayıp, ReadOnly kısmını true yapmalıyız. Random kısmındaki rakamın sıfırları Edit'deki rakamlara eşitdir. O yüzden sıfırları çoğalta ve azalta bilirsiniz.

Bu ders ile ilgili sorularınızı yorum panelinde veya forumda yazabilirsiniz.

Kolay gelsin ;)
  • Etiketler;
Anar Mehraliyev
3Ds Max, Delphi, Flash, Premiere programlarını iyi bilen yazar Azerbaycan'da yaşıyor.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Her program keyleri belli bir kombinasyona göre sınanır. şimdi esas olan bu kombinasyonları nasıl çözümleyeceğimizdir? Bu konuda bir fikriniz var mı, veya bize bir yol gösterebilir misiniz..?
Programların şifrelerini kırmak çok zor olmalı. Ben sadece basit bir keygen mantığını gösterdim.

Yukarı Git