HanDs
管理员

[Visual Studio文章] 用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盘根目录下任意建立一个文本文件(假设为文件名为aaa.txt),其中的内容任意(可以包括字母、汉字、数字、回车符、换行符等)。运行本程序后,在输入文件名的对话框中输入文件名(如:“C:\aaa.txt”)后回车,即可完成对文件的加密。文件加密后,可以在记事本中打开该文件查看加密效果。如果想解密,可再次运行该程序并输入相同文件名。
摘自西北大学出版社出版、李书琴等主编的《VB60程序设计教程》


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
V B 编写 一个 加密 软件
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复