perl-script

Har fått tag på ett perl-script som kodar av .tbl filer som används i ett spel kallat KnightOnline

nu skulle jag vilja veta i teroin om det skulle går att använda sig av det scriptet för att göra ett script som "reencodar" filerna igen så man kan avnända dom i klienten...

kan posta scriptet om det behövs

vill dock bara veta om det skulle vara möjligt med hjälp av avkodnings-scriptet

#!/usr/bin/perl
use IO::Seekable;
use open IO => ":raw";

my $x;

($file, $addr) = @ARGV;
open (FH, $file);
$/="\000";
$addr= oct $addr;
seek(FH,$addr,SEEK_SET);

my $ebp=0x1608;
my $ebx=0x816;
my $direct=0x6081;
my $edx;
my $out;

do {
$x=read(FH,$height,1);
$height=unpack("C",$height);
$out=pack("C",(($ebx&0xff00)>>8)^$height);
print $out;

$edx=($ebx+$height)&0xFFFF;
$edx=($edx*$direct)&0xFFFF;
$edx= ($edx+$ebp)&0xFFFFFFFF;
$ebx=$edx;
} while ($x);

här är koden
nån som kan skriva om det så det gör tvärtom vad det gör nu?