计算机如何⽤vb⽂本加密，怎么样⽤VB编写⼀个⽂件加密程序字节逐位倒排序加密法是以⽐特为单位的换位加密⽅法，⽤VB实现的具体算法是：
(1) 以⼆进制模式打开源⽂件；
(2) 从源⽂件第I位读取⼀个字节，假设为字母“A”，得到“A”的ASCII值为65；
(3) 将65转换成⼋位⼆进制串为“01000001”；
(4) 将“01000001”按字节逐位倒排序得另⼀个⼋位⼆进制串“10000010”；
(5) 将“10000010”转换成⼗进制再写回源⽂件第I位置，完成⼀个字节的加密；
(6) 重复(2)、(3)、(4)和(5)，直到所有字节加密结束。
为了使程序模块化，我们⽤函数过程ByteToBin完成将字节型数据转换成⼆进制串(其实质就是将⼗进制数转换成⼋位⼆进制串)；⽤函数过程BinToByte将⼆进制串转换成字节型数据(实质是将⼋位⼆进制串转换成⼗进制数)：⽤函数过程Reverse将⼋位⼆进制串逐位倒排序。具体程序如下：
Function ByteToBin(m As Byte) As String ' 将字节型数据转换成⼋位⼆进制字符串
Dim c$
c$ =
Do While m 0
r = m Mod 2
m = m \ 2
c$ = r & c$
Loop
c$ = Right(00000000 & c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 将⼋位⼆进制字符串颠倒顺序
Dim i%, x$
x =
For i = 1 To 8
x = Mid(m, i, 1) & x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte ' 将⼋位⼆进制串转换成⼗进制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox(请输⼊要加密的⽂件名！注意加上路径名：)
If Dir(fname) = Then
MsgBox ⽂件不存在！
Exit Sub
End If如何为文件夹加密
Open fname For Binary As #1 ' 以⼆进制访问模式打开待加密⽂件
For i = 1 To LOF(1) ' LOF函数是求⽂件长度的内部函数
Get #1, i, x ' 取出第i个字节
x = BinToByte(Reverse(ByteToBin(x))) ' 这⾥调⽤了三个⾃定义函数
Put #1, i, x ' 将加密后的这个字节写回到⽂件原位置
Next i
Close
MsgBox 任务完成！
End Sub
本例可以完成对任意⽂件的加密与解密，对同⼀⽂件作第⼀次处理为加密，第⼆次处理为解密。要调试本程序，可⽤记事本在C盘根⽬录下任意建⽴⼀个⽂本⽂件(假设为⽂件名为)，其中的内容任意(可以包括字母、汉字、数字、回车符、换⾏符等)。运⾏本程序后，在输⼊⽂件名的对话框中输⼊⽂件名(如：“C:\”)后回车，即可完成对⽂件的加密。⽂件加密后，可以在记事本中打开该⽂件查看加密效果。如果想解密，可再次运⾏该程序并输⼊相同⽂件名。
取消
评论
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论