15年来,为全国50万+企业提供互联网数字化基础应用服务。
微网小程序
电商运营
关于我们
付款方式
荣誉资质
业务提交
代理合作
知 识
400-1100-266
9:00-24:00(工作日)
首 页
企业400电话
Hot
网站建设
商标✡知产
网络优化推广
热
AI电话机器人
呼叫中心
彩铃•短信
增值拓展业务
新
主页
>
知识库
> VBS脚本加密/解密VBS脚本(简易免杀版1.1)
VBS脚本加密/解密VBS脚本(简易免杀版1.1)
热门标签:
美图手机
智能手机
服务器配置
网站文章发布
检查注册表项
银行业务
铁路电话系统
呼叫中心市场需求
Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Args = 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"
IF FileFullName > InsFullName then
intAnswer = MsgBox("【是】将“"+ InsAnswer +"”加入到右键菜单,"Chr(10)Chr(10)"【否】将“
"+ InsAnswer +"”从右键菜单删除。 ", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+
Copyright)
If intAnswer = vbYes Then
WshSHell.RegWrite RegPath1,RegValue1,RegForm1
WshSHell.RegWrite RegPath2,RegValue2,RegForm1
WshSHell.RegWrite RegPath3,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
end if
If intAnswer = vbNo Then
WshSHell.RegDelete RegPath3
WshSHell.RegDelete RegPath2
WshSHell.RegDelete RegPath1
FSO.DeleteFile 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
end if
ELSE
Package = WScript.Arguments.Item(0)
PkgName=FSO.GetBaseName(Package)
PkgPath=FSO.GetParentFolderName(Package)
Set ReadFile = FSO.OpenTextFile(Package, 1)
ReadAllTextFile=ReadFile.ReadAll
if left(ReadAllTextFile,10)>"Rem EnCode" then
EnCodePanDuan="Rem EnCode-Easy By QQ:415736"
CodeString=ReadAllTextFile
For i=1 To Len(CodeString)
TempNum = Asc(Mid(CodeString,i,1))
If TempNum = 13 Then
TempNum = 28
ElseIf TempNum = 10 Then
TempNum = 29
elseif TempNum=34 Then
TempNum = 18
elseif TempNum>96 and TempNum110 then
TempNum=TempNum+13
elseif TempNum>109 and TempNum123 then
TempNum=TempNum-13
elseif TempNum>47 and TempNum53 then
TempNum=TempNum+5
elseif TempNum>52 and TempNum58 then
TempNum=TempNum-5
End If
ThisText = ThisText chr(TempNum)
Next
Call EnCodeFile
Else
Call UnCodeFile
end if
End if
Set WshSHell = Nothing
Set FSO = Nothing
Set Args = Nothing
WScript.Quit(0)
Sub EnCodeFile()
Set NewFile = FSO.CreateTextFile(FSO.BuildPath(PkgPath ,PkgName"_Encode.VBS"), True)
NewFile.WriteLine(EnCodePanDuan)
NewFile.WriteLine("ExeString="chr(34)ThisTextchr(34))
NewFile.WriteLine("Execute("chr(34)"For i=1 To Len(ExeString)"chr(34)"vbCrLf"chr(34)
"TempNum = Asc(Mid(ExeString,i,1))"chr(34)"vbCrLf"chr(34)"If TempNum = 28 Then"chr
(34)"vbCrLf"chr(34)"TempNum = 13"chr(34)"vbCrLf"chr(34)"ElseIf TempNum = 29
Then"chr(34)"vbCrLf"chr(34)"TempNum = 10"chr(34)"vbCrLf"chr(34)"elseif
TempNum=18 Then"chr(34)"vbCrLf"chr(34)"TempNum = 34"chr(34)"vbCrLf"chr(34)
"elseif TempNum>96 and TempNum110 then"chr(34)"vbCrLf"chr(34)
"TempNum=TempNum+13"chr(34)"vbCrLf"chr(34)"elseif TempNum>109 and TempNum123
then"chr(34)"vbCrLf"chr(34)"TempNum=TempNum-13"chr(34)"vbCrLf"chr(34)"elseif
TempNum>47 and TempNum53 then"chr(34)"vbCrLf"chr(34)"TempNum=TempNum+5"chr(34)
"vbCrLf"chr(34)"elseif TempNum>52 and TempNum58 then"chr(34)"vbCrLf"chr(34)
"TempNum=TempNum-5"chr(34)"vbCrLf"chr(34)"End If"chr(34)"vbCrLf"chr(34)
"ThisText = ThisText chr(TempNum)"chr(34)"vbCrLf"chr(34)"Next"chr(34)")")
NewFile.WriteLine("Execute(ThisText)")
NewFile.Close
WshShell.popup chr(10) _
"加密成功了!保存为文件:"+ chr(10) chr(10) _
FSO.BuildPath(PkgPath ,PkgName"_Encode.VBS")+chr(10)+chr(10)+ _
chr(10) CloseTime " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) "Copyright(C) " + Copyright +" " QQ " " + Email _
, CloseTime, EnCodePanDuan +" - "+ Copyright, 0 + 64
End Sub
Sub UnCodeFile()
Set ReadFile = FSO.OpenTextFile(Package, 1)
ReadLineTextFile1=ReadFile.ReadLine
ReadLineTextFile2=ReadFile.ReadLine
ReadLineTextFile3=ReadFile.ReadLine
ReadFile.Close
Set NewFile = FSO.CreateTextFile(FSO.BuildPath(PkgPath ,PkgName"_Uncode.VBS"), True)
NewFile.WriteLine(ReadLineTextFile2)
NewFile.WriteLine(ReadLineTextFile3)
NewFile.WriteLine("EnCodePanDuan="chr(34)ReadLineTextFile1chr(34)vbCrLf"EnCodePD="chr
(34)"Rem EnCode-Very By QQ:415736"chr(34)vbCrLf"For i=1 To Len
(ThisText)"vbCrLf"TempNum = Asc(Mid(ThisText,i,1))"vbCrLf"TempChar = Chr
(TempNum)"vbCrLf"if EnCodePanDuan=EnCodePD then"vbCrLf"If TempChar = Chr(58)
Then"vbCrLf"TempChar = Chr(13)"vbCrLf"End If"vbCrLf"End If"vbCrLf"ThisTextTem =
ThisTextTem TempChar"vbCrLf"Next")
NewFile.WriteLine("strCode = (ThisTextTem)"vbCrLf"Set WshSHell = WScript.CreateObject
("chr(34)"WScript.Shell"chr(34)")"vbCrLf"Set FSO = CreateObject("chr(34)
"Scripting.filesystemobject"chr(34)")"vbCrLf"FileName =
WScript.ScriptName"vbCrLf"Set fC = FSO.OpenTextFile(FileName, 2, true)"vbCrLf"fC.Write
strCode"vbCrLf"fC.Close"vbCrLf"Set WshSHell = Nothing"vbCrLf"Set FSO =
Nothing"vbCrLf"WScript.Quit(0)")
NewFile.Close
WScript.Sleep 1500
WshSHell.Run (chr(34)FSO.BuildPath(PkgPath ,PkgName"_Uncode.VBS")chr(34)), vbHide
WshShell.popup chr(10) _
"解密成功了!保存为文件:"+ chr(10) chr(10) _
FSO.BuildPath(PkgPath ,PkgName"_Uncode.VBS")+chr(10)+chr(10)+ _
chr(10) CloseTime " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) "Copyright(C) " + Copyright +" " QQ " " + Email _
, CloseTime, "解密成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
End Sub
标签:
河南
新疆
沧州
红河
乐山
上海
沈阳
长治
巨人网络通讯声明:本文标题《VBS脚本加密/解密VBS脚本(简易免杀版1.1)》,本文关键词 ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
相关文章
电销机器人到底如何运作的?
很多人对 电销 机器人到底如何运作存在着巨大的好奇心,那么今天,小编就带大家看一下机器人的运作流程! 电销...
10-24
电话机器人的兴起对电销行业来说是“惊喜”还
随着互联网 大数据 的普及,许多 电销 行业如雨后春笋般争先恐后地冒出来。而今电销行业的混乱,让各位涉足电销...
10-24
百应电话机器人有哪些功能?百应电话机器人好
百应 智能 电话机器人 能够协助企业进行呼入接待、 外呼 回访等服务场景,能够经过不断的培训学习,逐步完善成专...
10-24
客服外呼系统都有哪些优势?
当前呼叫中心电话系统被企业用于业务 电销 以及客户服务,然而随着企业需求不断扩大,原来传统的自建 呼叫中心...
10-24
电销机器人效果怎么样?智能电话机器人可行吗
几百数千年后,或许没人会记得卡斯帕罗夫曾是世界第一的围棋高手,但人们会记得,他败给了电脑深蓝。那虽算不...
10-24
百应智能外呼系统,贷后管理科技升级
去年底开始,接连出台政策和法规加强对消费 金融 等金融形态进行 规范 。强 监管 下,行业走向规范发展,行业竞...
10-24
百应智能外呼系统引领外呼行业新风向
电话销售: 您好,我这边是XX地产,给您推荐一下精装酒店式公寓,有兴趣了解一下吗? 客户: 具体位置在哪里啊?...
10-24
小贷企业为什么需要电销机器人?
随着信贷行业逐步进入我们的生活中,越来越多人选择借款来处理资金难题。信贷企业不断涌现,业务开展迅猛,行...
10-24
雷霆电话机器人是如何转接人工的?
当我们在拨通移动、联通或电信 运营商 的客服电话时,总会要先经过一些机械化的选择,然后成功连接人工坐席反馈...
10-24
米卡迪电话机器人效果怎么样?
外呼 电话机器人 ,之所以能智能的与客户无忧交流,因为运用了下面这么多高技术。 ASR 语音识别 米卡迪电话机器人...
10-24
灵声电话机器人效果怎么样?好用吗
外呼 电话机器人 ,之所以能智能的与客户无忧交流,因为运用了下面这么多高技术。 灵声 电话机器人 效果怎么样?...
10-24
电销机器人要想效果好,话术定制有多重要
电话机器人 是基于智能语音技术的智能营销工具。它会像真人一样主动拨打客户的电话,介绍产品并回答客户的咨询...
10-24
智能电话机器人的实现原理,使用安全吗?
随着科学技术的进步和 人工智能 的发展,越来越多的智能产品已经进入我们的工作和生活。智能手机、智能电视、智...
10-24
福州哪里有电话机器人研发公司?
人工智能 再次成为各行各业关注的焦点,自从这个概念首次提出以来,60年已经过去了。自从AlphaGo以巨大优势击败人...
10-24
电销机器人销售能力怎么样?
自从 电话机器人 一出现,在 电销 行业火爆了起来。面对电话机器人的各种优势,企业跃跃欲试,但又害怕效果不理...
10-24
推荐文章
一个文义性品牌定义的提出与讨论
win7右下角的网络连接显示红叉,但可以正常上网是怎么回事?如何解决?
uniqueidentifier转换成varchar数据类型的sql语句
语音智能电话机器人
谈数据库营销
centos安装xenserver xe命令行的方法
laravel与thinkphp之间的区别与优缺点
AOFAX金融业呼叫中心系统,营销、管理与客服并重的电话软件
上一篇:
vbs脚本 加密 几个小细节小结下
下一篇:
刷QQ群的VBS脚本
一起分享吧
版权所有:巨人网络(扬州)科技有限公司——拥有网站建设十年经验,具备独立网站开发能力,能够提供完善的网站设计及相关的网站制作服务! 全国统一服务热线:400-1100-266
展开
收缩
QQ咨询
在线咨询
客服小董
客服小张
客服小刘
客服小李
客服小王
招商加盟
财务查询
微信客服
电话咨询
400-1100-266