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

韩冰

' q/ O5 F$ v( n' ]

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

% c( z& E- Q- w8 z5 o. r

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

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

1 G0 v d# E0 f- D

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

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

/ `1 ]9 Y6 l% @4 Q1 M2 m, I

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

1 A0 z% `5 a# m! j

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

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

6 p$ V9 o) }) H4 l9 p5 c7 S* J! {

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

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

! o: T4 e- f( f

/ r" @: Z" ~ R, N, D2 X* C/ L

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

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

+ f) s/ v5 ^& T6 G' ~9 C; [

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

interface ILoginServer: IAppServer

- C/ s9 q- t: q5 T! V

{

1 H& v/ h3 Z2 {

[

id(0x00000001)

]

HRESULT _stdcall Login( void );

[

id(0x00000002)

]

HRESULT _stdcall Logout( void );

, T: r. F0 `5 y9 O

};

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

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

3 Y" u2 b+ j0 Q. y5 r ]

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

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

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

7 c+ m5 @$ V" T l4 m9 U

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

9 C5 U/ t; K f* e" b% n1 u

virtual HRESULT __safecall AS_GetRecords(const WideString: ProviderName, in

; E8 ]! f& l' Z0 ]! J e* Z

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

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

) q$ r% [3 J3 T" S: h

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

7 _/ C* p4 }/ U% L! A

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

& U. p8 k w5 D) |) m

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

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

class TLoginServer : public TCRemoteDataModule

. H. ^: L! B+ f7 r, @% e7 y

{

...

private: // User declarations

7 ]/ H. T. o8 Z3 @/ q6 X

bool FLogin;

void __fastcall SetLogin(bool value);

* ^( d, R8 U Q

bool __fastcall IsLogin(OleVariant &OwnerData);

...

__published:

% m8 s0 i3 D9 R8 Y1 Y

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

2 P2 l8 e% \! E) |8 i

};

. G- g2 i- U( ]" a$ [6 h; a; U9 c

在RDM实现类中

% S7 d2 d0 @7 T Q; D

class ATL_NO_VTABLE TLoginServerImpl: 。。。

{

) w1 v% P' d* |% l c; b; s

// ILoginServer

8 h. b) p H- O3 D7 H0 w

protected:

STDMETHOD(Login());

: d v# a. ]4 ?4 H1 w ^

STDMETHOD(Logout());

* s8 N$ F0 {" Z; ^& u

};

1 G! x7 O. V) a

然后简单实现之

__fastcall TLoginServer::TLoginServer(TComponent* Owner)

: TCRemoteDataModule(Owner), FLogin(false)

{

2 I N# l1 y$ h0 ~6 X

}

5 ?& }+ E: ~7 ~; k/ @

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

void __fastcall TLoginServer::SetLogin(bool value)

, N0 U, K4 _3 { m6 X7 K1 S# ]/ E

{

3 N4 ]7 ?; [* I/ w( x, O" e

if(FLogin != value)

{

FLogin = value;

1 g) Q0 r& P3 X; S+ c7 ~* r

dspAnimals->Exported = FLogin;

7 r, R0 J2 {2 U) c: u

}

}

+ {( O8 P# T" C/ H0 y0 U

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

STDMETHODIMP TLoginServerImpl:ogin()

/ X/ t2 k" o; a

{

9 g; ~8 D3 `: S2 X/ C, A# E

m_DataModule->Login = true;

return S_OK;

3 u9 x* @! y* A. p) O3 X. o. q

}

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

/ K1 U2 B1 w+ ^& K

STDMETHODIMP TLoginServerImpl:ogout()

' ^6 G5 t% q" H' E# t6 G

{

# f8 H% P- k0 q+ ]

m_DataModule->Login = false;

return S_FALSE;

}

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

bool __fastcall TLoginServer::IsLogin(OleVariant &OwnerData)

{

3 Y9 \1 \6 K/ n: b) I

return FLogin;

5 \2 \* p& p) M: K. U* S

}

# B" g- I% Y) f% [! P. s

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

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

& A& k) {% y& S) {4 p" p% `

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

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

. g3 W& t) z' v4 N! v; b/ j

ILoginServerDisp dispLoginServer = (ILoginServer *)dispAppServer;

3 ^$ `$ N; Z/ [/ [

dispLoginServer.Login();

DM->cdsAnimals->Open();

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

% h( l/ V7 M% e/ A' P! D: m

+ S8 f- i- N' e9 ~

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

; y+ c% z9 }8 s( s" k9 R7 k

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