网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > ASP > 正文
获取Google PR值Checksum算法部分ASP版
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/11/25
下载{$ArticleTitle}原创论文样式

<script language="JavaScript" runat="server">
/* -- Checksum 算法ASP源代码 -- */
/* -- http://www.eliuzd.com/pr/ -- */
/* -- 挑战者工作组倾情奉献! 作者:刘志丹 -- */
/* -- 2006-3-20 Eliuzd.com E-mail:eliuzd@gmail.com -- */
/* -- 使用方法:checksum值 = GetPR("http://www.eliuzd.com") -- */
/* -- checksum值:Google Toolbar低于2.0.114版本 -- */
function GetPR(url)
{
url ="info:" + url;
ch = GoogleCH(str_asc(url));
ch = "6" + ch
return ch;
}
function str_asc(string) {
result = new Array();
 lin = string.length
for(i=0;i<lin;i++) {
result[i] = string.substring(i).charCodeAt(0);
}
return result;
}
function yiweitwo(a, b)
{
z = 0x80000000;
if (z & a)
{
a = (a>>1);
a &= (~z);
a |= 0x40000000;
a = (a>>(b-1));
}
else
{
a = (a>>b);
}
return a;
}
function yiwei(a,b,c)
{
a -= b; a -= c; a ^= (yiweitwo(c,13));
b -= c; b -= a; b ^= (a<<8);
c -= a; c -= b; c ^= (yiweitwo(b,13));
a -= b; a -= c; a ^= (yiweitwo(c,12));
b -= c; b -= a; b ^= (a<<16);
c -= a; c -= b; c ^= (yiweitwo(b,5));
a -= b; a -= c; a ^= (yiweitwo(c,3));
b -= c; b -= a; b ^= (a<<10);
c -= a; c -= b; c ^= (yiweitwo(b,15));
var myarray = new Array (a,b,c);
return myarray;
}
function GoogleCH(url)
{
length = url.length;
a = b = 0x9E3779B9;
c = 0xE6359A60;
k = 0;
len = length;
while(len >= 12)
{
a += (url[k+0] +(url[k+1]<<8) +(url[k+2]<<16) +(url[k+3]<<24));
b += (url[k+4] +(url[k+5]<<8) +(url[k+6]<<16) +(url[k+7]<<24));
c += (url[k+8] +(url[k+9]<<8) +(url[k+10]<<16)+(url[k+11]<<24));
mid = yiwei(a,b,c);
a = mid[0]; b = mid[1]; c = mid[2];
k += 12;
len -= 12;
}
c += length;
switch(len)
{
case 11:
  {
   c+=(url[k+10]<<24);
   c+=(url[k+9]<<16);
   c+=(url[k+8]<<8);
   b+=(url[k+7]<<24);
   b+=(url[k+6]<<16);
   b+=(url[k+5]<<8);
   b+=(url[k+4]);
   a+=(url[k+3]<<24);
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  }
case 10:
  {
   c+=(url[k+9]<<16);
   c+=(url[k+8]<<8);
   b+=(url[k+7]<<24);
   b+=(url[k+6]<<16);
   b+=(url[k+5]<<8);
   b+=(url[k+4]);
   a+=(url[k+3]<<24);
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  } 
case 9 :
  {
   c+=(url[k+8]<<8);
   b+=(url[k+7]<<24);
   b+=(url[k+6]<<16);
   b+=(url[k+5]<<8);
   b+=(url[k+4]);
   a+=(url[k+3]<<24);
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  }
case 8 :
  {
   b+=(url[k+7]<<24);
   b+=(url[k+6]<<16);
   b+=(url[k+5]<<8);
   b+=(url[k+4]);
   a+=(url[k+3]<<24);
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  } 
case 7 :
  {
   b+=(url[k+6]<<16);
   b+=(url[k+5]<<8);
   b+=(url[k+4]);
   a+=(url[k+3]<<24);
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  }
case 6 :
  {
   b+=(url[k+5]<<8);
   b+=(url[k+4]);
   a+=(url[k+3]<<24);
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  }
case 5 :
  {
   b+=(url[k+4]);
   a+=(url[k+3]<<24);
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  } 
case 4 :
  {
   a+=(url[k+3]<<24);
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  } 
case 3 :
  {
   a+=(url[k+2]<<16);
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  }
case 2 :
  {
   a+=(url[k+1]<<8);
   a+=(url[k+0]);
   break;
  } 
case 1 :
  {
   a+=(url[k+0]);
   break;
  }
}
mid = yiwei(a,b,c);
return mid[2];
}
</script>

(责任编辑:admin)

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号