sqjf.net - 商丘捷飞
联系电话: 0370-2880767 传真:0370-2153755
手机:13592380370(曹先生|商丘) hcd@yeah.net
13530751227（殷先生|深圳） stonecliz@139.com
手机:13592380370(曹先生|商丘) hcd@yeah.net
13530751227（殷先生|深圳） stonecliz@139.com
留言我们
最新客户
免费电话
捷飞公告: 捷飞全动态建站,每个细节都能自行修改!特别提示：捷飞3G建站，手机上的有力宣传工具，1000元超低价起！
首页 >> 实用工具 - 最快最详尽的域名归属查询
- ...
- 作者：发表于：2009-6-12 点击：320 评论：0 查阅全文...
- 自定义VBS变形加密
- Function Encode(x) Dim n n=Document.all.n.value For i=1 to Len(x) Encode=Encode & hex(asc(mid(x,i,1)) xor n)'加密 Next End Function Function NC(x) Dim n n=Document.all.n.value For i=1 to Len(x) Step 2 NC=NC & Chr(CLng("&H" & Mid(x,i,2)) Xor n)'解密 Next End Function Sub enc() s=""+vbcrlf+"Function DC(x)"+vbcrlf+"For i=1 to Len(x) Step 2"+vbcrlf+"DC=DC & Chr(CLng(""&H"" & Mid(x......
- 作者：发表于：2009-6-12 点击：38 评论：0 查阅全文...