socket连接多层程序安全性简述 - 连接

韩冰

前面hawkfly提到的在多层编程中，服务器端安全性验证的问题

在以socket方式实现MIDAS时尤为明显，DCOM/CORBA都有现成的

0 w1 C* d7 o; p3 l3 f6 h

安全管理功能，而socket方式在这方面比较薄弱，没有现成的解决方案

! v8 U8 E8 R; _% x

现就我以前对MIDAS编程的理解，做一个简要的介绍，

* Y; i6 y9 W" j1 n

以后有时间精力再详细举例说明

win2k中dcom的安全级别有7种，其中

3 d b+ p5 }/ y6 b* t8 v8 a

最低的“无”安全检查暂且不论

默认的“身份验证”服务方式几句话也说不清，

先放到一边，看看剩下的5种

. |2 U' n4 B5 W

l: L# _) g( o9 a! j* x' B

1.连接，仅对初始连接进行安全检查

2 f! X- ]: j6 V5 Z

因为tcp/ip是稳固的连接，因此每个连接，也就是每个RemoteDataModule

实例检测一次即可，实现方法很多，这里简要介绍一种最简单的

4 @0 W" R% I- O2 v' a2 {! L' x* ]

可以在服务器端的TypeLibrary里面为你的服务器接口增加若干个方法，如

& h2 R7 V0 f6 H

interface ILoginServer: IAppServer

2 @3 b7 [2 Q! I- m( h3 x8 R9 o M

{

[

id(0x00000001)

9 m3 F# O* D% f, _: s% y0 y, ^

]

HRESULT _stdcall Login( void );

$ Q0 `8 k) D# v2 d

[

id(0x00000002)

]

6 @( H7 c: N& i% m* ^* y9 m

HRESULT _stdcall Logout( void );

};

: x% M: J# i0 d2 J

在方法中实现你的客户身份校验，而在校验之前，通过把RDM上所有的TDataSetProvider

C5 ~! L# t4 o, v) M, }

的Exported属性关掉即可让客户端无法看到服务器端的provider

. E U+ V p* W

因为客户端实际上是在连接服务器成功后通过服务器之IAppServer接口访问

8 W; e9 f0 k, j, @3 V8 t

所有的Provider，如IAppServer::AS_GetProviderNames可以取得

7 D$ U; g' H6 ]

服务器端所有exported的IProvider接口名称，而所有数据的取得、修改

% c) V4 b; r2 ?! B8 w! O

都是通过相应的ProviderName来指定的，如

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

) ^0 m5 q( L% J% m: C9 O

t Count, int &RecsOut, int Options, const WideString: CommandText, OleVarian

t &arams, OleVariant: &OwnerData, OleVariant &GetRecords_result) = 0 ;

取得数据方法的第一个参数就是你需要操作的数据集名称……

2 W/ n$ s. _: Z# \6 h' k2 M

如果你把服务器RDM上所有的TDataSetProvider::Exported关掉，

则客户端看不到任何Provider，也无法通过其ProviderName取得数据

6 u8 B4 i6 ?/ K# o0 m6 l

例如我在服务器端的RDM类中加入

6 c2 H6 N* Z& }, F3 p0 ?

class TLoginServer : public TCRemoteDataModule

{

...

! O) D4 o. }1 ^8 J" i8 C

private: // User declarations

7 h$ B1 s( b2 u ^* T8 ^+ ? o

bool FLogin;

void __fastcall SetLogin(bool value);

bool __fastcall IsLogin(OleVariant &OwnerData);

2 e' B. y3 T) N9 w

...

6 H1 z7 C$ ]' z/ ]6 [9 v

__published:

/ x" l3 P, R9 |6 ?! I: @3 E& o

__property bool Login = { read = FLogin, write = SetLogin };

+ ~" r$ W" v% `

};

* {' ] c9 P4 `

在RDM实现类中

class ATL_NO_VTABLE TLoginServerImpl: 。。。

{

// ILoginServer

protected:

STDMETHOD(Login());

STDMETHOD(Logout());

};

然后简单实现之

; j& {/ T7 x3 k' c" F5 U: o6 J

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

{

8 m* d4 \( h6 U& x: I) G2 `

}

//---------------------------------------------------------------------------

void __fastcall TLoginServer::SetLogin(bool value)

{

if(FLogin != value)

9 ^# f* l) B8 B; ]

{

8 z/ t% q) C. `7 x, l! t

FLogin = value;

dspAnimals->Exported = FLogin;

8 W _9 |8 a( |, o. q

}

}

% L+ V/ {5 d2 x* g* T

//---------------------------------------------------------------------------

$ _1 q; ?9 p4 U. ^6 I: f0 J& s2 T! u

STDMETHODIMP TLoginServerImpl:ogin()

{

% |- L; Y0 H7 N3 X5 `$ Z b1 q

m_DataModule->Login = true;

return S_OK;

}

//---------------------------------------------------------------------------

7 b7 O! U8 z/ J/ P

STDMETHODIMP TLoginServerImpl:ogout()

8 l, x6 q7 O: G- f

{

1 S# i u1 O2 K! F8 L/ D& g. q

m_DataModule->Login = false;

8 h% H/ X: D$ j \ X1 d

return S_FALSE;

$ @$ B2 X$ a+ o+ z2 s6 K

}

1 o* j, e8 ^1 q. G9 ~+ j# L1 L- h# M

//---------------------------------------------------------------------------

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

) a! q U7 ^5 E9 I4 ], B. C

return FLogin;

}

8 ^% g. w/ _% j3 |5 h

easy 这样除非你的客户端成功调用Login方法，否则他是无法使用

dspAnimals这个数据集Provider的，成功调用后手工打开的数据集使用完全相同

8 B* ^/ P% J+ p$ S; _

比如客户端可以用如下代码

IDispatch *dispAppServer = (IDispatch*)(DM->Connection->AppServer);

6 g* z1 \& k o) G4 ]0 H8 _7 ?

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

dispLoginServer.Login();

V `) h) \( w$ {

DM->cdsAnimals->Open();

实现注册，并且打开相应数据集……

# r6 }) @$ O3 h' ^0 \

因为大多数的三层程序对安全性要求并不高，因此这样的安全检测对

绝大多数程序应该足以……