Delphi Programming Protection Shareware

ผู้เขียนซอฟต์แวร์แบ่งปันหลายคนได้รับการตั้งโปรแกรมโดยใช้ Delphi ทำด้วยตัวเอง

โปรแกรมจะลบรหัสของตัวเองดังนี้:

ขั้นตอนการฆ่าตัวตาย;

วาจา

F: TextFile;

เริ่ม

กำหนด (f, ''./killme.bat '');

เขียนใหม่ (f);

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

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

writeeln (f, '' DEL "" ''+application.exename+'' "'' ');

writeeln (f, '' ถ้ามีอยู่./file.exe goto loop '');

writeeln (f, '' DEL ./killme.bat '');

ปิดไฟล์ (f);

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

ปิด;

จบ;

นอกจากนี้เรายังสามารถใช้ Delphi เพื่อเรียกข้อมูล BIOS เพื่อเข้ารหัสรหัสการลงทะเบียนของซอฟต์แวร์ที่ใช้ร่วมกันได้แน่นอนเราไม่สามารถใช้ข้อมูล BIOS เป็นรหัสลงทะเบียนได้ เพื่อแก้ไขข้อมูล BIOS จะถูกเข้ารหัส รหัสรายละเอียดมีดังนี้:

ขั้นตอน getBiosInfo;

เริ่ม

lblmainboardbiosname.caption: =^i+สตริง (pchar (ptr ($ fe061)));

lblmainboardbioscopyright.caption: =^i+สตริง (pchar (ptr ($ fe091)));

lblmainboardbiosdate.caption: =^i+สตริง (pchar (ptr ($ ffff5)));

lblmainboardbiosserialno.caption: =^i+สตริง (pchar (ptr (ptr ($ fec71)));

จบ;

เพิ่มโปรแกรมนี้ลงในโปรแกรมของคุณและคุณสามารถรับชุดข้อมูลเกี่ยวกับ Motherboard Bios ซึ่ง LBLMAINBOARDBIOSNAME, LBLMAINBOARDBIOSCOPYRIGHT, LBLMAINBOARDBIOSDATE และ LBLMAINBOARDBIOSSERIALNO ล้วนเป็น TLABELS