我爱电脑技术论坛 » 原创作品专区 » 用vbs写的短小精悍的字典生成器

476304467 发表于 2008-5-3 18:12

用vbs写的短小精悍的字典生成器

用vbs写的短小精悍的字典生成器
O ?~R4W6l.L$R 'code by lcx ,很好,很强大,很黄很暴力,很傻很天真,很zd很cnn
q-d6r[}]Pp y8X '这个程序是算不同数字与字母的所有排列组合,当然可以做为字典生成器来用.如需不同组合,只需改本程序a和b的变量即可以.&bysvH:T _2?
'use:cscript this.vbs > dic.txt　8AVK,h#z9ir
U'pK
a=Array(1,2,3,4,"a")+m/C)na6@6]m
Function js1(n):[
w&l1lw7R
e7YJY
for i=1 to nR+qU2Y+m0s9Y
f=f&"f"&i&"&"` {+A/F2_/k1r`c
s=s&"For Each f"&i &" In a :wscript.echo "& f
m(j1f6Q [d a$Wd s=Mid(S,1,Len(S)-1)&":"
z"z;K!tTWZl Next
H[`|5Qo1n js1=s
&fiW vh Q:dc End Function
^c5a#w3t@x
&Ay)r/v$o Function js2(n)
1]!a:pN2U for i=1 to n
8g+J d5fA m=m & "Next" & ":"9p[}5d7q-m3h%Fs
Next

?.THu1C`^0}S js2=m
(Q@
Kk/_U End Function
? e0qf7H(r8mV K0] 7F8gF"x-Y
lcx= js1(UBound(a)+1)&js2(UBound(a)+1)0aC_ G[){
lcx=Mid(lcx,1,Len(lcx)-1)!df-V0MBYm w Y
k
b="a=Array(1,2,3,4,""a""):"&lcx
tLy8K6@0d
x_ G"bfB} cK7T7e&| Execute b

476304467 发表于 2008-5-3 18:13

为什么我的原创没人顶哈 我很博爱的 关于IT的我都去接触的 你们想看什么原创作品 我下次发下你们喜欢的

surf1014 发表于 2008-5-3 18:47

呵呵,佩服了
H4Fy)S F9M-L+Q :)12) :)12) :)12)

璐╰☆╮簬 发表于 2008-5-4 17:46

这么厉害!!因该为咱论坛开发几个软件!!呵呵

xwx 发表于 2008-5-9 15:41

多谢代码，试一下

空楼吹雪 发表于 2008-6-26 05:31

嗯，好，不错，支持。

查看完整版本: 用vbs写的短小精悍的字典生成器