设为首页收藏本站

切换到宽版

全球主机交流论坛»论坛 › 主机综合交流 › 美国VPS综合讨论 › 【分享】二字母任意组合列表

网络延迟测速工具

会员请立即修改密码

12 / 2 页下一页

发新帖

查看: 1878|回复: 14

[疑问] 【分享】二字母任意组合列表

发表于 2020-10-27 09:26:19 | 显示全部楼层 |阅读模式

复制代码

回复

发表于 2020-10-27 09:32:11 | 显示全部楼层

南京扛把子发表于 2020-10-27 09:30
这有什么可分享的。。。

有些人注册域名会一个一个打

点评

高手@！发表于 2020-10-27 09:34

回复支持 1 反对 0

南京扛把子

发表于 2020-10-27 09:30:40 | 显示全部楼层

这有什么可分享的。。。

回复支持反对

南京扛把子

发表于 2020-10-27 09:40:51 | 显示全部楼层

zgs 发表于 2020-10-27 09:32
有些人注册域名会一个一个打

我竟无言以对。。。

回复支持反对

发表于 2020-10-27 09:52:20 来自手机 | 显示全部楼层

怀疑你在水惊艳

点评

你长的很惊艳发表于 2020-10-27 10:07

回复支持反对

发表于 2020-10-27 09:58:48 | 显示全部楼层

西部数码批量查询啊

回复支持反对

发表于 2020-10-27 10:06:18 | 显示全部楼层

几行代码的事

@Test
public void demo3() {
for (int i = 0; i < 26; i++) {
for (int j = 0; j < 26; j++) {
if (i != j) {
System.out.println((char) ('a' + i) + "" + (char) ('a' + j));
}
}
}
}

复制代码

回复支持反对

楼主| 发表于 2020-10-27 10:09:09 | 显示全部楼层

fastsoso 发表于 2020-10-27 10:06
几行代码的事

MJJ比我的长短少啊

<%
Dim arr,result,i,j,k,fs,kk,key
set fs=server.createobject("scripting.filesystemobject")
arr=Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z",",")
rem -----------------取所有不重复的2个字符组合-------------------------
k=-1
For i=0 To UBound(arr)
For j=0 To UBound(arr)
If i<>j then
k=k+1
If k=0 Then
ReDim result(k)
else
ReDim Preserve result(k)
End if
result(k)=arr(i)&arr(j)
End if
next
Next
fs.createtextfile(server.mappath("1.txt"),true).write Join(result,vbcrlf)
rem ------------------------------------------
rem -----------------生成k个不重复的2个字符组合------------------------
k=100
kk=0
Set result=Server.createObject("Scripting.Dictionary")
Do While kk<k
i=Int(26*Rnd)
j=Int(26*Rnd)
If i<>j And Not result.Exists(arr(i)&arr(j)) then
kk=kk+1
result.add arr(i)&arr(j),arr(i)&arr(j)
End if
Loop
If fs.FileExists(server.mappath("2.txt")) then
fs.deletefile server.mappath("2.txt")
End If
fs.createtextfile(server.mappath("2.txt"),true).write ""
For Each key in result
fs.OpenTextFile(server.mappath("2.txt"),8,true).writeline key
Next
rem---------------------------
Set fs=nothing
%>

复制代码

回复支持反对

发表于 2020-10-27 11:42:00 | 显示全部楼层

啊怎么突然都秀起代码来了，我是这样写的，方便指定字符

#!/bin/bash
## Useage: https://github.com/Har-Kuun/DomainMegaBot
### 生成字典代码
aword=(a b c d e f g h i j k l m n o p q r s t u v w x y z)
bword=(a b c d e f g h i j k l m n o p q r s t u v w x y z)
cword=(a b c d e f g h i j k l m n o p q r s t u v w x y z)
dword=(a b c d e f g h i j k l m n o p q r s t u v w x y z)
eword=(a b c d e f g h i j k l m n o p q r s t u v w x y z)
for ((i=0; i<${#aword[*]}; i++)); do
for ((j=0; j<${#bword[*]}; j++)); do
for ((k=0; k<${#cword[*]}; k++)); do
for ((l=0; l<${#dword[*]}; l++)); do
for ((m=0; m<${#eword[*]}; m++)); do
echo ${aword[i]}${bword[j]}${cword[k]}${dword[l]}${eword[m]}
done
done
done
done
done

复制代码

回复支持反对

还有一些帖子被系统自动隐藏，点此展开

12 / 2 页下一页

发新帖

Archiver|手机版|小黑屋|全球主机交流论坛

GMT+8, 2024-4-25 22:31 , Processed in 0.070318 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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