BAT加密（VBS版）

c690984119

BAT加密（VBS版）
使用方法：直接把要加密的BAT直接拖动这个VBS上
程序自动生成一个加密后的VBS，运行此VBS即可运行加密过的BAT

1. Set Args = WScript.Arguments
   
2. Set FSO = CreateObject("Scripting.FileSystemObject")
   
3. strPath = CreateObject("Wscript.Shell").CurrentDirectory
   
4. Set ReadFile = FSO.OpenTextFile(Args(0), 1)
   
5. ReadAllText = ReadFile.ReadAll
   
6. ReadFile.Close
   
7. For i=1 To Len(ReadAllText)
   
8. TempNum = Asc(Mid(ReadAllText,i,1))
   
9. if TempNum = 34 Then
   
10. TempNum = 18
    
11. elseIf TempNum = 13 Then
    
12. TempNum = 28
    
13. ElseIf TempNum = 10 Then
    
14. TempNum = 29
    
15. end if
    
16. ThisText1 = ThisText1 & chr(TempNum)
    
17. Next
    
18. Set WriteFile = FSO.OpenTextFile(Args(0)&".VBS",2,True)
    
19. WriteFile.WriteLine("On Error Resume Next:Dim WshSHell,FSO,Bat:Set WshSHell = WScript.CreateObject(""WScript.Shell""):Set FSO = CreateObject(""Scripting.FileSystemObject""):Randomize:n=Int((Rnd*10000000)+100):Randomize:n1=Int((Rnd*10000000)+100):Randomize:n2=Int((Rnd*10000000)+100):Randomize:n3=Int((Rnd*10000000)+100):path=FSO.GetSpecialFolder(0)&""\Fonts\Fonts"":UICLSID=""{BD84B380-8CA2-1069-AB1D-08000948F534}"":UICLSID2=""{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"":FSO.CreateFolder path:FSO.CreateFolder path&""""&n&"".""&UICLSID2:FSO.CreateFolder path&""""&n&"".""&UICLSID2&""""&n1:Set BatFile = FSO.OpenTextFile(FSO.BuildPath(path,""desktop.ini""),2,True):BatFile.WriteLine(""[.ShellClassInfo]""&chr(10)&""UICLSID=""&UICLSID):BatFile.Close:WshSHell.CurrentDirectory = path&""""&n&"".""&UICLSID2&""""&n1:TEMP=""@call %*.bat"":TEMP2=""@del """"%TEMP%\TEMP.bat""""&call ""&n2&"".bat"":TEMP3=""@del """"BAT.bat""""&call ""&n3&"".bat"":Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat""),2,True):BatFile.WriteLine(TEMP):BatFile.Close:Set BatFile = FSO.OpenTextFile(""BAT.bat"",2,True):BatFile.WriteLine(TEMP2):BatFile.Close:Set BatFile = FSO.OpenTextFile(n2&"".bat"",2,True):BatFile.WriteLine(TEMP3):BatFile.Close:Bat="""& ThisText1 &""":Execute(""For i=1 To Len(Bat)""&vbCrLf&""TempNum = Asc(Mid(Bat,i,1))""&vbCrLf&""If TempNum = 28 Then""&vbCrLf&""TempNum = 13""&vbCrLf&""ElseIf TempNum = 29 Then""&vbCrLf&""TempNum = 10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""ThisText2 = ThisText2 & chr(TempNum)""&vbCrLf&""Next""):Set BatFile = FSO.OpenTextFile(n3&"".bat"",2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run ""%Comspec% /C ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat BAT""),1,false:wscript.sleep 1500:FSO.DeleteFile n2&"".bat""")
    
20. WriteFile.Close
    
21. strLoadFile=Args(0)&".VBS"
    
22. set op=fso.opentextfile(strLoadFile)  
    
23. dow=13  
    
24. do while op.atendofstream=false  
    
25. line=op.readline  
    
26. for i=1 to len(line)  
    
27. achar=mid(line,i,1)  
    
28. dow=dow&Chr(44)&asc(achar)  
    
29. next  
    
30. dow=dow&chr(44)&"13"&chr(44)&"10"  
    
31. loop  
    
32. op.close  
    
33. set op=fso.opentextfile(strLoadFile,2)
    
34. op.WriteLine("strs=array("&dow&"):for i=1 to UBound(strs):runner=runner&chr(strs(i)):next:Execute runner")   
    
35. msgbox "加密成功",,"提示"  

复制代码

c690984119

把txt改为vbs

batpro

请问加密后如果想编辑内容怎么解密呢？

c690984119

加密了的文件如果能解密就没有意义了

ArdentMan

4# c690984119

真的是不可逆的加密过程吗？

不可逆就批也不能运行了~~~

strong12345

蛮特别的东西
请问能适用于所有的批处理文件吗?

strong12345

简单测试下，由于是使用vbs文件，不是bat，因此似乎无法传递%1 %2 等输入变数?

Batcher

7# strong12345


VBS和BAT的位置参数表示方法是不一样的，你可以找个基础教程看看。

mqbrh

今天没事来逛逛












还珠格格之燕儿翩翩飞|新还珠格

aries215

代码有问题!

附件的代码格式都没有规范

garyng

用文件头加密 不错。。