Talk:Nintendo Zone: Difference between revisions

Line 30:

:: I already have the parser in Perl with the exact BASE64 alphabet sequence and able to host the decoder online or provide it for you to use on that host. I actually do not have any exploitable or dev unit to rip the actual data. As long as I manintan one of the homepass script implementation I always need the up to date hotspot list with the flags. Diff patch from the previous version will be enough --[[User:Duke srg|Duke srg]] 10:50, 11 December 2014 (CET)

::: Paste your script then. --[[User:Yellows8|Yellows8]] 17:35, 11 December 2014 (CET)

::::

#!/usr/bin/perl

use strict;

use MIME::Base64 qw( decode_base64 );

open INFILE,$ARGV[0] or die;

my @res;

while (<INFILE>) {

if ($_ =~ /.*,\d,\d$/) {

@res = split(',',$_);

$res[3] =~ s/\./+/gs;

$res[3] =~ s/-/\//gs;

$res[3] =~ s/\*/=/gs;

$res[3] = decode_base64($res[3]);

$res[3] =~ s/(.)/sprintf("%02X",ord($1))/egs;

printf "%s,%s,%s,%s", decode_base64(shift(@res)),decode_base64(shift(@res)),decode_base64(shift(@res)),join(',',@res);

}else{

print $_

}

close INFILE;

Will open file specified as a parameter and print the result with base64 decoded strings and key date inf hex string format. --[[User:Duke srg|Duke srg]] 18:18, 11 December 2014 (CET)

@@ Line 30: / Line 30: @@
 :: I already have the parser in Perl with the exact BASE64 alphabet sequence and able to host the decoder online or provide it for you to use on that host. I actually do not have any exploitable or dev unit to rip the actual data. As long as I manintan one of the homepass script implementation I always need the up to date hotspot list with the flags. Diff patch from the previous version will be enough --[[User:Duke srg|Duke srg]] 10:50, 11 December 2014 (CET)
 ::: Paste your script then. --[[User:Yellows8|Yellows8]] 17:35, 11 December 2014 (CET)
+::::
+#!/usr/bin/perl
+use strict;
+use MIME::Base64 qw( decode_base64 );
+open INFILE,$ARGV[0] or die;
+my @res;
+while (<INFILE>) {
+    if ($_ =~ /.*,\d,\d$/) {
+        @res = split(',',$_);
+        $res[3] =~ s/\./+/gs;
+        $res[3] =~ s/-/\//gs;
+        $res[3] =~ s/\*/=/gs;
+        $res[3] = decode_base64($res[3]);
+        $res[3] =~ s/(.)/sprintf("%02X",ord($1))/egs;
+        printf "%s,%s,%s,%s", decode_base64(shift(@res)),decode_base64(shift(@res)),decode_base64(shift(@res)),join(',',@res);
+    }else{
+        print $_
+    }
+}
+close INFILE;
+Will open file specified as a parameter and print the result with base64 decoded strings and key date inf hex string format. --[[User:Duke srg|Duke srg]] 18:18, 11 December 2014 (CET)