VBS脚本加密/解密VBS脚本(简易免杀版1.1)
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| DimWshSHell,FSO OnErrorResumeNext SetWshSHell=WScript.CreateObject("WScript.Shell") SetFSO=CreateObject("Scripting.FileSystemObject") SetArgs=WScript.Arguments Ver="1.1" CloseTime=5 FileName=WScript.ScriptName FileFullName=WScript.ScriptFullName FilePath=FSO.GetParentFolderName(FileFullName) InsPath=FSO.GetSpecialFolder(1) InsFullName=FSO.BuildPath(InsPath,FileName) Copyright="废铁" QQ="QQ：415736" Email="Email：415736@163.com" InsTitle="加密/解密VBS脚本(简易免杀版)"&Ver InsAnswer="加密/解密VBS脚本(简易免杀版)"&Ver RegPath1="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS\" RegValue1="加密/解密VBS脚本"&Ver RegForm1="REG_SZ" RegPath2="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS\command\" RegValue2="wscript.exe"&chr(34)&InsFullName&chr(34)&""&chr(34)&"%L"&chr(34) RegPath3="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS\EnCode_Very" RegValue3="0" RegValue4="1" IFFileFullName<>InsFullNamethen intAnswer=MsgBox("【是】将“"+InsAnswer+"”加入到右键菜单，"&Chr(10)&Chr(10)&"【否】将“ "+InsAnswer+"”从右键菜单删除。",vbQuestion+vbYesNoCancel,"安装-"+InsTitle+"-"+ Copyright) IfintAnswer=vbYesThen WshSHell.RegWriteRegPath1,RegValue1,RegForm1 WshSHell.RegWriteRegPath2,RegValue2,RegForm1 WshSHell.RegWriteRegPath3,RegValue4,RegForm1 FSO.GetFile(FileFullName).Copy(InsFullName) WshSHell.popup_ "添加脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+_ "添加注册表项："+chr(10)+chr(34)+RegPath1+chr(34)+chr(10)+_ chr(10)&CloseTime&"秒钟后本窗口将自动关闭!"+chr(10)+chr(10)+_ chr(10)&"Copyright(C)"+Copyright+""&QQ&""+Email_ ,CloseTime,"安装成功-"+InsTitle+"-"+Copyright,0+64 endif IfintAnswer=vbNoThen WshSHell.RegDeleteRegPath3 WshSHell.RegDeleteRegPath2 WshSHell.RegDeleteRegPath1 FSO.DeleteFileInsFullName WshSHell.popup_ "删除脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+_ "删除注册表项："+chr(10)+chr(34)+RegPath1+chr(34)+chr(10)+_ chr(10)&CloseTime&"秒钟后本窗口将自动关闭!"+chr(10)+chr(10)+_ chr(10)&"Copyright(C)"+Copyright+""&QQ&""+Email_ ,CloseTime,"卸载成功-"+InsTitle+"-"+Copyright,0+64 endif ELSE Package=WScript.Arguments.Item(0) PkgName=FSO.GetBaseName(Package) PkgPath=FSO.GetParentFolderName(Package) SetReadFile=FSO.OpenTextFile(Package,1) ReadAllTextFile=ReadFile.ReadAll ifleft(ReadAllTextFile,10)<>"RemEnCode"then EnCodePanDuan="RemEnCode-EasyByQQ：415736" CodeString=ReadAllTextFile Fori=1ToLen(CodeString) TempNum=Asc(Mid(CodeString,i,1)) IfTempNum=13Then TempNum=28 ElseIfTempNum=10Then TempNum=29 elseifTempNum=34Then TempNum=18 elseifTempNum>96andTempNum<110then TempNum=TempNum+13 elseifTempNum>109andTempNum<123then TempNum=TempNum-13 elseifTempNum>47andTempNum<53then TempNum=TempNum+5 elseifTempNum>52andTempNum<58then TempNum=TempNum-5 EndIf ThisText=ThisText&chr(TempNum) Next CallEnCodeFile Else CallUnCodeFile endif Endif SetWshSHell=Nothing SetFSO=Nothing SetArgs=Nothing WScript.Quit(0) SubEnCodeFile() SetNewFile=FSO.CreateTextFile(FSO.BuildPath(PkgPath,PkgName&"_Encode.VBS"),True) NewFile.WriteLine(EnCodePanDuan) NewFile.WriteLine |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: Vbs脚本实现radmin终极后门代码_删除自身下一篇: vbs下通过日期查找文件夹的代码
关于VBS脚本加密/解密VBS脚本(简易免杀版1.1)的所有评论
