[Delphi] Генератор мусора

Интересует предмет реализации софта на делфях,
основная задача которого: создать файл и максимально быстро заполнять его мусором (рандомные буквы, цифры и т.д.), до окончания свободного места на диске.

Может у кого завалялось что-нить подобное?

 

А что сам софтинку навоять не можешь? Там вроде сильно сложного ничего быть не может. Это я так думаю...

 

ну типа эээ

Code:

#include <stdio.h>
int main(){
FILE *f=fopen("~temp","w");
while(1) fputc(0x66,f);
return 0;
}

? я просто на си быстрее соображаю чем на паскале ))

 

действительно while true do begin... А я как идиот сижу да генераторы словарей переделываю )

 

LOL

 

Код на паскале:

Code:

program tresh;
var
  f:text; s:string;
begin
  assign (f, 'file.txt');
  rewrite (f);
  randomize;
  repeat
    writeln (f,random(256));
  until s='bugaga';
  close (f);
end.

Или я уже поздно?

 

А вот теперь я вам скажу что все преведенные методы - это медленные ))
Потому как запись на винт буферезованная и по сто раз гонять функцию - это бред.
Самый быстрый метод - писать большими блоками.

Code:

 buf = VirtualAlloc(0, 1024*1024, MEM_COMMIT | MEM_RESERVE, PAGE_EXECUTE_READWRITE);
 for (i = 0; i<1024*1024; i++) buf[i] = rand() % 256;
...... CreateFile .............
 while (1)
{
...... WriteFile(... buf, 1024*1024...) .............
}

 

Был не прав, исправлюсь)

 

можно ли назвать "это" генератором мусора?!

 

а ещё лучше - сразу брать какиен-ть участки памяти уже заполненные. типа секцию дампить без всяких VirtualAlloc'ов и тп.