Закодировать значение как base64

StackOverflow https://stackoverflow.com/questions/1833831

  •  11-09-2019
  •  | 
  •  

Вопрос

Я пытаюсь написать настройку в Lyris ListManager (10.2).Язык — TCL, о котором я знаю очень мало.Нам нужно закодировать значение в формате Base64 (или вообще в любом другом формате, который запутывает параметр строки запроса), но я не могу понять, как это сделать.Есть ли встроенная в TCL команда для этого?

Это было полезно?

Решение

После вашей проблемы с использованием пакета base64 вы можете использовать эти небольшие процедуры для преобразования ваших данных в шестнадцатеричный формат и обратно.Требуется Tcl > 8

proc BIN2HEX { text }   { binary scan $text H* result; return $result }
proc HEX2BIN { hex }    { return [binary format H* $hex] }
set hex [BIN2HEX $yourText]
set textAgain [HEX2BIN $hex]

Если вам действительно нужен base64, вы можете просто скопировать/вставить весь файл base64 из дистрибутива tcllib. http://sourceforge.net/projects/tcllib/files/tcllib/1.11.1/ в ваш код (удалите строку «пакет предоставляет»)

Другие советы

Наличие http://tcllib.sourceforge.net/doc/base64.html похоже, указывает на отсутствие собственных функций.Вы можете скопировать исходный код и добавить его в свои модификации.

% base64::encode "Hello, world"
SGVsbG8sIHdvcmxk

% base64::encode [string repeat xyz 20]
eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6
eHl6eHl6eHl6
% base64::encode -wrapchar "" [string repeat xyz 20]
eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6eHl6

# NOTE: base64 encodes BINARY strings.
% set chemical [encoding convertto utf-8 "C\u2088H\u2081\u2080N\u2084O\u2082"]
% set encoded [base64::encode $chemical]
Q+KCiEjigoHigoBO4oKET+KCgg==
% set caffeine [encoding convertfrom utf-8 [base64::decode $encoded]]

Если у вас есть возможность загружать библиотеки Tcl (пакеты/модули) в вашу среду, вы можете просто использовать Tcllib выполнение.Именно это Винко Врсалович показывал команде в своем ответе.

% package require base64
2.4
% base64::encode bob
Ym9i

Если было бы достаточно просто закодировать в шестнадцатеричном формате, вы можете использовать двоичный командуйте следующим образом:

% set query "Hello, world"
Hello, world
% binary scan $query H* hexquery
1
% puts $hexquery
48656c6c6f2c20776f726c64
Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top