Board logo

标题: [系统增强] 批处理禁止文件执行-ws2_32.dll [打印本页]

作者: 基拉freedom    时间: 2009-8-15 14:30     标题: 批处理禁止文件执行-ws2_32.dll

以前有看过IFEO的~~
然后就自己做了个ws2_32.dll的
用IFEO的缺点就是程序改名就挂了 用WS2_32.dll的缺点就是文件一移动或文件不需调用ws2_32.dll就挂了
以下:
  1. ::madeby基拉freedom 批处理之家 20090812
  2. @echo off&setlocal ENABLEDELAYEDEXPANSION
  3. title 利用WS2_32.dll来阻止文件运行 批处理之家
  4. echo.
  5. echo 利用ws2_32.dll阻止程序运行
  6. echo.
  7. echo 程序并不完美 只是厌倦了IFEO而做的
  8. echo.
  9. echo 对于绿色程序 或不调用此dll的无效
  10. echo.
  11. :new
  12. echo  1.禁用程序
  13. echo  2.查看禁用列表
  14. echo  3.删除禁用程序
  15. set cho=
  16. set /p cho=输入1~3:
  17. if %cho% equ 1 goto mdd
  18. if %cho% equ 2  goto viewd
  19. if %cho% equ 3 goto deld
  20. echo 你没有乖乖输入哦
  21. goto new
  22. :qs
  23. echo 都有了还耍我啊~换个地址
  24. :mdd
  25. set place=
  26. :check
  27. set /p place=输入文件所在的目录地址(如D:\exe):
  28. if exist c:\bad find "%place%" c:\bad.txt>nul &&goto qs
  29. if not exist "%place%" goto check
  30. md "%place%"\ws2_32.dll\fr..\
  31. echo %place%>>c:\bad.txt
  32. echo 建立完了~~~~~~
  33. pause>nul
  34. cls
  35. goto new
  36. :bads
  37. echo 没有这个程序哎 看看表吧
  38. pause>nul
  39. :viewd
  40. if not exist "c:\bad.txt"  goto wro
  41. type c:\bad.txt
  42. pause>nul
  43. cls
  44. goto new
  45. :wro
  46. echo 你没有运行过这个程序或者文档已丢失 不好意思啊~~
  47. pause>nul
  48. cls
  49. goto new
  50. :deld
  51. set kill=
  52. set /p kill=输入要删除的程序的路径:
  53. find "%kill%" c:\bad.txt>nul ||goto bads
  54. rd "%kill%\ws2_32.dll" /s /q
  55. echo. >tem.txt
  56. @for /f "tokens=* delims=" %%i in ('findstr /i /v /c:%kill% c:\bad.txt') do (
  57. set var=%%i
  58. echo      !var!>>tem.txt   
  59. )
  60. copy tem.txt c:\bad.txt >nul
  61. echo 完成啦
  62. pause>nul
  63. cls
  64. goto new
复制代码





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