Board logo

标题: [文本处理] [已解决]请教,代码有无恶意 [打印本页]

作者: lxh623    时间: 2011-11-15 10:17     标题: [已解决]请教,代码有无恶意

本帖最后由 lxh623 于 2011-11-17 07:20 编辑

我去一个网站求代码,估计是外国人开的。现在有些文件无法移动、命名。
原始问题:http://www.bathome.net/thread-14568-1-1.html
我想问,代码有无恶意?
有恶意的话,有没有办法消除?
怎样批处理获得这些文件名称,输出到文本?然后删除文件?
这些文件有个特征,右键“发送到”下面的都没有了。包括“剪切、复制、删除、从命名”等。
  1. @echo off &SetLocal EnableExtensions EnableDelayedExpansion
  2. for /f "usebackq tokens=1,2 delims= " %%a in (
  3.    "b2.txt"
  4. ) do(
  5.    echo.a=%%~a_, b=%%~b_
  6.    set /a $error = 0
  7.    ::
  8.    for /f "delims=" %%? in (
  9.       '2^>nul dir /b /a:-D /s  "E:\JP-WKA\*.pdf" "E:\JP-WKA\*.txt"
  10.    ) do (
  11.       if /i ["%%~a"] == ["%%~?"] (
  12.          set /a $error += 1
  13.       )
  14.       if /i ["%%~b"] == ["%%~?"] (
  15.          set /a $error += 1
  16.       )
  17.    )
  18.    if !$error! equ 2 (
  19.       ::
  20.       set /a $error = 0
  21.       ::
  22.       for /f "delims=" %%? in (
  23.          '2^>nul dir /b /a:D-H /s "E:\"'
  24.       ) do (
  25.          if /i ["%%~a"] == ["%%~?"] (
  26.             set /a $error += 1
  27.          )
  28.          if /i ["%%~b"] == ["%%~?"] (
  29.             set /a $error += 1
  30.          )
  31.       )
  32.       if !$error! equ 2 (
  33.          ::
  34.          echo.I'm unsure what you plan to do here, sorry.
  35.       )
  36.    )
  37. )
  38. pause
复制代码

作者: lxh623    时间: 2011-11-17 07:21

我自己看不出来,所以,结题。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2