找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 文档 工具 设计
查看: 155|回复: 0

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

[复制链接]

1万

主题

804

回帖

2万

积分

超级版主

教育辅助界扛把子

附加身份标识
精华
1
热心
2
听众
1
威望
57
贡献
11556
违规
0
书币
5264
注册时间
2020-4-8

论坛元老灌水之王

发表于 2020-11-24 01:46 | 显示全部楼层 |阅读模式
作者:lcx
来源:vbs小铺


'code by lcx ,很好,很强大,很黄很暴力,很傻很天真,很zd很cnn
'这个程序是算不同数字与字母的所有排列组合,当然可以做为字典生成器来用.如需不同组合,只需改本程序a和b的变量即可以.




[Visual Basic] 纯文本查看 复制代码
'use:cscript this.vbs > dic.txt 
a=Array(1,2,3,4,"a") 
Function js1(n) 
for i=1 to n 
f=f&"f"&i&"&" 
s=s&"For Each f"&i &" In a :wscript.echo "& f 
s=Mid(S,1,Len(S)-1)&":" 
Next 
js1=s 
End Function 
Function js2(n) 
for i=1 to n 
m=m & "Next" & ":" 
Next 
js2=m 
End Function

lcx= js1(UBound(a)+1)&js2(UBound(a)+1) 
lcx=Mid(lcx,1,Len(lcx)-1) 
b="a=Array(1,2,3,4,""a""):"&lcx

Execute b
Great works are not done by strength, but by persistence! 历尽艰辛的飞升者,成了围剿孙悟空的十万天兵之一。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 需要先绑定手机号


免责声明:
本站所发布的第三方软件及资源(包括但不仅限于文字/图片/音频/视频等仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢某程序或某个资源,请支持正版软件及版权方利益,注册或购买,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To: admin@cdsy.xyz

QQ|Archiver|手机版|小黑屋|城东书院 ( 湘ICP备19021508号-1|湘公网安备 43102202000103号 )

GMT+8, 2024-3-29 22:14 , Processed in 0.042542 second(s), 31 queries .

Powered by Discuz! CDSY.XYZ

Copyright © 2019-2023, Tencent Cloud.

快速回复 返回顶部 返回列表