Реализовать на Delphi алгоритм из exe файла

Имеется консольная программа, которая расшифровывает файлы. Необходимо реализовать тоже самое, но на Delphi, разобравшись с расшифровкой. Файл с программой - 5 с половиной Кб на ассемблере. Суть самого алгоритма не важна, т.е. допускается вставка куска ассемблерного кода непосредственно в функцию на Delphi. Программа на Delphi должна в качестве исходных данных получать Stream с зашифрованными данными, а на выходе должен быть другой Stream с расшифрованными данными.

Консольная программа расшифровки и пример зашифрованного файла в прикрепленном архиве.