Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Содержание сайт... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Создание отчето... 65459
Модуль Forms 65218
Пример работы с... 64724
ТЕХНОЛОГИИ ДОСТ... 61912
Имитационное мо... 57791
Реклама
Сейчас на сайте
Гостей: 6
На сайте нет зарегистрированных пользователей

Пользователей: 13,085
новичок: nikita222dolban
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование работы узла коммутации сообщений на GPSS + Пояснительная з...
Сравнение двух бинарных деревьев на Turbo Pascal + отчет
Моделирование станции технического обслуживания на GPSS + Отчет

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Логическая бомба на Delphi
Привет читатель. Добро пожаловать на урок по изготовлению логической бомбы. Логическая бомба это (если я не ошибаюсь) то это разновидность вируса. Её принцип прост. Она запускает определённый программный код при выполнении определённых условий. Часто таким условием бывает время или дата.

И так приступим к программному коду:
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.


Остановимся на этой строчке подробнее:

reg.writestring('windows','run',application.ExeName);

//Переменная reg запись строки типа string, куда указывается в скобках

reg.writestring()



Win.ini находится ВСЕГДА по адресу:
Имя_диска:Папка_виндыwin.ini

2) Способ Через реестр.

Очень похоже на способ 1), только работаем с реестром и другими переменными. Итак. Приступим.

Program regis;
Uses inifiles;

Var load: treginifile;

Begin
load:=treginifile.create;

//Выбираем ветвь реестра
load.RootKey:=hkey_local_machine;

//Выбираем ключ
load.OpenKey('softwaremicrosoftwindowscurrentversion',false);

//Прописываемся
load.WriteString('runServices','ssi',application.exename);

Load.free;
exit;
end.



Всё просто. Рассмотрим основные моменты:

Переменная.Rootkey:={Название ветви реестра}
Переменная.openkey(название ключа)
Опубликовал Kest October 25 2008 18:08:57 · 6 Комментариев · 10996 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Марат December 19 2009 16:09:57
У меня не получилосьsmiley
Kest December 19 2009 16:39:20
в чем проблема?
Гость January 03 2010 16:03:16
Логическая бомба это (если я не ошибаюсь) то это
разновидность вируса. Её принцип прост. Она запускает определённый программный
код при выполнении определённых условий.

AFAIK ошибаешся. Я всегда думал что логическая бомба это пассивный объект и никогда не выполняется, потому что содержит только данные, не код. Вредоносное действие основывается на особенностях обработки этих данных какой-либо вполне мирной программой. Например если есть программа, в файле данных которой есть сохраненный связный список (n элементов, каждый из которых хранит ссылку на следующий) и известно что программа не проводит необходимых проверок корректности файла, то можно создать бомбу - файл, содержащий замкнутый список, и тем самым загнать открывающую прогу в бесконечный цикл
Марат June 02 2010 20:34:44
Исправь пожалуйста: Uses Windows, SysUtils; , а то без SYSUTILS не компилитсяsmiley
Kest June 03 2010 00:04:02
Марат Июнь 02 2010 20:34:44
Исправь пожалуйста: Uses Windows, SysUtils; , а то без SYSUTILS не компилится


Это ты с декабря прошлого года что ли мучался? smiley
WETAL August 01 2010 12:27:56
Вот процедура даты без всяких Uses Windows, SysUtils
procedure Dates;
var
s:string;
dt:TDateTime;
begin
s:=DateTostr(dt);
end;
smiley
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Интерактивный инт...
THttpScan v4.1
Gold Submitter II...
Prolog Interprete...
Handles
Мониторинг сервер...
Фундаментальные а...
Форма в форме
Векторный редакто...
PHP 5. Полное рук...
Java 2. Наиболее ...
Язык программиров...
Apollovcl61
DateEdit
C++ Builder 6 СПР...
Run
JanComp
Искусство програм...
Книга по Delphi (...
Trojan [Исходник ...

Топ загрузок
Приложение Клие... 100470
Delphi 7 Enterp... 87103
Converter AMR<-... 20078
GPSS World Stud... 12859
Borland C++Buil... 11848
Borland Delphi ... 8604
Turbo Pascal fo... 7039
Visual Studio 2... 4999
Калькулятор [Ис... 4804
FreeSMS v1.3.1 3542
Случайные статьи
Как просмотреть та...
Проверка достоверн...
Проект VirtualSOMA
Стандарты кодирования
ЦЕЛЬ: ИСПОЛЬЗОВАН...
, специализирующая...
Отчет об ошибках: ...
Тестирование, поис...
База знаний - стол...
Обеспечьте достато...
Генеалогическое де...
Храбрость
TopServer
Дополнительные сфе...
Поиск и установка ...
Мой компьютер
Линии границы
Исследование свойс...
И все же – как выб...
Аудит состава груп...
Жизнь после мигра...
Какими недостаткам...
Элемент ввода radi...
Первое обновление ...
Маски подсети пере...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?