s iFile="C:\tmp\1.in"
s oFile="C:\tmp\1.out"
s pswd="123"
s istr="qwerty"
; записать кодируемую строку в файл
s f=##class(%File).%New(iFile)
s sc=f.Open("WNKS:/IOTABLE=""RAW""")
s sc=f.Write(istr)
d f.Close() k f
; подготовить и выполнить команду openssl
s cmd="openssl enc -des -in "_iFile_" -k "_pswd_" -out "_oFile
s res=$zf(- 1 ,cmd)
; считать выходной файл
s f=##class(%FileBinaryStream).%New(oFile)
s f.Filename=oFile
s l= 32000 ,ostr=f.Read(.l)
d f.%Close() k f
; в ostr получим результат шифрования des
w !,ostr
; удалить файлы
s res=##class(%File).Delete(iFile)
s res=##class(%File).Delete(oFile)
q

-k             passphrase is the next argument
-kfile         passphrase is the first line of the file argument