[按键精灵]密码生成器源码讲解（按键精灵代码加密）

大家好，我是郭立员，今天是一篇密码生成器源码讲解的教程

一、效果演示：

二、源码分享

UI.NewLayout ("密码生成器")
UI.AddTextView("密码生成器", "文字框1", "密码组合：") 
UI.NewRow("密码生成器", "new_row_1")
UI.AddLine ("密码生成器", "line_1")
UI.NewRow("密码生成器", "new_row_1")
UI.AddCheckBox("密码生成器", "多选框1","数字", false)
UI.AddCheckBox("密码生成器", "多选框2","大写字母", false)
UI.AddCheckBox("密码生成器", "多选框3","小写字母", false)
UI.NewRow("密码生成器", "new_row_1")
UI.AddCheckBox("密码生成器", "多选框4","自定义字符", false)
UI.AddEditText("密码生成器", "输入框1", "",250) 
UI.NewRow("密码生成器", "new_row_1")
UI.NewRow("密码生成器", "new_row_1")
UI.AddTextView("密码生成器", "文字框1", "数量设置：") 
UI.NewRow("密码生成器", "new_row_1")
UI.AddLine ("密码生成器", "line_1")
UI.NewRow("密码生成器", "new_row_1")
UI.AddTextView("密码生成器", "文字框2", "密码长度") 
UI.AddEditText("密码生成器", "输入框2", "6",154) 
UI.AddTextView("密码生成器", "文字框3", "生成数量") 
UI.AddEditText("密码生成器", "输入框3", "1",154) 
UI.NewRow("密码生成器", "new_row_1")
UI.AddButton("密码生成器", "按钮1", "生成",630,100) 
UI.NewRow("密码生成器", "new_row_1")
UI.NewRow("密码生成器", "new_row_1")
UI.AddEditText("密码生成器", "结果显示", "",630,300) 
UI.NewRow("密码生成器", "new_row_1")
UI.NewRow("密码生成器", "new_row_1")
UI.SetOnClick("按钮1", 生成)
UI.Show ("密码生成器")




Function 生成()    
    Dim 库
    Dim 数字= UI.GetValue("多选框1")
    If 数字["多选框1"] Then 
        库 = 库&"0123456789"
    End If    
    Dim 大写= UI.GetValue("多选框2")
    If 大写["多选框2"] Then 
        库 = 库&"abcdefghijklmnopqrstuvwxyz"
    End If      
    Dim 小写= UI.GetValue("多选框3")
    If 小写["多选框3"] Then 
        库 = 库&UCase("abcdefghijklmnopqrstuvwxyz")
    End If    
    Dim 自定义= UI.GetValue("多选框4")
    If 自定义["多选框4"] Then 
        Dim 自定义字符= UI.GetValue("输入框1")
        库 = 库&自定义字符["输入框1"]
    End If    
    TracePrint 库 
    If 库 = null Then 
        TracePrint 库
        ShowMessage "未勾选密码组合"
    End If    
    Dim 数量 = UI.GetValue("输入框3")
    TracePrint 数量["输入框3"]
    Dim 长度 = UI.GetValue("输入框2")
    TracePrint 长度["输入框2"]
    Dim 结果 = {null}
    For i = 1 to 数量["输入框3"]
        Dim 随机字符 = ""
        For 长度["输入框2"]
            Dim 随机数 = int(len(库)*Rnd()+1)
            随机字符 = 随机字符 & mid(库,随机数,1)
        Next
        结果[i] = 随机字符
    Next
    TracePrint join(结果,"|")
    UI.SetEditText ("结果显示", join(结果,"\n"),630,300)     
End Function

三、原理讲解

关于动态界面部分的代码就不说了，按照自己喜欢的样子搭建就行，重点说说随机字符的生成部分。

（1）随机库的构建

所谓随机库就是生成随机字符的来源，比如我们这个例子中，随机的可能性有数字、大写字母、小写字母和自定义的字符。

把所有随机的可能性拼接在一起就得到随机库了。

0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ

（2）随机数的范围

所有随机相关的操作，本质上都是由随机数控制的，那么本次案例中随机数的范围是1-随机库的字符数，如果随机库有100个字符，那么随机数的范围就是1-100。

（3）得到单一随机字符

在得到一个有效的随机数后，把它当做随机库中每个字符的编号，这样就可以得到一个随机的字符。

（4）获取随机字符段

重复执行获取单一随机字符，把多个随机字符拼接在一起就是随机字符段，通过控制重复的次数，就可以指定随机字符段的长度了。

（5）生成多个随机字符段

重复执行获取随机字符段的操作，注意每次生成前先清空上一次的生成结果。

写到这里简单的随机字符就写完了，下面做一些延展：

（1）生成首字母的随机字符

（2）去掉接近的字符，比如0和o，1和L，为了防止生成的随机字符对于使用者有干扰，可以去掉这些字符。

像这些扩展功能，其实就是调用不同的随机库，比如首字母，就是第一个随机数调用的随机库是字母，同理去掉接近字符是在随机库里面去掉这些字符。

=正文完=