从DOS发展过来的文件夹(目录),天生就不能加密!记得当时有另一款DOS就在ROOT区的几位空闲字节作为密码标志,最后还不是笑柄一个?用MSDOS盘启动就不用输密码了。
你现在的想法也类似,不要再想去加密文件夹了。你可以用一个文件虚拟一个文件夹来加密,我想还现实点。其实网上有大把这样的程序,何苦自己干呢?
你可以去:WWW.ILOCKFAST.COM 免费下载一个“我的保险箱”试试,我用着还可以。如果你还是想自己干,我这有篇文章你可以参考参考:文本的加密与解密
在VB中,由于随机数生成器是伪随机数,所以根据其原理可以用于文本的
加密和解密,根据异或逻辑运算,加密和解密可以是同一个过程。
加密与解密函数代码如下。'加密与解密函数说明:
' CharSting 加密或解密的数据
' Key 加密或解密的密钥
'函数返回值:
' 1. CharString为空时返回"1"
' 2. 加密或解密失败返回"0"
' 3. 成功则返回加密或解密后的字符串
Public Function EDcode$(CharString As String, Key As Integer)
Dim X As Single, i As Long
Dim CharNum As Integer, RandomInteger As Integer
Dim CharSingle As String * 1
On Local Error GoTo EDcodeError
EDcode$ = ""
If Len(CharString) = 0 Then
EDcode$ = "1"
Exit Function
End If
X = Rnd(-Key)
For i = 1 To Len(CharString)
CharSingle = Mid$(CharString, i, 1)
CharNum = Asc(CharSingle)
RandomInteger = Int(256 * Rnd) And &H7F
CharNum = CharNum Xor RandomInteger
CharSingle = Chr$(CharNum)
EDcode$ = EDcode$ + CharSingle
Next i
Exit Function
EDcodeError:
EDcode$ = "0"
End Function
你现在的想法也类似,不要再想去加密文件夹了。你可以用一个文件虚拟一个文件夹来加密,我想还现实点。其实网上有大把这样的程序,何苦自己干呢?
你可以去:WWW.ILOCKFAST.COM 免费下载一个“我的保险箱”试试,我用着还可以。如果你还是想自己干,我这有篇文章你可以参考参考:文本的加密与解密
在VB中,由于随机数生成器是伪随机数,所以根据其原理可以用于文本的
加密和解密,根据异或逻辑运算,加密和解密可以是同一个过程。
加密与解密函数代码如下。'加密与解密函数说明:
' CharSting 加密或解密的数据
' Key 加密或解密的密钥
'函数返回值:
' 1. CharString为空时返回"1"
' 2. 加密或解密失败返回"0"
' 3. 成功则返回加密或解密后的字符串
Public Function EDcode$(CharString As String, Key As Integer)
Dim X As Single, i As Long
Dim CharNum As Integer, RandomInteger As Integer
Dim CharSingle As String * 1
On Local Error GoTo EDcodeError
EDcode$ = ""
If Len(CharString) = 0 Then
EDcode$ = "1"
Exit Function
End If
X = Rnd(-Key)
For i = 1 To Len(CharString)
CharSingle = Mid$(CharString, i, 1)
CharNum = Asc(CharSingle)
RandomInteger = Int(256 * Rnd) And &H7F
CharNum = CharNum Xor RandomInteger
CharSingle = Chr$(CharNum)
EDcode$ = EDcode$ + CharSingle
Next i
Exit Function
EDcodeError:
EDcode$ = "0"
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货