Презентация по вирусам на С++

[freeeeez]

Посоветуйте какой-нибудь вирус на С++, где есть подробное описании его работы, для написания презентации. Вирус должен записываться в конец файла.

[kakawkin]

procedure generate;
var
i,j,r,num,pl: integer;
s,p:string;
begin
s:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcde fghijklmnopqrstuvwxyz0123456789+.\| @#%*&/{}[]<>,';
p:='';
Randomize; //инициализация генератора
for i := 1 to num do begin //num — количество генерируемых паролей
for j:= 1 to pl do begin //pl — длина одного пароля
r:=random(length(s)); //получаем случайный символ
if r=0 then r:=1;
p:=p+s[r]; //"накручиваем" переменную p до нужной длины
end;
form1.Memo1.Lines.Add(p);//добавляем пароли на memo
p:='';
end;
end;

[freeeeez]

Вирус на С++ нужен! А не на Pascal