char = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Redim num(len(char)-1)
for x=0 to len(char)-1
num(x)=right(left(char, x+1), 1)
next
Randomize
for x=1 to 12
str = str & num(Int(len(char) * Rnd))
next
WScript.Sleep 2000
set wshshell = CreateObject("WScript.Shell")
wshshell.SendKeys str
查了下一次運行要想產生不重復的亂數，貌似要用什么混排、回圈，求諸位大大幫忙
uj5u.com熱心網友回復：
既然是亂數，便有重復的可能性吧。如果要產生絕對不重復，應該有儲存過的亂數串列進行比較....uj5u.com熱心網友回復：
Randomize
for x=1 to 12
s = num(Int(len(char) * Rnd))
if instr(s) = -1 then
str = str & s
else
x = x - 1
end if
next
uj5u.com熱心網友回復：
你這個就亂序字串，不叫亂數。亂數是位元 0 和 1 的隨機串，除了你上面列舉的可列印字符編碼，還有更多是“亂碼”。
另外，你不重復的定義是什么？串內不允許重復的字符？還是用過的串不能再用？
uj5u.com熱心網友回復：
不是這樣的，1樓的代碼你運行一次，如果回圈輸出到某一陣列，得出的結果不是可能重復，而是從頭到尾都是一樣的，
我查過，Randomize后，因為初始的種子不變，導致出來的結果都是一樣的；
當你二次運行的時候，因為初始種子改變，所以結果不一樣。
而我要的結果是一次運行，回圈輸出的每一個亂數都是不一樣的，不說完全100%，但至少大部分要不一樣。思路貌似是要位置對換、采用混排演算法。
哪位大大能幫忙改下
uj5u.com熱心網友回復：
用過的串不能在用就行了，很多不懂，可著勁搜了一些
uj5u.com熱心網友回復：
感覺2樓的回答靠譜uj5u.com熱心網友回復：
2 樓是串內不含重復的字符。如果要保證不用重復的串，最易于實作的就是建立字典。也就是對生成的新串，檢查是否在字典中，如果是則重新生成，否則加入字典并輸出使用。
uj5u.com熱心網友回復：
另外一種概率性方法，就是利用偽亂數的生成原理。首先生成一個 16-byte 亂數作為種子（初始值）。隨便選擇一個密鑰，固定下來，用 DES 演算法對種子加密。因為 DES 的分組是 8-byte，因此要加密 2 次。可以用 ECB 模式，也可以用 CBC 模式。
加密得到的密文，既是輸出，也是下一次加密的輸入。
輸出的處理：取最左或最右的 12 位元組，每位元組的值模 36（除以 36 取余）的結果（0 - 35），就是你的字符集串中字符的索引。
你可以測驗一下試試，重復的概率應該很低。
DES 和 SHA-1 都是國際上生成偽亂數的標準演算法。隨機性很好的。
uj5u.com熱心網友回復：
Randomize表單加載呼叫一次就可以了
uj5u.com熱心網友回復：
Function GeneratePassword(length)
Dim p, s, i, l
s = "abcdefghijklmnopqrstuvwxyz" & "0123456789"
Randomize : l = Len(s)
For i = 1 To length
p = p & Mid(s, Int(Rnd * l + 1) ,1)
Next
GeneratePassword = p
End Function
在這基礎上代入2樓的代碼出錯，能否出個示例，另外如果我要指定隨機生成GeneratePassword的密碼位數，比如4-16位范圍內隨機，又該如何做
uj5u.com熱心網友回復：
不懂，踏進vb連半只腳都不算，我現在想在10樓基礎上作出亂序隨機密碼，請教如何做
uj5u.com熱心網友回復：
Randomize洗掉掉，寫在FormLoad里面uj5u.com熱心網友回復：
Function GeneratePassword(Length) As String
Dim p As String, s As String, i As Integer, l As Integer
s = "abcdefghijklmnopqrstuvwxyz" & "0123456789"
Randomize
l = Len(s)
For i = 1 To Length
p = p & Mid(s, Int(Rnd * l + 1), 1)
Next
GeneratePassword = p
End Function
Private Sub Command1_Click()
Dim n As Integer, strPassWord As String
n = Val(Text1)
If n < 4 Or n > 16 Then
Randomize
n = 4 + Int(Rnd * 13)
End If
strPassWord = GeneratePassword(n)
Debug.Print strPassWord
End Sub
uj5u.com熱心網友回復：
很奇怪，我輸出GeneratePassword(n)怎么是空的，另外前半段怎么添加隨機回圈亂序？
uj5u.com熱心網友回復：
僅供參考，盡管是C/C++#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int d[6];
int i,n,a,b,t;
int c,j;
void main() {
srand(time(NULL));
printf("shuffle 0..n-1 demo\n");
for (n=1;n<=5;n++) {/* 測驗1～5個元素 */
printf("_____n=%d_____\n",n);
j=1;
for (c=1;c<=n;c++) j=j*c;/* j為n! */
j*=n*2;
for (c=1;c<=j;c++) {/* 測驗n*2*n!次 */
for (i=0;i<n;i++) d[i]=i;/* 填寫0～n-1 */
for (i=n;i>0;i--) {/* 打亂0～n-1 */
a=i-1;b=rand()%i;
if (a!=b) {t=d[a];d[a]=d[b];d[b]=t;}
}
printf("%04d:",c);
for (i=0;i<n;i++) printf("%d",d[i]);
printf("\n");
}
}
printf("shuffle 1..n demo\n");
for (n=1;n<=5;n++) {/* 測驗1～5個元素 */
printf("_____n=%d_____\n",n);
j=1;
for (c=1;c<=n;c++) j=j*c;/* j為n! */
j*=n*2;
for (c=1;c<=j;c++) {/* 測驗n*2*n!次 */
for (i=1;i<=n;i++) d[i]=i;/* 填寫1～n */
for (i=n;i>1;i--) {/* 打亂1～n */
a=i;b=rand()%i+1;
if (a!=b) {t=d[a];d[a]=d[b];d[b]=t;}
}
printf("%04d:",c);
for (i=1;i<=n;i++) printf("%d",d[i]);
printf("\n");
}
}
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/123914.html
標籤：VB基礎類