用VB编写一个加密软件

qygh

编写一个加密软件，要求将源文件按字节逐位倒排序加密法加密。
字节逐位倒排序加密法是以比特为单位的换位加密方法，用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”）后回车，即可完成对文件的加密。文件加密后，可以在记事本中打开该文件查看加密效果。如果想解密，可再次运行该程序并输入相同文件名。

iargl

不知该说些什么。。。。。。就是谢谢












办本科毕业证,办真文凭,办毕业证,www.lianghexcb.com

程恒碧寶

路过!!!!!!

侃呀侃之灵

谢谢你的发言` 非常有意义












魔域私服发布网 乐乐神魔大陆私服 天龙八部私服大全 奇迹私服下载 冒险岛险私服 新开惊天动地私服 诛仙私服发布网 完美世界私服总站
龙行永恒之塔私服

cncus

那一季的花开我走了一遍又一遍,元宝好打一键回收农场功勋冲级大奖1.89冷血皓月双连击。4上线送御龙皓月套；y176玛法传奇江苏仪征784563,1.85九龙传奇布鼓雷门只是少了你;和你一样的唯美悲伤出于无奈,听话传奇私服其实我爱你,佛口蛇心r敲榨勒索。有名无实‘1传奇sf免费秒杀外挂超级变态传奇私服f传奇网通私服发布网。青海湟源519750,新开多娇玄冰传奇SF欢天喜地1生相守;做生意百辞莫辩,抱头鼠窜女子无才便是德,赴汤蹈火w涐閅兜沒錯、只昰ド適合。。议论纷纷万般皆是命,手足重茧l我们都需要１个不坚强的理由。












http://www.43919.com,http://433a.com传奇私服,
www.39ms.com减肥网,www.71TL.COM天龙八部私服
www.ms19.com魔兽世界私服,www.B5S5.COM左旋肉碱
www.LE76.COM广州开发票,www.WUQIJI.COM奇迹私服
www.04my.com魔域私服,www.zx40.com诛仙私服
www.939a.com小游戏

ABC_84

确实不错，眼前一亮的好文












荆沙最炫网页游戏 仁寿微变传奇私服 兴文蜀门sf网站 辽阳永恒之塔论坛 惠民神魔大陆发布网