租号密码生成器--游戏账号租赁网

卡号密码生成器确定按钮代码

窗体上添加两个textbox，在text1中显示卡号、密码，以空格分开

text2输入要生成多少组号码，command1生成，command2保存文件，代码如下，

参考！

------------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

Static n As Integer

Dim x As Integer, m As Integer

Dim i As Integer, j As Integer

Dim chrRnd As String

Dim chrSpc As String

Dim chrKa As String, chrMima As String

m = Val(Text2)

For j = 1 To m

chrRnd = "": chrKa = "": chrMima = "": chrSpc = ""

n = n + 1

Randomize

For i = 0 To 9

chrRnd = chrRnd & Int(Rnd * 10) '生成10位随机码

For i = 1 To 5

flag1:

x = Int(Rnd * 75) + 48

If x > 57 And x < 97 Then GoTo flag1 '生成特殊码

chrSpc = chrSpc & Chr(x)

chrKa = chrKa & chrRnd & chrSpc & Format(n, "000000") '空格分开，这里也可不要空格，根据你的需要

chrSpc = ""

For i = 1 To 20

flag2:

x = Int(Rnd * 75) + 48

If x > 57 And x < 97 Then GoTo flag2 '生成名称

chrSpc = chrSpc & Chr(x)

chrMima = chrMima & chrSpc & Format(n, "000000")

Text1 = Text1 & chrKa & " " & chrMima & vbCrLf

End Sub

Private Sub Command2_Click()

Open "d:\卡号密码.txt" For Output As #1 '保存文件

Print Text1.Text

Close #1

End Sub

Private Sub Form_Load()

Dim item As Control

For Each item In Me

If TypeOf item Is TextBox Then item.Text = ""

End Sub

'随机生成N个数字(通用过程，请放在声明部分)

Function GetRnd(zfc As String, RndLen As Integer) As String

Dim i As Long, ZfcLen As Integer, S As String

ZfcLen = Len(zfc)

Randomize Timer

For i = 1 To ZfcLen

S = S & Mid(zfc, Rnd * (ZfcLen - 1) + 1, 1)

If Len(S) = RndLen Then Exit For

GetRnd = S

End Function

Private Sub Command1_Click() '确定按钮

Dim Num1 As String, Num2 As String

Dim i As Long, Kh As String, Mm As String

'产生要获取的密码表

For i = 48 To 57

Num1 = Num1 & Chr(i)

For i = 65 To 90

Num2 = Num2 & Chr(i)

For i = 97 To 122

Num2 = Num2 & Chr(i)

For i = 1 To Val(Text5.Text)

'名称代码+10位由0到9组成的随机码+特殊码+顺序编号 "卡号为20位<<注意：此处实际长度为26位，而你说是20位有矛盾，请自行修改>>

Kh = Kh & Text3.Text & GetRnd(Num1, 10) & Text4.Text & Format(i, "000000") & vbNewLine

'生成名称+特殊码+10位由26个字母和0到9组成的随机码+顺序编号 "密码为26位

Mm = Mm & Text3.Text & Text4.Text & GetRnd(Num1 & Num2, 10) & Format(i, "000000") & vbNewLine

Text1.Text = Kh

Text2.Text = Mm

End Sub

要一个密码批量生成器，要密码最后几位可以设置为如zzzzz的高分

试试《文件批量处理百宝箱V8.0》拓展界面中的批量随机数功能吧。选择随机数的类型和位数，然后勾选附加在后并在其后面输入待附加的内容比如zzzzz，最后单击“产生”，得到的密码随机数保存在一个txt文件中以备用。

下载地址：http://www.crsky.com/soft/26800.html

卡号密码生成器主问题贴

你这个text太多了，没啥用，2个够了！

窗体上添加两个textbox，在text1中显示卡号、密码，以空格分开

text2输入要生成多少组号码，command1生成，command2保存文件，代码如下，看看行不行，再修改！

------------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

Static n As Integer

Dim x As Integer, m As Integer

Dim i As Integer, j As Integer

Dim chrRnd As String

Dim chrSpc As String

Dim chrKa As String, chrMima As String

m = Val(Text2)

For j = 1 To m

chrRnd = "": chrKa = "": chrMima = "": chrSpc = ""

n = n + 1

Randomize

For i = 0 To 9

chrRnd = chrRnd & Int(Rnd * 10) '生成10位随机码

For i = 1 To 5

flag1:

x = Int(Rnd * 75) + 48

If x > 57 And x < 97 Then GoTo flag1 '生成特殊码

chrSpc = chrSpc & Chr(x)

chrKa = chrKa & chrRnd & chrSpc & Format(n, "000000") '空格分开，这里也可不要空格，根据你的需要

chrSpc = ""

For i = 1 To 20

flag2:

x = Int(Rnd * 75) + 48

If x > 57 And x < 97 Then GoTo flag2 '生成名称

chrSpc = chrSpc & Chr(x)

chrMima = chrMima & chrSpc & Format(n, "000000")

Text1 = Text1 & chrKa & " " & chrMima & vbCrLf

doevents

End Sub

Private Sub Command2_Click()

Open "d:\卡号密码.txt" For Output As #1 '保存文件

Print Text1.Text

Close #1

End Sub

Private Sub Form_Load()

Dim item As Control

For Each item In Me

If TypeOf item Is TextBox Then item.Text = ""

End Sub

