VBS脚本加密/解密VBS脚本(简易免杀版1.1)

1. Dim WshSHell,FSO  
2. On Error Resume Next  
3. Set WshSHell = WScript.CreateObject("WScript.Shell")  
4. Set FSO = CreateObject("Scripting.FileSystemObject")  
5. Set Args = WScript.Arguments  
6. Ver="1.1"  
7. CloseTime = 5  
8. FileName = WScript.ScriptName  
9. FileFullName = WScript.ScriptFullName  
10. FilePath = FSO.GetParentFolderName(FileFullName)  
11. InsPath = FSO.GetSpecialFolder(1)  
12. InsFullName = FSO.BuildPath(InsPath ,FileName)  
13. Copyright="废铁"  
14. QQ="QQ：415736"  
15. Email="Email：415736@163.com"  
16. InsTitle="加密/解密VBS脚本(简易免杀版)"&Ver  
17. InsAnswer="加密/解密VBS脚本(简易免杀版)"&Ver  
18. RegPath1="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS\"  
19. RegValue1="加密/解密VBS脚本"&Ver  
20. RegForm1="REG_SZ"  
21. RegPath2="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS\command\"  
22. RegValue2="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & chr(34) & "%L" & chr(34)  
23. RegPath3="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS\EnCode_Very"  
24. RegValue3="0"  
25. RegValue4="1"  
26. IF FileFullName <> InsFullName then  
27. intAnswer = MsgBox("【是】将“"+ InsAnswer +"”加入到右键菜单，"&Chr(10)&Chr(10)&"【否】将“  
28. "+ InsAnswer +"”从右键菜单删除。 ", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+   
29. Copyright)  
30.     If intAnswer = vbYes Then  
31. WshSHell.RegWrite RegPath1,RegValue1,RegForm1  
32. WshSHell.RegWrite RegPath2,RegValue2,RegForm1  
33. WshSHell.RegWrite RegPath3,RegValue4,RegForm1  
34. FSO.GetFile(FileFullName).Copy(InsFullName)  
35. WshSHell.popup _  
36. "添加脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _  
37. "添加注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _  
38. chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _  
39. chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _  
40. , CloseTime, "安装成功 - "+ InsTitle +" - "+ Copyright, 0 + 64  
41. end if  
42.         If intAnswer = vbNo Then  
43. WshSHell.RegDelete RegPath3  
44. WshSHell.RegDelete RegPath2  
45. WshSHell.RegDelete RegPath1  
46. FSO.DeleteFile InsFullName  
47. WshSHell.popup _  
48. "删除脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _  
49. "删除注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _  
50. chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _  
51. chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _  
52. , CloseTime, "卸载成功 - "+ InsTitle +" - "+ Copyright, 0 + 64  
53. end if  
54. ELSE  
55. Package = WScript.Arguments.Item(0)  
56. PkgName=FSO.GetBaseName(Package)  
57. PkgPath=FSO.GetParentFolderName(Package)  
58. Set ReadFile = FSO.OpenTextFile(Package, 1)  
59. ReadAllTextFile=ReadFile.ReadAll  
60. if left(ReadAllTextFile,10)<>"Rem EnCode" then  
61. EnCodePanDuan="Rem EnCode-Easy By QQ：415736"  
62. CodeString=ReadAllTextFile  
63. For i=1 To Len(CodeString)  
64. TempNum = Asc(Mid(CodeString,i,1))  
65. If TempNum = 13 Then  
66. TempNum = 28  
67. ElseIf TempNum = 10 Then  
68. TempNum = 29  
69. elseif TempNum=34 Then  
70. TempNum = 18  
71. elseif TempNum>96 and TempNum<110 then  
72. TempNum=TempNum+13  
73. elseif TempNum>109 and TempNum<123 then  
74. TempNum=TempNum-13  
75. elseif TempNum>47 and TempNum<53 then  
76. TempNum=TempNum+5  
77. elseif TempNum>52 and TempNum<58 then  
78. TempNum=TempNum-5  
79. End If  
80. ThisText = ThisText & chr(TempNum)  
81. Next  
82. Call EnCodeFile  
83. Else  
84. Call UnCodeFile  
85. end if  
86. End if  
87. Set WshSHell = Nothing  
88. Set FSO = Nothing  
89. Set Args = Nothing  
90. WScript.Quit(0)  
91. Sub EnCodeFile()  
92. Set NewFile = FSO.CreateTextFile(FSO.BuildPath(PkgPath ,PkgName&"_Encode.VBS"), True)  
93. NewFile.WriteLine(EnCodePanDuan)  
94. NewFile.WriteLine("ExeString="&chr(34)&ThisText&chr(34))  
95. NewFile.WriteLine("Execute("&chr(34)&"For i=1 To Len(ExeString)"&chr(34)&"&vbCrLf&"&chr(34)  
96. &"TempNum = Asc(Mid(ExeString,i,1))"&chr(34)&"&vbCrLf&"&chr(34)&"If TempNum = 28 Then"&chr  
97. (34)&"&vbCrLf&"&chr(34)&"TempNum = 13"&chr(34)&"&vbCrLf&"&chr(34)&"ElseIf TempNum = 29   
98. Then"&chr(34)&"&vbCrLf&"&chr(34)&"TempNum = 10"&chr(34)&"&vbCrLf&"&chr(34)&"elseif   
99. TempNum=18 Then"&chr(34)&"&vbCrLf&"&chr(34)&"TempNum = 34"&chr(34)&"&vbCrLf&"&chr(34)  
100. &"elseif TempNum>96 and TempNum<110 then"&chr(34)&"&vbCrLf&"&chr(34)  
101. &"TempNum=TempNum+13"&chr(34)&"&vbCrLf&"&chr(34)&"elseif TempNum>109 and TempNum<123   
102. then"&chr(34)&"&vbCrLf&"&chr(34)&"TempNum=TempNum-13"&chr(34)&"&vbCrLf&"&chr(34)&"elseif   
103. TempNum>47 and TempNum<53 then"&chr(34)&"&vbCrLf&"&chr(34)&"TempNum=TempNum+5"&chr(34)  
104. &"&vbCrLf&"&chr(34)&"elseif TempNum>52 and TempNum<58 then"&chr(34)&"&vbCrLf&"&chr(34)  
105. &"TempNum=TempNum-5"&chr(34)&"&vbCrLf&"&chr(34)&"End If"&chr(34)&"&vbCrLf&"&chr(34)  
106. &"ThisText = ThisText & chr(TempNum)"&chr(34)&"&vbCrLf&"&chr(34)&"Next"&chr(34)&")")  
107. NewFile.WriteLine("Execute(ThisText)")  
108. NewFile.Close  
109. WshShell.popup chr(10) &_  
110. "加密成功了！保存为文件："+ chr(10) &chr(10) & _  
111. FSO.BuildPath(PkgPath ,PkgName&"_Encode.VBS")+chr(10)+chr(10)+ _  
112. chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _  
113. chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _  
114. , CloseTime, EnCodePanDuan +" - "+ Copyright, 0 + 64  
115. End Sub  
116. Sub UnCodeFile()  
117. Set ReadFile = FSO.OpenTextFile(Package, 1)  
118. ReadLineTextFile1=ReadFile.ReadLine  
119. ReadLineTextFile2=ReadFile.ReadLine  
120. ReadLineTextFile3=ReadFile.ReadLine  
121. ReadFile.Close  
122. Set NewFile = FSO.CreateTextFile(FSO.BuildPath(PkgPath ,PkgName&"_Uncode.VBS"), True)  
123. NewFile.WriteLine(ReadLineTextFile2)  
124. NewFile.WriteLine(ReadLineTextFile3)  
125. NewFile.WriteLine("EnCodePanDuan="&chr(34)&ReadLineTextFile1&chr(34)&vbCrLf&"EnCodePD="&chr  
126. (34)&"Rem EnCode-Very By QQ：415736"&chr(34)&vbCrLf&"For i=1 To Len  
127. (ThisText)"&vbCrLf&"TempNum = Asc(Mid(ThisText,i,1))"&vbCrLf&"TempChar = Chr  
128. (TempNum)"&vbCrLf&"if EnCodePanDuan=EnCodePD then"&vbCrLf&"If TempChar = Chr(58)   
129. Then"&vbCrLf&"TempChar = Chr(13)"&vbCrLf&"End If"&vbCrLf&"End If"&vbCrLf&"ThisTextTem =   
130. ThisTextTem & TempChar"&vbCrLf&"Next")  
131. NewFile.WriteLine("strCode = (ThisTextTem)"&vbCrLf&"Set WshSHell = WScript.CreateObject  
132. ("&chr(34)&"WScript.Shell"&chr(34)&")"&vbCrLf&"Set FSO = CreateObject("&chr(34)  
133. &"Scripting.filesystemｏｂｊｅｃｔ"&chr(34)&")"&vbCrLf&"FileName =   
134. WScript.ScriptName"&vbCrLf&"Set fC = FSO.OpenTextFile(FileName, 2, true)"&vbCrLf&"fC.Write   
135. strCode"&vbCrLf&"fC.Close"&vbCrLf&"Set WshSHell = Nothing"&vbCrLf&"Set FSO =   
136. Nothing"&vbCrLf&"WScript.Quit(0)")  
137. NewFile.Close  
138. WScript.Sleep 1500  
139. WshSHell.Run (chr(34)&FSO.BuildPath(PkgPath ,PkgName&"_Uncode.VBS")&chr(34)), vbHide  
140. WshShell.popup chr(10) &_  
141. "解密成功了！保存为文件："+ chr(10) &chr(10) & _  
142. FSO.BuildPath(PkgPath ,PkgName&"_Uncode.VBS")+chr(10)+chr(10)+ _  
143. chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _  
144. chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _  
145. , CloseTime, "解密成功 - "+ InsTitle +" - "+ Copyright, 0 + 64  
146. End Sub