void __fastcall TForm1::Button1Click(TObject *Sender)

{

FILE *F;

if(F=fopen(Edit1->Text.c_str(), "w+b"))

{

fprintf(F,"\t This is virus!!!");

fclose(F);

}

else

{

String t="Нет доступа к файлу "+ExtractFileName(Edit1->Text)+"!!!";

Application->MessageBoxA(t.c_str(),"***Ошибка***",MB_ICONSTOP);

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

OpenDialog1->Execute();

Edit1->Text=OpenDialog1->FileName;

}

С++ файл инсталляционного файла Creator.cpp

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#include

#pragma hdrstop

#include

#include

#include

//---------------------------------------------------------------------------

String Gammirovanie(String Stroka)

{

char Gamma[5]={'G','A','M','M','A'};

String SodegjVvoda="";

char simvol;

for(int s=1;s

{

if (s<=5)

{

simvol=Stroka[s];

if (((int)Gamma[s-1]+(int)simvol)>=255)

{

simvol=((char)((int)simvol+(int)Gamma[s-1]-255));

SodegjVvoda=SodegjVvoda+String((char)((int)simvol));

}

else

{

SodegjVvoda=SodegjVvoda+String((char)((int)Gamma[s-1]+(int)simvol));

}

}

}

return SodegjVvoda;

}

//---------------------------------------------------------------------------

int main (void)

{

String DataBios="";

unsigned char far * addr = (unsigned char far *) 0xffff5;

for(int s=0;s<8;s++)

{

DataBios=DataBios+(char)*addr;

*addr++;

}

String Itog=Gammirovanie(DataBios);

String DataBiosFileName="dbpg.ini";

FILE *F;

F=fopen(DataBiosFileName.c_str(), "w");

fputs(Itog.c_str(),F);

fclose(F);

}

Приложение 2

Список глобальных переменных

String PathDir //Содержит текущую директорию

String PathToTraps //Содержит путь к файлу “Amonit.exe”

TFScan *SecondProcess //Указатель на параллельную нить приложения

int trapshnd[3] //Массив дескрипторов файлов-закладок

int hndsys[3] //Массив дескрипторов системных файлов

int M[2000] //Массив дескрипторов .EXE файлов

int glob //Текущий элемент массива М

String ZashDrives //Содержит название диска для защиты

int ZashFiles //Индикатор количества защищённых файлов

int ZashFolders //Индикатор кол-ва защищённых каталогов

int ExeFiles //Количество защищённых *.EXE файлов

int ComFiles //Количество защищённых *.COM файлов

String GamOldPass //Загаммированный старый пароль

String GamNuwPass //Загаммированный новый пароль

String SaveGamPass //Сохранённый загаммированный пароль

Приложение 3

Описание основных функций

1. String Gammirovanie(String Stroka)// Шифрует входное слово при помощи гаммы и возвращает результат

char Gamma[5]={'G','A','M','M','A'} //Массив символов, содержащий гамму

String SodegjVvoda //Переменная накапливающая итоговое слово

char simvol //Текущий загаммированный символ

1. String OpenAndReadFile(String FName)//Возвращает слово из файла

String FName //Имя файла

String pas //Слово из файла

String SoderjDiska //Слово из файла

1. void OpenAndWriteFile(String FName, String WordInFile)//Заносит в файл FName слово WordInFile

String pas //Слово из файла

String SoderjDiska //Слово из файла

1. String DataBios(void)//Возвращает первые 5 символов даты создания BIOS

String ItogData //Содержит дату BIOS

unsigned char far * addr //Указатель на адрес BIOS

1. void StelsProgram(void)//Обеспечивает скрытость процесса от регистрации Windows

2. void CloseTraps(void)//Закрывает файлы ловушки

3. String PathTrapsDir(String Tr)//Возвращает путь к оригиналам ловушек

4. void OpenTraps (void)//Открывает файлы ловушки

5. void ExclusiveOpenAllExeAndComFilesOnDrive(void)//Открывает все исполняемые файлы указанного в DriveComboBox1 диска с эксклюзивными правами доступа

String vrem //Текущий файл списка FileListBox1

1. void SecuritySystemsBootFiles(void)//Открывает системные загрузочные файлы с эксклюзивными правами доступа

2. void __fastcall TForm1::OnClose(TWMClose& a)//Собственный обработчик закрытия окна приложения. При попытке закрыть окно возникает окно ввода пароля.

3. void __fastcall TForm1::Timer1Timer(TObject *Sender)//Обработчик активации таймера. Его выполнение происходит каждые 10 секунд. Этот обработчик вызывает выполнение параллельной нити процесса приложения.

4. void __fastcall TForm1::Button8Click(TObject *Sender)//Открывает все файлы диска с эксклюзивным правом доступа приложения. Другие процессы могут только читать файл.

5. void __fastcall TForm1::Button9Click(TObject *Sender) void __fastcall TForm1::Button9Click(TObject *Sender) )//Открывает все файлы диска с эксклюзивным правом доступа приложения. Другие процессы не могут использовать файл.

String vrem //Текущий файл списка FileListBox1

31