注：编号的问题，如果下次在启动程序编号还是从1开始，这个我不会弄，所以你要一次生成足够的号码！

名称代码+10位由0到9组成的随机码+特殊码+顺序编号

=5+10+5+6

=26

你说的卡号为20位与上述具体要求不符呀。

********************************************************

下面是保存按钮的代码：

Private Sub Command2_Click()

Dim Fn As Integer, i As Integer

Dim FileName As String, a() As String, b() As String

a = Split(Text1.Text, vbNewLine)

b = Split(Text2.Text, vbNewLine)

FileName = App.Path & "\卡密.txt"

Fn = FreeFile

Open FileName For Output As #Fn

For i = 0 To UBound(a)

Print #Fn, a(i) & " " & b(i)

Close #Fn

MsgBox "文件<卡密.txt>保存完毕！", vbInformation, "恭喜你"

End Sub

'其他代码部分(Text1_Change与Text2_Change没必要增加代码，所以略去)

Private Sub Text3_Change()

Dim i As Integer, S As String

For i = 1 To Len(Text3.Text)

S = Mid(Text3.Text, i, 1)

If Not (S >= "0" And S <= "9" Or S >= "a" And S <= "z" Or S >= "A" And S <= "Z") Then

MsgBox "请输入数字或字母！", vbCritical, "出错提示"

Text3.SetFocus

End If

If Len(Text3.Text) > 5 Then

MsgBox "输入数字或字母只能是5位！", vbCritical, "出错提示"

Text3.SetFocus

End If

End Sub

Private Sub Text4_Change()

Dim i As Integer, S As String

For i = 1 To Len(Text4.Text)

S = Mid(Text4.Text, i, 1)

If Not (S >= "0" And S <= "9" Or S >= "a" And S <= "z" Or S >= "A" And S <= "Z") Then

MsgBox "请输入数字或字母！", vbCritical, "出错提示"

Text3.SetFocus

End If

If Len(Text4.Text) > 5 Then

MsgBox "输入数字或字母只能是5位！", vbCritical, "出错提示"

Text3.SetFocus

End If

End Sub

Private Sub Text5_Change()

If Not IsNumeric(Text5.Text) Then

MsgBox "请输入数字！", vbCritical, "出错提示"

Text5.SetFocus

End If

End Sub

Private Sub Command1_Click()

'名称代码+10位由0到9组成的随机码+特殊码+顺序编号 "卡号为20位并生成名称+特殊码+10位由26个字母和0到9组成的随机码+顺序编号 "密码为26位

'顺序编号是一个1-10000之间的数并且从1开始每个递增

End Sub

要达到这个要求！

顺序编号应该是一个6位数！1-100000之间的6位数！

且不足6位时，1表示为000001

100表示为：000100

类推才对！

1.热游租号 v1.0.8 安卓版

热游租号 v1.0.8 安卓版

版本号：V15.30

下载

热游租号 v1.0.8 安卓版，热游租号app拥有海量游戏账号供你挑选，无论是什么手游账号这里全都有，让你可以和朋友们一起开黑游戏，而且租号十分优惠，一键快速上号十分方便，有需要的用户赶快来下载体验吧！热游租号软件介绍热游租号专为游戏玩家提供绿色安全和优质的增值服务。随着移动互联

2.指尖租号app v2.5.0 安卓版

指尖租号app v2.5.0 安卓版

版本号：V11.18

下载

指尖租号app v2.5.0 安卓版，指尖租号app是一款安全可靠的游戏租号平台，众多网络游戏全面覆盖，用户租号价格优惠，海量账号满足玩家各种娱乐需求，快速登录体验更便捷，欢迎啦绿色资源网下载！指尖租号手机版介绍指尖租号app是为玩家提供高端账号体验服务的综合平台。致力于让玩家体验感受高级

3.九九租号平台 v1.0.0 安卓版

九九租号平台 v1.0.0 安卓版

版本号：V1.84

下载

九九租号平台 v1.0.0 安卓版，九九租号可以在这里快速租到心仪的游戏账号，拥有海量的游戏账号，你可以搜索游戏名字然后就可以出现各种账号了。平台还为大家分好区了，需要什么类型的账号直接点进分区即可。不仅可以租号，你还能在平台上售卖自己的游戏账号哦，欢迎有需要的朋友下载使用！九九租

4.虚贝租号ios版 v2.8.0 官方版

虚贝租号ios版 v2.8.0 官方版

版本号：V19.106

下载

虚贝租号ios版 v2.8.0 官方版，虚贝租号安卓版为你提供了一个实用的功能，让用户不仅可以体验到更加多样化的玩法，而且还有比较丰富的内容。众多的体验丰富的玩法都是不错的，而且还有相当多的功能为你来展示。欢迎下载！虚贝租号最新版简介：虚贝租号玩游戏是一家从事游戏租赁交易的平台，本平台

5.steam游戏优惠特权 v1.0.0 安卓版

steam游戏优惠特权 v1.0.0 安卓版

版本号：V5.15

下载

steam游戏优惠特权 v1.0.0 安卓版，steam游戏特权让你在steam平台上的游戏都免费畅玩，低价特租账号让你想玩什么就玩什么。游戏分类众多，你可以随意查询或者检索，低至意愿就能玩到正版游戏。还有每日福利领取，你可以时刻享受优惠价格租号。每天上线热门游戏，欢迎有需要的朋友下载使用！steam游戏