<%Escurecer eu
Dim j
Escurecer HS
Diminuir ELE
Escurecer LS
Escurecer LE
resultado escuro
Resultado = ""
SH = 177
ELE = 247
LS = 161
LE = 254
dim Max_Num
Núm_máx=65536
Randomizar
Para i = 1 a 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
Resultado = Resultado & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
Próximo
resposta.write Resultado & " "
%>
<%
''下面是函数
''----------------------------------------------------------
Função Pública dec2bin(mynum)''十进制到二进制
Diminuir contador de loops
Se meunum >= 2 ^ 31 Então
dec2bin = "Muito grande"
Função de saída
Terminar se
Fazer
Se (mynum e 2 ^ loopcounter) = 2 ^ loopcounter Então
dec2bin = "1" & dec2bin
Outro
dec2bin = "0" & dec2bin
Terminar se
contador de loops = contador de loops + 1
Loop até 2 ^ loopcounter > mynum
Função final
''----------------------------------------------------------
Função Pública BinaryToDecimal(BinaryValue) ''二进制到十进制的转换
'' Retorna o equivalente decimal de um número binário
Dim idx
Escurecer tmp
Resultado escuro
Dígitos escuros
dígitos = Len(BinaryValue)
Para idx = dígitos para 1 Etapa -1
tmp = Médio(BinaryValue, idx, 1)
Se tmp = "1" Então resultado = resultado + 2 ^ (dígitos - idx)
Próximo
BinaryToDecimal = resultado
Função Final
%>