<%Dim i
Dim j
Dunkler HS
Dim ER
Schwaches LS
Dunkles LE
Ergebnis dimmen
Ergebnis=""
HS = 177
HE = 247
LS = 161
LE = 254
dimmen Sie Max_Num
Max_num=65536
Randomisieren
Für i = 1 bis 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
Ergebnis = Ergebnis & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
Weiter
Response.write Ergebnis & " "
%>
<%
''下面是函数
''------------------------------------------
Öffentliche Funktion „dec2bin(mynum)“
Schleifenzähler dimmen
Wenn mynum >= 2 ^ 31 Dann
dec2bin = „Zu groß“
Exit-Funktion
Ende wenn
Tun
Wenn (mynum Und 2 ^ Schleifenzähler) = 2 ^ Schleifenzähler Dann
dec2bin = „1“ & dec2bin
Anders
dec2bin = „0“ & dec2bin
Ende wenn
Schleifenzähler = Schleifenzähler + 1
Schleife bis 2 ^ Schleifenzähler > mynum
Funktion beenden
''------------------------------------------
Öffentliche Funktion BinaryToDecimal(BinaryValue)
'' Gibt das Dezimaläquivalent einer Binärzahl zurück
Dim idx
Temp. dimmen
Düsteres Ergebnis
Dunkle Ziffern
Ziffern = Len(BinaryValue)
Für idx = Ziffern bis 1 Schritt -1
tmp = Mid(BinaryValue, idx, 1)
Wenn tmp = „1“, dann result = result + 2 ^ (Ziffern – idx)
Nächste
BinaryToDecimal = Ergebnis
Endfunktion
%>