From b195040c4acb969a765c5bc939a9b2bd3696867b Mon Sep 17 00:00:00 2001
From: Michael Moon <triffid.hunter@gmail.com>
Date: Sun, 30 Dec 2012 10:16:47 +1100
Subject: [PATCH] provide checksum script to easily generate config checksum
 values

---
 checksum.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 checksum.pl

diff --git a/checksum.pl b/checksum.pl
new file mode 100755
index 0000000000..2d7661dd54
--- /dev/null
+++ b/checksum.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use strict;
+
+while (defined $ARGV[0]) {
+	my $s1 = 0;
+	my $s2 = 0;
+	my $str = shift @ARGV;
+
+	for (split //, $str) {
+		$s1 = ($s1 + (ord $_)) % 255;
+		$s2 = ($s2 + $s1) % 255;
+	};
+	printf "%s:\t%d\n", $str, ($s2<<8) + $s1;
+}