密码生成器在线,密码生成器app _密码

文章插图
谁知道密码生成器，的原理和编程：

文章插图
类似于认证码吗？如果是这种的其实就是一个算法例如注册码：假如我知道用户电脑的cpu型号为1234---》然后根据一个计算得到一个数据
注册码要求获取到的数据是唯一的要不然就没意思了。什么是唯一的有很多我这里不多说自己可以想想。。我写个代码把
function GetResult(userinfo)
{
return md5(userinfo);
}
//利用md5加密得到一个数据目前来说md5可以被暴力破解。所以可以考虑加盐+干扰
function GetResult(userinfo)
{
return md5(userinfo."123456");
}
这样加密出来的东西就很难被破解，这只是简单的例子。。这个东西原理很简单，要做一个好的还是需要一点算法的更多追问追答追问首先谢谢你，你理解错我的意思了，我主要目的是为了能做一个软件类似这样的，我要求就是，一组8位或7位的数字，把它们中4位一组不重复能出多组和每组的具体数字，就是排列组合，，我不会想换个方式就像密码字典一样，暴力破解追答原理就是这个原理循环+判断+截取然后得到你要的具体你可以自己尝试追问谢谢，我打字表达不好，那个问题我采纳了，方便给留个联系方式，告诉我您什么时候方便我联系您，十分感谢
密码生成器是什么?：

文章插图
随机生成一组密码,一般来说很安全
,
因为它们包括大小写字母，数字，符号，并且完全没有规律
一般来说黑客要破这种密码需要2年以上…………
但是没有听说可以该文字...也许跟版本有关系.
求这样一个密码生成器，重谢：

文章插图
没有啊,..
卡号密码生成器主问题贴：

文章插图
名称代码+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)
Next
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
Next
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
Next
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
bat密码生成器代码我要四位随机生成的代码注意是bat：

文章插图
@echooff&setlocalenabledelayedexpansion
title随机密码生成脚本By依梦琴瑶
::设置要生成的位数
setws=4
echo%ws%位数随机密码生成中。。
setstr=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
for/l%%ain(1,1,%ws%)do(
set/anum=!random!%%62
callsetzf=%%str:~!num!,1%%
setpw=!pw!!zf!
ping127.0.0.1-n"1">nul
)
echo,&echo%ws%位数随机密码!pw!