怎样用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盘根目录下任意建立一个文本文件（假设为文件名为aaatxt），其中的内容任意（可以包括字母、汉字、数字、回车符、换行符等）。运行本程序后，在输入文件名的对话框中输入文件名（如：“C:\aaatxt”）后回车，即可完成对文件的加密。文件加密后，可以在记事本中打开该文件查看加密效果。如果想解密，可再次运行该程序并输入相同文件名。

具体 *** 作流程如下：

1、给电脑中的文件加密最简单的一个方法就是利用你电脑的 *** 作系统自带的功能来进行设置，也就是EFS加密功能。不过这个功能对硬盘是有一定的要求的，那就是硬盘的分区格式必须是NTFS，不是这个格式的话需要改一下才可以使用加密功能。下面是具体的 *** 作方法。首先要选择需要加密的文件，点击选择“属性”，再选择“高级”，找到“压缩或加密属性”，在“加密内容以便保护数据”选项前面打钩，这样这个文件就被加密了。这时候这个文件的名字是蓝色的，其他使用你电脑的人是无法查看文件内容的。

2、上面这种方法还是有一定的危险性的，那就是如果其他人用主人的账户进入的话还是可以查看的。那么想要保密性高，可以采用第三方加密工具，也就是利用压缩工具来给文件加上密码。常见的压缩工具有WinRAR等，我们就以这个压缩工具为例来介绍一下具体的方法。在需要加密的文件上点击，然后选择“添加到压缩文件”，再找到“高级”标签页，里面有一个“设置密码”，点击就会d出一个对话框，在对话框中输入密码就可以对相应的文件进行加密了，密码自己要记住哦!

3、除了以上的两种方法之外，在网上还可以找到不少可以给文件加密的第三方工具，不过这些工具很多都是试用版，或者是一些要花钱购买的，有些用一段时间就不能用了。大家如果想用这类加密软件的话，那么可以自己去网上搜一下，使用方法一般都很简单。

#include<stdioh>

#include<stdlibh>

main()

{

int key;

char ch;

printf("\n请输入密钥：");

scanf("%d",&key);

printf("得到对应明文如下：");

while((ch=getchar())!='\r')

(ch+key)>122putchar(ch-122+33+key):

((ch+key)<33putchar(ch+122+key):putchar(ch+key));

}

输入输出如下：

请输入密钥：20addse

得到对应明文如下：uxxy

你先输入一个任意的整数，如20，然后在键盘上输入一段任意的字符如addse

按回车键结束，就会得到结果 如：uxxy

下面是另一组输入输出：

请输入密钥：35asjRYIRER!@#$^^&

得到对应明文如下：+=4u#luhuDcFG((MI-

具体是如何加密，你应该能看懂，就是用一个三目运算符 :控制。

步骤如下：

1、打开OPPO R9手机自带的手机管家，点击权限隐私，进入程序加密。

2、默认是没有开启应用加密，点击进入就可以选择自己想要加密的应用程序。

3、选择需要加密的程序以后，点击下方开始加密，然后绘制加密图案，用来开启加密，还需要设定忘记密码安全重置问题。

4、设置完成后加密就完成了。

随着智能手机越来越普及，加上现在很多个人信息变得透明化，用户们的安全意识逐渐加强。OPPO R9搭载的Color OS 30系统对于程序加密 *** 作变得麻烦了，但是在麻烦的同时，它能给用户们带来更高级的安全保护。

程序密码的设置方法：

1

手机设置--个人及安全（安全与隐私）--程序保护（程序加密）

2

打开程序保护（程序加密）开关--设置一种加密方式--点击加密程序

3

选取要加密的程序即可，取消也是相同的路径，关机程序保护（程序加密）开关。

备注：coloros

20系统直接在桌面点击安全中心应用进入后，即可看到程序加密选项。

用金刚加密码锁吧！它应该能满足你的要求！我就是用它的！

>

以上就是关于怎样用VB编写一个文件加密程序全部的内容，包括:怎样用VB编写一个文件加密程序、如何给文件加密、简单的C语言加密程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！