foxhack的博客_脚本资料

使用PHP在局域网中获取客户端计算机名 IP地址 MAC地址

最近因使用统计需求，需要在局域网内获取客户端的信息，开始考虑了几种方法（javascript ，vbscript，......）。可惜可行性不怎么好总是要弹出 IE 因为安全阻止使用的对话框。很是郁闷（咱这里有很多电脑小白），所以狠下心来研究了下PHP 最后在GOOGLE和自己的努力下终于实现了（水平不高啊，才学习没多久）。以下是代码（在处理服务端数据不正确，暂时没有好的方法。如果大家有

php

IP地址

MAC地址

客户端

PHP在局域网

原创 2009-03-05 17:08:43 9923 阅读

列出所有到本机80端口ESTABLISHED连接的小脚本

Dim oShellDim oExecDim strOutDim oRegExpDim MatchesDim MatchDim Num Set oShell = WScript.CreateObject("WScript.Shell")Set oExec = oShell.Exec("netstat -an")Set oRegExp = new RegExpoRegExp.P

网络

职场

端口

休闲

本机

转载精选 2008-04-12 16:06:59 1268 阅读

查找文件

On Error Resume Next '忽略所有错误 Dim filename '声明变量Dim reSet re=New RegExp &nb

职场

文件

休闲

查找

转载精选 2008-04-12 16:05:56 913 阅读

谈VBS在Hacking中的作用之二

谈VBS在Hacking中的作用之二NetPatch此文已经发于黑客手册第十一期上一期写了一个VBS的注入脚本，这次给大家带来两个脚本，希望小菜们能喜欢。一．挑选速度快的肉鸡做VPN。当自己从小菜鸟转型为老菜鸟时，就懂得考虑在玩Hacking的同时也要尽量保证不暴露自己。万事，安全第一嘛！不然都不知道哪天玩着玩着就被警察叔叔带去喝茶了^_^ 。因此，作为老菜鸟的我们，要学会在Hacking时，多用

职场

Hacking

休闲

VBS

作用

转载精选 2008-04-12 16:01:01 1052 阅读

字典整理脚本

渗透测试时，好的字典是少不了的但平时临时添加的字典却是很乱D 需要在原基础上扩展时，就需要整理了脚本功能： 1.支持拖放！ 2.去除重复 3.排序 On Error Resume Next'Code By NetPatchSet Arg=Wscript.ArgumentsIf Arg.Count=0 Then Wscript.QuitSet Fso = CreateObject(

职场

脚本

字典

整理

休闲

转载精选 2008-04-12 16:00:03 729 阅读

WMI控制网卡用到的一些参数

[url]http://www.microsoft.com/china/technet/community/scriptcenter/topics/networking/04_atnc_ipadd.mspx[/url] 管理客户端上的 DHCP 虽然 DHCP 已经是一种自动化方式，但是使用脚本可以帮助您自动配置一组客户端以利用 DHCP。通过 WMI 类 Win32_NetworkAdapt

职场

网卡

休闲

控制

WMI

转载精选 2008-04-12 15:58:52 3107 阅读

本地连接DNS修改器

