Dim o Dim str as string Set o = CreateObject("MyEncrypt.DES") str = o.Encrypt("加密的明文", "8位数密匙（记住要用于解密）") str = o.Decrypt("解密的密文", "8位数密匙（加密时的密匙）")

VB加密实现注册码序列号验证实例，VB使用加密方法实现的软件序列号验证实例，相对不加密的序列号，当然可以提高可靠性，程序包中含有两个源程序，一个是注册程序，一个是序列号生成程序，你可以对照学习一下。注册程序可能有少许错误，不过修正方法应该很简单。

VB加密文件夹,很简单的，大家可以看看 VB加密文件夹,很简单的，大家可以看看

当你做了一款软件之后，可以用他网络加密你的软件，网络管理你的用户，对新手很实用哦！

21种VB加密/解密算法源代码，另外还有50多种种压缩/解压算法源码，相信够你用了，觉得还不错吧，推荐给大家。

字符串中文加密解密软件（含源代码）简单的VB字符串加密解密函数，16万汉字加密5秒，解密3秒。

VB实现DES加密解密算法已测试通过如有更新另行发布

CompressionMethodsV1.02.zip: 巨好的压缩算法模块包！囊括目前主流的61种压缩算法和20种编码标准！比如Huffman、LZSS、LZW、RLE、Aritmatic、LBE、Base64等等.... qcryptoCLS.ZIP: VB MD5安全模块示例 SECUREencryptionalgorithms.zip: 这个加解密源码几乎包括了世界上几个最著名的加密算法：Blowfish、CryptAPI、DES、Gost、RC4、XOR、Skipjack、TEA、Twofish，曾获源码5星推荐 Business-strengthCompression.zip: 商用压缩＋加密程序 SteganographyDemo.ZIP: 将文字加密后隐藏在图片里，支持GIF/BMP TheGenuineEnigmaMachine.zip: 这是德国纳粹二战时发明的密码机Enigma“迷”的复原模拟程序的源码。界面一流，很有学习价值

地球人都知道，MDB文件很不安全，破解MDB文件密码的软件层出不穷，那是否如果我们MDB作后台数据库，是不是就等于任人宰割了呢？我觉得未必是这样的。

该程序是在VB6.0的基础上开发的，支持数据的加密和解密，还有可以对文件进行加密和解密。用户可以根据自己的密钥进行个性化的加密和解密。