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实现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“迷”的复原模拟程序的源码。界面一流，很有学习价值

此法对wincc c vb加密脚本的解密均有效。请尽情收藏试用。