Delphi Programming Protection Shareware

De nombreux auteurs du logiciel de partage sont programmés à l'aide de Delphi. Faites-le vous-même.

Le programme supprime son propre code comme suit:

procédure se suicider;

var

F: TextFile;

Commencer

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

réécrire (f);

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

WriteEln (f, '': LOOP '');

écriture (f, '' del "" '' + application.exename + '' "" '');

WriteEln (f, '' If exist ./file.exe goto loop '');

écriture (f, '' del ./killme.bat '');

CloseFile (F); // Fin de la rédaction de contenu

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

Fermer;

fin;

Nous pouvons également utiliser Delphi pour appeler les informations du BIOS pour crypter le code d'enregistrement du logiciel partagé. Pour corriger les informations du BIOS est cryptée. Le code détaillé est le suivant:

procédure getBiosinfo;

Commencer

lblmainboardBiosName.caption: = ^ i + String (PCHA (ptr ($ fe061)));

lblmainboardBioscopyRight.caption: = ^ i + String (pCh (ptr ($ fe091)));

lblmainboardBiOSDate.caption: = ^ i + String (PCHA (ptr ($ ffff5)));

lblmainboardbiosserrialno.caption: = ^ i + string (pCh (ptr ($ fec71)));

fin;

Ajoutez ce programme à votre programme et vous pouvez obtenir une série d'informations sur le BIOS de la carte mère, parmi lesquels LBLMainBoardBiOSName, LBLMainBoardBioscopyRight, LblMainBoardBiosdate et LblMainboardBosserArialno sont tous des mèches.