如何在数据传输过程中给数据进行加密呢？(100分)

是这样的，客户端向服务器端传送数据为了确保数据传输过程中的安全，请问在DELPHI如何实现数据传输过程中的加密呢？各位大哥帮帮忙吧，谢谢啦，如果能给我一个例子实在感激不尽。

有控件和例子

忘记给你写网址了![]
http://www.neweasier.com/vcl.html?class=35

在Delphi安装目录下的 Demos/Midas/Intrcpt
是一个使用 socketconnetion 实现三层结构时在进行压缩被传输的数据的接口的实现部分，稍加改动就可以用来实现加密

转换成流，对流进行压缩、加密。

to whhtao:
"转换成流，对流进行压缩、加密。"你是说把数据转化成数据流吗？这样要怎么实现呢，您能给我一个例子吗？

to 放飞：
在Delphi安装目录下的 Demos/Midas/Intrcpt下我找到了这个intrcpt.dpr这个文件，打开是library Intrcpt;
uses
ComServ,
Intrcptu in 'Intrcptu.pas';
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;
{$R *.RES}
begin
end.
这些，不知道是什么意思。

用SSL，标准的连接加密。

用SSL怎么做呢，有这方面的资料或者例子吗？

作者?: wnhoo
标题?: 用DELPHI实现文件加密压缩
关键字: 加密压缩、Zlib、流、资源文件
分类?: 开发经验
密级?: 参赛
(评分:★★★★★ , 回复: 9, 阅读: 2048) »»
概述：
在这篇文件中，讲述对单个文件的数据加密、数据压缩、自解压的实现。同样，也可以实现对多个文件或文件夹的压缩，只要稍加修改便可实现。
关键字：加密压缩、Zlib、流、资源文件
http://www.delphibbs.com/keylife/iblog_show.asp?xid=1116

压缩，然后毁掉压缩流头部，收到后，恢复它。

hao ,xuexue

主要在Clientdataset的发送数据之前和在dataprovider接收数据之前人为地对data数据对象进行你需要的加密。

本人刚学Delphi,在Clientdataset和DatasetProvider那个事件处理句柄，如何写代码实现压缩或加密？

不应该写到OnDataRequest里面，可能要自定义一个接口函数来处理……
MyStream:=DCOM1.AppServer.GetData();//MyStream是加密后的数据，GetData是应用服务器定义的接口函数，加密就在这里面实现！
然后本地对MyStream进行解密:
ClientDataSet.Data:=JM(MyStream);

to hongxing_dl:
前辈,本人刚学Delphi,能否详细点,虚心求教,不胜感激.

