Protección de programación de Delphi Shareware

Muchos de los autores del software de compartir están programados con Delphi. Hazlo tú mismo.

El programa elimina su propio código de la siguiente manera:

procedimiento se mata;

varilla

F: TEXTFILE;

Comenzar

asignación (f, ''./killme.bat '');

reescribir (f);

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

writeLn (f, '': bucle '');

WriteLn (f '' deleño "" ''+Application.exename+'' "" '');

WriteLn (f, '' si existe ./file.exe goto loop '');

WriteLn (f '' deleño ./killme.bat '');

CloseFile (f);

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

Cerrar;

fin;

También podemos usar Delphi para llamar a la información del BIOS para cifrar el código de registro del software compartido. para corregir la información del BIOS está encriptada. El código detallado es el siguiente:

procedimiento getBiosinfo;

Comenzar

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)));

fin;

Agregue este programa a su programa y puede obtener una serie de información sobre el BIOS de la placa base, entre los cuales LBLMainBoardBiosname, LblMainBoardBioscopyright, LblMainBoardBiosdate y LblmainBoardBiosserialno son todas las Tlabels.