78
edits
Changes
mLine 32:
Line 32: − + − + − + − + − + − + − 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 $_+ + − }+ −
no edit summary
::::
::::
{
{
#!/usr/bin/perl
#!/usr/bin/perl
use strict;
use strict;
use MIME::Base64 qw( decode_base64 );
use MIME::Base64 qw( decode_base64 );
open INFILE,$ARGV[0] or die;
open INFILE,$ARGV[0] or die;
my @res;
my @res;
while (<INFILE>) {
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;
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)