|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!客户端|源代码 本程序属于一种出格的办法。利用局限对照无限,并且有必定的伤害性。自创了asp后门里的一些办法。上面是程序代码。
<%
dimremoteaddr
ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")=emptythen
remoteaddr=Request.ServerVariables("REMOTE_ADDR")
else
remoteaddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
endif
Response.Write(GetMac(remoteaddr))
因为读取某IP的网卡MAC地点
本程序经由过程挪用arp命令经由过程查询本机arp表读取特定IP的MAC地点
利用本程序需注重以下事项:
本程序必要“WSCRIPT.SHELL”和“Scripting.FileSystemObject”两个组件,请确保您的服务器能够一般利用这两个组件
本程序必要挪用cmd.exe程序,请确保IIS宾客帐号对程序有会见权限。
本程序必要一时文件保留了局,请确保IIS宾客帐号对一时目次有写权限。
functionGetMac(IP)
OnErrorResumeNext
DimoScript
DimoFileSys,oFile
DimAll,szTempFile,ipc,phyc,typec
DimTempPath
SetoScript=Server.CreateObject("WSCRIPT.SHELL")
SetoFileSys=Server.CreateObject("Scripting.FileSystemObject")
TempPath="d:temp"一时目次
szTempFile=TempPath&oFileSys.GetTempName()猎取一时文件名
CalloScript.Run("cmd.exe/cping-n2"&IP,0,True)包管arp表中有此IP
CalloScript.Run("cmd.exe/carp-a"&IP&">"&szTempFile,0,True)
SetoFile=oFileSys.OpenTextFile(szTempFile,1,False,0)
All=oFile.ReadAll()
oFile.Close
If(IsObject(oFile))Then
CalloFileSys.DeleteFile(szTempFile,True)
EndIf
arr=Split(All,vbCrLf)
IfUBound(arr)=4Then
ipc=InStr(1,arr(2),"InternetAddress")
phyc=InStr(1,arr(2),"PhysicalAddress")
typec=InStr(1,arr(2),"Type")
Iftypec>phycAndphyc>ipcAndipc>0Then
GetMac=Ucase(Trim(CStr(Mid(arr(3),phyc,typec-phyc))))
EndIf
EndIf
Endfunction
%>
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|