在程序中实现远程访问控制

经作者同意转载自  http://blog.csdn.net/xrbeck

  在程序中实现远程访问控制
                                                              作者:xrbeck

  远程访问控制(Remote Access Service)是Windows NT,
Win2000 Server提供的一种远程服务,它允许用户从远端
通过拨号连接连接到一个本地的计算机网络,一旦建立了
连接,就相当于处在了本地的LAN中,从而可以使用各种各样
的网络函数以便进行访问,本文就是给大家介绍这种听起来
就很动心的技术。 :)
  首先我们需要配置服务器端的RAS服务,在这里以2k Server
为例,第一安装modem,相信大家应该没什么问题吧.装好
modem后，选择"控制面板"中的"网络和拨号连接",新建连接,
选择"接受接入的连接",并且在最后一步添加一个允许登录
的帐号,本文设置用户名:xr 密码:xr,这样就在服务器端
建立了一个"等待接入"的连接,然后右键选择属性,在网络
中选择TCP/IP协议,因为笔者的LAN中是通过代理,静态的分配
保留IP地址172.18.所以在这个地方选择"指定TCP/IP地址"
从'172.18.1.27“到"172.18.1.28"分配两个IP地址.这是
因为VLSM是255.255.255.224,一个LAN中保留30台机器，
选择后面几台未分配的IP地址。打开控制面板中的管理工具，
选择路由和远程访问,选择本地服务器,并且"配置并启用
路由和远程访问",可以查看活动与否的端口.
   这样在服务器端就配置好了RAS服务.接下来进入关键
部分:在远端用程序实现RAS连接.同样我们需要电话线和modem.
安装好后我们就能利用系统提供的rasapi实现拨号连接.
  以BCB5.0为例:给出源程序如下：
1.连入头文件ras.h,raserror.h和库文件rasapi.lib
  这个地方要注意有个版本冲突问题,所以需要临时的设置
WINVER这个变量.具体代码如下：
#define OLDVER WINVER
#undef  WINVER
#define WINVER 0x400

#include
#include

#undef WINVER
#define WINVER OLDVER
#undef OLDVER
静态连入rasapi.lib后,我们就能利用API函数实现拨号了

2. 拨接部分：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        //
        hrasconn=NULL;
        RASDIALPARAMS params;
        char    buf[256];
        memset(buf,0,256);

        params.dwSize=sizeof(RASDIALPARAMS);

        lstrcpy(params.szEntryName,"");
        lstrcpy(params.szPhoneNumber,"208");
        lstrcpy(params.szUserName,"xr");
        lstrcpy(params.szPassword,"xr");
        lstrcpy(params.szDomain,"");

        int ret=RasDial(NULL,
                        NULL,
                        ¶ms,
                        0,
                        &RasDialFunc,
                        &hrasconn);
        if(ret!=0)
        {
            RasGetErrorString(ret, buf, 256);
      memStatus->Lines->Add(buf);

        }
}
其中RasDial为异步访问方式,208为笔者测试的公司内部
的服务器的电话号码,xr是登录的用户名和口令,因为
测试的2K Server是作为对等网中的普通一员,没有domain,
所以设置为空.

3. 回调函数部分:
   类似大部分的window程序,ras也提供了回调函数来
异步的处理连接,这样的情况很多,比如Winsock也提供
了窗口消息的异步方式.
void WINAPI RasDialFunc(UINT MSG,RASCONNSTATE rasconnstate,DWORD dwError)
{
    //
    char szRasString[256]; // Buffer for storing the error string
    memset(szRasString,0,256);
    DWORD cb=sizeof(RASPPPIP);
    DWORD ret;

 if (dwError)  // Error occurred
 {
  RasGetErrorString((UINT)dwError, szRasString, 256);
  Form1->memStatus->Lines->Add(szRasString);
  return;
 }
     switch (rasconnstate)
 {
  // Running States
  case RASCS_OpenPort:
   Form1->memStatus->Lines->Add("Opening port...");
   break;

  case RASCS_PortOpened:
   Form1->memStatus->Lines->Add("Port opened.");
          break;

  case RASCS_Authenticated:
   Form1->memStatus->Lines->Add("Authentication complete.");
   break;

  case RASCS_Connected:
   Form1->memStatus->Lines->Add("Connection Connected.");

              Form1->lpProjection=new RASPPPIP;
              Form1->lpProjection->dwSize=sizeof(RASPPPIP);
              if(RasGetProjectionInfo(Form1->hrasconn,RASP_PppIp,Form1->lpProjection,&cb)==ERROR_SUCCESS)
              {
                  Form1->memStatus->Lines->Add("Server IP:"+(AnsiString)(Form1->lpProjection->szServerIpAddress));
                  Form1->memStatus->Lines->Add("Local IP:"+(AnsiString)(Form1->lpProjection->szIpAddress));
          }
   break;

  case RASCS_Disconnected:
   Form1->memStatus->Lines->Add("Disconnecting...");
   break;

  default:
   Form1->memStatus->Lines->Add("Unknown Status ");
   break;
 }
} 
处理各种消息,其中在连接部分使用RasGetProjectionInfo得到连接
分配的IP地址和服务器端的地址.由于是静态的分配的,所以和服务器
端是处于一个子网当中,也就能使用各种各样的资源了,比如说可以使用
WNET系列函数得到LAN中的情况,又或者在Connect事件后建立套接字,
实现传输.笔者测试如下:拔掉客户端的网线后,建立连接后能ping到
LAN中其他的机器,而且由于处于子网中,所以也能上网了,使用IPHelper
函数返回的子网掩码和网关是一致的.

   本文为大家介绍了什么是RAS以及如何编程实现RAS服务,无疑这是一项
方便而强大的功能.希望能给大家带来帮助.也欢迎大家进一步继续
讨论.QQ.33854303

测试环境: 客户端BCB5.0+Win98. 服务器端:Win2000 Server
         
参考书籍： Windows网络编程
           Internet与TCP/IP程序设计之C++ Builder高手