易语言文本DES加密源码

系统结构:TestBit,SetBit1,SetBit0,DES_Encrypt,DES_Decrypt,DESInitSwap,DESInitReSwap,DESGenSubKey,DESSingleTurn,DES_f,DES_SysInit,DES_SetOriMsg,DES_SetKey,DES_解密,DES_加密,辅_16进制到10进制,计算8位密钥,加密文本,解密文本,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======Des_Base
           |  |
           |  |------ _初始化
           |  |
           |  |------ TestBit
           |  |
           |  |------ SetBit1
           |  |
           |  |------ SetBit0
           |  |
           |  |------ DES_Encrypt
           |  |
           |  |------ DES_Decrypt
           |  |
           |  |------ DESInitSwap
           |  |
           |  |------ DESInitReSwap
           |  |
           |  |------ DESGenSubKey
           |  |
           |  |------ DESSingleTurn
           |  |
           |  |------ DES_f
           |  |
           |  |------ DES_SysInit
           |  |
           |  |------ DES_SetOriMsg
           |  |
           |  |------ DES_SetKey
           |  |
           |  |------ DES_解密
           |  |
           |  |------ DES_加密
           |  |
           |  |
======字符串加解密
           |  |
           |  |------ 辅_16进制到10进制
           |  |
           |  |------ 计算8位密钥
           |  |
           |  |------ 加密文本
           |  |
           |  |------ 解密文本
           |  |
           |  |
======程序集1
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _FillMemory
           |  |
           |  |---[dll]------   _CopyMemory
           |  |
           |  |---[dll]------   _CopyMemory_any

调用的DLL命令:

.DLL命令 _FillMemory, , , "RtlFillMemory"
    .参数 Destination, 字节型, 传址
    .参数 Length, 整数型
    .参数 Fill, 整数型

.DLL命令 _CopyMemory, , , "RtlMoveMemory"
    .参数 Dest, 字节型, 传址
    .参数 Src, 字节集
    .参数 Len

.DLL命令 _CopyMemory_any, , , "RtlMoveMemory"
    .参数 Dest, 字节型, 数组
    .参数 Src, 字节集
    .参数 Len