El siguiente código puede ocultar buena información digital en la página web que impide que otros la copien o recopilen directamente. Por ejemplo, el número de teléfono puede impedir que otros realicen búsquedas. Función: Utilice el programa ASP para generar el número de teléfono de la página en formato de imagen.
Copie el código de código de la siguiente manera:
<%
Llame a Com_CreatValidCode(Request.QueryString(tel))
Public Sub Com_CreatValidCode(pTel)
'----------Desactivar el almacenamiento en caché
Respuesta.Expira = 0
Response.AddHeader Pragma, sin caché
Response.AddHeader control de caché, sin caché
Respuesta.ContentType = Imagen/BMP
Aleatorizar
Dim i, ii, iii, rndColor, strLen, sql, rs
Const cOdds = 5 '--------La probabilidad de que aparezca ruido
Cadena constante = 0123456789-
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'----------Datos de color (caracteres, fondo)
Atenuar vColorData(1)
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----Azul 0, Verde 0, Rojo 0 (negro)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----Azul 250, Verde 236, Rojo 211 (azul claro)
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- Azul 0, Verde 0, Rojo 0 (negro)
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----Azul 250, Verde 236, Rojo 211 (azul claro)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------Azul 0, Verde 0, Rojo 0 (negro)
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------Azul 250, Verde 236, Rojo 211 (azul claro)
'-------------------------- Generar caracteres aleatoriamente
Aleatorizar
Atenuar vCode()
redimir vCode (strLen-1)
Para i = 0 Para strLen-1
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
Próximo
'----------Datos de caracteres
Atenuar vNumberData(11)
'Fuente Verdana
vNumberData(0) = 11111111111000111101110111011101110111011101110111011101110111011110001111111111
vNumberData(1) = 11111111111101111110011111110111111101111111011111110111111101111110001111111111
vNumberData(2) = 1111111111100011110111011101110111110111111011111101111110111111100000111111111
vNumberData(3) = 11111111111000111101110111111101111100111111110111111101110111011110001111111111
vNumberData(4) = 111111111111101111110011111010111110101111011011111000011111101111111001111111111
vNumberData(5) = 11111111110000011101111111011111110000111111110111111101110111011110001111111111
vNumberData(6) = 11111111111000111101101111011111110000111101110111011101110111011110001111111111
vNumberData(7) = 1111111111000001110110111111101111110111111101111111011111110111111101111111111111
vNumberData(8) = 11111111111000111101110111011101111000111101110111011101110111011110001111111111
vNumberData(9) = 11111111111000111101110111011101110111011110000111111101111011011110000111111111
vNumberData(10) = 11111111111111111111111111111111111111111000001111111111111111111111111111111111
vNumberData(11) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111
'-----------------Encabezado del archivo de imagen de salida<br>
Respuesta.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54)/ 256)mod 256 ) & ChrB((((cadenaLen*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) y ChrB(0) y ChrB(54) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(40) y ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) y ChrB(0) y ChrB(1) y ChrB(0)
'------------------Encabezado de información de la imagen de salida
Respuesta.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) y ChrB(14) y ChrB(0) y ChrB(0) y ChrB(196) y ChrB(14) y ChrB(0) y ChrB(0) &_
ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0)
Para i = 9 a 0 Paso -1 '----------Recorre todas las filas
For ii = 0 To strLen-1 '------Recorre todas las palabras
Para iii = 1 a 8 '--------Recorra todos los píxeles
'---------Salida de datos de imagen línea por línea, palabra por palabra y píxel por píxel
Si Rnd * 99 + 1 < cOdds Then '--------- Genera ruido aleatoriamente
Respuesta.BinaryWrite rndColor
Demás
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
Terminar si
Próximo
Próximo
Próximo
Subtítulo final
%>
Guarde el código anterior como img.asp e inserte <img src=img.asp?tel=010-0000000> donde desea mostrar el número de teléfono.