Perl code - 37 lines - codepad

#!/usr/bin/perl -- use strict; use warnings; use Data::Dumper; my $size = -s "ccatalog87.db"; open(IN, "ccatalog87.db"); open(OUT, "> orig.db"); binmode(IN); binmode(OUT); my $seed= "axdaoeradssadsqx"; my @xorArr = buildXor($seed); while (read(IN, my $buf, 1020)) { my $l = length($buf); for (my $i=0; $i<60; $i++) { for (my $j=0; $j<17; $j++) { last if($i*17+$j+1 >$l); my $c = ord(substr($buf,$i*17