ClassMethod AESECBPKCS5PaddingEncrypt(str As %String, key As %String = "") As %String
{
s str = $zcvt(str, "O", "UTF8")
s paddingLen = 16 - ($length(str) # 16)
s list = $lb(1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "e", "f")
s paddingStr= "0" _ $lg(list, paddingLen)
s padding = ..Repeat($c($zhex(paddingStr)) ,paddingLen)
s ret  = str _ padding
s ret = ##class(%SYSTEM.Encryption).AESEncode(ret, key)
s ret = ##class(%SYSTEM.Encryption).Base64Encode(ret)
q ret
}