Delphi Programını Kullanarak Keygen Yapımı?

Merhaba arkadaşlar,

3 gündür dersleri biraz boşladık bu yüzden sizlere basit bir delphi dersi anlatacağım konumuz ise Delphi programını kullanarak nasıl keygen yapabiliriz. Öncelikle bir TButton ve bir TEdit belirtin. Butonun adını “Değiştir” koyun. Şimdi butona iki kez tıklayıp şu kodu ekleyin:

1  var
2  x, y, x2, y2 : integer;
3  begin
4  x := Random(100000);
5  x2 := Random(100000);
6  y := Random(100000);
7  y2 := Random(100000);
8
9  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.