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

11 May 2015


      Nice one - thanks for posting :-)

Cheers,  Mike.
...
-----Original Message-----
From: Public [mailto:public-bounces@talk.mikrotik.com.au] On Behalf Of
Matt Perkins
Sent: Monday, 11 May 2015 3:45 PM
To: public@talk.mikrotik.com.au
Subject: Re: [MT-AU Public] support.rif viewer
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 =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz012345678
9+/=";
         #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
*/
_______________________________________________
Public mailing list
Public@talk.mikrotik.com.au
http://talk.mikrotik.com.au/mailman/listinfo/public_talk.mikrotik.com.au