<%Redupkan i
Redupkan j
Redupkan HS
Redupkan DIA
Redupkan LS
Redupkan LE
Hasil redup
Hasil = ""
HS = 177
DIA = 247
LS = 161
LE = 254
redupkan Max_Num
Angka_maks=65536
Acak
Untuk i = 1 Sampai 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=des2bin(Int((LE - LS) * Rnd()) + LS)
Hasil = Hasil & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
Berikutnya
respon.tulis Hasil & " "
%>
<%
''下面是函数
'' --------------------------------------------
Fungsi Publik dec2bin(mynum)''十进制到二进制
Penghitung lingkaran redup
Jika angkaku >= 2^31 Maka
dec2bin = "Terlalu besar"
Fungsi Keluar
Akhiri Jika
Melakukan
Jika (mynum Dan 2 ^ loopcounter) = 2 ^ loopcounter Lalu
des2bin = "1" & des2bin
Kalau tidak
des2bin = "0" & des2bin
Akhiri Jika
penghitung putaran = penghitung putaran + 1
Ulangi Hingga 2 ^ loopcounter > mynum
Fungsi Akhir
'' --------------------------------------------
Fungsi Publik BinaryToDecimal(BinaryValue) ''二进制到十进制的转换
'' Mengembalikan desimal yang setara dengan bilangan biner
Redupkan IDX
Redupkan tmp
Hasil redup
Angka redup
digit = Len(Nilai Biner)
Untuk idx = angka Ke 1 Langkah -1
tmp = Pertengahan(Nilai Biner, idx, 1)
Jika tmp = "1" Maka hasil = hasil + 2^ (angka - idx)
Berikutnya
BinaryToDecimal = hasil
Fungsi Akhir
%>