1. 首頁 > 生活百科 > >

密碼生成器在線,密碼生成器app

生活百科密碼


密碼生成器在線,密碼生成器app

文章插圖
誰知道密碼生成器，的原理和編程：
密碼生成器在線,密碼生成器app

文章插圖
類似于認證碼 嗎？如果是這種的其實就是一個算法例如注冊碼：假如我知道用戶電腦的cpu型號為1234---》然后根據一個計算得到一個數據
注冊碼要求獲取到的數據是唯一的要不然就沒意思了 。什么是唯一的有很多我這里不多說自己可以想想 。。我寫個代碼把
function GetResult(userinfo)
{
return md5(userinfo);
}
//利用md5加密得到一個數據目前來說md5可以被暴力破解 。所以可以考慮加鹽+干擾
function GetResult(userinfo)
{
return md5(userinfo."123456");
}
這樣加密出來的東西就很難被破解，這只是簡單的例子 。。這個東西原理很簡單，要做一個好的還是需要一點算法的更多追問追答追問首先謝謝你，你理解錯我的意思了，我主要目的是為了能做一個軟件類似這樣的，我要求就是，一組8位或7位的數字，把它們中4位一組不重復能出多組和每組的具體數字，就是排列組合，，我不會想換個方式就像密碼字典一樣，暴力破解追答原理就是這個原理 循環+判斷+截取 然后得到你要的具體你可以自己嘗試追問謝謝，我打字表達不好，那個問題我采納了，方便給留個聯系方式，告訴我您什么時候方便我聯系您，十分感謝
密碼生成器是什么?：
密碼生成器在線,密碼生成器app

文章插圖
隨機生成一組密碼,一般來說很安全
,
因為它們包括大小寫字母，數字，符號，并且完全沒有規律
一般來說黑客要破這種密碼需要2年以上…………
但是沒有聽說可以該文字...也許跟版本有關系.
求這樣一個密碼生成器，重謝：
密碼生成器在線,密碼生成器app

文章插圖
沒有啊,..
卡號密碼生成器主問題貼：
密碼生成器在線,密碼生成器app

文章插圖
名稱代碼+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：
密碼生成器在線,密碼生成器app

文章插圖
@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!

推薦閱讀