Re: [MT-AU Public] support.rif viewer

11 May 2015

      Just as a FYI. I found this link

https://www.maxid.com.ar/supout-rif-reader-offline

Which saved my ass when the Mikrotik site was down.  It's not pretty but 
it works.

Here's the perl in the case that the link goes dead in the future.

Matt.

#!/usr/bin/perl
# paul@unsup.sbrk.co.uk
use Compress::Zlib;
use strict;

my $inf = shift;
my $in;
open(F, "<$inf") || die "Usage: unsup.pl /path/to/supout.inf";
while (<F>) {
         $_ =~ s/\s+$//; # strip terminating \r \n or other whitespace chars
         if ($_ eq "--BEGIN ROUTEROS SUPOUT SECTION") {
                 $in = "";
         } elsif ($_ eq "--END ROUTEROS SUPOUT SECTION") {
                 decode($in);
         } else {
                 $in .= $_;
         }
}

# this is base64 but done in a different byte order
sub decode {
         my $in = shift;
         # terminating "=" is so that index %64 == 0 for pad char
         my $b64 = 
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
         #my $np = length($in)-index($in,"="); # ignored at the moment
         #$np = 0 if (-1 == index($in,"="));
         my $out;
         for (my $i = 0; $i < length($in); $i+=4) {
                 my $o = index($b64, substr($in,$i+3,1))%64 << 18 |
                         index($b64, substr($in,$i+2,1))%64 << 12 |
                         index($b64, substr($in,$i+1,1))%64 << 6 |
                         index($b64, substr($in,$i,1))%64;
                 $out .= chr($o%256);
                 $out .= chr(($o>>8) % 256);
                 $out .= chr(($o>>16) % 256);
         }
         # decoded data consists of "section_name\0zlib_compressed_data"
         my $sec = substr($out, 0, index($out,"\0"));
         print "==SECTION $sec\n";
         my $cmp = substr($out, index($out,"\0")+1);
         my $uncomp = uncompress($cmp);
         print "$uncomp\n";
}

On 11/05/2015 1:48 pm, Matt Perkins wrote:
...
O good. I thought i was going daft.
Matt.
On 11/05/2015 1:43 pm, Mike Everest wrote:
...
Hi Matt, all
It's not just you - the entire client account system at mikrotik.com has
been flakey all weekend.  We are even having trouble getting 
certification
exams happening today :-(
Cheers,  Mike.
...
-----Original Message-----
From: Public [mailto:public-bounces@talk.mikrotik.com.au] On Behalf Of
Matt Perkins
Sent: Monday, 11 May 2015 1:40 PM
To: MikroTik Australia Public List
Subject: [MT-AU Public] support.rif viewer
Is it just me or is the support.rif viewer on the mikrotik web site
broken. I
have tried 4 browsers and 2 computers No luck in uploading any .rif 
files
and
no errror messages.
Matt
-- 
/* Matt Perkins
          Direct 1300 137 379        Spectrum Networks Ptd. Ltd.
          Office 1300 133 299        matt@spectrum.com.au
                                     Level 6, 350 George Street 
Sydney 2000
          Spectrum Networks is a member of the Communications 
Alliance &
TIO
*/
_______________________________________________
Public mailing list
Public@talk.mikrotik.com.au
http://talk.mikrotik.com.au/mailman/listinfo/public_talk.mikrotik.com.au
_______________________________________________
Public mailing list
Public@talk.mikrotik.com.au
http://talk.mikrotik.com.au/mailman/listinfo/public_talk.mikrotik.com.au
-- 
/* Matt Perkins
         Direct 1300 137 379        Spectrum Networks Ptd. Ltd.
         Office 1300 133 299        matt@spectrum.com.au
                                    Level 6, 350 George Street Sydney 2000
         Spectrum Networks is a member of the Communications Alliance & TIO
*/