Kode berikut dapat menyembunyikan beberapa informasi digital yang bagus di halaman web sehingga mencegah orang lain menyalin atau mengumpulkannya secara langsung. Misalnya, nomor telepon dapat menghalangi orang lain untuk mencari. Fungsi: Gunakan program ASP untuk menghasilkan nomor telepon di halaman ke dalam format gambar.
Copy kode kodenya sebagai berikut:
<%
Hubungi Com_CreatValidCode(Request.QueryString(tel))
Sub Publik Com_CreatValidCode (pTel)
'---------- Nonaktifkan cache
Respon. Kedaluwarsa = 0
Respon.AddHeader Pragma, tanpa cache
Response.AddHeader cache-ctrol, tanpa cache
Response.ContentType = Gambar/BMP
Acak
Redupkan i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5'--------Probabilitas munculnya noise
Konstan str=0123456789-
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'----------Data warna (karakter, latar belakang)
Redupkan vColorData(1)
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----Biru 0, Hijau 0, Merah 0 (hitam)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----Biru 250, Hijau 236, Merah 211 (biru muda)
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- Biru 0, Hijau 0, Merah 0 (hitam)
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----Biru 250, Hijau 236, Merah 211 (biru muda)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------Biru 0, Hijau 0, Merah 0 (hitam)
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------Biru 250, Hijau 236, Merah 211 (biru muda)
'----------- Menghasilkan karakter secara acak
Acak
Redupkan vCode()
redim vCode(strLen-1)
Untuk i = 0 Ke strLen-1
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
Berikutnya
'----------Data karakter
Redupkan vNumberData(11)
'Verdana Font
vNumberData(0) = 11111111111000111101110111011101110111011101110111011101110111011110001111111111
vNumberData(1) = 11111111111101111110011111110111111101111111011111110111111101111110001111111111
vNumberData(2) = 11111111111000111101110111011101111110111111011111101111110111111100000111111111
vNumberData(3) = 11111111111000111101110111111101111100111111110111111101110111011110001111111111
vNumberData(4) = 111111111111101111110011111010111101011110110111110000111111011111110011111111111111111111
vNumberData(5) = 11111111110000011101111111011111110000111111110111111101110111011110001111111111
vNumberData(6) = 11111111111000111101101111011111110000111101110111011101110111011110001111111111
vNumberData(7) = 1111111111000001110110111111101111101111111011111110111111101111111011111111111111111111111
vNumberData(8) = 11111111111000111101110111011101111000111101110111011101110111011110001111111111
vNumberData(9) = 11111111111000111101110111011101110111011110000111111101111011011110000111111111
vNumberData(10) = 111111111111111111111111111111111111111100000111111111111111111111111111111111111111111
vNumberData(11) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
'-----------------Keluaran header file gambar<br>
Respon.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)
'------------------Keluaran header informasi gambar
Respon.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 )mod 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)
Untuk i = 9 Sampai 0 Langkah -1 '----------Lakukan semua baris
Untuk ii = 0 Ke strLen-1 '------ Telusuri semua kata
Untuk iii = 1 Sampai 8 '-------- Telusuri semua piksel
'---------Output data gambar baris demi baris, kata demi kata, dan piksel demi piksel
Jika Rnd * 99 + 1 < cOdds Kemudian '--------- Menghasilkan noise secara acak
Respon.BinaryWrite rndColor
Kalau tidak
Respon.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
Akhiri Jika
Berikutnya
Berikutnya
Berikutnya
Akhiri Sub
%>
Simpan kode di atas sebagai img.asp dan masukkan <img src=img.asp?tel=010-0000000> di mana Anda ingin menampilkan nomor telepon.