From f4da841034d06804b0471a93ef89a216c2c7cd9f Mon Sep 17 00:00:00 2001
From: Rene Krenn <rkrenn@sipwise.com>
Date: Thu, 6 Feb 2020 14:54:23 +0100
Subject: [PATCH] TT#75105 translate perl VAA gpp1 calc to javascript

Change-Id: Id6bd22df69ce5e2c4676c51fd78311d4ff392ebf
---
 sandbox/test_js.pl | 51 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 sandbox/test_js.pl

diff --git a/sandbox/test_js.pl b/sandbox/test_js.pl
new file mode 100644
index 0000000000..46b67ae89d
--- /dev/null
+++ b/sandbox/test_js.pl
@@ -0,0 +1,51 @@
+
+use strict;
+use JE qw();
+use Test::More;
+
+my $je = JE->new();
+my $je_result = $je->eval(<<EOJS
+var f = function() {
+    var ud = 'john\@doe.com';
+    var i;
+    var checksum = 0;
+    var result = '';
+    var packed = [ 0, 0x45, 0x80, ud.length ];
+    for (i = 0; i < ud.length; i++) {
+        packed.push(ud.charCodeAt(i));
+    }
+    for (i = 0; i < packed.length; i++) {
+        checksum = checksum ^ packed[i];
+    }
+    packed.push(checksum);
+    for (i = 0; i < packed.length; i++) {
+        h = packed[i].toString(16);
+        if (h.length < 2) {
+            result = result + '0';
+        }
+        result = result + h;
+    }
+    return result.toUpperCase();
+};
+f();
+EOJS
+);
+diag('js result: ' . $je_result);
+
+my $ps = sub {
+    #my $ud = $subscriber{username} . '@' . $domain{domain};
+    my $ud = 'john@doe.com';
+    my $packed = pack('CCC C a*', 0, 0x45, 0x80, length($ud), $ud);
+    my $checksum = 0;
+    for my $c (map {ord $_} split(//, $packed)) {
+        $checksum ^= $c;
+    }
+    $packed .= pack('C', $checksum);
+    return uc(unpack('H*', $packed));
+};
+my $ps_result = $ps->();
+diag('perl result: ' . $ps_result);
+
+is($je_result, $ps_result, 'result is the same');
+
+done_testing();
\ No newline at end of file