طريقتان لإنشاء رموز التحقق دون مكونات باستخدام ASP

توليد رمز التحقق بدون مكون - تنسيق GIF

نسخة الكود كما يلي:

<٪

OptionExplicit 'عرض عرض

classcom_gifcode_class

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'المؤلف: [email protected] (QQ)

"شكرًا: Laomi ، Laomiao ، Netroube

'2006-01-02

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Publicnoisy ، العد ، العرض ، الطول ، الزاوية ، الإزاحة ، الحدود

privategraph () ، الهامش (3)

privatesubclass_initialize ()

عشوائي

صاخبة = 16 'احتمال حدوث نقطة التداخل

العد = 4 'الأحرف

عرض = 80 'عرض الصورة

ارتفاع = 20'Picture ارتفاع

زاوية = 2 'تغيير الزاوية العشوائية

الإزاحة = 20 'إزاحة الكمية تغيير عشوائي

الحدود = 1'border

ينتهي

PublicFunctionCreate ()

constccharset = "123456789"

ديمي ، x ، ذ

dimvvalidcode: vvalidcode = ""

Dimvindex

redimgraph (العرض -1 ، الارتفاع 1)

fori = 0tocount-1

VINDEX = int (RND*LEN (CHAREST))

vvalidcode = vvalidcode+mid (ccharset ، vindex+1،1)

setDrawVindex ، أنا

التالي

إنشاء = vvalidcode

الوظيفية

SubsetDot (PX ، PY)

IFPX*(Width-PX-1)> = 0andpy*(Hight-Py-1)> = 0then

الرسم البياني (PX ، PY) = 1

Endif

ينتهي

publicsubsetdraw (Pindex ، pnumber)

بيانات الأحرف

Dimdotdata (8)

dotdata (0) = صفيف (30،15،50،1،50،100)

dotdata (1) = صفيف (1،34،30،1،71،1،100،34،1،100،93،100،100،86)

dotdata (2) = صفيف (1،1،100،1،42،42،100،70،50،100،1،70)

dotdata (3) = صفيف (100،73،6،73،75،6،75،100)

dotdata (4) = صفيف (100،1،1،1،1،50،50،35،100،55،100،80،50،100،1،95)

dotdata (5) = صفيف (100،20،70،1،20،1،10،30،80،30،100،70،100،100،80،100،60،70،70،30،50،10،60)

dotdata (6) = صفيف (6،26،6،100،6،53،100)

dotdata (7) = صفيف (100،30،100،20،70،30،30،1،1،20،13،100،70،100،80،70،100،30،100،1،1،80،1،70،100،30)