程序代码 Dim mc,mo,cnc,cuc,title,mymac,mydns,mydnsipcnc = "网通" : cncdns="202.96.64.68"cuc = "联通" : cucdns="211.93.80.129"title = "本地连接DNS修改器"Set mymac=GetObject("Winmgmts:").InstancesOf("Win32_Network

职场

脚本

休闲

vbs

转载精选 2008-04-12 15:55:46 2427 阅读

利用ip地址和子网掩码来计算该网段最多主机数的php代码

在网上有这样一道题：网络地址172.16.22.38/27 请写出此地址的子网ID以及广播地址，此地址所处子网有多少台主机及可用主机数？请告知稍微详细的计算步骤哦。我用php来计算了一下，最大子网数没算。代码： <?php$ip = "172.16.22.38"; //可根据需要换成你需要的ip地址$mask="255.255.255.224"; //子网掩码只支持前3位为255，

职场

ip地址

子网掩码

休闲

转载精选 2008-04-12 15:51:23 2356 阅读

中文姓名笔画计算（VBS脚本版）

本脚本部分代码来源于网上感谢前辈门的帮助 ********************************************************************* dim word,keyword=inputbox("请输入你要计算的文字")if word="" then msgbox "小样不是叫你不要输入文字吗"Wscript.Quitend if key=char

职场

计算

休闲

笔画

原创 2007-10-05 18:42:03 2985 阅读 1评论

对于内存当硬盘一文的扩展

本文是 [url]http://foxhack.blog.51cto.com/96963/45043[/url] 的后继文章请阅读后往下看由于IE的缓存不会自动清理所以当虚拟出来的内存满了后就回出现网页浏览速度变慢甚至发生变形的问题所以针对这种情况用脚本写了个小的程序用来随时监控虚拟内存的空间当小于某个阀值的时候就自动清理腾出多余的空间（顺便练习一下很久没用脚本写程序了）

硬盘

职场

内存

休闲

原创 2007-10-05 03:56:29 1218 阅读 3评论

SCM编码器的窗口化

最近发现很多电影的后缀都是SCM 查阅了下资料发现这种格式还不错下面有简介所以下个编码器试着编码可是执行的时候确实黑黑的DOS 而且要输入很多参数很不方便本着懒人的原则就用windows script的vbscript写个脚本程序然后利用脚本编译工具编译成exe文件不敢独享特拿出分享下面列出脚本内容 ' ----- ExeScript Opt

职场

休闲

SCM

原创推荐 2007-08-21 20:16:35 1986 阅读 2评论

VBScript写的计算异或的一个小工具

工作中经常会需要计算一大串字节的异或，用计算器手工一个一个的输入太累人了，碰巧这两天在关注VBScript，于是就想到写了这个工具。这是我第一次用VB，代码很简单，希望能对你有用。 '==========================================================================''' NAME: calc_xor.vbs'

职场

计算

休闲

VBScript

转载精选 2007-08-04 11:22:06 2668 阅读

autoftp.vbs 类似u盘大盗

Set ObjFSO=CreateObject("Scripting.FileSystemObject")Set wshshell=Wscript.CreateObject("Wscript.Shell")osdir=Wshshell.ExpandEnvironmentStrings("%systemroot%")strMyDocumente = WshShell.SpecialFolders("

u盘

安全技术

休闲

vbs

autoftp

转载精选 2007-07-03 16:48:12 1305 阅读

文件列手0.1体验版（类似dir，VBScript语言）

'****************开始******************Option ExplicitPublic fso, CurrentName, CurrentPath, ExtensionDim Response, Answer, Result, Begin, Over'-----初始化常量Set fso=CreateObject("Scripting.FileSystemObject"

职场

休闲

VBScript

转载精选 2007-07-03 16:44:11 1021 阅读

批量改后缀的VBS

Dim ar Set ar = WScript.Arguments If ar.Count = 0 Then MsgBox "请把包含要按顺序Rename的文件的文件夹拖放到本程序的图标上！", 4160, "提示" Set ar =&n

职场

休闲

VBS

转载精选 2007-07-03 16:40:46 1961 阅读 1评论

使用vbs下载文件

来源：lake2的专栏说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码：article_1073_codes.txt当你把这段代码保存为vbs的时候，杀毒软件可能就开始报警了；而且使用中cscript.exe会访问网络，不太隐蔽。那么，有没有更好的方法呢？答案很明显:-)我们可以利用一个叫InternetExplorer.Application的对象（其实就是个IE啦

职场

休闲

vbs

转载精选 2007-07-03 16:38:25 1170 阅读

vbs 实现瞬间关闭多个系统进程

程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、wscript.shell的相关功能功能实现将当前进程列表显示在一个文本文件中，通过用户界面的选择，确定需要瞬间中断的进程列表，然后中断之。程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中

职场

系统进程

休闲

vbs

转载精选 2007-07-03 16:33:47 1485 阅读 1收藏

vbs 利用 wmi 实现电脑硬件信息收集举例

Set wmi=GetObject("winmgmts:\\") Set board=wmi.instancesof("win32_baseboard")For Each b In boardmsg="主板："&b.Manufacturer&vbTab&b.product&vbTab&Chr(13)Nextmsg=msg&Chr(13)&"

职场

其他

休闲

vbs

　wmi

转载精选 2007-07-03 16:32:16 2418 阅读

终端登陆监视脚本

On error resume nextif (lcase(right(wscript.fullname,11))="wscript.exe") thenwscript.echo "Execute it under the cmd.exe Plz! Thx."wscript.quitend if'code by netpatchFunction begin()Dim oShell,oExec,st

职场

休闲

监视脚本

转载精选 2007-07-03 16:31:09 756 阅读

vbs加密,可以应用到ms06014网马

职场

休闲

vbs　ms06014

转载精选 2007-07-03 16:28:29 1095 阅读

FSO 列磁盘信息

Function tran(Driver)Select Case DriverCase 0: tran="设备无法识别"Case 1: tran="软盘驱动器"Case 2: tran="硬盘驱动器"Case 3: tran="网络硬盘驱动器"Case 4: tran="光盘驱动器"Case 5: tran="RAM虚拟磁盘"End SelectEnd Functionset fso=Create

职场

休闲

FSO

　列磁盘

转载精选 2007-07-03 16:24:26 658 阅读

exec 列磁盘信息

Option ExplicitDim action,oShell,oExec,strOut,MyArray,f1,oExec2Set oShell=WScript.CreateObject("WScript.shell")useaction=lcase(trim(Wscript.Arguments(0)))select case actioncase "drivetype"

职场

exec

其他

休闲

列磁盘

转载精选 2007-07-03 16:20:59 828 阅读

用VBS模拟NC发包

1。关于VBS如何成功调用MSWinsock.Winsock。zzzevazzz说的很清楚了。就是下载Winsock.ocs注册，和VB6控件的授权密钥的.reg导入注册表。两个文件可以这里下载 2.有关WinSock控件引用的基本方法和事件：LocalHostName //取得本地主机名LocalIP //取得本地主机IPSocketHandle //取得创建SOCＫ的句柄RemotePor

职场

休闲

VBS

NC发包

转载精选 2007-07-03 16:19:07 1644 阅读 1评论

猜后台的HTA小程序

职场

后台

休闲

HTA

转载精选 2007-07-03 16:17:44 1095 阅读

写vbscript遇到几个问题

先看一个不成功的例子： <script language=vbs> function check(data) if data = "" then data=0 end function </script> &

职场

休闲

vbscript

转载精选 2007-07-03 16:16:43 665 阅读

正则表达式vbs

===============================正则表达式在VBScript中的应用 ========================== VBScript使用RegExp对象、Matches集合以及Match对象提供正则表达式支持功能。我们还是先看一个例子。 <% Function RegExpTest(patrn, strng) &nb

职场

正则表达式

休闲

vbs

转载精选 2007-07-03 16:13:31 1085 阅读 1点赞

官方博客	全部文章	热门标签	班级博客
了解我们	在线客服	网站地图	意见反馈

开源基础软件社区	51CTO学堂
51CTO	汽车开发者社区

51CTO博客

bleach