
HopeEasyCommandEasyEnCode批處理加密器最后由 HOPE 于 -10-10 15:12____更新日志______________________________________版本 1.0.0000 /10/10 本樓版本 1.0.0001 /10/10 7樓版本 1.0.0002 /10/10 15樓版本 1.0.0003 /10/10 16樓版本 1.0.0004 /10/10 17樓版本 1.0.0005 /10/10 18樓____操作手冊______________________________________ http://www.bathome.net/redirect.php?goto=findpost&pid=246538&ptid=60317代碼
By Hope謝謝.nclick="copycode($('code0'));">復制代碼
- @Echo Off
- Cls
- Mode Con: Cols=120
- Color 0F
- Title Hope(R) Office EasyCommand EasyEnCode
- Chcp 936 > Nul
- Rem Hope(R) Office EasyCommand EasyEnCode
- Echo.
- Call :Type
- Call :Type # 116
- Echo.
- Call :Type 55
- Call :Type EasyEnCode
- Echo.
- Call :Type
- Call :Type # 116
- Echo.
- Echo.
- Echo.^>^> Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0000]
- Echo.^>^> (C) Copyright - Hope Corp.
- If %~1== (
- Set FileNum=1
- ) Else (
- Set FileNum=2
- )
- Md %UserProFile%Desktop >Nul 2>Nul
- Md %UserProFile%桌面 >Nul 2>Nul
- Set Pro=%0
- Set lnk=Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0000]
- Set Pro=%Pro:=%
- Mshta VBscript:Execute(Set a=CreateObject(Wscript.Shell):Set b=a.CreateShortcut(a.SpecialFolders(Desktop) & Hope Office EasyCommand EasyEnCode [Version 1.0.000].lnk):b.TargetPath=%Pro%:b.WorkingDirectory=%~dp0:b.Save:close) >Nul 2>Nul
- @Goto :Main
- :Main
- Echo.
- Set FileName=////
- If %FileNum%==1 (
- Set /P FileName=#^>^> 請將需要加密的文件拖動至此窗體:
- ) Else (
- Set /P FileName=#^>^> 請將需要加密的文件拖動至此窗體:%~1<Nul
- Echo.
- Set FileName=%~1
- Set FileNum=1
- )
- Set FileName=%FileName:=%
- For /F %%I in ('Dir /b') Do (
- If %%I==%FileName% (
- Set FileName=%Cd%%FileName%
- )
- )
- Set FileName=%FileName%
- If Not Exist %FileName% (
- Echo.
- Echo.^>^> 無此文件!無法加密...
- @Goto :Main
- )
- For /L %%i in (1,1,2048) Do (
- If Not Exist File-%%i (
- Md File-%%i >Nul 2>Nul
- Set EnCodeDir=File-%%i
- Set Num=%%i
- @Goto :EnCode
- )
- )
- Echo.
- Echo.^>^> 可分配的內存已經占滿,無法加密...
- @Goto :Main
- :EnCode
- For /L %%i in (1,1,47) Do Call :RepeatBS
- Echo.
- Call :Type
- Call :Type +
- Call :Type = 4
- Call :Type 正在加密
- Call :Type = 4
- Call :Type +
- Call :Type = 98
- Echo.
- Echo.
- Echo.文件名: %FileName%
- Echo.
- Cd %EnCodeDir%
- Copy %FileName% %cd%File.Bat > Nul
- For /F %%i in ('dir /b File.Bat') do (
- For /L %%j in (1,1,%%~zi) do (
- Set /P Bytes[FileName]=%Bs%文件大小: %%j Byte[s]<Nul
- )
- )
- Echo.
- Call :VBscript_EnCode
- Start /Wait EnCode.VBS
- If Exist EnCode.VBS Del EnCode.VBS
- >> EnCode.Bat Echo.
- >> EnCode.Bat Echo.Cls
- Type File.Bat >> EnCode.Bat
- If Exist File.Bat Del File.Bat
- Echo.
- Echo.加密后的文件: %Cd%EnCode.Bat
- Echo.
- For /F %%i in ('dir /b EnCode.Bat') do (
- For /L %%j in (1,1,%%~zi) do (
- Set /P Bytes[FileName]=%Bs%加密后的大小: %%j Byte[s]<Nul
- )
- )
- Echo.
- Mshta VBscript:msgbox(加密%FileName:~1,-1%文件成功,64,Hope(R) Office EasyCommand EasyEnCode [Version 1.0.0000])(window.close)
- Start Explorer %Cd%
- Start Notepad EnCode.Bat
- Cd..
- Echo.
- Call :Type
- Call :Type +
- Call :Type = 4
- Call :Type = 8
- Call :Type = 4
- Call :Type +
- Call :Type = 98
- Echo.
- @Goto :Main
- :RepeatBS
- Set Bs=%Bs%
- @Goto :Eof
- :Type <Text> [Num]
- %=Company {Hope Studio}=%
- %=Author{Hope Studio}=%
- If '%2'=='' (
- Set /p Text=#%~1<Nul
- @Goto :Eof
- )
- If Not '%2'=='' (
- For /l %%I in (1,1,%2) Do (
- Set /p Text=#%~1<Nul
- )
- )
- @Goto :Eof
- :VBscript_EnCode
- > EnCode.VBS Echo.Function WriteTextFile(strPath, text)
- >> EnCode.VBS Echo.With CreateObject(ADODB.Stream)
- >> EnCode.VBS Echo..Open
- >> EnCode.VBS Echo..type = 2
- >> EnCode.VBS Echo..WriteText text
- >> EnCode.VBS Echo..SaveToFile strPath
- >> EnCode.VBS Echo..close()
- >> EnCode.VBS Echo.End With
- >> EnCode.VBS Echo.End Function
- >> EnCode.VBS Echo.
- >> EnCode.VBS Echo.Dim EnCode
- >> EnCode.VBS Echo.EnCode=WriteTextFile(EnCode.Bat,)
- @Goto :Eof

