ЯВУ на халяву!

Ramhak O`Hady

Xakep, номер #017, стр. 017-064-6

tself = record

landmark: array [0..3] of char;

size: word;

infection: byte;

datapos: word;

end;

И заполнить ее вот так:

self: tself = (landmark: 'авWF'; size: 0; infection: 0; datapos: 0);

Теперь, когда вирус запустится в первый раз, нужно просто найти "авWF" байты в файле и заполнить их соответственно. Size - размер вируса, infection - тип заражения (com, exe, maggot - личинка), datapos - чтобы каждый раз не искать в файле, можно просто запомнить, где точно лежит наша запись в EXE-шнике. Последнее пригодится, когда будут происходить заражения файлов и надо будет проставлять infection.

Послесловие

Неплохой, надо сказать, вышел вирь. И, что самое главное, pascal рулит. Так что простор открыт, пример перед глазами. И не позволяй этим ASM`офилам оскорблять этот прекрасный язык... Хотя, конечно, Python лучше... :)