Base62 (newLISP)

newLISP вариант:

; Кодирует в буквоцифры и подчёркивание
(define (base62-enc text)
  (replace "=" (replace "+" (replace "/" (base64-enc text) "_s") "_p") "_e"))

; Раскодирует из буквоцифр и подчёркивания
(define (base62-dec text)
  (base64-dec (replace "_e" (replace "_p" (replace "_s" text "/") "+") "=")))

JavaScript вариант:

var Base62 = {

  // Кодирует данные в букво-цифро-подчёркивание
  encode : function (input) {
    return Base64.encode(input).replace(/\//g, "_s").replace(/\+/g, "_p").replace(/=/g, "_e");
  },

  // Раскодирует данные из букво-цифро-подчёркивания
  decode : function (input) {
    return Base64.decode(input.replace(/_s/g, "/").replace(/_p/g, "+").replace(/_e/g, "="));
  }
}