离子交换树脂价格:如何给硬盘里的文件加密

文件加密一法

该方法是：首先进入有PCTOOLS软件的硬盘或者是软盘里，启动PCTOOLS软件；选择要加密的文件所在的盘符，然后在要加密的文件上用鼠标标点一下(假定要加密的文件为DD.EXE)，在菜单中用鼠标选择DISK并且出现下拉式菜单，在菜单中选择View/edit disk功能，进入二进制代码与十六制代码里，按F6键，然后选择R，AscII代码里显示出了这个盘里所有的文件名，按F7进入修改。将光标移动DD.EXE文件的十六进制代码的第九字节处，将后面3个字节全改为零，将第十二字数改为10，然后选择F5存盘，修改完成。
退出后用DOS命令察看，文件变成了
DD 〈DIR〉 5-14-94 11:43a
看起来这个文件是一个子目录，可是谁也进入去，而且也删不掉。如果用户要用文件进行操作时，只要将原来的数据修正即可。
文件加密二法
用VB进行文件加密
??有时我们有些资料不希望别人看到，最常用的方法就是加密。用VB进行文件加密其实也挺简单。请跟我来吧！
??加密原理：循环使用密码中每个字符的ASCII码值与文件的每个字节进行异或运算，然后写入文件即可。这种加密方法是可逆的，即对明文进行加密得到密文，用相同的密码对密文进行加密就得到明文。
??界面设计：在窗体From1上放置驱动器列表框（Driver1）、目录列表框（Dir1）、文件列表框（File1）各一个，这三个控件相互配合，用来确定要加密文件的位置。其中File1的Pattern属性设为“*.TXT”，即仅显示文本文件；再放置一个Check控件，用来控制显示文件的类型，其Caption属性设为“显示全部文件”；接着放置两个文本框，Text1显示文件内容，Text2用来输入密码，其Passchar属性设为“*”，一个Label控件，其Caption属性设为“密码”；最后，放置两个命令按钮，其Caption属性分别设为“加密/解密”和“退出”。
??程序代码：
??Option Explicit
??Dim i As Long
??Dim databuff（） As Byte ’定义数组用于存放文件内容
??Dim addbuff（） As Byte ’定义数组用于存放加密后的文件内容
??Dim password（） As Byte ’定义数组用于存放密码的ASCII值
??Dim filename As String
??Private Sub Check1_Click（）??
??If Check1.Value Then ’控制是否显示全部文件
??File1.Pattern = "*.*"
??Else
??File1.Pattern = ".txt"
??End If
??End Sub
??Private Sub Command1_Click（）??
??Dim j As Integer
??Dim password_len As Integer
??password_len = Len（Text2.Text）?
??ReDim password（password_len） As Byte
??For i = 0 To password_len - 1 ’把密码转化为ASCII码
??password（i）= Asc（Mid（Text2.Text，i + 1，1））??
??Next
??If filename = "" Then Exit Sub
??Open filename For Binary As #1 ’读取要加密的文件内容
??ReDim databuff（LOF（1））??
??Get #1，， databuff
??Close #1
??ReDim addbuff（UBound（databuff））As Byte
??For i = 0 To UBound（databuff）?
??If j >= password_len Then ’循环使用密码
??j = 0
??Else
??j = j + 1
??End If
??addbuff（i）= databuff（i）Xor password（j）’进行异或运算
??Next
??Open filename For Binary As #1 ’把加密后的内容写入文件
??Put #1，，addbuff
??Close #1
??Text1 = StrConv（addbuff vbUnicode）’显示加密后的文件内容
??Text2.Text = ""
??End Sub
??Private Sub Command2_Click（）??
??.End
??End Sub
??Private Sub Dir1_Change（）??
??File1.Path = Dir1.Path ’与文件列表框相关联
??End Sub
??Private Sub Drive1_Change（）??
??On Error GoTo a0
??Dir1.Path = Drive1.Drive ’与目录列表框相关联
??a0：If Err Then MsgBox（Error（Err））’发生错误，提示错误内容
??End Sub
??Private Sub File1_Click（）’单击文件时，显示文件内容
??filename = Dir1.Path + File1.filename
??If filename = "" Then Exit Sub
??Open filename For Binary As #1
??ReDim databuff（LOF（1））??
??Get #1，，databuff
??Close #1
??Text1 = StrConv（databuff，vbUnicode）?
??End Sub
文件加密三法

文件夹加密器 V7.97
http://www.skycn.com/soft/10442.html