إنتاج رمز التفتيش المدرسي الملون

لفهم هذه الرموز ، من الأساس فهم كائن البيانات الثنائية في ASP ، Adodb.stream! يستخدم هذا البرنامج بشكل أساسي ADODB.Stream. لا يوجد محرك تعريف جيد حتى الآن. حدد 4321 إلى 89910 ، وبالتالي لا يزال رمز الصورة أكثر أمانًا.

لقد رأيت طريقة تكسير العنف على الإنترنت. سيتم حظر الصفحة من تقديم التقديم الخارجي.

ملف ASP: code.asp

ملف البيانات: body.fix ، head.fix

الاستخدام: <img src = "code.asp">

<٪

استجابة. buffer = صحيح

NumCode

وظيفة numcode ()

استجابة. expires = -1

Response.addheader "pragma" ، "عدم وجود آثار"

Response.Addheader "ذاكرة التخزين المؤقت" ، "عدم وجود آذان"

Dim Znum ، أنا ، ي

قاتمة ADOS ، ADOS1

عشوائي الوقت

توليد أربعة أرقام عشوائية:

Znum = cint (8999*rnd 1000)

مرور إلى الجلسة

الجلسة ("getCode") = Znum

For Loop هي وضع الرقم العشوائي في صفيف من 3 تسوية 3 ، وهو مريح لتوفيره لتحويل الصفيف اللاحق

Dim Zimg (3) ، NSTR

NSTR = CSTR (Znum)

لأني = 0 إلى 3

zimg (i) = cint (mid (nstr ، i 1،1))))

التالي

باهت نقاط البيع

حدد كائنين ثنائيين ADODB.Stream ، لاستخدام تشغيل بيانات الصورة:

تعيين ADOS = server.createBject ("Adodb.stream")

Ados.Mode = 3

Ados.Type = 1

Ados.Open

تعيين ADOS1 = server.createBject ("Adodb.stream")

ADOS1.MODE = 3

ados1.type = 1

ADOS1.OPEN

"تحميل 0 ~ 9 البيانات الرقمية 10x100 ، بيانات صفيف GBR ، كل 320 بايت ، 10 أرقام 3200BYTE

BGR نقطة واحدة ، 10 × 10 نقاط رقم ، نقطة واحدة ثلاث بايت (ثنائي 8 -Pit ، سداسي عشري 00 ~ ff)

خط من 10 نقاط 30 بايت ينتهي 00 00 00 اثنين -بايت 32 بايت ، وبالتالي فإن 10x100 أقل من صورة طويلة ، كل رقم 10x10 هو 320 بايت

أولئك الذين ينموون أكبر من واسع ، لا توجد وسيلة لإنهاء العلامة 0000 ، فهي 300 بايت مباشرة

هذه هي بيانات BMP 24bit.

"أما بالنسبة للرأس ، فهو أيضًا بسيط للغاية ، بما في ذلك الطول والعرض ، وبدء تشغيل الصورة وما إلى ذلك

ados.loadfromfile (server.mappath ("body.fix"))

ados1.write ados.read (1280)

"الأول للحلقة ، والأرقام الأربعة المقابلة يتم استخراجها من عدد الأرقام العشوائية التي تم إنشاؤها من 10x100

لكن صفيف الأرقام الرأسية

لأني = 0 إلى 3

ados.position = (9-Zimg (i))*320

ados1.position = i*320

ADOS1.Write ADOS.Read (320)

التالي

قم بمسح بيانات ADOs التي تم استخدامها ، وضبط رأس الصورة الجديد 54 بايت من ملف الرأس

ados.loadfromfile (server.mappath ("head.fix"))

pos = lenb (ados.read ())

ados.positation = pos 'حدد موضع pos ، يمكنك إضافة بيانات رسومية إلى موضع 54 بايت

والثاني للحلقة ، وعدد أرقام الأرقام ، من الكتل الرأسية إلى الكتل الرقمية الأفقية

تتمثل الطريقة في استخراج 4 مرات 320 بايت لكتابة 30 بايت إلى كائنات ADOS ، ثم استخراج بيانات الصورة التي تحول السطر الثاني.

30 بايت بسبب الملصق النهائي مع صف 00 00 في BMP.

لأني = 0 إلى 9 الخطوة 1

ل j = 0 إلى 3

ados1.position = i*32 j*320

ados.positation = pos 30*ji*120

ados.write ados1.read (30)

التالي

التالي

ados.positation = 0

استجابة.

استجابة. contenttype = "Image/BMP"

استجابة.

ados.close: تعيين ados = لا شيء

ados1.close: تعيين ADOS1 = لا شيء

وظيفة نهاية