Sqids es una biblioteca de código abierto que te permite generar identificadores cortos únicos a partir de números. Estos IDs son seguros para URL, pueden codificar varios números y no contienen palabras malsonantes comunes. Leer más.
Así es cómo lucen:
Ejemplo rápido de codificación y decodificación:
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]
Si los IDs son muy cortos, puedes rellenarlos hasta cierta longitud:
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]
Crea IDs únicos al barajar el alfabeto:
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]
La documentación completa está en https://github.com/sqids/sqids-openedge-abl
El uso principal de Sqids es puramente visual. Si prefieres usar IDs en lugar de números en tu proyecto, Sqids podría ser una buena elección.