Логическая бомба - Вирусология - Delphi - Каталог статей - Вирусология, взгляд из Delphi
Понедельник, 05.12.2016, 21:34 Приветствую вас Гость | Группа "Гости" 


Меню сайта

Категории раздела
Вирусология [39]
Статьи о вирусах
Системные [0]
Работа с системой
Примеры [44]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Приколы [5]
Пишем шуточные програмки
Остальное [5]
Всё что не вошло

Администрация
000000 dolphin

Помощь проекту

R106276538945
Z160640024212

Яндекс деньги
410011190732605

Недавние темы

Опрос
Как часто Вы пользуетесь Интернетом?
Всего ответов: 163

Главная » Статьи » Delphi » Вирусология

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

И так приступим к программному коду: 
0) Запусти Delphi. 
1) Создай новый проект. 
2) Удали Form из проекта. (project=>remove from project=>выбери форму=>OK=>появится окно, нужно согласиться=>всё! Форма удалена) 
3) Откроем место для написания кода (project=>view source=> 

Program log_bomb;//Название может быть любым 
Uses windows; //Подключаемые модули, чем меньше , тем лучше. 
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(название ключа)
Категория: Вирусология | Добавил: dolphin (06.12.2008)
Просмотров: 1750 | Комментарии: 5 | Рейтинг: 0.0/0

Всего комментариев: 5
avatar
1
Самое простое в книгах angry
avatar
2
Это хорошо, но нет исходника скомпилированной проги, хотя бы самого простого...
avatar
3
я спомощью этой бомбы се напоминалки делаю =) или врагам врежу кстати спасибо dolphin за твой джойнер!
avatar
4
У меня одного программа сразу закрывается не дожидаясь условия?)
avatar
5
может кто-нибудь в личку скинуть рабочий пример напоминалки или бомбочку, а то что-то не вьезжаю как писать правильно в dpr-е, на чистом винапи?
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка

Вирусология, взгляд из Delphi



Статистика
HSDN :: Рейтинг сайтов WOlist.ru - каталог качественных сайтов Рунета Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 364
Форум: 1128/7979
Коментариев: 759
Новостей: 27

Статистика пользователей
Всего: 409
За неделю: 2
Вчера: 0
Сегодня: 0
Всего онлайн: 3
Гостей: 3
Пользователей: 0

delfcode.ru © 2008 - 2016 Хостинг от uCoz