لقد رأيت طريقة تكسير العنف على الإنترنت. سيتم حظر الصفحة من تقديم التقديم الخارجي.
ملف ASP: code.asp
ملف البيانات: body.fix ، head.fix
الاستخدام: <img src = http://blog.netbei.com/code.asp>
استجابة. buffer = صحيح
NumCode
وظيفة numcode ()
استجابة. expires = -1
استجابة
استجابة
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 = لا شيء
end function reprint ، يرجى الإشارة من IM286.com عفا عليها الزمن ، عنوان المنشور: http://www.im286.com/viewthread.php؟
لفهم هذه الرموز ، من الأساس فهم كائن البيانات الثنائية في ASP ، Adodb.stream! يستخدم هذا البرنامج بشكل أساسي ADODB.Stream. لا يوجد محرك تعريف جيد حتى الآن. حدد 4321 إلى 89910 ، وبالتالي لا يزال رمز الصورة أكثر أمانًا.
لقد رأيت طريقة تكسير العنف على الإنترنت. سيتم حظر الصفحة من تقديم التقديم الخارجي.
ملف ASP: code.asp
ملف البيانات: body.fix ، head.fix
الاستخدام: <img src = "http://blog.netbei.com/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