批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[原创] BAT加密(VBS版)

本帖最后由 c690984119 于 2011-7-9 18:20 编辑

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 "加密成功",,"提示"  
复制代码
附件: 您需要登录才可以下载或查看附件。没有帐号?注册
1

评分人数

把txt改为vbs

TOP

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

TOP

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

TOP

4# c690984119

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

不可逆就批也不能运行了~~~
一路飘过的鸟~~~

TOP

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

TOP

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

TOP

7# strong12345


VBS和BAT的位置参数表示方法是不一样的,你可以找个基础教程看看。
【批处理在线视频分享】http://bbs.bathome.net/thread-31727-1-1.html
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html

我帮忙写的代码不需要付钱,不用找我要支付宝或微信账号。如果一定要给,请到微信群给大家发红吧。

TOP

TOP

代码有问题!

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

附件: 您需要登录才可以下载或查看附件。没有帐号?注册

TOP

用文件头加密 不错。。

TOP

返回列表