Gönderen Konu: Programlarınızın Kopyalanmasını Engellemek (Okunma sayısı 2899 defa)

molla · « : 28 Nisan 2008 09:43:24 »

Delphide programlarinizin kopyalenmesini engellemek
Merhaba

Programcilikta, hepimizin önem verdigi seylerden biri de ticari amaclarla yazdigimiz programlarin bir bilgisayardan digerine cekilmesini engellemektir. Bunun icin sayisiz yol vardir. Bunlardan biride eger Windows tabanli calisiyorsaniz sudur: Sistem.Dbf diye bir Database dosyasini programin installationinda yaratin ve bu Sistem.dbf dosyasina programin kuruldugu bilgisayarin Biosunun Seri Numarasi, Tarihi, Modeli gibi bilgileri kaydedin. Daha sonra program her calistiginda o anki biosun seri numarasiyla Sistem.Dbf'teki Biosun seri numarasini karsilastirsin, tutmazsa programin calistigi bilgisayar degismis demektir. Sistem.Dbf dosyasini sifreli table yapmaniz daha saglikli olacatir.
Biosun üretim tarihi ve Biosla ilgili diger bilgileri su sekilde elde edebilirsiniz:

Kod: Delphi

unit biosbilgi;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Registry,
StdCtrls;
const
DBRoot = HKEY_LOCAL_MACHINE;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
BRegistry: TRegistry;
Biosdate:string;
Biosname:string;
Biosver:string;
implementation
 
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
BRegistry := TRegistry.Create;
BRegistry.RootKey := DBRoot;
BRegistry.LazyWrite := false;
BRegistry.OpenKey('Enum\Root\*PNP0C01\0000', False);
BiosDate := BRegistry.ReadString('BIOSDate');
BiosName := BRegistry.ReadString('BIOSName');
BiosVer := BRegistry.ReadString('BIOSVersion');
BRegistry.CloseKey;
Label1.Caption:=BiosDate;
Label2.Caption:=BiosName;
Label3.Caption:=Biosver;
end;
 
end.

barutali · « **Yanıtla #1 :** 27 Eylül 2009 01:55:33 »

belki denk gelmemişsindir ama ufak bir hatırlatma ... Bazı psikopat antivirüs yazılımları regeditten veri okumaya bile izin vermediği oluyor ...

AVG antivirüs bana okutturmamıştı mesela ...

selchuk · « **Yanıtla #2 :** 01 Kasım 2009 08:54:27 »

Hocam Selamlar

Ben bu kodu çalıştıramadım. Çalışan bir örnek varmı?
Projemde kullanmak istiyorum.

ATMXEON · « **Yanıtla #3 :** 26 Aralık 2009 16:34:13 »

Bunu engelleyebilseydi micrsoft engellerdi. Bence hiç uğraşmayın. Ticari programınızda kullanıcıya özel birişlem yapınız gitsin.

Projeyi Net destekli yapın. Belki internet olmayan bilgisayarda çalışmayacaktır, ama etkili.

Web sitenizde bir tane ectivex uygulaması yazın.
Programınız ufak bir işlemle HDD seri numarasını size yollasın. activex bunu işleyip tekrar programı update edebilir.

selchuk · « **Yanıtla #4 :** 10 Ocak 2010 02:46:28 »

Merhaba Arkadaşlar,

Boş bir forma 3 adet Label 1 tanede Buton ekeleyerek unit kodunu olduğu gibi kaydettim. Form ismi biosbilgi.

Fakat Butona tıklayınca Label 'larda birşey çıkmıyor. Label1, Label2, Label3 yazılarını silmeden ekleyince de bu yazılar siliniyor boş gözüküyor.

Bende Amd işlemci var. İşlemciyle alakası olabilir mi?

Bu kodları kullanıp da çalıştıran varmı?

cakirr42 · « **Yanıtla #5 :** 31 Ocak 2010 11:38:30 »

bende @selchuk kardeşimizle aynı sorunu yaşadım, yani bu kod çalışmıyor

Kodbank İndir

Gönderen Konu: Programlarınızın Kopyalanmasını Engellemek (Okunma sayısı 2899 defa)

molla

Programlarınızın Kopyalanmasını Engellemek

barutali

Ynt: Programlarınızın Kopyalanmasını Engellemek

selchuk

Ynt: Programlarınızın Kopyalanmasını Engellemek

ATMXEON

Ynt: Programlarınızın Kopyalanmasını Engellemek

selchuk

Ynt: Programlarınızın Kopyalanmasını Engellemek

cakirr42

Ynt: Programlarınızın Kopyalanmasını Engellemek