(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”)后回车,即可完成对文件的加密。文件加密后,可以在记事本中打开该文件查看加密效果。如果想解密,可再次运行该程序并输入相同文件名。
分类: 电脑/网络 >>程序设计 >>其他编程语言问题描述:
由于网上需输密码的情况越来越宽让多,以及木马等窃取密码的情况时有发生,我想到用VB编一个密码输入程序,在需输入密码等隐私资料时,可以通过这个程序输入,避免因键盘输入而造成密码被盗的现象,但因我初学VB,现有一个问题求助,即如缓悄何将该程序的焦点移至网页上的密码框内并输入字符,多谢指教.
解析:
输入总是能够被监视到的,我认为你应该做这样的一个程序:
1、生成一个键盘的界面,要随机排放按键的位置(模拟QQ)
2、一个复制按钮
3、一个文本框
4、一个Timer控件
程序执行步骤:
1、启动程序时生成随即键盘
2、用鼠标点击要输入的密码(此时文本框显示密码,要用*号)
3、点击复制按钮,将密码复制,同时启动Timer控件
4、将密码复制到要输入的地方
5、5秒慎哪局钟后他Timer控件清空复制的内容
VBS中使用的Shell.Application中ShellExecute方法详解 原创2021-08-08 12:49:12
豆汁拌咖啡
码龄12年
关注
最近在项目中偶然用到了使用VBS调用“shell.application”中的ShellExecute方法。在百度搜索一圈后发现很难找到关于这个方法的详细的中文教程。最后是在微软的官方文档中才找到了这个指令的详细英文教程。现将该方法的详细描述用中文分享给各位码友。
首先,VBS中调用该方法可以用Set Shell=CreateObject("Shell.Application")来创建对象。该方法的命令格式如下:
Shell.ShellExecute "执行命令或文件的名称", "执行命令的附加参数", "执行命令或文件所在目录的绝对路径", " *** 作", 窗口显示类型
具体解释如下:
1.执行命令或文件的名称:就是您要执行的命令或处理文件的名称。例如您想打开一个cmd指令窗口,那么这个名称就是cmd.exe。
2.执行命令的附加参数:如果您执行的命令是需要参数的,则可以将这些参数填写在这里。
3.执行命令或文件所在目录的绝对路径:填写您要执行的命令文件或要处理的文件的存储路径。如果是空则默认为当前路径。
4. *** 作:本参数有六项设定值可供选择。
设定值 中文意思 描述
edit 编辑 使用对应的编辑器打开第一个参数中输入的文件以对其编辑。
find 查找 在第三个参数指定的目录下查找第一个参数指定的文件。
open 打开 运行第一个参数中指定的文件。如果该文件不是一个可执行文件,则用相应的可以打开该文件的软件打开它。
print 打印 打印第一个参数中指定的文件。
properties 属性 列出第一个参数中指定文件的所有属性。
runas 以管理员账户运行 以管理员账户运行第一个参数指定的程序。用户账户管理系统(UAC)会提示用户确认程序以更高的权限运行或要求用户输入管理员账户的凭证。
5.窗口显示类型:这个参数用于设定在执行第一个参数中指定的程腔穗尺序时,以何种方式打开程序窗口。这是一个用数字表示不同设定值族梁的参数。具体内容如下:
设定值 描述
0 在隐藏的窗口中打开程序。
1 以正常尺寸打开窗口。如果该窗口已经最大化或最小化,则系统会自动将窗口回滚到正常状态。
2 用最小化窗口打开程序。
3 用最大化窗口打开程序。
4 以最近使用的窗口尺寸和位置打开程序窗口。激活的窗口仍然激活。
5 以当前伍高使用的窗口尺寸和位置打开程序窗口。
7 以最小化打开程序窗口。当前激活的窗口仍然激活。
10 以打开程序默认的窗口尺寸打开程序窗口。
应用实例:本例子是使用ShellExecute方法调用“C:\Windows\System32\cmd.exe”控制台程序来添加用户。用户名称为username,密码为password。以管理员账户运行。
Set Shell=CreateObject("Shell.Application")
Shell.ShellExecute "cmd.exe", "/k net user username password /add", "C:\Windows\System32\", "runas", 1
点击阅读全文
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)