关于：Dimの话题！

11421

VBS 16进制验证特定字符

我是止水发布于 2011-01-11 23:22
收藏验证代码字符复制修改 slz Dim ScriptFullName

复制代码代码如下: '验证字符：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject("Adodb.Stream") slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 slz.Loadfromfile file Bin=slz.read(18) if AscB(MidB(Bin,12,1))=&H..

11267

vbs字符串分割函数

相思入骨发布于 2010-11-28 21:35
收藏代码复制 sSource iLong sJoiner Dim Function CutAndJoin

复制代码代码如下:Function CutAndJoin(sSource, iLong, sJoiner) Dim I, N N = Len(sSource) / iLong If(N <> Fix(N))Then N = Fix(N) + 1 For I = 0 To N - 1 CutAndJoin = CutAndJoin & Mid(sSource, I * iLong + 1, iLong) & sJoiner Next If(..

11359

VBS 生成不重复随机数代码[0-10]

胡不乖发布于 2009-12-23 23:33
收藏代码随机数生成重复更新时间复制作者 dim

复制代码代码如下:dim Z(10),i for i=0 to 10 Z(I)=GetRnd(i-1) WScript.Echo (Z(i)) NEXT Function GetRnd(n) Dim i,X Randomize X=CInt(10*Rnd() ) For i=0 To n If X=Z(i) Then X=GetRnd(n) Exit For End If Next GetRnd=X End Function ..

11370

ie7 0day当中的shellcode的escape+xor21加密

宁夜空发布于 2008-12-12 14:09
收藏加密更新时间作者 Asc Chrw Dim Len UCase

<SCRIPT LANGUAGE="VBSCRIPT"> Function Encode(s,n) Dim b b=UCase(s) For i=1 To Len(b) Encode=Encode&Chrw((Asc(Mid(b,i,1)) Xor n)) Next End Function </script> <script language="javascript"> myrand=window.prompt("url:","http:https://..

11285

算阶乘的vbs小程序

纪念我们的曾经i 发布于 2008-08-17 12:11
收藏 ans dim msgbox inputbox

dim n,ans,i n=inputbox("n(0<=n<=170)=") ans=1 for i=1 to n ans=ans*i next msgbox(ans)

新手任务

提出你的第一个问题

回答一个你擅长的问题

对内容进行点赞或者收藏

阅读声望与权限的规范

完善个人资料

广告位促销，月曝光三千万，10 元/天

关于：Dimの话题！

标签动态

技术问答

专栏文章

云+社区

云+市场

技术讲座

标签百科

VBS 16进制验证特定字符

vbs字符串分割函数

VBS 生成不重复随机数代码[0-10]

ie7 0day当中的shellcode的escape+xor21加密

算阶乘的vbs小程序

关于：Dimの话题！

相关话题

推广链接

排行榜

热门话题