Исходный код вируса на Pascal

Ну, с помощью паскаля можно создать файл, вот тебе и вирус по сути.
Как создать файл описано в любой книге по паскалю. Так что делаете такой код, потом запускаете этот файл, а он снова создаст другой файл и так далее все засирать будет в той части, где вы скажите. А вот что он делать будет, то от вас уже зависит.

Здраствуйте. Я текстовый вирус.

Меня написал бедный студент из Зимбабве. К сожалению в небогатой индийской провинции где он живет было очень трудно найти компьютер, поэтому распространятся самостоятельно я не умею. В этом я очень расчитываю на ваше понимание и доброту. Пожалуста, если у вас есть такакя возможнось, будьте снисходительны и продлите мое существование, перепечатав этот текст где-нибудь у себя.

С благодарностью и уважением, ваш Вирус

Запрос: "Здравствуйте, я молдавский вирус. По причине ужасной бедности моего создателя и низкого уровня развития технологий в нашей стране я не способен причинить какой-либо вред Вашему компьютеру. Поэтому очень прошу Вас, пожалуйста, сами сотрите какой-нибудь важный для Вас файл, а потом разошлите меня по почте другим адресатам. Заранее благодарю за понимание и сотрудничество. Ответ: Уважаемый молдавский вирус, Вас беспокоит малобюджетный антивирус из Индии некорректно установленный на данном компьютере, по причине отсутсутствия в моей базе вирусов, насчитывающей 17 вирусов и 3 подозрительных приложения, Вашего наименования, не имею возможности Вас идентифицировать и причинить Вам какой-либо вред. В связи с вышеизложенным, прошу Вас самостоятельно рассосаться. В противном случае буду вынужден умолять пощадить на данном компьютере один единственный файл: india_mama.exe (Ваш покорный слуга) Прошу извинить за причинённой беспокойство. Искренне Ваш.

вирус на Pascal
ржунимагуваляюсь
начни с классики - червь моррисона