Google PageRank Checksum Algorithm

Yep! I'm porting this code to Pascal.
My mistake was in incorrect understanding how switch statement without breaks works.
So, after code purifying Your desire may shall come

Pascal code here :
http://www.my-eldorado.net/Google-Ch...ery-Source.php

Both pascal source and binary: http://uncopyrightable.front.ru/

[synku]

Originally Posted by cyberax

Hi Alex / Doctorow ... how is it going ?

Lets do it guys.. then we will try to do something about Yahoo WebRank

Seriously, I would be glad to work on an equivalent for Y! WebRank.
However it's only available in beta version of the Yahoo Toolbar, and public beta-testing is closed atm.
Anyone had more chance ?
privmsg me to send any files to analyze.

anyone translated it to perl / cgi?
yes i am a lazy guy but if one has done it allready i'll save some time

please post here!

[Will.Spencer]

Originally Posted by doctorow

The Google Checksum Calculator, by Alex Stapleton, Andy Doctorow, Vijay "Cyberax" Bhatter, and a few others.

In this (latest?) revision of the PHP program, the first character of the ch value appears to be clipped when the ch value is printed.

url: http://www.gsm-security.net/
ch: 61014109771

Page Rank URL: http://www.google.com/search?client=...ecurity.net%2F

See how the printed value of ch starts "610..." and the ch value in the URL starts "6610..."?

Or is this just me?

[Will.Spencer]

These versions need version control.

[Jim]

i translated to perl, but it seems that the current implementation im using is only 32bit, and some of the integers ive used as a test are at least 33 bit, which means it doesnt work!

If anyones got a clever solution to do bitwise operations on these numbers, please let me know!

Jim

I am actually working on a perl-version, too, right now.
I ran into the problem you described with the first test ...
the overflowing with bigger numbers and bitwise operations seems not to work.
I actually don't have a clue about all these basical things, I'm doing cgi-scripts most of the time. Anyhow, enough excuses. I think the problem can be solved by not using the bitwise operators on the big ints but simply prepare the ints to behave like in php or bash: for example

sub bitleft
{
	my $first = shift;
	my $second = shift;
	my $max = 4_294_967_296;
	my $special = 1 if($first > $max || $second > $max);
	$first = $first - $max if($first > $max);
	$second = $second - $max if($second > $max);
	if($special == 1)
	{
		return ($first << $second);
	}
	my $result = $first << $second;
	return -($max - $result);
}

where
$a << $b would be bitleft($a, $b);
it more or less works, but does not in all subs deal with signs correctly (eg. the xor-one has a problem with too big negative numbers). drop me a line at jan@delinquent.SPAMISBAD.de and I'll be happy to send you the code I got so far. remove the SPAMISBAD, of course

[Will.Spencer]

Originally Posted by uncopyrightable

Both pascal source and binary:
http://uncopyrightable.front.ru/

When I execute the binary from your site on my WinXP system, I receive the following error after I press <Get PR>:

"Access violation at address 00453B77 in module 'chpr.exe'. Read of address 00000000."

mhkay, obviously I really got a problem over here. Got most of the functions ready (but hey, it's ugly, it's really ugly...) but it can't be the right way. anyhow, gonna get them ready and testdrive then.

damn it, I don

was trying to say, that I don't get it. I wrote functions that shall bitshift & stuff in perl behaving like php but obviously didn't make it, since they fail from time to time. Since I really don't have the theoretical background for all that, I hope someone else will have more success. the code I've written so far is available at http://www.delinquent.de/ch.txt . It's clean right now, so all my tests are out and it's ready to run. Start it, it tries to generate the checksum for http://www.delinquent.de/, which should be 63086170437 I think. review definetly needed, someone who actually understands more than I do will hopefully solve the issue with a couple of lines.
questions, comments and flames for bad code to jan@delinquent.de.invalid.
just leave the .invalid out when using it.

[mrseo]

Google sux !

[Will.Spencer]

Originally Posted by mrseo

If you're interested in Google PageRank, you've gotta check this out :
http://cryptopowah.online.fr

Bahahahahahaha... people trying to sell free stuff is so funny.