[原创]ASP小偷程序如何利用XMLHTTP实现表单的提交以及cookies或session的发送 利用XMLHTTP来制作小偷的具体细节落伍很多人都发过和讨论过了，但是在制作ASP小偷的过程中，很多人就发现ASP小偷不如PHP小偷的那么强 大了。确实，如果在原网站如果存在表单提交或cookies的验证，对于ASP来说，不使用基于SOCKET的组件就难以完成，其实，XMLHTTP的另外两 个方法被我们忽略了，而这正是问题的关键。 下面首先来说说这个方法 1。.send() 由...
这要用到计划任务，首先假定你这个程序的地址为“http://1.0.0.8/a.asp”，那么你编辑如下内容： 代码如下:Dim IE Set IE = CreateObject("InternetExplorer.Application") ie.navigate("http://1.0.0.8/a.asp") ie.visible=1 Set IE = Nothing 存储成一个vbs后缀的文件，比如test.vbs。 在windows的管理工具——服务中启动“计划任务”服务。 在控制面板的“任务计划”中，双击“添加任务计划”。 点“下一步”。 点“浏览”，找...
<% '================== '飞云防CC攻击ASP程序插件 '建议除必须修改的参数内容外不要修改其他内容 '如果需要反馈错误或提交意见,可以到落伍(IM286.COM)联系 “正版飞云” '================== dim FYCC_19,FYCC_20,FYCC_21,FYCC_05 dim FYCC_18 FYCC_05="" 'CCLog.txt存放的路径文件夹!需要手动创建!建议留空 '如果输入,请在前面加上符号"/" FYCC_18=1 '防刷新CC攻击关闭与启动,1为启动0为关闭 FYCC_17=1 '防刷新禁止IP功能关闭与...
比较复杂，可以支持多种逻辑符，包括 + - and or 空格等，并且根据需要随便增加。可以根据条件选择在那个表中搜索，对速度也做了优化，可以说是很快的。当然因为是以前写的，存在不少毛病。存储过程中用到几乎所有sql server的特性，如光标（记录集分页）等。好了，不吹了，自己看程序吧。 asp 函数 代码如下: function AnalyseKeyword(a_strSource) dim m_strDest , m_intLoop dim m_intBeginPos , m_intEndPos ...
这里所说的“小偷”指的是在ASP中运用XML中的XMLHTTP组件提供的强大功能，把远程网站上的数据（图片，网页及其他文件）抓取到本地，经过各种处理后显示到页面上或者存储进数据库的一类程序。你可以通过这种小偷程序，完成过去一些似乎完全不可能实现的任务，比如说把某个站的页面偷梁换柱后变成自己的页面，或者把某个站的一些数据（文章，图片）保存到本地数据库中加以利用。“小偷”的优点有：无须维护网站，因为小偷程序中的数据...
if(get_magic_quotes_gpc()==1){ ?> MySQL通用查询程序 注意本程序需要将PHP配置文件(PHP3为php3.ini,PHP4为php.ini)中的magic_quotes_gpc 设成Off或0,修改后请重新启动Apache. exit(); } set_magic_quotes_runtime(0); $host = 'localhost'; $db = 'test'; $user = 'test'; $pass = ''; // [ php/inc/str2url.php ] cvs 1.2 function str2url($path){ return eregi_replace("%2f","/",urlencode($path)); } ?> M...
摘自teN.potgnayiaH.wwW vbs小铺 关于用Shell.Application来执行程序，在海阳顶端asp木马里已有示例。用的是ShellExecute 这个方法。 今天试了一下，用open也可以。php代码如下，我好像还没有在php的webshell中看到相关方法 $wsh = new COM(Shell.Application) or die("Shell.Application"); $exec = $wsh->open("c:\windows\system32\notepad.exe"); //没有回显，多了个notepad进程，可以写一个批处理来运行dos命令。open换...
本文章免费提供一款asp防sql注入源程序看，方法比较简单就是接收query的值进行过滤哦。本文章免费提供一款asp防sql注入源程序看，方法比较简单就是接收query的值进行过滤哦。squery=lcase(Request.ServerVariables("QUERY_STRING")) sURL=lcase(Request.ServerVariables("HTTP_HOST")) SQL_injdata =":|;|>| SQL_inj = split(SQL_Injdata,"|") For SQL_Data=0 To Ubound(SQL_inj) if instr(squery&sURL,Sql_Inj(Sql_DATA))>0 T...
一段asp程序用php应该怎么写login_Url=""'初始化网址LoginIPArea=""'初始化客户端ip区域login_Url= Request.ServerVariables("HTTP_REFERER") '获取客户端ip来源地址nextpage=""'定义跳转的页面' response.write login_Url'response.endif len(login_Url)>0 then '来源url的处理过程login_Url= replace(login_Url,"http://","")login_Url= split(login_Url,"/")login_Url= login_Url(0)end ifisvalid=1validcount=0logincount=0vi...
发送phpasp 要求：（1）要和腾讯网一样（2）要有开心大转盘（3）输入验证码提示用户抽奖（4）免弹免杀要快要快，发送到我邮箱ilovejunhongjing@163.com
主要功能：BLOG日历，发表日志，添加管理分类，管理日志分类，编辑日志分类，可使用所见即所得方式（即双击直接编辑）后台仿GMAIL后台，大部分功能跟普通BLOG差不多，主要全部采用了AJAX，服务端采用ASP 本程序还配套一个AJAX 聊天室。程序共用四个主文件:客户端：前台：index.htm 后台：admin.htm服务端：前台：lib.asp 后台：admin.asp后台登陆管理：admin.htm 管理员和密码均为：admin本地下载
这只是个asp小技巧类的东西，它虽然适合在每个不同文件名里调用这个函数，但是也是有前提的，下面让我们来仔细看看其中的原委。 下面这段是基本的分页代码：＜% sql = "select……………………省略了sql语句Set rs=Server.Createobject("ADODB.RECORDSET")rs.Open sql, conn, 1, 1if not rs.eof thenpages = 30 定义每页显示的记录数rs.pageSize = pages 定义每页显示的记录数allPages = rs.pageCount计算一共能分多少页page = Req...
可能朋友们已经在一些杂志上看到过 ASP 聊天程序的编写方法，但作者在这里自己写了一个更简单的程序，仅仅使用了一个 .asp 文件。请将以下代码剪贴到记事簿并保存为chat.asp。 < %@ Language=VBScript %>< %Response.Buffer=true 设置输出缓存，用于显示不同页面。On error resume next ' 忽略程序出错部分If Request.ServerVariables("Request_Method")="GET" then' 判断客户是以什么方式请求 WEB 页面'------------------------...
因此，在我接触那么多种语言当中，asp是最不严格的一种，是对程序员要求最低的一种。 昨天测试了asp.net、php和asp的运行速度比较，今天又来冲动，想看看定义变量与不定义变量对asp运行效率的影响有多大，结果令人惊讶，asp程序定义变量比不定义变量速度快一倍！ 测试程序还是昨天那个，运行一千万次for循环，获得执行时间。 1、程序没有定义变量(dim i) 代码如下:<% dim startime startime=timer() for i = 1 to 10000000 next d...
代码如下:function checkip(checkstring)用正则判断IP是否合法 dim re1 set re1=new RegExp re1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" re1.global=false re1.Ignorecase=false checkip=re1.test(checkstring) set re1=nothing end function 代码如下:function get_cli_ip()取真实IP函数，先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDR dim client_ip if checkip(Request.ServerVariables("HTTP...