حماية البرمجة دلفي

يتم برمجة العديد من مؤلفي برنامج المشاركة باستخدام برنامج التسجيل الخاص بهم. افعل ذلك بنفسك.

يحذف البرنامج رمزه الخاص على النحو التالي:

الإجراء القتل

var

F: TextFile ؛

يبدأ

issignfile (f ، ''./killme.bat ') ؛

إعادة كتابة (F)

writeeln (f ، ''@echo Off '') ؛

Writeeln (f ، '': loop '') ؛

Writeeln (F ، '' ديل "" '+application.exename+' "" "') ؛

Writeeln (f ، '' إذا كانت موجودة ./file.exe goto loop '') ؛

Writeeln (F ، '' ديل ./killme.bat '') ؛

CloseFile (F) ؛

Winexec (''.

أغلق

نهاية؛

يمكننا أيضًا استخدام Delphi لاستدعاء معلومات BIOS لتشفير رمز التسجيل للبرنامج المشترك. لتصحيح معلومات 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.