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

韩冰

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

% Q* j* m4 p7 s

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

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

$ C1 \7 t3 v3 y

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

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

: B( v: i; U* t, X

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

. ]- Y9 B6 u6 X% C5 {' _- B; W

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

) Z q% A' n$ J; x* Q

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

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

" @, `7 f3 K) p$ C8 m

! l! O0 E& c7 ^' t/ \1 {! J- q

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

# _" k- A/ F3 C: {, Z: C

! u5 @$ v1 ]9 G2 o

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

1 n v+ S" [8 b1 R8 B- b$ I

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

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

2 u) N5 b+ W/ L5 G) R( O

interface ILoginServer: IAppServer

{

[

id(0x00000001)

]

$ l% L7 w& h+ ~3 H

HRESULT _stdcall Login( void );

: g0 d7 q% ^" M; U4 ^! j

[

1 ~7 E1 g; h* B

id(0x00000002)

]

2 q, z2 P8 L" R

HRESULT _stdcall Logout( void );

8 K3 m8 e6 c5 d, [: l

};

. Z1 B `7 _: b6 k8 ^0 X7 I/ R. }; D Q

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

: v* w8 g$ Y# T5 X# @; ]

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

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

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

; ]9 W' ?) [. w( R

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

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

# ?6 M' C" |* e' n) J' `

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

+ j% K2 o4 ]- k( ?. Q

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

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

! F( J' p% F' Y

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

7 Y$ h4 f" W- ~

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

: q2 m- {* G4 l9 @2 G1 G

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

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

) Z! _+ M' I5 _. M: T9 w1 M

class TLoginServer : public TCRemoteDataModule

( `9 i6 w+ I% U- S; [# W: E' V

{

...

private: // User declarations

bool FLogin;

void __fastcall SetLogin(bool value);

bool __fastcall IsLogin(OleVariant &OwnerData);

/ f* W8 ^! z2 F) U

...

# `: e/ Y J, I, v8 m

__published:

0 N2 D/ I9 S* L% J

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

};

6 g7 y! s" I7 [, v

在RDM实现类中

class ATL_NO_VTABLE TLoginServerImpl: 。。。

# L" n/ l, K- v9 G

{

// ILoginServer

protected:

STDMETHOD(Login());

/ B- C! E4 ~3 l* D4 A

STDMETHOD(Logout());

' h6 W4 ?: e" I2 n

};

然后简单实现之

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

. \. c3 C( C+ x5 b# R

{

0 ?/ _* Q, U& G, b5 V

}

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

S* B6 |6 d' u$ u) C9 q

void __fastcall TLoginServer::SetLogin(bool value)

{

, ` X: G* L9 a% B8 B

if(FLogin != value)

) S- N3 s ~+ A7 C, t5 N

{

FLogin = value;

8 U1 G8 _# c' u. A

dspAnimals->Exported = FLogin;

' ?9 K5 ]8 ~3 o0 L

}

7 A. }6 Q9 {( s1 H* b {

}

7 ^2 W c a5 X' p0 b

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

! }0 z: c* \ D+ Z

STDMETHODIMP TLoginServerImpl:ogin()

{

9 ?% V; o2 i H$ D" ]! g: i3 l

m_DataModule->Login = true;

( Y! }! S k1 t

return S_OK;

}

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

STDMETHODIMP TLoginServerImpl:ogout()

{

5 Q4 p, z( c# j% r7 ]$ D: Z: M6 s

m_DataModule->Login = false;

return S_FALSE;

4 b( L* w/ I) ~2 ]4 M! V6 E- Z+ |

}

0 ], ^, j4 Y* V5 O5 w- B

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

5 _% I; a" {0 H2 r0 c; O3 \

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

$ ]9 q9 Z5 ]0 y3 c# H* z( ~

{

# A, V8 }1 }, g. V( N

return FLogin;

5 c y' D& u$ Z7 F5 p+ ^! @$ K

}

* h3 J0 U- f, q* S% c

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

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

$ p" G( E. y; L! W

# J2 x; S) I# H. _" R; T9 j

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

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

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

" K6 k! q$ y* J; O& Z' F

dispLoginServer.Login();

. p9 w9 J$ F! |9 i

DM->cdsAnimals->Open();

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

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

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