随机字符串生成程序

这个小工具的用途十分明确,就是生成指定位数的随机字符串(范围:A-Z、a-z、0-9)。

随机字符串生成随机字符串生成2

首先需要两个TextBox控件,以及Button控件。

具体的核心部分源代码如下:

Dim n As Integer
n = Val(TextBox1.Text) '获取文本框信息

'================载入字符开始===================
Dim a(52) As String
Dim j, k, l As Integer
j = 48
k = 65
l = 97
For i = 0 To 9 Step 1
  a(i) = Chr(j)
  j = j + 1
Next
For i = 10 To 26 Step 1
  a(i) = Chr(k)
  k = k + 1
Next
For i = 27 To 52 Step 1
  a(i) = Chr(l)
  l = l + 1
  Next
'=================载入字符结束==================

'生成随机字符串
Dim pwdstr(n - 1) As String
Dim pwd As String
For i = 0 To n - 1 Step 1
  Randomize()
  pwdstr(i) = a(Int(Rnd() * 52) + 1)
Next
For i = 0 To n - 1 Step 1
  pwd = pwd & pwdstr(i)
Next

在Windows8+Visual Studio  Express 2012 for Windows Desktop环境下编译通过。

对于自动复制剪贴板功能由如下代码实现:

My.Computer.Clipboard.Clear()
My.Computer.Clipboard.SetText(TextBox2.Text)
Label2.Text = "已复制字符到剪贴板,按Ctrl+V粘贴"
已编译的程序下载:
passwdout(需要.net运行环境)

发布者

《随机字符串生成程序》上有10条评论

  1. 好吧,我承认我弱爆了,我竟然没看懂你你的a到底是什么,我不是用这种方法实现的随机生成

    Google Chrome 28.0.1500.71 Google Chrome 28.0.1500.71 Windows 7 x64 Edition Windows 7 x64 Edition
    1. 嘛,一种很笨的方法,具体原理就是建一个数组,然后将ASIIC表中A-Z,a-z,0-9载入这个数组,接着用随机数生成的方法生成数组的数字,最后再将数组中对应数字的字符输出。

      Internet Explorer 10.0 Internet Explorer 10.0 Windows 7 Windows 7
            1. 嗯,对于计算机来说运行速度足够快。但是在一些平台上就不得不考虑算法的优化了。

              Google Chrome 28.0.1500.72 Google Chrome 28.0.1500.72 Windows 7 Windows 7

发表评论

电子邮件地址不会被公开。 必填项已用*标注