Sqids - это библиотека с открытым исходным кодом, которая позволяет генерировать короткие уникальные идентификаторы из чисел. Эти идентификаторы безопасны для URL, могут кодировать несколько чисел и не содержат обычные слова из списка непристойной лексики. Подробнее.
Вот как они выглядят:
Быстрый пример кодирования и декодирования:
DEFINE VARIABLE sqids AS Sqids NO-UNDO.
DEFINE VARIABLE numbers AS INTEGER EXTENT 3 NO-UNDO.
DEFINE VARIABLE id AS CHARACTER NO-UNDO.
sqids = NEW Sqids().
ASSIGN
numbers[1] = 1
numbers[2] = 2
numbers[3] = 3.
id = sqids:Encode(numbers). // '86Rf07'.
numbers = sqids:Decode(id). // [1, 2, 3]
Если идентификаторы слишком короткие, вы можете дополнить их до определенной длины:
DEFINE VARIABLE sqids AS Sqids NO-UNDO.
DEFINE VARIABLE numbers AS INTEGER EXTENT 3 NO-UNDO.
DEFINE VARIABLE id AS CHARACTER NO-UNDO.
sqids = NEW Sqids('', 10).
ASSIGN
numbers[1] = 1
numbers[2] = 2
numbers[3] = 3.
id = sqids:Encode(numbers). // '86Rf07xd4z'.
numbers = sqids:Decode(id). // [1, 2, 3]
Создание уникальных идентификаторов путем перемешивания алфавита:
DEFINE VARIABLE sqids AS Sqids NO-UNDO.
DEFINE VARIABLE numbers AS INTEGER EXTENT 3 NO-UNDO.
DEFINE VARIABLE id AS CHARACTER NO-UNDO.
sqids = NEW Sqids('k3G7QAe51FCsPW92uEOyq4Bg6Sp8YzVTmnU0liwDdHXLajZrfxNhobJIRcMvKt').
ASSIGN
numbers[1] = 1
numbers[2] = 2
numbers[3] = 3.
id = sqids:Encode(numbers). // 'XRKUdQ'.
numbers = sqids:Decode(id). // [1, 2, 3]
Полная документация находится на https://github.com/sqids/sqids-openedge-abl
Основное применение Sqids - это чисто визуальное. Если вы хотите использовать идентификаторы вместо чисел в своем проекте, Sqids может быть хорошим выбором.