电话号码生成图片格式

yingzi0011 2008-10-08 05:23:44
如题,目的是防采集。类似 http://beijing.263.com/house/rentagent/4010969.html
手机/电话 格式是 图片格式的
追加分数100.
...全文
452 36 打赏 收藏 转发到动态 举报
写回复
用AI写文章
36 条回复
切换为时间正序
请发表友善的回复…
发表回复
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
关键是如何隐含的传递参数，在生成上面没有什么特殊的要求

主要目的是防止采集,即使可以，采集到的图片也没任何价值了。

隐藏传参，我也考虑过，参考了几个网站的，但是都一一破解，就不想去隐藏了。

kernelj 2008-10-09
  • 打赏
  • 举报
 回复
其实楼主的这个问题关键是如何隐含的传递参数，在生成上面没有什么特殊的要求，那我觉得你可以通过一个简单的可逆加密来达到你的目的。

以加密后的字段作为参数，然后在生成函数里面进行解密，输出。
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
用AJAX调用这个东西啊旧可以了 ？？

生成的页面，查看htm源码，里面不显示电话？要是显示的话，还是不能阻止采集。
一把编程的菜刀 2008-10-09
  • 打赏
  • 举报
 回复 


<%





Public Sub Com_CreatValidCode(pTel) 



     '----------禁止缓存 

     Response.Expires = 0

     Response.AddHeader "Pragma","no-cache" 

     Response.AddHeader "cache-ctrol","no-cache" 

     Response.ContentType = "Image/BMP" 



     Randomize 



     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))



     '-----------颜色的数据(字符，背景) 

     Dim 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（浅蓝色） 





     '--------------------随机产生字符 

     Randomize



     Dim vCode()

     redim vCode(strLen-1)

     For i = 0 To strLen-1

         vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1

     Next 





     '-----------字符的数据 

     Dim vNumberData(11) 



     'Verdana Font

     vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111" 

     vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111" 

     vNumberData(2) = "11111111111000111101110111011101111110111111011111101111110111111100000111111111" 

     vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111" 

     vNumberData(4) = "11111111111110111111001111101011111010111101101111100001111110111111100111111111" 

     vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111" 

     vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111" 

     vNumberData(7) = "11111111110000011101101111111011111101111111011111110111111101111111011111111111" 

     vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111" 

     vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111" 

     vNumberData(10) = "11111111111111111111111111111111111111111100000111111111111111111111111111111111" 

     vNumberData(11) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111" 



     '-----------------输出图像文件头 <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)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) 



     For i = 9 To 0 Step -1     '----------历经所有行 

         For ii = 0 To strLen-1     '-------历经所有字 

             For iii = 1 To 8 '--------历经所有像素 

                '---------逐行、逐字、逐像素地输出图像数据 

                If Rnd * 99 + 1 < cOdds Then '---------随机生成杂点 

                     Response.BinaryWrite rndColor

                Else 

                     Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1)) 

                End If 

             Next 

         Next 

     Next 

End Sub

Call Com_CreatValidCode("13911066429")

%>


用AJAX调用这个东西啊旧可以了
一把编程的菜刀 2008-10-09
  • 打赏
  • 举报
 回复
你用AJAX的话，电话号码就不会在源码里显示，但网页上还是可以显示出效果的
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
可以的，使用AJAX在源码里就看不到了

。。。。晕。
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
朋友，能具体点吗？。。看到一头雾水。。
一把编程的菜刀 2008-10-09
  • 打赏
  • 举报
 回复
[Quote=引用 16 楼 yingzi0011 的回复:]
各位帮帮忙啊。我把源码贴出来。

<%
dim dl_id
dl_id=request("id")
if dl_id="" or Isnumeric(dl_id)=false then
response.Redirect("nopage.asp")
end if

sql="select * from dls2008 where id="&dl_id
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.Write" <script>alert('抱歉！相关信息不存在。'); </script>"
response.Write" <sc…
[/Quote]

可以的，使用AJAX在源码里就看不到了
文盲老顾 2008-10-09
  • 打赏
  • 举报
 回复
说个思路吧

把你的 ?tel=xxx 换成 ?id=xxx ，然后类中根据 ID 取得号码，并按这个号码生成
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
各位帮帮忙。。。
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
各位帮帮忙啊。我把源码贴出来。

