求救：ssl加密

Question

我现在用Tserversocket和Tclientsocket做了一个传文件到数据库的程序，现在要求用到ssl加密，请问大家这个ssl加密怎么去做啊？
我对这个一点都不懂的，给点提示也行啊。谢谢

Answer 1

base64文件内容解码后，生成了字符窜，我想把这个字符窜放到内存流中，应该怎么写啊？

Answer 2

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;

Answer 3

谢谢。都学习到了。2.字串写入内存流并读出的例子，我用上了。
同时还要再问一下，因为水平真的是不行的。而且51后就要交了。
ssl我要是选择RSA算法的话，大概要怎么弄才行？还有我看到那个openssl是什么关系？好像是什么开发源代码的ssl，我是要用那个吗？
现在传数据要先压缩一下的，本来想偷点懒，用borland自带的zip.pas压缩的，现在好像我这里没有这个文件，我是下载下来的delphi。你们有什么好的压缩算法可以推荐的吗？
还有那个什么拦截点技术，除了那个demo还有什么好点的文章没有啊？
问了好多，谢谢哦。呵呵