请问如何用VB编密码输入程序?

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

由于网上需输密码的情况越来越宽让多,以及木马等窃取密码的情况时有发生,我想到用VB编一个密码输入程序,在需输入密码等隐私资料时,可以通过这个程序输入,避免因键盘输入而造成密码被盗的现象,但因我初学VB,现有一个问题求助,即如缓悄何将该程序的焦点移至网页上的密码框内并输入字符,多谢指教.

解析:

输入总是能够被监视到的，我认为你应该做这样的一个程序：

1、生成一个键盘的界面，要随机排放按键的位置（模拟QQ）

2、一个复制按钮

3、一个文本框

4、一个Timer控件

程序执行步骤：

1、启动程序时生成随即键盘

2、用鼠标点击要输入的密码（此时文本框显示密码，要用*号）

3、点击复制按钮，将密码复制，同时启动Timer控件

4、将密码复制到要输入的地方

5、5秒慎哪局钟后他Timer控件清空复制的内容

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

用VB制作一个登陆框。如果你想制作个人软件，想设上帐号和密码，对了才可以使用。其实很前慧简单，我就不多说了 *** 作如下:

1.打开VB，创建两个text控件，输入帐号和密码用。

2.创建一个按钮，命名为登陆。

3.在text控件前填个Label控件提示添写帐号和密码

然后在按钮中填加以下代码，我简单的解释一下意思。

If Text1.Text = "123456" Then'当Text1内容等于123456 然后

If Text2.Text = "aaa" Then'当Text2内容等于aaa 然后

MsgBox "您成功登陆！", , "欢迎登陆"'这句是满足上面条件的时候提示登陆成功！

End If

Else

Text1.Text = "慧察答"

Text2.Text = ""

MsgBox "密码错误", , "提示"'当Text1和Text2为空的时候提示密码错误。

End If

在填加一个窗体，为Form2,让Form1帐号和密码正确时显示Form2。运行时候

Form2不显示。让1的帐号和密码正确是显示2。很简单，在按钮控件里加代码。好了，在

运行一下看看。看到没有出来了。就这么简单，在制作的时候把密码那设置为显示*号就

可以了。没旅

---