如何直接加密文件夹，进入输密码？

[alinker]

如何实现，能说说思路吗？
有例程更好

[ByTheWay]

从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

[enmity]

光有文本加密的函数根本做不了什么的吖！