Jack.Xue 程序生涯

调用API的功能实现， 因相应的API较复杂，不太好理解，我用子程序对它做了封装。 实际使用过程中你将下面这段代码Copy到程序模块中，然后调用SubOpenFile子程序就行了。 注意在引用该FSO功能时先引用 Microsoft Scripting Runtime Public ObjFso As New FileSystemObject Declare Function shell

经典加密算法在VB中的实现--DES       一、算法实现       1.处理密钥:       1.1     从用户处获得64位密钥.(每第8位为校验位,为使密钥有正确的奇偶校验,每       个密钥要有奇数个”1”位.(本文如未特指，均指二进制位)       1.2   具体过程:       1.2.1对密钥实施变换,使得变换以后的密钥的各个位与原密钥位对应关系如       下

InStr 函数返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。语法 InStr([start, ]string1, string2[, compare])InStr 函数的语法具有下面的参数：部分 说明 start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare

 ************************************************************************     *     *     * DES/3DES 加解密类模块 V1.0     *     *     ****************************************************************