Yo estoy migrando un software hecho en Delphi para PHP y me encontré con un problema en un jodido Función de cifrado bendito.
Sufrí un poco tratar de reescribir la función hace a la complejidad del código y con las diferencias en los resultados.
La función hace uso de operadores XOR y SHR en la versión de Delphi. El SHR fue relativamente fácil gracias a la experiencia con operadores bit a bit y como documentación de Delfos dice que el operador tira de bits a la derecha