vb给现有软件加密码保护

能不能使用vb给现有软件加密码
就是打开前要输入密码
能否写出代码和操作 原理..
谢谢

Private Sub Command1_Click()
Dim i&, AddCode&, Ans$
'将text3中的字符逐个取,并把们们的unicode码加和,用于加密
For i = 1 To Len(Text3.Text)
AddCode = AddCode + AscW(Mid(Text3.Text, i, 1))
Next
'将需要加密的text1中每文字的unicode码加上addcode,并用"%",
For i = 1 To Len(Text1.Text)
Ans = Ans & "%" & CStr(AddCode + AscW(Mid(Text1.Text, i, 1)))
Next
'将加密后的内容显示在text2中
Text2.Text = Ans
End Sub

Private Sub Command2_Click()
Dim temp$(), i&, AddCode&
If Text1.Text = "" Then Exit Sub
'获得解密的AddCode
For i = 1 To Len(Text3.Text)
AddCode = AddCode + AscW(Mid(Text3.Text, i, 1))
Next
'将加密的内容以%为分隔符,取出单个字符加密的编码,放于temp数组中
temp = Split(Text1.Text, "%")
'将每个加密的编码减去addcode后做为unicode码返加字符,存放于temp数组中.
For i = 0 To UBound(temp)
If temp(i) <> "" Then temp(i) = ChrW(CLng(temp(i)) - AddCode)
Next
'输出解密的内容
Text2.Text = Join(temp, "")
End Sub

实现思路告诉你吧。网上下一下密码字典，生成密码。然后，vb建个工程将txt弱口令密码逐一输入你需要输入的地方。用sendkey一般是不行的了。我以前做过，也就是个私服的扫号器

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息