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

韩冰

6 H6 L6 T0 a: y/ v$ G( u$ i

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

: w6 d" F/ n) W: Y+ V) h

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

+ N+ Y7 t7 E& N n+ U

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

% Q& [, G9 R7 i6 G) `: v* t

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

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

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

, V/ u/ `! Q! O/ r

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

0 F$ s0 Q2 K/ \( I/ Z4 B

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

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

0 Y% M7 k! W( W; `

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

# _3 u* t2 p+ A4 e( U" C1 J

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

" ~" o8 v+ J# A0 Y- G; D

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

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

$ J$ F3 p' u5 J5 V/ }

interface ILoginServer: IAppServer

{

& {6 ^; i/ V8 R) H) `' N

[

id(0x00000001)

9 w) \/ {3 f+ U+ s [0 D

]

HRESULT _stdcall Login( void );

e: G8 f3 y) q- T% ^

[

0 Y4 Y: {1 t! ]

id(0x00000002)

& m5 m/ m# G: \0 }1 u8 S

]

, Z0 d" A. w1 ?# d9 I, ?) O

HRESULT _stdcall Logout( void );

};

$ D% C1 d4 Y5 i

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

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

" Q0 G6 c2 G" q9 U8 b* _8 D

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

/ S% E+ A: C2 S. T, S3 V

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

0 {9 }! ? Y: |; L0 K4 r5 ^/ K0 i

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

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

9 x, A7 _/ G0 \+ W2 v5 ~# Z ^

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

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

6 i8 @+ \ t8 O' A* V& F* ?

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

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

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

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

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

: m+ |; W' M+ @" d" O6 ^8 P

class TLoginServer : public TCRemoteDataModule

& W$ A! S: b+ m4 b5 U7 ]

{

% i; h+ D' p0 O2 _$ P

...

8 y% ~ `; @0 [) m B2 q

private: // User declarations

bool FLogin;

5 N) i. n' S: x( D

void __fastcall SetLogin(bool value);

. o- I! f$ l. A! q5 P( I

bool __fastcall IsLogin(OleVariant &OwnerData);

...

o! U$ D! D% m( c

__published:

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

};

在RDM实现类中

6 [- r4 o1 M: U7 E# z. c" ?& \9 P

class ATL_NO_VTABLE TLoginServerImpl: 。。。

+ D+ T, l9 s& C1 P

{

- F6 `" u+ M4 v1 z

// ILoginServer

protected:

STDMETHOD(Login());

STDMETHOD(Logout());

};

然后简单实现之

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

) F( `9 N4 L: ?$ }

{

}

1 y& \% m/ n" Y8 a8 `4 [

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

void __fastcall TLoginServer::SetLogin(bool value)

W$ g# c& n7 x9 \% U1 D# C

{

" Z/ |4 z+ J2 m) r! H* r

if(FLogin != value)

% P2 Z. v; Y9 a

{

FLogin = value;

' R* l9 M6 R% }( o

dspAnimals->Exported = FLogin;

}

& ^3 \, \$ z. W

}

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

STDMETHODIMP TLoginServerImpl:ogin()

{

m_DataModule->Login = true;

return S_OK;

0 R8 A2 {' Q1 Y. E

}

! R6 I, v5 L; \3 z( y8 l

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

$ o0 ], b+ G" g. g3 J

STDMETHODIMP TLoginServerImpl:ogout()

{

m_DataModule->Login = false;

9 S3 K- q9 v* c4 l! O3 ~

return S_FALSE;

}

c, N4 f+ J5 ], V

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

+ W$ W5 l( X$ v! A z

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

return FLogin;

; p9 I$ I9 G0 Q# ]3 \% j; b) v6 n+ m

}

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

5 L: B6 U3 }5 G" A

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

6 y. V$ v& I$ o8 ^ G/ Z/ `

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

6 D- t# F. T+ I( ?

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

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

/ E+ g* J" a x

dispLoginServer.Login();

3 j4 ]: P# M/ M8 h' H/ A% R

DM->cdsAnimals->Open();

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

& g: }; C6 [/ J* E$ ?

" X. d9 R& b0 R0 v

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

5 D8 {1 U) {% D

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