다음 코드는 웹페이지에서 다른 사람이 직접 복사하거나 수집하지 못하도록 일부 좋은 디지털 정보를 숨길 수 있습니다. 예를 들어, 전화번호는 다른 사람이 검색하는 것을 방지할 수 있습니다. 기능: ASP 프로그램을 사용하여 페이지의 전화번호를 이미지 형식으로 생성합니다.
다음과 같이 코드 코드를 복사합니다.
<%
Com_CreatValidCode(Request.QueryString(tel))을 호출합니다.
공개 하위 Com_CreatValidCode(pTel)
'----------캐싱 비활성화
응답.만료 = 0
Response.AddHeader Pragma, 캐시 없음
응답.AddHeader 캐시 제어, 캐시 없음
Response.ContentType = 이미지/BMP
무작위화
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '---------노이즈가 나타날 확률
Const str=0123456789-
strLen = len(pTel)
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()
Redim vCode(strLen-1)
i = 0의 경우 strLen-1로
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
다음
'----------문자 데이터
희미한 vNumberData(11)
'베르다나 글꼴
vNumberData(0) = 11111111111000111101110111011101110111011101110111011101110111011110001111111111
vNumberData(1) = 11111111111101111110011111110111111101111111011111110111111101111110001111111111
vNumberData(2) = 11111111111000111101110111011101111110111111011111101111110111111100000111111111
vNumberData(3) = 11111111111000111101110111111101111100111111110111111101110111011110001111111111
vNumberData(4) = 111111111111101111110011111010111110101111011011111000011111101111111001111111111
vNumberData(5) = 11111111110000011101111111011111110000111111110111111101110111011110001111111111
vNumberData(6) = 11111111111000111101101111011111110000111101110111011101110111011110001111111111
vNumberData(7) = 111111111100000111011011111110111111011111110111111101111111011111110111111111111
vNumberData(8) = 11111111111000111101110111011101111000111101110111011101110111011110001111111111
vNumberData(9) = 11111111111000111101110111011101110111011110000111111101111011011110000111111111
vNumberData(10) = 11111111111111111111111111111111111111111000001111111111111111111111111111111
vNumberData(11) = 1111111111111111111111111111111111111111111111111111111111111111111111111111
'-----------------출력 이미지 파일 헤더<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)
'------이미지 정보 헤더 출력
응답.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)
For i = 9 To 0 Step -1 '------------모든 행을 통과합니다.
For ii = 0 To strLen-1 '------모든 단어를 살펴봅니다.
iii = 1 To 8 '---------모든 픽셀을 통과합니다.
'---------이미지 데이터를 한 줄씩, 단어별로, 픽셀별로 출력합니다.
If Rnd * 99 + 1 < cOdds Then '--------- 무작위로 노이즈 생성
Response.BinaryWrite rndColor
또 다른
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
종료 조건
다음
다음
다음
서브 끝
%>
위 코드를 img.asp로 저장하고 전화번호를 표시하려는 곳에 <img src=img.asp?tel=010-0000000>을 삽입하세요.