Dom Player Hack

Sa zicem ca am avut niste fisiere.avi care erau blocate cumva sa fie vazute doar cu Dom Player. Bun dar eu vreau sa vad filmu fara sa scot spyware si adware si alte rahaturi de programele care vin de pe torenti. Asa ca am cautat si am gasit un script in perl si l-am modificat un pic ca sa decodeze mai rapid filmele astea encodate cu Dom Player. Am facut un Dom Player Hack tool. Partea nasola a cu scriptu asta e ca trebuie neaparat perl ca sa poata rula dar partea buna este ca in cam 5 minute decodeaza un film encodat cu Dom Player-u asta.


# Turn of output buffer
$|++;

# The key for XOR decryption
my $key = 'UIERYQWORTWEHLKDNKDBISGLZNCBZCVNBADFIEYLJ' . chr(0);
my $times=0;

print "Reading from \"$ARGV[0]\":\n";
$insize = -s $ARGV[0];
# Open the bogus AVI file
open(IN, $ARGV[0]) or die $!;
binmode IN;

# Read Header to check
read(IN, $buffer, 4);
if ($buffer ne 'RIFF') {
print " ERROR: \"$ARGV[0]\" is not an AVI\n";
close IN;
exit(1);
}
# Get Length of the unencrypted movie
read(IN, $buffer, 4);
$offset = unpack 'L', $buffer;
print " End of the unencrypted movie is at byte offset $offset\n";

# Jump to the read offset
seek(IN, $offset, 0);

# The next 4 or 8 Bytes seem to be either an unsinged long
# or an unsigned quad. This is another offset to jump
# over some filler bytes. Right now I can't really tell if
# it's 4 or 8 bytes, because I only have 1 file to test with.
# I assume it's a quad.

# low word
read(IN, $buffer, 4);
$offlo = unpack 'L', $buffer;
# high word
read(IN, $buffer, 4);
$offhi = unpack 'L', $buffer;
# Calculate offset
$offset = $offhi * 4294967296 + $offlo;

print " Offset after the unencrypted movie is $offset\n";
seek(IN, $offset, 0);

# Then there seem to be another 100 filler bytes
# with value 0xff. Jump over those too, to get
# to the offset where the real movie starts.
printf " Adding extra filler bytes, final offset is %s\n", $offset+100;
seek(IN, 100, 1);

# Update the size
$insize -= $offset+100;

# Open a file for writing the decrypted data to
print "Decrypting to \"$ARGV[1]\":\n";
open(OUT, ">$ARGV[1]");
binmode OUT;
truncate OUT, 0;

$bytes = 0;
$klen = length($key);
# Read key length bytes, decrypt them and
# write them to the output file untill you reach
# the end of the file
while ( read(IN, $buffer, $klen) ) {
$buffer ^= $key;
print OUT $buffer;
$bytes += $klen;
if ($times%1000==0)
{
printf "\r written (% .1f %%)", ($bytes / $insize * 100);
$times=0;
}
++$times;
}
# Close both files
close OUT;
close IN;
print "\n\nDONE!\n";

Pentru a rula scriptu asta puteti downloada Active Perl . Se instaleaza usor si gasiti si instructiuni usor de folosit. Scriptul Dom Player Hack se poate descarca si de aici folosind parola stixuriverbale.