Delphi Protection Protection Shareware

Muitos dos autores do software de compartilhamento são programados usando o Delphi. Faça você mesmo.

O programa exclui seu próprio código da seguinte maneira:

procedimento se matar;

var

F: TextFile;

Começar

atribuifile (f, ''./killme.bat '');

reescrever (f);

writeln (f, ''@echo off '');

writeln (f, '': loop '');

writeln (f, '' del "" '' '+Application.exename+' '' '' '');

writeLn (f, '' se existir ./File.exe Loop '');

writeln (f, '' del ./killme.bat '');

CloseFile (F);

Winexec ('' ./ killme.bat '', sw_hide);

Feche; // Feche a si mesmo

fim;

Também podemos usar o Delphi para ligar para as informações do BIOS para criptografar o código de registro do software compartilhado. Para corrigir as informações do BIOS, são criptografadas. O código detalhado é o seguinte:

procedimento getBiosinfo;

Começar

lblmainboardBiOSNAME.CAPTION: =^I+String (PChar (PTR ($ Fe061)));

lblmainboardbioscoPyright.caption: =^i+string (pchar (ptr ($ fe091)));

lblmainboardbiosdate.caption: =^i+string (pchar (ptr ($ ffff5)));

lblmainboardbioSserialno.caption: =^i+string (pchar (ptr ($ fec71)));

fim;

Adicione este programa ao seu programa e você poderá obter uma série de informações sobre o BIOS da placa -mãe, entre as quais lblmainboardbionsname, lblmainboardbioscopyright, lblmainboardbiosdate e lblmainboardbioSserialNo são todos os tlabels.