Из СИ в Delphi перевести (алгоритм)

Вроде как на СИ похож, хотя я выдрал его из HTML файла. А может PHP. Но ведь они похожи?

Простенький алгоритм преобразования бинарных данных в удобочитаемый вид для человека.

В личку (или на e-mail если оставите) вышлю функции для определения цены.