delphi 文件加密 和解密操作

Question

我想完成这样个操作 把一个文件和文件名加密压缩成一个打不开的文件。。  然后再解压出来
但是我不知道思路。。
求代码和思路。哎！！！

Answer 1

比较简单的就是自己做个密码的算法或者用多次md5来加密密码，然后用zlib的CompressionStream把密码串和文件流压缩，并且在前面加入一段长度的乱数据，能费点心思做随机长度的最好了。