<%Dim je
Dim j
Dim HS
Dim HE
Faible LS
Dim LE
faible Résultat
Résultat=""
HS = 177
IL = 247
LS = 161
LE = 254
faible Max_Num
Numéro_max=65536
Randomiser
Pour i = 1 à 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
Résultat = Résultat & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
Suivant
réponse.write Résultat & " "
%>
<%
''下面是函数
''------------------------------------------------
Fonction publique dec2bin(mynum)''
Compteur de boucles Dim
Si monnum >= 2 ^ 31 Alors
dec2bin = "Trop gros"
Fonction de sortie
Fin si
Faire
Si (monnum Et 2 ^ compteur de boucles) = 2 ^ compteur de boucles Alors
déc2bin = "1" & déc2bin
Autre
déc2bin = "0" & déc2bin
Fin si
compteur de boucles = compteur de boucles + 1
Boucle jusqu'à 2 ^ compteur de boucles > mynum
Fonction de fin
''------------------------------------------------
Fonction publique BinaryToDecimal(BinaryValue) ''
'' Renvoie l'équivalent décimal d'un nombre binaire
Dim idx
Faible tmp
Résultat sombre
Chiffres atténués
chiffres = Len (Valeur Binaire)
Pour idx = chiffres à 1 étape -1
tmp = Milieu (Valeur Binaire, idx, 1)
Si tmp = "1" Alors résultat = résultat + 2 ^ (chiffres - idx)
Suivant
BinaryToDecimal =
fonction de fin de
résultat
%>