用VB6.0做出的字串加密dll（带源码）！！

code.dll的说明：

这是一个由VB做成的dll文件，它支持对字串进行Base64和随机数加解密两种方式。

如果要进行中英文混合加解密，可以先用Base64函数加解密，再用随机数解密。

注意，加密和解密是逆向的，如加密过程为 Rand_Encode(Base64_Encode(str))

则解密过程为 Base64_Decode(Rand_Decode(pas))



函数原型为:

Public Function Rand_Encode(ByVal x As String) As String 随机数加密，支持英文半角

Rand_Decode(ByVal x As String) As String 随机数解密，支持英文半角

Public Function Base64_Decode(ByVal strSource As String) As String Base64解密，支持中英文全半角

Public Function Base64_Encode(ByVal strSource As String) As String Base64加密，支持中英文全半角-Made with VB6.0 string encryption dll (with source code)! !

code.dll descr iption:

　This is a made by the VB dll files, it supports Base64 string and random number for encryption in two ways.

If you want to encrypt and decrypt mixed Chinese and English, can first use the Base64 encryption function, and then decrypt the random number.

　Note that encryption and decryption is the reverse, such as the encryption process is Rand_Encode (Base64_Encode (str))

The decryption process is Base64_Decode (Rand_Decode (pas))

　

Function prototype is:

　　　Public Function Rand_Encode (ByVal x As String) As String　random number encryption, support for the English half-angle

　　　Rand_Decode (ByVal x As String) As String　decrypted random number to support the English half-angle

　　　Public Function Base64_Decode (ByVal strSource As String) As String　Base64 decryption, to support Chinese and English full half-width

　　　Public Function Base64_Encode (ByVal strSource As Stri