数据包一键解密工具

.判断开始 (l_type ＝ 1)
l_data ＝ DETEA (取字节集左边 (l_bin, 取字节集长度 (l_bin) － l_i ＋ 1), l_key)
.默认
l_data ＝ DETEA (取字节集右边 (l_bin, 取字节集长度 (l_bin) － l_i ＋ 1), l_key)
.判断结束

.如果真 (取字节集长度 (l_data) ＞ 0)
编辑框3.内容 ＝ “解密KEY” ＋ #换行符 ＋ Bin2Hex (l_key)
.判断开始 (l_type ＝ 1)
编辑框3.加入文本 (#换行符 ＋ #换行符 ＋ “解密前数据” ＋ #换行符 ＋ Bin2Hex (取字节集左边 (l_bin, 取字节集长度 (l_bin) － l_i ＋ 1)))
.默认
编辑框3.加入文本 (#换行符 ＋ #换行符 ＋ “解密前数据” ＋ #换行符 ＋ Bin2Hex (取字节集右边 (l_bin, 取字节集长度 (l_bin) － l_i ＋ 1)))
.判断结束
编辑框3.加入文本 (#换行符 ＋ #换行符 ＋ “解密后数据” ＋ #换行符 ＋ Bin2Hex (l_data))
l_b ＝ 1
跳出循环 ()