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

如何实现，能说说思路吗？  
  有例程更好 问题点数：50、回复次数：2Top

1 楼ByTheWay（摓崯堦熰）回复于 2001-11-01 12:39:16 得分 50

从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      
   
  Top

2 楼enmity（灵感之源）回复于 2001-11-25 22:09:14 得分 0

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

相关问题

• 加密
• 解密
• 文件夹
• 函数
• 密码
• edcode
• charsingle
• charstring
• charnum
• randominteger

• 帖主：alinker
• ByTheWay

• Visual Basic类图书
• Visual Basic类源码下载