From 3642ced941cc20f2a68a996d7fc415cc3dada12d Mon Sep 17 00:00:00 2001
From: Zaid Abdulla <zkam83@gmail.com>
Date: Fri, 8 Feb 2013 19:26:32 +0300
Subject: [PATCH] A perl script to be used as a reference when specifying
 default ACS and connection request credentials in firmware

---
 tools/genie_auth.pl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 tools/genie_auth.pl

diff --git a/tools/genie_auth.pl b/tools/genie_auth.pl
new file mode 100755
index 0000000..70936b1
--- /dev/null
+++ b/tools/genie_auth.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+use Digest::MD5 qw(md5_base64);
+use URI::Escape;
+print "Enter the details *exactly* as sent in device TR-069 informs (case sensitive).\n";
+print 'Serial number: ';
+chomp($serial = <>);
+$serial = uri_escape($serial, '^A-Za-z0-9_');
+
+print 'OUI: ';
+chomp($oui = <>);
+$oui = uri_escape($oui, '^A-Za-z0-9_');
+
+print 'Product class (leave blank if not available): ';
+chomp($product_class = <>);
+$product_class = uri_escape($product_class, '^A-Za-z0-9_');
+
+if ($product_class eq '') {
+  $device_id = "$oui-$serial"
+}
+else {
+  $device_id = "$oui-$product_class-$serial"
+}
+
+print "ACS username: $device_id\n";
+print 'ACS password: ' . md5_base64("${device_id} Open Sesame") . "\n";
+print "Connection request username: $device_id\n";
+print 'Connection request password: ' . md5_base64("${device_id} Sesame, open") . "\n";