provide checksum script to easily generate config checksum values

Smoothieware · Jan 2, 2013 · b195040 · b195040
1 parent 391d4ce
commit b195040
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/checksum.pl 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;
+}