Попробуй этим - TCryptLib
Компонент для Delphi 3,4,5. Осуществляет шифрацию-дешифрацию файлов, строк, потоков в памяти (TMemoryStream) методом блочной шифрации

качай здесь - http://www.euro.ru/~ntadm/cryptlib.zip