求救：ssl加密
我现在用Tserversocket和Tclientsocket做了一个传文件到数据库的程序，现在要求用到ssl加密，请问大家这个ssl加密怎么去做啊？
我对这个一点都不懂的，给点提示也行啊。谢谢
问题点数：30、回复次数：6Top
1 楼haidanger（）回复于 2006-05-02 02:44:59 得分 0
base64文件内容解码后，生成了字符窜，我想把这个字符窜放到内存流中，应该怎么写啊？Top
2 楼haidanger（）回复于 2006-05-02 02:46:16 得分 0
呵呵。问了两个问题了。还请多多指教啊Top
3 楼keiy（）回复于 2006-05-02 10:30:54 得分 30
1.ssl只是个协议,加密算法要自己定,如用:DES－RSA－SHA
2.字串写入内存流并读出的例子:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
m:tmemorystream;
p:array [0..100] of char;
begin
m:=tmemorystream.create;
s:='aaaa';
m.Write(pchar(s)^,length(s));
m.Position:=0;
m.Read(p,length(s));
showmessage(p);
end;Top
4 楼haidanger（）回复于 2006-05-02 12:09:35 得分 0
谢谢。都学习到了。2.字串写入内存流并读出的例子，我用上了。
同时还要再问一下，因为水平真的是不行的。而且51后就要交了。
ssl我要是选择RSA算法的话，大概要怎么弄才行？还有我看到那个openssl是什么关系？好像是什么开发源代码的ssl，我是要用那个吗？
现在传数据要先压缩一下的，本来想偷点懒，用borland自带的zip.pas压缩的，现在好像我这里没有这个文件，我是下载下来的delphi。你们有什么好的压缩算法可以推荐的吗？
还有那个什么拦截点技术，除了那个demo还有什么好点的文章没有啊？
问了好多，谢谢哦。呵呵Top
5 楼haidanger（）回复于 2006-05-02 18:53:44 得分 0
大家来捧场啊。分数会给的哦，不够在加就是了。Top
6 楼haidanger（）回复于 2006-05-02 22:52:43 得分 0
有谁能够告诉我
爱的天国多远
你和我的梦是否可能会实现
越来越不能够相信
生命之中没有你
Top
