Chishin Blog 千里之堤毁于蚁穴 —— 小歆
Base64加密解密VB源码
发表于 2012-7-2 | | 软件源码
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 ...

阅读全文>>

建立【无法访问】的文件夹,可以藏东西...
发表于 2012-6-23 | | 系统使用
1:依次点击“开始→运行”,在弹出的“运行”窗口中输入“cmd”,然后点击“确定”,打开命令行窗口; 2:在命令行窗口切换到想要创建文件夹的硬盘分区。例如,需要在D盘创建文件夹,则输入“ d: ”,然后回车即可; 3:创建一个名为“123”的文件夹,则输入“ md 123..\ ”,然后回车;(注意文件夹名称后面有2个小数点) OK,搞定!看看你的D盘下面是不是多了一个名为“123.”的文件夹?这个文件夹既不能访问又不能删除,不信试试看!来看看这个文件夹的大小,在文件夹上单击右键,在弹出菜单中选择“属性”,在弹出的“属性”窗口中我们可以看到,这个文件夹的大小为0字节。当...

阅读全文>>

MD5加密算法VB源码
发表于 2012-6-12 | | 软件源码
今天在在网页的源代码中找到了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...

阅读全文>>

TOP