Delphiプログラミング保護シェアウェア

共有ソフトウェアの多くは、Delphiを使用してプログラムされています。自分でそれを削除してください。

このプログラムは、次のように独自のコードを削除します。

手順を殺す。

var

F：TextFile;

始める

assightfile（f、 ''。/killme.bat ''）;

書き換え（f）;

writeeln（f、 ''@echo off ''）;

writeeln（f、 ''：loop ''）;

writeeln（f、 '' del "''+application.exename+''" "''）;

writeeln（f、 ''存在する場合。/file.exegoto loop ''）;

writeeln（f、 '' del ./killme.bat ''）;

CloseFile（f）;

winexec（ '' ./ Killme.bat ''、sw_hide）;

閉じる; //閉じます

終わり;

Delphiを使用して、共有ソフトウェアの登録コードを暗号化することもできます。これは、登録コードとしてのみ使用することはできませんBIOS情報を修正するには、暗号化されます。詳細なコードは次のとおりです。

手順getBiosInfo;

始める

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

終わり;

このプログラムをプログラムに追加すると、マザーボードBIOSに関する一連の情報を取得できます。その中には、LBLMainBoardBiosName、LBLMainBoardBioScopyright、LBLMainBoardBiosdate、LBLMainboardBiosserialnoがすべてTLabelsです。