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

韩冰

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

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

2 |! i5 X0 K& N# h

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

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

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

2 G0 N# v2 N/ e4 H z3 K

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

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

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

1 M( _4 z: f! g/ e

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

6 ?6 F* v% @0 Y6 n

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

6 V& s: o) p' v& t C

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

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

" M9 I; n" [1 Y! `1 ~# r" O

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

! v; `0 u# |2 M. c1 C

interface ILoginServer: IAppServer

# h7 x& S/ x% I/ Z7 |

{

* @ F; [* r9 P4 a. ^" T& q

[

" r: N1 T7 f6 b* i1 B( t

id(0x00000001)

]

! k0 U( T: `; {8 @$ b

HRESULT _stdcall Login( void );

2 p/ D' e" s* P' }% T: L

[

2 d7 c$ o1 \0 b( l: @) }, ~) P

id(0x00000002)

! j# a5 d; q8 M: r) _

]

d' z+ A$ f- \, B% b! A1 `! v

HRESULT _stdcall Logout( void );

9 C. u. \- w x5 ]4 y+ l5 |

};

+ h- X5 j0 A4 d( w8 o4 Y( c0 y

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

. i0 k" |( [/ f" G4 x- _* x

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

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

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

5 x; Q7 V4 M8 M

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

i& l- [9 j# l# d+ h" e# s1 ?

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

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

- v- [' p& M' F( R2 k

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

$ o0 H0 a9 u& G- t& t, @, |

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

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

2 p6 g8 _. D }

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

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

$ ^! \' K/ p4 \3 T

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

. w3 H) G6 M- i- q& Y. [# L% }

class TLoginServer : public TCRemoteDataModule

' D- z6 e' N$ i" o/ V. m

{

* v) N0 W5 W5 `2 L( q

...

private: // User declarations

bool FLogin;

6 d3 H: F0 }) E4 u. F0 v

void __fastcall SetLogin(bool value);

bool __fastcall IsLogin(OleVariant &OwnerData);

$ X- T1 P* @' k+ @

...

& l" Y) u$ H6 B! a& N4 ~9 q7 S6 W$ I

__published:

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

1 d ]% w7 ]0 K2 u' o+ J

};

% W* k& G6 R! y- ~- h

在RDM实现类中

class ATL_NO_VTABLE TLoginServerImpl: 。。。

1 h# n8 N, n+ T0 z1 Z2 r! v

{

2 k' ?- V& ~% g1 `

// ILoginServer

( c* S2 j% }2 l1 `' f* R3 m5 @$ p

protected:

STDMETHOD(Login());

STDMETHOD(Logout());

. g# X W" N7 |& ]

};

2 G* ]+ e4 @% R1 H. n4 m3 ?

然后简单实现之

) E- o" f% h8 q; _$ m+ V

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

% O: @* R) Y; ]+ z4 R* T) ]

: TCRemoteDataModule(Owner), FLogin(false)

{

- @: M2 ~, i, s( G' s% K

}

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

' s2 O$ x [$ B& R6 P

void __fastcall TLoginServer::SetLogin(bool value)

* M; w/ O i. C3 U

{

- R1 o! H( h( a+ t# m! C C

if(FLogin != value)

& X! H* J) R! T

{

) T% B, |' x( t/ F+ R, T

FLogin = value;

/ i; g) s7 x+ s0 g& b# t

dspAnimals->Exported = FLogin;

4 X5 F! Q5 V/ n1 F2 B# i( h

}

}

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

, S6 f1 j/ `, f9 z+ A) Q1 W% s

STDMETHODIMP TLoginServerImpl:ogin()

{

* Q( a( V* p6 S

m_DataModule->Login = true;

0 J8 u+ o+ ~' @) r& S! o+ g

return S_OK;

}

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

STDMETHODIMP TLoginServerImpl:ogout()

{

$ Q* z, D( ?0 e

m_DataModule->Login = false;

( M5 X$ y; P% h p$ j3 f3 j/ G# H, B

return S_FALSE;

j4 U' m- ? X: H

}

. @2 V# k3 D: e- F

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

2 A5 k: b" g6 J: H; B

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

# K2 N9 N8 u6 s d

{

return FLogin;

( j6 `- M0 w: E A0 h1 S/ W

}

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

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

1 M( [( ?* V& s- r- K' k& E" J

1 b9 F1 c6 R; l5 _% W

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

3 K" ~( \# J9 L/ N( _

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

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

# n/ X0 \/ c9 x. X5 R ^

dispLoginServer.Login();

DM->cdsAnimals->Open();

3 }! f& r2 F S* Y2 U. Q

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

. Y, o. \( B7 x# d3 s

/ S+ N% z+ B6 [) o" R% k

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

/ H% p& K/ ]# D% t) @

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