进行数据包加密，也就是rainM所说的：
Client:TSocketConnection 和Server: Scktsrvr关系----压缩数据传输
(2003-10-16)
一直用SocketConnection和服务端的传输数据在三层数据库中，从来没有注意到它们之间的数据传输，只是想着，管它了，网络的事，前段时间在Delphi中的Demos中发现Demos/Midas/Intrcpt.dpr例子，呵呵，再看了半天的VCL发现可以将Client端发送的给Server的数据，和Server发送给Client的数据是可以进行压缩的。呵呵，不敢藏私，Share给大家。
1: 准备工作,先delphi光盘中的/info/extras/zlib/zlib.pas进行编绎，然后copy 到lib路径中，因为要压缩数据，必须要有压缩功能，这个delphi已经自带，它是基于流的方式对接口IDataBlock(TDataBlock实现，其实就是对TMemoryStream的操作)数据进行压缩和解压的。做了这个后，才能进行下面的工作。
2: Open /Demos/Midas/Intrcpt/Intrcpt.dpr
complier....(如没有做第一步，嘿嘿...)
生成Intrcpt.dll
将Intrcpt.dll copy to System directory,或者你的程序下面。
注册它：regsrvr32 Intrcpt.dll (为什么，这个嘛...)
记住Intrcpt.dpr的那个GUID,你也可以自己重新生成一个(按Shift+Ctrl+G)
3: Server:
Open scktsrvr.exe，相信各位都很熟悉那界面，端口(TListbox)，Thread Cache Size(TEdit), GUID(TEdit),好，我们要做的事，就是将注册的Intrcpt.dll那个GUID填到这个GUID(TEdit)框框中，
只需填自己程序的的那个端口的GUID啊，别乱填，如果有别人用这个程序，出了什么，别找我。OK,Apply.
Client:
你写的程序中肯定有TSocketConnection,它有个属性InterceptGUID: string;好了，将Intrcpt.dll的GUID填上去，它是跟Server中的一样的。OK.还有别忘了，Regsrvr32 intrcpt.dll 在你的客户端。不然，程序虽不会raise,但是Server传过来的数据是压缩的....
讲讲原理不，打字太慢了，过段再写。
scktsrvr.exe其实是一堆TServerSocket,一个端口代表了一个TServerSocket,每个TServerSocket是基于多线程方式与客户端进行数据交换。它写了个TServerClientThread(在服务端中的客户端)的扩展
,多加了对客户端数据接收的管理解析，还有ActivityDateTime,GUID，一般不管它。但是我们用到的压缩只是跟这个GUID有关，其它费话少说。
Server接受一个Client连接,则加一个TServerClientThread到本地中，用来监控Client Read 和Close事件，所以Server中的scktsrvr中我们只要了解了TServerClientThread动作方式就行了。
(
题外话：Server Socket中有客户端连接后，记录ClientSocket.Handle,并且将根据这个Handle产生一个TServerClientWinSocket对象加入到Connections(TList)对象中,当任何对这个Client的动作也就是说Server 发送和接收数据都是根据这个Client Handle来进行的，相应的ServerSocket中的Connections中的ClientSocket也发生相应的变化。
)
有两个类跟这个TServerClientThread(实现ISendDataBlock接口)有关
1: TDataBlockInterpreter(对发送过来的数据进行解析InterpretData(Data: IDataBlock))
解析数据（水平有限，对它真是还是一知半解，有错请指出)
接口类IDataBlock,由TDataBlock通过TMemoryStream的读写来实现，其中Signature是其主要标识，说明这个IDataBlock的数据类型 ，TDataBlockInterpreter根据Signature来对应进行相应的调用， 如：
Client端连接后，在Server要运行应用服务器(Application Server),
Client端需要得到ServerName 列表,
Client端得到Server 的DataBroker的列表，
Client端断开连接后，Server要Close应用服务器(Application Server),
Client和Server的数据交换，也是由它来解析。
所以这个IDataBlock的数据很重要，而我们的压缩和解压就是针对于它，但是TDataBlockInterpreter是得到Data才对它解析，因而我们要在Send 和Recv 之前对它解压和压缩。这个任务在TSocketTransport身上。
2: TSocketTransport;(数据进行发送和接收, 实现ITransport接口)
Server端:
在Server端,TSocketTransport其实就是一个用来管理对ClientSocket实例，它将ClientSocket.Handle生成一个对象后，ClientSocket发送和接收过来的Data，在发送Data之前,它将调用InterceptOutgoing(Data: IDataBlock)函数，这个函数的功能是:
如果InterceptGUID <> ''，那么它将根据这个GUID生成一个COM(Obj)对象，Obj.DataOut(Data: IDataBlock),也就是我们注册的那个压缩的DLL中的那个压缩函数，将压缩过后的Data再发送出去。这就完成compress and send Data.(我试过那个压缩功能，压缩比大概是1/9,像zip压缩比差不多).
由客户端传过来的数据调用InterceptIncoming(Data: IDataBlock)函数，这就不多说了，Data := 解压后的Data. 压缩和解压过后的Data交由TDataBlockInterpreter去解析，完成一次数据交换。
Client端：
说完Server端，客户端的道理也是差不多的。唯一不同的是Server端中不调用ITransport.SetConnected()方法，因为它是根据ClientSocket.Handle生成的对象，也就是它是已经连接的对象,而Client端的TSocktConnection调用Connected := True时，其实就是调用ITransport.SetConnect将一个ClientSocket连接到Server端中的TServerSocket中，然后TServerSocket根据这个ClientSocket.Handle生成了一个TServerClientThread对象保存在本地中，开始对这个ClientSocket的监控(FD_Read, FD_Close消息事件).
注：
IDataBlock由TDataBlock实现，主要是管理TMemoryStream来存放数据
ITransport由TSocketTransport实现，主要是用TClientSocket来连接TServerSocket,并和它进行交换数据。
ISendDataBlock在Scktsrvr.exe中由TServerClientThread实现，通过TSocketTransport来发送数据.
说了这么多，想必各们很明白了吧。：）
这个现实点，我测试过了，效果比dcom差点，相比socket要快多了

那一招不错，加密后自毁，再还原

to 天空还下着沙:
你指的“加密后自毁，再还原”怎么实现呢，可以给个例子吗？

学习ing