sub SetEmailLink {
  my ( undef, $linkCiphers, undef, $key ) = @_;
  my $link = q();
  for( my $i = 0; $i != @$linkCiphers; ++$i ) {
    my $linkChar = $linkCiphers->[$i] - $key->[$i % @$key];
    $link .= chr($linkChar);
  }
  return $link;
};

print SetEmailLink('phmain_1_phrightcontent_0_lnkEmail', [113,104,125,164,118,187,87,149,128,146,184,114,53,138,161,112,176,146,143,76,160,188,112,114,121,154,113,190,132,80,112,152], [], [4,7,20,56,2,76,29,34,12,45,83])