Нужно написать/исправить функцию на Delphi, Base64 encode

[gvm]

Есть довольно простая программа, написанная мною (Delphi 6).

Что делает программа:
1) вытаскивает из базы нужную информацию (пару строчек)
2) сохраняет их в файл
3) кодирует содержимое файла в Base64
4) записывает результат в другой файл

Все кроме модуля кодирования в Base64 я написал сам, и впринципе оно работает, только результат кодирования неправильный (несколько лишних символов в конце строки).

Нужно исправить (или написать свою) функцию кодирования Base64.
Кодирование нужно только из текст в Base64, обратно не нужно.

Правильно работает кодирование тут: http://base64.ru/
Там же можно посмотреть как это реализовано на JavaScript: http://base64.ru/base64.js
То есть можно просто взять алгоритм функции encode и переписать это на Delphi.
Есть вариант что в сети уже есть готовые реализованные исходники этой функции, нужно их только встроить в программу.

Исподники программы я предоставлю, нужно будет заменить в них функцию кодирования.
Оплата небольшая (обсуждаемо, но задача не сложная), WMZ/WMR, предоплата 25% пользователям с хорошей репутацией, или показываете демку, я проверяю, оплачиваю - отдаете исходники.

!!! Уже не актуально.
Спасибо.

[Black Fregat]

Пишите black.fregat@gmail.com

[gvm]

Black Fregat, большое спасибо за помощь.