自我毁灭的lisp代码？

/db_自贡黄明儒_ · 发表于 2017-1-25 10:37:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

自我繁衍的lisp病毒很多，在明经、晓东两大主力论坛上，怎么没有看到自我毁灭的lisp代码？
1 (vl-file-delete  filename)可以删除一个文件，但如果改名了，就删除不了自身了。vl-file-delete不能删除只读文件
2 下面这个狠一些，只读文件也可删除
(defun DeleteFile (FIL / FILSYS FILDIR SS ENT)
  (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
  (setq FILDIR (vl-filename-directory FIL))
  (setq
SS (vl-directory-files
   FILDIR
   (strcat (vl-filename-base FIL) (vl-filename-extension FIL))
   1
   )
  )
  (foreach ENT SS
(vlax-invoke
   FILSYS
   "deletefile"
   (strcat FILDIR "\\" ENT)
   :vlax-false
)
  )
  (vlax-release-object FILSYS)
  (princ)
)
3 加入了启动组的程序，如果不在支持文件路径下，findfile找不到它，双怎么删除？

marting · 发表于 2017-1-25 10:57:37

执行时候加入拷贝到支持目录的代码

sicky111 · 发表于 2017-1-25 11:20:49

删除LSP病毒文件吗

q3_2006 · 发表于 2017-1-26 18:11:51

启动组要写入注册表的...怎么会找不到??

330774521lhq · 发表于 2017-2-1 09:15:27

啥也不说了，感谢楼主分享哇！

行雲 · 发表于 2017-2-1 16:25:57

这个怎么使用？可以清空程序文件里面的所有代码？

账号		自动登录	找回密码
密码			立即注册

[研讨] 自我毁灭的lisp代码？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评