78
edits
Changes
no edit summary
::: Paste your script then. --[[User:Yellows8|Yellows8]] 17:35, 11 December 2014 (CET)
::: Paste your script then. --[[User:Yellows8|Yellows8]] 17:35, 11 December 2014 (CET)
::::
::::
#!/usr/bin/perl
#!/usr/bin/perl
use strict;
use strict;
$res[3] = decode_base64($res[3]);
$res[3] = decode_base64($res[3]);
$res[3] =~ s/(.)/sprintf("%02X",ord($1))/egs;
$res[3] =~ s/(.)/sprintf("%02X",ord($1))/egs;
$res[3] = "";
$res[5] = "";
printf "%s,%s,%s,%s", decode_base64(shift(@res)),decode_base64(shift(@res)),decode_base64(shift(@res)),join(',',@res);
printf "%s,%s,%s,%s", decode_base64(shift(@res)),decode_base64(shift(@res)),decode_base64(shift(@res)),join(',',@res);
}else{
}else{
print $_
print $_;
}
}
}
}
close INFILE;
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)
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)
:"with certain data stripped out" <- I was referring to the ApNum and SecurityKey field values. --[[User:Yellows8|Yellows8]] 18:42, 11 December 2014 (CET)
:: Fixed with blank values --[[User:Duke srg|Duke srg]] 18:57, 11 December 2014 (CET)