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

韩冰

$ X% l* i! ~1 @; @9 L

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

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

( e( \7 z, u. ?0 S3 X

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

: H; Z$ h" r' \. B) E

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

# \% O! ~" i, z. G) Q

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

j1 @5 s4 q8 Y9 F5 s$ h5 I- d' I! L

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

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

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

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

9 Q. E0 c* R @' u: A7 Q

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

3 s, d. L- Q4 B

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

4 t. G" s, h" N8 M0 l; r

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

3 a( k+ s: ~! I" J: C

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

interface ILoginServer: IAppServer

{

- Y6 g, @' @9 j5 j/ v: A% Q' V

[

id(0x00000001)

]

7 v+ q/ ~" k" A1 {

HRESULT _stdcall Login( void );

" D- {; ^/ [" S0 ?$ M0 D

[

id(0x00000002)

! G% |4 S9 W3 E/ y

]

: | J- A- ]/ l- y( l2 u4 T

HRESULT _stdcall Logout( void );

5 d x5 k) L& s- A5 _2 k

};

, p2 h/ b/ V1 e; ]# ?: c6 L

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

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

: s7 }8 a5 k' \% n/ N7 [

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

9 B$ X: i' J( f) o9 c

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

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

3 A0 t5 w0 s* K" k& m

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

+ p' W" w' ?8 g

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

; M& N( x# ]( W8 `: x1 ?

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

) T2 a+ C% N% Q$ K i" b. o% C2 F

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

2 c; O$ z- c& M9 @" [! J# ?

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

) w A/ [& r: i9 ^: _

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

+ m/ W! r& h% [* o* c( B6 _2 l+ Y U$ }

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

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

class TLoginServer : public TCRemoteDataModule

* I* I6 B8 ~1 s

{

6 @! K' [: B# H! ]! T) N

...

private: // User declarations

" K# E! a) ~0 j8 Y, p

bool FLogin;

void __fastcall SetLogin(bool value);

( U& ]; p* e% r+ H" M

bool __fastcall IsLogin(OleVariant &OwnerData);

...

2 \, ?& [) W. p; D/ J: O

__published:

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

+ f9 l( A+ \- [

};

在RDM实现类中

1 y4 k; ~# R4 o/ n+ R

class ATL_NO_VTABLE TLoginServerImpl: 。。。

% m& j8 S% V R' d- P9 W7 B

{

// ILoginServer

2 u% @; k8 K Y

protected:

$ N! O! G4 K9 r0 ?- v, y- s4 f

STDMETHOD(Login());

STDMETHOD(Logout());

" B8 \5 _& F% J; ?* ]

};

然后简单实现之

& E# I9 ~* \8 @- u

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

2 I7 p3 m4 v. Y4 Z

{

( {9 ~) N" N K# Z$ k9 o |# B

}

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

. E' y, b: O' Y+ h+ } F

void __fastcall TLoginServer::SetLogin(bool value)

8 t" Q1 Q i: Q8 B' q

{

if(FLogin != value)

2 W6 c0 r; O0 z8 s# {9 I e

{

! j7 v8 _ g2 I) P# G" @

FLogin = value;

dspAnimals->Exported = FLogin;

}

}

/ r) O" k, t$ V+ u$ [

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

+ [: m! @4 o5 `* D. a2 ]8 ?# l; W

STDMETHODIMP TLoginServerImpl:ogin()

& @6 C" i0 E: x- f4 E5 W( e* \

{

m_DataModule->Login = true;

return S_OK;

}

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

STDMETHODIMP TLoginServerImpl:ogout()

5 w1 v r9 N; f4 }( A

{

m_DataModule->Login = false;

return S_FALSE;

2 q9 ?: @, W* f* D0 x

}

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

9 J7 a& ~ t) Y( \3 A1 G

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

# b* w9 Q$ g1 Q/ Q! ?

return FLogin;

}

E( [6 ]0 a9 l1 ^

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

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

2 y: A2 {) Z2 r. J5 Y( Y

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

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

: P/ `3 I& K( U6 p* f8 z

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

dispLoginServer.Login();

1 b7 Z! F' D, n+ g u" s6 i: M

DM->cdsAnimals->Open();

8 s$ l. i$ y& D8 d

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

, _, c. l1 g0 |- L! v; G

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

. ]7 ^0 a, @3 a0 M) N: r

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