易语言文本DES加密

.计次循环首 (取文本长度 (txt), i)
ByteValue ＝ 取代码 (txt, i)
.如果真 (ByteValue ＞ #F键 或 ByteValue ＜ #键0)
返回 (0)
.如果真结束
result ＝ result × 16 ＋ ByteValue － 选择 (ByteValue ≥ #A键, #键7, #键0)
.计次循环尾 ()