<%
dim dl_id
dl_id=request("id")
if dl_id="" or Isnumeric(dl_id)=false then
response.Redirect("nopage.asp")
end if

sql="select * from dls2008 where id="&dl_id
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.Write"<script>alert('抱歉！相关信息不存在。');</script>"
response.Write"<script>window.close()</script>"
response.end()
else
rs("counter")=rs("counter")+1
rs.update
end if
%>
<html>
<head>
<title>代理<%=rs("cp")%>——<%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">
<%dim fbr
fbr=trim(rs("username"))
%>
<%if fbr="user1" then%>
<%if session("username")<>"" then%>
<td width="84%" bgcolor="#FFFFFF"><%=rs("tel")%></td>
<%end if%>
<%end if%>
</body>
</html>

rs("tel") 显示的电话号码,怎么实现图片并且查看源码时看不到电话号码呢？用js调用asp可以实现不？
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
多谢各位网友的帮助，问题已经解决！可以防采集！感谢 kernelj 网友，人够热心，呵呵
soamu 2008-10-09
  • 打赏
  • 举报
 回复
用验证码生成的即可
一把编程的菜刀 2008-10-09
  • 打赏
  • 举报
 回复
我想问你，你只要生成图片就可以了是吧？
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
高人现身吧。。。
kernelj 2008-10-09
  • 打赏
  • 举报
 回复 
<%

Public Sub Com_CreatValidCode(pTel) 



     '----------禁止缓存 

     Response.Expires = 0

     Response.AddHeader "Pragma","no-cache" 

     Response.AddHeader "cache-ctrol","no-cache" 

     Response.ContentType = "Image/BMP" 



     Randomize 



     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))



     '-----------颜色的数据(字符，背景) 

     Dim 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（浅蓝色） 





     '--------------------随机产生字符 

     Randomize



     Dim vCode()

     redim vCode(strLen-1)

     For i = 0 To strLen-1

         vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1

     Next 





     '-----------字符的数据 

     Dim vNumberData(11) 



     'Verdana Font

     vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111" 

     vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111" 

     vNumberData(2) = "11111111111000111101110111011101111110111111011111101111110111111100000111111111" 

     vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111" 

     vNumberData(4) = "11111111111110111111001111101011111010111101101111100001111110111111100111111111" 

     vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111" 

     vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111" 

     vNumberData(7) = "11111111110000011101101111111011111101111111011111110111111101111111011111111111" 

     vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111" 

     vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111" 

     vNumberData(10) = "11111111111111111111111111111111111111111100000111111111111111111111111111111111" 

     vNumberData(11) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111" 



     '-----------------输出图像文件头 <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)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) 



     For i = 9 To 0 Step -1     '----------历经所有行 

         For ii = 0 To strLen-1     '-------历经所有字 

             For iii = 1 To 8 '--------历经所有像素 

                '---------逐行、逐字、逐像素地输出图像数据 

                If Rnd * 99 + 1 < cOdds Then '---------随机生成杂点 

                     Response.BinaryWrite rndColor

                Else 

                     Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1)) 

                End If 

             Next 

         Next 

     Next 

End Sub



%>



<% 

dim dl_id 

dl_id=request("id") 

if dl_id="" or Isnumeric(dl_id)=false then 

response.Redirect("nopage.asp") 

end if 



sql="select * from dls2008 where id="&dl_id 

set rs=Server.CreateObject("ADODB.recordset") 

rs.open sql,conn,1,3 

if rs.bof and rs.eof then 

response.Write" <script>alert('抱歉！相关信息不存在。'); </script>" 

response.Write" <script>window.close() </script>" 

response.end() 

else 

rs("counter")=rs("counter")+1 

rs.update 

end if 

%> 

<html> 

<head> 

<title>代理 <%=rs("cp")%>—— <%=sitename%> </title> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<link href="style.css" rel="stylesheet" type="text/css"> 

</head> 



<body leftmargin="0" topmargin="0"> 

                    <%dim fbr 

fbr=trim(rs("username")) 

%> 

      <%if fbr="user1" then%> 

            <%if session("username") <>"" then%> 

                      <td width="84%" bgcolor="#FFFFFF"> 

<%

Call Com_CreatValidCode(rs("tel"))

