From 2a49d1f7e960989b5039cd86056137bcbe875313 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Thu, 20 Jun 2002 04:29:38 +0000
Subject: improve hash function

---
 Echolot/Pinger.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Echolot/Pinger.pm')

diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm
index 824525c..523a69d 100644
--- a/Echolot/Pinger.pm
+++ b/Echolot/Pinger.pm
@@ -1,7 +1,7 @@
 package Echolot::Pinger;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Pinger.pm,v 1.6 2002/06/18 17:21:51 weasel Exp $
+# $Id: Pinger.pm,v 1.7 2002/06/20 04:29:38 weasel Exp $
 #
 
 =pod
@@ -23,11 +23,12 @@ use English;
 use Echolot::Pinger::Mix;
 use Echolot::Pinger::CPunk;
 
+my @primes = qw{13 1997 173 1051 59 6 97883 197 3 2 109 127 7};
 sub makeHash($) {
 	my ($text) = @_;
 	my $sum = 0;
 	for (my $i=0; $i < length($text); $i++) {
-		$sum += ord( substr($text, $i, 1) )
+		$sum += ord( substr($text, $i, 1) ) * $primes[ $i % (scalar @primes) ];
 	};
 	return $sum;
 };
-- 
cgit v1.2.3