Навигация
Главная
Поиск
Форум
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
Создание отчето... 64153
Модуль Forms 63862
ТЕХНОЛОГИИ ДОСТ... 60743
Пример работы с... 60702
Имитационное мо... 56266
Реклама
Сейчас на сайте
Гостей: 14
На сайте нет зарегистрированных пользователей

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

Поиск пути в графе заданном списками инцедентности на Turbo Pascal
Расчет обратной матрицы на Delphi + Пояснительная записка
Лабораторная работа по динамическим спискам на 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 Комментариев · 10937 Прочтений · Для печати

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


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

Случайные загрузки
Globus VCL Extent...
PHP/MySQL для нач...
THttpScan v4.1
Drag&Drop
Java 2 - Эффектив...
Проигрыватель Mp3
GamesBase 3.0
DAlarm
45 уроков по дельфи
Delphi Russian Kn...
C++ Builder в за...
Delphi. Учимся на...
Delphi World 6.0
Report
Род Стивенс. Delp...
mp3tag
Усложнённый кальк...
Применение фильтр...
WordReport
39 статьи по Delphi

Топ загрузок
Приложение Клие... 100455
Delphi 7 Enterp... 86121
Converter AMR<-... 20071
GPSS World Stud... 12522
Borland C++Buil... 11608
Borland Delphi ... 8519
Turbo Pascal fo... 7035
Visual Studio 2... 4992
Калькулятор [Ис... 4744
FreeSMS v1.3.1 3539
Случайные статьи
Сокеты [5]
Туры в Осло, Норвегия
3. Можно ли примен...
Direct Oracle Access
Отдых
Создание стандартн...
Двухмерный динамич...
Формирование масси...
В перспективе VRML
Преимущества контр...
Функция GetPixel -...
Microsoft и NetWar...
Секреты: принцип р...
Комплект разработч...
Компонент поле ред...
Администрирование ...
Игровые автоматы
Необходимость испо...
Сеть CDN
Создание псевдоним...
Доставка цветов
Банковская компьют...
излишними привилег...
binary search: клю...
Границы ячейки
Статистика



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


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