%>



 </td> 

            <%end if%> 

            <%end if%> 

</body> 

</html>


这个也行
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
foolishdault 简单就象注册检验码一样，servlet很简单 ，，能具体点吗
kernelj 2008-10-09
  • 打赏
  • 举报
 回复 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!--#include file="ClsVerifyCode.asp" -->

<%

Response.Charset    = "utf-8"

Response.Expires    = -1

Response.AddHeader "Pragma", "no-cache"

Response.AddHeader "cache-ctrol", "no-cache"

Dim Verifycode, Code



%>



<% 

dim dl_id 

dl_id=request("id") 

if dl_id="" or Isnumeric(dl_id)=false then 

response.Redirect("nopage.asp") 

end if 



sql="select * from dls2008 where id="&dl_id 

set rs=Server.CreateObject("ADODB.recordset") 

rs.open sql,conn,1,3 

if rs.bof and rs.eof then 

response.Write" <script>alert('抱歉！相关信息不存在。'); </script>" 

response.Write" <script>window.close() </script>" 

response.end() 

else 

rs("counter")=rs("counter")+1 

rs.update 

end if 

%> 

<html> 

<head> 

<title>代理 <%=rs("cp")%>—— <%=sitename%> </title> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<link href="style.css" rel="stylesheet" type="text/css"> 

</head> 



<body leftmargin="0" topmargin="0"> 

                    <%dim fbr 

fbr=trim(rs("username")) 

%> 

      <%if fbr="user1" then%> 

            <%if session("username") <>"" then%> 

                      <td width="84%" bgcolor="#FFFFFF"> 

<%

Randomize



Set Verifycode = New NetRube_VerifyCode

With Verifycode

    Code = rs("tel")

    .BGroundColor = "#000000"    '图片背景颜色

    .FGroundColor = "#FFFFFF"    '前景（文本）颜色

    .VerifyCode Code, False        '处理验证码，第二个参数为是否显示彩色文本

    .Noises 200, False            '添加杂点，第一个参数为杂点数量，第二个参数为是否显示彩色杂点

    .Write                        '输出图片

End With

Set Verifycode = Nothing

%>



 </td> 

            <%end if%> 

            <%end if%> 

</body> 

</html>
yingzi0011 2008-10-09
  • 打赏
  • 举报
 回复
对啊，，就是要阻止采集，采回去的图片虽然也可以对应，但是相对而言，就没价值了。
铁匠梁 2008-10-09
  • 打赏
  • 举报
 回复
简单就象注册检验码一样，servlet很简单
加载更多回复（16）
二维码的生成及识别软件（电脑端）
Psytec QR Code Editor 【SaGa完美汉化版】 二维码识别，电脑端，可截图自动识别及二维码的制作 电话本，邮件、书签等
php对电话号码生成图片,帝国CMS插件之手机号码生成图片格式插件
使用方法。下载压缩包解压到自己网站的任意目录。使用方法 文件地址/phone.php?phone=手机号码调用方法。在模板中用 例如phone.php在根目录如果参数需要加密。可以在模板调用的时候先用base64_encode进行加密。加密方式：base64_encode -- 使用 MIME base64 对数据进行编码列表页：$listtemp='';内容页：在phone.php中解密输出即可...
帝国CMS任意字段转换为图片插件，支持中文英文数字生成，文章标题，电话号码、QQ号码均可
使用方法： 1、将下载的 index.php 放在 /e/extend/topic/ 下 2、在要显示图片字段的地方加入以下代码即可 <img src="[!--news.url--]e/extend/topic/index.php?classid=[!--classid--]&id=[!--id--]&w=500&h=100&area=title&ff=msyh&fz=12&bc=fff&tc=000" /> 参数说
实现电话号码图片显示的ASP技术教程
本文还有配套的精品资源，点击获取 简介：在防止自动抓取工具获取电话号码的网页设计中，将电话号码转换为图片格式是常见做法。本文探讨了电话号码图片显示的原理和实现方式，重点说明在ASP环境中如何应用该技术。通过动态生成和随机变化图片属性，有效提升了反爬虫难度，同时考虑了用户体验和安全性。本文通过示例代码展示了电话号码图片生成的过程，为保护网站信息和用户隐私提供了实用的解决方案。...
ASP

28,408

社区成员

356,956

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章