Бат-Генератор by dokzlo13

[dokzlo13]

преальфа версия Бат-Генератора

[Ссылки доступны только зарегистрированным пользователям . Регистрируйся тут...]
вот делать было нечего, дело было вечером, и порешил я написать программу для юнных кулхацкеров типо меня чтобоы можно было пакостить сколь душа пожелает.
а если серьёзно я выкладываю совершенно сырой проект, в котором от силы пара функций.

вот это код в начале программы:

var
  Form1: TForm1;

  function Find(Command: string): boolean;  //  Функция для определения наличая
                                            //  команды DOS
  procedure Del(Command: string);  //Процедура удаления команды
implementation

{$R *.dfm}

function Find(Command: string): boolean;
var
  f: integer;  // Перемення для For
begin
  result := false;  //  Изночально присваеваем результату функции False
  for f := 0 to Form1.CODE.Lines.Count - 1 do  //  Просмотр всего Memo
    if Copy(Form1.CODE.Lines.Strings[f], 1, Length(Command)) = Command then
      result := True;  //  Если найдена строка то присваеваем функции True
end;

procedure Del(Command: string);  //Процедура удаления команды
var
  d, md: integer;
  MassDel: array of integer;
begin
  for d := 0 to Form1.CODE.Lines.Count - 1 do
    if Copy(Form1.CODE.Lines.Strings[d], 1, Length(Command)) = Command then
    begin
      SetLength(MassDel, Length(MassDel) + 1);
      MassDel[High(MassDel)] := d;
    end;
  for md := Low(MassDel) to High(MassDel) do Form1.CODE.Lines.Delete(MassDel[md]);
end;

генератор основан на элементе CheckBox

и функции типа:

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if CheckBox3.Checked then  //Если отмечаем галочкой
  begin
    if not Find('строка бат-кода') then CODE.Lines.Add('строка бат-кода');
  end
  else
    Del('строка бат-кода');
end;

сохраняется батник функцией:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMEssage ('я сохранил ваш батник ;)');
CODE.Lines.SaveToFile(ExtractFilePath(Application .ExeName)+'Virus.bat');
end;

Ребята, прошу размещать в эту тему те бат-коды (вредоносные конечно) которые знаете.
если кто-то может предложить другие функции выслушаю приму к сведению.
если кто-то модифицирует, и выложит здесь, буду просто счастлив

сорник можно скачать по ссылке:

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.