怎样用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”）后回车，即可完成对文件的加密。文件加密后，可以在记事本中打开该文件查看加密效果。如果想解密，可再次运行该程序并输入相同文件名。

怎样给手机app软件加密码才能打开

可以试一下MISUO这款软件

1、misuo可以加密手机里面的图片、视频、音乐等各种类型的文件。

2、加密后的文件，在手机的任何地方都是无法看到的，只有在保险箱内才可以查看。

3、高级加密的只能在本机解密功能，让您的加密文件丢失也不怕。

怎样在手机单个程序中设置密码？

第一，打开手机界面，找到“设置”

如下图红圈

2

第二，选择设置-常规-安全服务

第三，选择安全服务-程序加密

第四，把程序档如瞎加密，右边的开关打开

第五，开关打开，d出加密菜单模式选择菜单

这里选择的是“密码解锁”

当然你也可以设置“图案解锁”

第六，选择“密码解锁”,d出密码设置窗口

会提示你输2密码

确认一次

第七，密码设置完成后，在程序加密界面

点击按钮“加密程序”

第八，选择你没有加密过的程序

第九，这样你所选择的程序，都会以你刚才设置的“密码”做为加密

第十，现在去试一下吧

在手机界面，找到QQ程序，点击图标后，会d出让你输入密码的窗口

十一，输入密码后才会进入登录界面

同样的，你用同样的方法，可以把短信查询设置一个密码

这样，就算手机丢失后，他用手机验证码找回也是个问题

苹果手机怎么把程序设置密码

现在好像只有短信，与屏幕才能有密码一般程序打开都不设置密码的。应用程序设置密码不越狱现在是做不到。

华为手机怎么设置软件密码

您好，您可进入手机管家--更多--应用锁，进行密码设置即可。提前祝您新年快乐。

OPPO手机怎么把程序设置密码呢？

桌面上有个安全中心，点开有程序加密，然后设置密码，最后选择需要加密的程序。吼吼

手机被软件设密码了，怎么办

方法一：ADB解锁

必要条件：USB调试模式为打开状态

1、手机连接电脑，确定已安装ADB驱动（手机驱动可通过驱动精灵安装），解压ADB工具包至C盘

2、行空打开cmd输入 cd c：\adb（打开adb所在目录）

3、接着输入adb shell

4、继续输入cd data\system

5、输入ls查看data\system中的文件，如果设置了密码会有gesture.key或者password.key

6、若设置的是图案密码请继续输入命令：rm gesture.key，若设置的是单纯密码请输入命令：rm password.key

7、输入reboot命令或者手动重启手机生效，或者现在直接滑动解锁，任意密码都可解锁，建议重启。

方法二：Google账号解锁

必要条件：被锁机器之前设置、登录了google账号，账号密码已知，且手机可以联网。

1、随意5次输入密码，系统提示5次输入错误，30秒后重试；

2、此时解锁界面下方会提示“忘记密码”，点击输入之前设置过的Google账号和密码即可立即解锁。

方法三：清空数据解锁

优点：无任何限制条件，适用于没有重要资料的用户。

1、关机状态下同时按住音量上键+开机键，进入Recovery。

2、依次选择清空数据-清空用户数据，重启进入系统，此 *** 作只删除用户数据，软件得以保留。

相关链接：手机怎么恢复出厂设置 安卓手机恢复出厂设置方法汇总

实测

1、设置Google账户，在联网情况下验证

设置Google账橡高户，在解锁界面没有“忘记密码”选项，只有在5次输错后才会提示，点击并输入账号密码，可清除锁屏密码，此时如手机没有联网，则不能登陆解锁。

如不点击“忘记密码”，连续错误输入20次后，登陆界面自动d出，此时只有登陆Google账户才能立即解开，重启后仍是此登陆界面，如登陆账户，效果同样是清除了登录密码。

2、无Google账户情况下测试

连续输错5次后没有“忘记密码”图标，继续错误输入，直至25次，仍仅提示30S后重新输入。

总结与体会

1、方法一要求打开u *** 调试，且手机已获得root权限；方法二要求设置了已知的Google账户，且手机可以联网。方法三没有要求，但是是一种暴力解锁。

相关知识点：u *** 调试在哪 安卓手机u *** 调试开关开启方法

2、定期对重要信息做备份，以防各种意外；设置锁屏密码后关闭USB调试，防止别人用以上方法破解密码窃取个人信息；一定要在本机上设置同步Google账号，同时开启网络。

OPPO手机怎样设置软件密码

手机程序密码的设置方法：

1、ColorOS 3.0版本，手机管家-权限隐私-应用加密，设置一个密码，添加应用程序；

2、ColorOS 2.1版本，进入安全中心--权限隐私--程序加密；

3、其他ColorOS版本，进入设置--安全服务--程序加密--短信；

4、其他版本，进入安全中心--程序加密--加密程序选择信息即可。

苹果手机怎么设置程序密码

可以下载个程序锁就可以了

你好，请问vivo手机怎么给软件设置密码

可以在手机i管家--软件管理--软件锁将相应软件加密即可。

百度手机卫士怎么给手机软件加密码

这个软件没有给软件加密的功能，可用360手机卫士实现，步骤如下：

首先要打开手机安装的360卫士；

在界面上找到右下角的隐私保护的位置点击。这样给手机设置有关的隐私保护内容；

隐私保护界面上，找到这里的隐私空间打开，在这里面进行设置

这时候会让自己绘制要设置的隐私空间手势密码，并且要输入两次，因为是为了防止误 *** 作，当然这里的手势密码大家根据需要自己需要设置

隐私空间的这个界面上点击程序锁，加密保护手机的有关应用

在未加锁程序中点击一下要加锁的程序。可以给需要的软件或应用进行密码锁的设定即可

如果不想给这个程序加锁的话，再次点击即可，这样可以取消这个程序的密码锁设定。

---