<%خافت ط
خافت ي
خافت HS
خافت سعادة
خافت LS
خافت جنيه
نتيجة قاتمة
النتيجة = ""
النظام المنسق = 177
هو = 247
ل س = 161
جنيه = 254
خافت Max_Num
Max_num=65536
عشوائية
لأني = 1 إلى 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
النتيجة = النتيجة & مركز حقوق الإنسان (BinaryToDecimal(temp1 & temp2) - Max_num)
التالي
استجابة.اكتب النتيجة & " "
%>
<%
'' 下面是函数
''-------------------------------------------
الوظيفة العامة dec2bin(mynum)''
عداد حلقة خافت
إذا mynum >= 2 ^ 31 ثم
dec2bin = "كبير جدًا"
وظيفة الخروج
نهاية إذا
يفعل
إذا (mynum و 2 ^ عداد الحلقات) = 2 ^ عداد الحلقات إذن
dec2bin = "1" & dec2bin
آخر
dec2bin = "0" & dec2bin
نهاية إذا
عداد الحلقات = عداد الحلقات + 1
حلقة حتى 2 ^ حلقة عداد > mynum
وظيفة النهاية
''-------------------------------------------
الوظيفة العامة BinaryToDecimal(BinaryValue) ''
'' إرجاع المعادل العشري لرقم ثنائي
معرف خافت
خافت تمب
نتيجة قاتمة
أرقام خافتة
أرقام = لين (القيمة الثنائية)
بالنسبة لـ idx = أرقام إلى 1 الخطوة -1
tmp = Mid(BinaryValue, idx, 1)
إذا كان tmp = "1" فإن النتيجة = النتيجة + 2 ^ (أرقام - idx)
التالي
BinaryToDecimal =
دالة نهاية
النتيجة
%>