base64加密模块 用法：Base64Encode(‘加密字符') Option Explicit Public Function Base64Encode(InStr1 As String) As String Dim mInByte(3) As Byte, mOutByte(4) As Byte Dim myByte As Byte Dim I As Integer, LenArray As Integer, j As Integer Dim myBArray() As Byte Dim OutStr1 As String ...

阅读全文>>

1：依次点击“开始→运行”，在弹出的“运行”窗口中输入“cmd”，然后点击“确定”，打开命令行窗口； 2：在命令行窗口切换到想要创建文件夹的硬盘分区。例如，需要在D盘创建文件夹，则输入“ d: ”，然后回车即可； 3：创建一个名为“123”的文件夹，则输入“ md 123..\ ”，然后回车；（注意文件夹名称后面有2个小数点） OK，搞定！看看你的D盘下面是不是多了一个名为“123.”的文件夹？这个文件夹既不能访问又不能删除，不信试试看！来看看这个文件夹的大小，在文件夹上单击右键，在弹出菜单中选择“属性”，在弹出的“属性”窗口中我们可以看到，这个文件夹的大小为0字节。当...

阅读全文>>

今天在在网页的源代码中找到了MD5加密算法的代码，呵呵，搬过来VB用了～～ 直接调用就可以了  Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Private Function LShift(lValue, iShiftBits) If iShiftBits = 0 Then LShift = lValu...

阅读全文>>