https://mega.co.nz/#!nIZUQLBB!c7dXS2GbF ... cCL2NUQ5qA
Also here is a slightly modified perl script to generate the decrypted file..
Code: Select all
#!/usr/bin/perl
# perl unobfuscation.pl FullSonyHash EncryptedFile > DecryptedFile
use strict;
use warnings;
use IO::File;
my $file1 = shift;
die "Missing filename parameter.\n" unless defined $file1;
die "File '$file1' does not exist.\n" unless ( -f $file1 );my $fh1 = IO::File->new("<
$file1") or die "Unable to open file '$file1'.\n";
my $file2 = shift;
die "Missing filename parameter.\n" unless defined $file2;
die "File '$file2' does not exist.\n" unless ( -f $file2 );my $fh2 = IO::File->new("<
$file2") or die "Unable to open file '$file2'.\n";
my $file1Size = -s $file1;
my $file2Size = -s $file2;
my $Number = 0;
while ( defined ( my $c1 = getc($fh1) ) && $file2Size != $Number )
{
my $c2 = getc($fh2);
$c2 = "\x00" unless defined $c2;
my $o = $c1 ^ $c2;
print $o;
$Number = $Number + 1;
}