Как усовершенствовать псевдовирусы?

[DriverSTi]

Здравствуйте. Вот еще такой вопрос, от начинающего программиста: каким должен быть листинг программы, чтобы она создавала столько однотипных файлов, сколько заложено в проге. Для примера вот я написал такой код:

КОД: Pascal

program virus;
var
FIL : text;
s : String;
i : Integer;
begin
Assign(FIL, 'D:\1.txt');
ReWrite(FIL);
s := 'Комп глючит!!!!!';
i := 0;
repeat
WriteLn(FIL, i+1, s);
i := i + 1;
until i = 20;
Close(FIL);
end.

Трабл в том, что "Комп глючит!!!!!!" создается заданное количество раз (20) в файле 1.txt. А вот что изменить, чтобы, например, сам файл 1.txt создавался 20 раз и в нем только один раз како-нибудь сообщение или даже без него?

В продолжение, еще такой вопрос. Написал еще программу, которая отыскиваем некий файл в некой директории юзера, и копирует ее в другое место (в данном случае на другой диск моего компа):

КОД: Pascal

program viruss;
uses WinDos;
Const Create : PChar = 'D:\NEWDIR';
var
f1, f2 : text;
s : String;
begin
CreateDIR(Create); {создаем новую директорию}
Assign(f1, 'C:\WPI_log.txt'); {связываем текстовую переменную с
существующим файлом}
Assign(f2, 'D:\NEWDIR\LOG.txt'); {связываем текстовую переменную с
нашим файлом}
Reset(f1); {открываем файл юзера для чтения}
ReWrite(f2); {открываем наш файл для записи}
ReadLn(f1, s);
while not EOF(f1) do {чтение до конца файла}
begin
WriteLn(f2, s); {записываем в наш файл построчно}
ReadLn(f1, s); {считываем с файла юзера построчно}
end;
Close(f1); {закрываем все файлы}
Close(f2);
end.

Как переделать программу, чтобы найденный файл копировался на мою флешку, при подключении ее к компу юзера? Буква съемного диска ведь может быть любой. Я сам еще чайник в Паскале и самому догадаться тяжело. Буду благодарен за просвещение

[bondik]

program virus; 
var 
FIL : text; 
s : String; 
i : char; 
begin
i := 0; 
repeat
Assign(FIL,; 
ReWrite(FIL); 
s := 'Комп глючит!!!!!'; 
WriteLn(FIL,'1221212');
s:='D:\'+i+'.txt';
i := i + 1; 
Close(FIL);
until i = 20;  
end.

Так например.По идеии проще for 'ом.Вот только почему псевдовирус,чот ничего такого за этой прог - ой ничего такого не замечаю...
Поиде

[DriverSTi]

Сообщение от bondik

Так например.По идеии проще for 'ом.Вот только почему псевдовирус,чот ничего такого за этой прог - ой ничего такого не замечаю...
Поиде

ну для того я и написал, псевдовирус, так как на сам вирус он явно не тянет. смысл в том, чтобы засорить юзеру диск. как тогда назвать такую программу?
объясни, пожалуйста, такие моменты:
1. что означает Assign(FIL,; ? Это не дописано? что должно быть после запятой? адрес файла?
2. что означают цифры 1221212?
3. как работает это s:='D:\'+i+'.txt'; ?

[bondik]

Assign(FIL,s)

Это значит к переменную типа файл (FIL) привязать к файлу по адрессу s.

s:='D:\'+i+'.txt';

формируем адресс в ходе цикла появятся такие файлы 'D:\1.txt' , 'D:\2.txt' , и так до 'D:\20.txt'
P.S. Видишь под моим ником весы,щелкай туда...

[DomiNick]

А обязательно на Паскале?
Я тут как раз недавно в целях эксперимента сделал на Делфи такую прогу
Запускаешь, появляется сообщение мол "Файл не является приложением Win32/Win64" и кнопка "ОК"...
Закрываешь прогу, а на диске "C:\" остаётся всего 10 метров...

З.Ы. Как такое назвать как-то даже не задумывался.....

[bondik]

Так красивее думаю

program virus;
var i:integer;s:string;FIL : text;
begin

for i:=0 to 1 do
 begin
  s:='C:\'+char(i)+'.txt';
  Assign(FIL,'C:\3.txt');
  Write(FIL);
  WriteLn(FIL,'1221212');
  Close(FIL);
  writeln(s);
  readln
 end;
end.

Pascal как и Delphi думаю забыть можно,нынче С# в моде,и лично от себя,обожаю шарп за его красоту и простоту,очень обрадовался когда открыл его для себя,но конечно же и C++ не забыл.

[DriverSTi]

Сообщение от bondik

Pascal как и Delphi думаю забыть можно,нынче С# в моде,и лично от себя,обожаю шарп за его красоту и простоту,очень обрадовался когда открыл его для себя,но конечно же и C++ не забыл.

Я только начал изучение Паскаля и, в сравнении с Ассемблером, он попроще. Да и нравиться он мне. Попробовав изучать С++, понял, что самому это оооооочень тяжело. постоянно рождается куча вопросов, а книге их не задашь. Помимо Паскаля немного знаю HTML & CSS. В будущем надеюсь Доросту до уровня С++ и РНР.

спасибо за подсказки с прогой

[DriverSTi]

Сообщение от DomiNick

А обязательно на Паскале?
Я тут как раз недавно в целях эксперимента сделал на Делфи такую прогу
Запускаешь, появляется сообщение мол "Файл не является приложением Win32/Win64" и кнопка "ОК"...
Закрываешь прогу, а на диске "C:\" остаётся всего 10 метров...

З.Ы. Как такое назвать как-то даже не задумывался.....

да, обязательно, т.к. с Делфи я не знаком. а паскаль хоть чуток понимаю. я пробовал написать эту прогу, чтобы забить юзеру свободное место. вот только надо дописать прогу так, чтобы она распространялась по всем дискам, включая съемные носители. и автоматически запускалась с помощью autorun.inf. знаешь, сегодня модно это. да и вирус безвредный. систему не нарушает, только свободное место забивает

[DomiNick]

Делфи - это "Объектный Паскаль"... После Паскаля на Делфи очень быстро можно перейти...

[DriverSTi]

Сообщение от DomiNick

Делфи - это "Объектный Паскаль"... После Паскаля на Делфи очень быстро можно перейти...

буду искать инфу по Делфи. возможно буду изучать параллельно. главное выучить хотя бы один язык досконально, а потом и другие изучать