Descriptografar senha

Salve...

O script abaixo recebe do banco a senha criptografada e de acordo com a chave teria que descriptografa-la. Porém o script não está exibindo o primeiro caracter da senha.. exemplo a senha criptografada foi

ABC123.. o script retorna apenas BC123.

Segue script para análise:

public function MOD($num,$base) {
return $num % $base;
}

public function descriptografa($mStr,$mChave) {

$Result = $mStr;
$TamanhoString = strlen($mStr);
$TamanhoChave = strlen($mChave);

for ($i = 1; $i < $TamanhoString; $i++) {
$pos = $this->MOD($i,$TamanhoChave);

if ($pos == 0) { $pos = $TamanhoChave; }

$posLetra = ord($Result[$i]) ^ ord($mChave[$pos]);

if ($posLetra == 0) { $posLetra = ord($Result[$i]); }

$Result[$i] = chr($posLetra);
}
return $Result;
}

Espero que possam me ajudar, do contrario o cliente terá que criar um novo campo na tabela

para senhaWEB.. Ah lembrando que o banco é firebird.

Obrigado

Att,