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

韩冰

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

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

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

, G/ ?/ d; q* M

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

5 s, I$ D- p; o$ s& S/ G. x( g

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

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

* |" z4 z) F( T5 S# i& {. q

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

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

0 f2 T3 b2 @0 D7 k3 s0 v# d

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

+ s" r I9 k; @+ V7 n6 X

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

5 R6 Z2 e) P7 E+ C

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

" O, N5 o8 u* G9 o) Z! d) \

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

( D- B" g; V$ `

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

interface ILoginServer: IAppServer

# ~: q) F6 j1 E; m( y4 v

{

* |; t8 y8 d. m' ?' O E

[

id(0x00000001)

]

6 j& m- \. h- s5 U6 t) S

HRESULT _stdcall Login( void );

: i7 {( }) Q# e) U% k, P- ^$ m- o

[

+ k* |* J$ z0 L2 }3 n! A

id(0x00000002)

, }' C" v. {' n

]

$ ~+ I; K+ s( z7 B \9 l: L

HRESULT _stdcall Logout( void );

8 J5 K+ u0 C5 {# H' n) z8 d4 W* Y

};

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

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

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

+ [+ Z: o0 H7 U$ {' ?

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

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

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

$ g. K* l' O3 t3 f+ n; w3 h& @

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

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

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

& ` r; G4 z3 b0 l: ?: h7 y

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

4 S$ T! _/ `' a. ^7 z

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

# w8 k* W) J" P, A4 t7 H2 w; P* t

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

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

$ h z/ g0 x8 W& G0 ~

class TLoginServer : public TCRemoteDataModule

{

' v9 k2 g; i) V' a2 E

...

l. Q; x0 P* D" H+ m2 ^9 t! b& t

private: // User declarations

4 z/ y# h, \1 o& O! p4 u

bool FLogin;

' U( A5 I4 Y% M/ _2 g( v

void __fastcall SetLogin(bool value);

% x% o: a! } U3 L# p8 v

bool __fastcall IsLogin(OleVariant &OwnerData);

...

__published:

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

1 I3 T9 p0 A. @0 P

};

; L" k0 O6 h- Q( r8 S

在RDM实现类中

class ATL_NO_VTABLE TLoginServerImpl: 。。。

{

// ILoginServer

c( z5 D) \) |$ e1 t

protected:

STDMETHOD(Login());

STDMETHOD(Logout());

};

然后简单实现之

* r4 U& I2 u. I$ r( O

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

# @- h% d2 X: v4 h. v9 ^1 R

: TCRemoteDataModule(Owner), FLogin(false)

{

- i0 }/ s, J" a1 S0 N8 K

}

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

void __fastcall TLoginServer::SetLogin(bool value)

{

1 N3 l p! d$ M8 L1 v

if(FLogin != value)

{

- z1 p, r9 n/ C% ]: Z6 i6 ?+ V

FLogin = value;

dspAnimals->Exported = FLogin;

+ m4 N. X; { E( X3 ]5 P

}

4 j+ N8 W5 H) L* H/ q

}

: V. q, Y+ r7 K; A5 L6 |# C

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

# B1 U" T1 d' o

STDMETHODIMP TLoginServerImpl:ogin()

{

) |1 R$ n- r3 D6 V7 p

m_DataModule->Login = true;

+ T7 w t# q8 t. h0 d7 \& O

return S_OK;

- J5 z. u: b: `5 W/ _, Z- x) b

}

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

STDMETHODIMP TLoginServerImpl:ogout()

# Q" l7 ]% c/ X

{

m_DataModule->Login = false;

return S_FALSE;

I# M+ g+ O% L- x

}

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

) h# L" L% G# H9 r& U0 p

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

4 L! |5 _: P) v c, k

{

; {5 y" N6 i- l) E

return FLogin;

}

H* J* G3 { }! k; x. N

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

4 G) z3 E9 g% p, R% R' g9 z

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

& T4 w2 `2 z8 V; l

/ N# d" i* Y' \

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

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

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

dispLoginServer.Login();

0 j+ B' \( E& g+ x. m& j

DM->cdsAnimals->Open();

+ W& G) m& Z# A

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

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

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