当前位置：首页 -> 技术开发 -> 程序开发 -> VB程序加密的两种方法

VB程序加密的两种方法

时间： 2021-07-31 作者：daque

广西谢兴修 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文书档案，不会爆发缺点，而会归来少许代码，各别的效劳器归来的代码大概各别。

VB程序加密的两种方法

相关推荐

推荐下载

热门阅览

最新排行