VB程序加密.pdfVIP

vb加密:VB程序加密 疯狂代码 http://CrazyC/ ĵ http:/CrazyC/VisualBasic/Article15197.html 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上，这样即使别人翻遍你的硬盘也一无所获。 现 在很多网站都提供免费个人主页空间，这无疑为你存放密码提供理想场所，你需要在网页某处放置一文本，或 者将网页某处的文本当作密码。这样，只要能访问到该网页，就可以用关键字搜索到该段字符串。 假设你的主 页为 /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=\" /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文档，不会发生错误，而会返回一些代码，不同的服 务器返回的代码可能不同。 2008-9-25 1:37:06 疯狂代码 http://CrazyC/