يمكن للكود التالي إخفاء بعض المعلومات الرقمية الجيدة في صفحة الويب مما يمنع الآخرين من نسخها أو جمعها مباشرة، على سبيل المثال، يمكن لرقم الهاتف أن يمنع الآخرين من البحث. الوظيفة: استخدم برنامج ASP لإنشاء رقم الهاتف الموجود في الصفحة بتنسيق صورة.
انسخ رمز الكود كما يلي:
<%
اتصل بـ Com_CreatValidCode(Request.QueryString(tel))
Com_CreatValidCode(pTel) الفرعي العام
'----------تعطيل التخزين المؤقت
الاستجابة.انتهاء الصلاحية = 0
Response.AddHeader Pragma، بدون ذاكرة تخزين مؤقت
Response.AddHeader ذاكرة التخزين المؤقت للتحكم، لا ذاكرة التخزين المؤقت
Response.ContentType = الصورة/BMP
عشوائية
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '--------احتمال ظهور الضوضاء
شارع كونست=0123456789-
سترلين = لين (بتيل)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'----------بيانات الألوان (الأحرف والخلفية)
خافت vColorData(1)
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----أزرق 0، أخضر 0، أحمر 0 (أسود)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----أزرق 250، أخضر 236، أحمر 211 (أزرق فاتح)
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- أزرق 0، أخضر 0، أحمر 0 (أسود)
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----أزرق 250، أخضر 236، أحمر 211 (أزرق فاتح)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------أزرق 0، أخضر 0، أحمر 0 (أسود)
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------أزرق 250، أخضر 236، أحمر 211 (أزرق فاتح)
'-------------------------- إنشاء الأحرف بشكل عشوائي
عشوائية
خافت vCode()
استرداد vCode(strLen-1)
لأني = 0 إلى strLen-1
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
التالي
'----------بيانات الشخصية
خافت vNumberData(11)
"خط فيردانا."
vNumberData(0) = 11111111111000111101110111011101110111011101110111011101110111011110001111111111
vNumberData(1) = 111111111111011111110111111101111111011111110111111101111110001111111111
vNumberData(2) = 1111111111100011110111011101110111111011111101111110111111100000111111111
vNumberData(3) = 111111111110001111011101111110111111110111111101110111011110001111111111
vNumberData(4) = 1111111111111011111100111110101111011011111000011111101111111001111111111
vNumberData(5) = 1111111111000001111110000111111110111111101110111011110001111111111
vNumberData(6) = 11111111111000111101101111011111110000111101110111011101110111011110001111111111
vNumberData(7) = 11111111110000011101101111111011111110111111101111111011111110111111111111
vNumberData(8) = 11111111111000111101110111011101111000111101110111011101110111011110001111111111
vNumberData(9) = 11111111111000111101110111011101110111011110000111111101111011011110000111111111
vNumberData(10) = 11111111111111111111111111000001111111111111111111111111111111
vNumberData(11) = 1111111111111111111111111111111111111111111111111111111111
'-----------------رأس ملف صورة الإخراج<br>
Response.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54)/ 256)mod 256 ) & ChrB ((((strLen*8*10*3+54)/ 256)/256)mod 256) & ChrB((((strLen*8*10*3+54)/ 256)/256)/256)mod 256) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)
'------------------رأس معلومات صورة الإخراج
Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_
ChrB((strLen*8*10*3)mod 256)&ChrB(((strLen*8*10*3)/256)mod 256)&ChrB((((strLen*8*10*3)/256)/256 ) وزارة الدفاع 256)&ChrB((((strLen*8*10*3)/256)/256)/256)mod 256)&_
ChrB(196) & ChrB(14) & ChrB(0) & ChrB(0) & ChrB(196) & ChrB(14)&ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)
لـ i = 9 إلى 0 الخطوة -1 '---------- قم بالمرور عبر كافة الصفوف
For ii = 0 إلى strLen-1 '------راجع كل الكلمات
لـ iii = 1 إلى 8 '-------- قم بالمرور عبر جميع وحدات البكسل
'---------إخراج بيانات الصورة سطرًا تلو الآخر، وكلمة بكلمة، وبكسل ببكسل
إذا كان Rnd * 99 + 1 < cOdds ثم '--------- توليد الضوضاء بشكل عشوائي
Response.BinaryWrite rndColor
آخر
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
نهاية إذا
التالي
التالي
التالي
نهاية الفرعية
%>
احفظ الكود أعلاه كـ img.asp وأدخل <img src=img.asp?tel=010-0000000> حيث تريد عرض رقم الهاتف.