Преобразование десятичной СС в другую

Delphi FAQ >> Алгоритмы

{ Данная функция возвращает представление десятичного
Decimal в виде другой системы
счисления с основанием Base (в промежутке от 2 до 16) }

function DecToBase(Decimal: LongInt; const Base: Byte): String;
const
  Symbols: String[16] = '0123456789ABCDEF';
var
  scratch: String;
  remainder: Byte;
begin
  scratch := '';
  repeat
    remainder := Decimal mod Base;
    scratch := Symbols[remainder + 1] + scratch;
    Decimal := Decimal div Base;
  until ( Decimal = 0 );
  Result := scratch;
end;


Сейчас кино-продукция активно распространяется в интернете. Пользователи обмениваются фильмами в социальных сетях, рассказывают про них на блогах. Разумеется, не везде можно просто так скачать файл, но иногда все же можно скачать фильмы бесплатно без регистрации.