再谈VB程序的加密

owen800q

1.让软件只能在软盘上运行
    利用App对象的Path属性返回可执行文件的路径进行判断。
    Private Sub Form_Load()
    Dim a As String
    Dim b as String
    a=App.Path 获得可执行文件的路径
    b=Left(a,1)  取出第一个字符If b<>"A"
    Then MsgBox "本软件只能在软盘运行！":End
    End Sub
    2.在Internet上放置你的密码
    哇，没有搞错吧，放在网上也叫密码？没错！把密码放到网上可能更安全些。Office2000还没出来微软就声称要让用户在网上注册，以后还可能把office搬到网上实现真正的网上办公。如果您制作的是网络软件，不妨干脆把密码放到Internet上，这样即使别人翻遍你的硬盘也一无所获。
    现在很多网站都提供免费个人主页空间，这无疑为你存放密码提供理想场所，你需要在网页某处放置一文本，或者将网页某处的文本当作密码。这样，只要能访问到该网页，就可以用关键字搜索到该段字符串。
    假设你的主页为www.home.com/mypage.htm在该页上有一文本mypassword:1234其中“mypassword:”是关键字，“1234”是密码。关键字与密码相连，主要用于确定密码的位置。注意关键字在网页的唯一性，以免判断密码位置发生错误。
    右键单击工具栏，在弹出的菜单中选择部件，在控件中选择Microsoft Internet Transfer Control 6.0，单击确定。双击工具箱中新出现的Inet图标，在启动窗体中加入Internet Transfer控件Inet1 。如果你是电话拨号上网，请使用该控件的缺省属性；如果在Intranet上，可能需要提供代理服务器才能连接到Internet上，特别是有防火墙的Intranet，需将AccessType属性设置为icNamedProxy（2），再加入代码Inet1.Proxy="myProxyName"。
    在程序中加入以下代码：
    Private Sub Form1_Load()
    Dim lo As Variant
    Dim text As String
    Dim p1 As Long
    Dim p2 As Long
    Dim p As String
    Dim website As String
    website="http://www.home.com/mypage.htm"
    Open ("c:\password.txt") For Output As ＃1       建立文本文件放置HTML文档
    Write ＃1,Inet1.OpenURL(website)    调用OpenURL方法返回指定的HTML文档，在打开的文件里写入该文档的源代码，如果检测到未与网络连接则自动弹出拨号连接窗口，连接后程序才继续运行。
    Close ＃1
    Open "c:\password.txt" For Binary As ＃2     
    打开文件准备查找关键字
    lo=LOF(2)  获取password.txt的大小
    text=String(lo," ") 设定text的长度
    Get ＃2,1,text 将整个文件读入字符串变量
    p1=InStr(1,text,"password:")
    查找关键字password在文件中的位置
    If p1=0 Then MsgBox "该文件未存放密码":End
    找不到关键字则函数返回0值
    p2=p1＋Len("password") 计算密码的位置
    p=Mid(text,p2,4)
    取出4位数的密码，注意p2须定义为Long
    Close ＃2
    Kill("c:\password.txt")
    密码已取出，删除临时文件
    a=InputBox("请输入密码")
    If a<>p Then MsgBox "密码错误":End
    End Sub
    注意如果联系不到服务器或找不到指定的HTML文档，不会发生错误，而会返回一些代码，不同的服务器返回的代码可能不同。

owen800q

自己沙发。。。。。。。。

cbqandlws

可以这样做，但最好在网页上面再搞个MD5加密后的文本作为密码

萧萧☆秋雨

学习 一下。

咗手牵你

我靠 ！

（此回复虽有且仅有两个 字，却深刻地表达了回复人的深深的祝福与刻骨的情感，可谓言简意赅，一字千金，字字扣人心弦，字字催人泪下，足可见回复人扎实的文字功底和信手拈来的写作技巧及惨绝人寰的创新能力。实是佩服佩服！再加上以感叹号收尾，点睛之笔，妙笔生花，意境深远，照应前文，升华主题，把回复人的感情表达得淋漓尽致，给人无限感动和惆怅，有浑然天成之感，实乃回复中之极品，祝福中之绝笔。）

小缺

看不懂！求源码！！