易语言QQTEA算法源码

系统结构:字符编码,utf8到文本,文本到utf8,MD5,字节集到十六,十六到字节集,字节集到数组,翻转字节集,四字节到ip,四字节到整数,二字节到整数,显示字节集,一字节到整数,取随即字节集,解密,加密,UnHashTea,Decrypt8Bytes,Decipher,GetUInt,ToBytes,HashTea,Encrypt8Bytes,Encipher,长整型位异或,长整型位与,长整型右移,长整型左移,到无符号长整型,解密,加密,UnHashTea,Decrypt8Bytes,Decipher,GetUInt,ToBytes,HashTea,Encrypt8Bytes,Encipher,长整型位异或,长整型位与,长整型右移,长整型左移,到无符号长整型,十六进制转十进制_,网络通讯异步选择_,SetWindowLong,CallWindowProc,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 字符编码
           |  |
           |  |------ utf8到文本
           |  |
           |  |------ 文本到utf8
           |  |
           |  |------ MD5
           |  |
           |  |------ 字节集到十六
           |  |
           |  |------ 十六到字节集
           |  |
           |  |------ 字节集到数组
           |  |
           |  |------ 翻转字节集
           |  |
           |  |------ 四字节到ip
           |  |
           |  |------ 四字节到整数
           |  |
           |  |------ 二字节到整数
           |  |
           |  |------ 显示字节集
           |  |
           |  |------ 一字节到整数
           |  |
           |  |------ 取随即字节集
           |  |
           |  |
======tea
           |  |
           |  |------ 解密
           |  |
           |  |------ 加密
           |  |
           |  |------ UnHashTea
           |  |
           |  |------ Decrypt8Bytes
           |  |
           |  |------ Decipher
           |  |
           |  |------ GetUInt
           |  |
           |  |------ ToBytes
           |  |
           |  |------ HashTea
           |  |
           |  |------ Encrypt8Bytes
           |  |
           |  |------ Encipher
           |  |
           |  |------ 长整型位异或
           |  |
           |  |------ 长整型位与
           |  |
           |  |------ 长整型右移
           |  |
           |  |------ 长整型左移
           |  |
           |  |------ 到无符号长整型
           |  |
           |  |
======TEA算法
           |  |
           |  |------ 解密
           |  |
           |  |------ 加密
           |  |
           |  |------ UnHashTea
           |  |
           |  |------ Decrypt8Bytes
           |  |
           |  |------ Decipher
           |  |
           |  |------ GetUInt
           |  |
           |  |------ ToBytes
           |  |
           |  |------ HashTea
           |  |
           |  |------ Encrypt8Bytes
           |  |
           |  |------ Encipher
           |  |
           |  |------ 长整型位异或
           |  |
           |  |------ 长整型位与
           |  |
           |  |------ 长整型右移
           |  |
           |  |------ 长整型左移
           |  |
           |  |------ 到无符号长整型
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _UTF8生成
           |  |
           |  |---[dll]------   _字符编码
           |  |
           |  |---[dll]------   _编码转换
           |  |
           |  |---[dll]------   _取目标编码长度
           |  |
           |  |---[dll]------   十六进制转十进制_
           |  |
           |  |---[dll]------   网络通讯异步选择_
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc

调用的DLL命令:

.DLL命令 _UTF8生成, 整数型, , "WideCharToMultiByte"
    .参数 CodePage, 整数型, , CP_ACP CP_UTF8
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cbMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 _字符编码, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型, , CP_ACP CP_UTF8
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cbMultiByte, 整数型

.DLL命令 _编码转换, 整数型, , "WideCharToMultiByte"
    .参数 CodePage, 整数型, , CP_ACP CP_UTF8
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 整数型
    .参数 cbMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 _取目标编码长度, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型, , CP_ACP CP_UTF8
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 整数型
    .参数 cbMultiByte, 整数型

.DLL命令 十六进制转十进制_, 整数型, "shlwapi.dll", "StrToIntExA", , 公开, StrToIntExA 成功返回1(非0) 失败返回0 可以判断是不是输入的不是 O到9  A到F
    .参数 转换文本, 文本型, , pszString  “0x” ＋ 转换文本    pszString  一般为 如果标志为0的话 则直接填写 转换文本 如果标志为1的话 转换文本="0x"+转换文本
    .参数 标志, 整数型, , dwFlags    1     dwFlags 标志为0则为10进制 标志为1则为十六进制
    .参数 返回值, 整数型, 传址, piRet       得到的10进制

.DLL命令 网络通讯异步选择_, 整数型, "ws2_32.dll", "WSAAsyncSelect", 公开, ,
    .参数 套接字句柄, 整数型, , s
    .参数 窗口句柄, 整数型, , hWnd
    .参数 消息值, 整数型, , wMsg
    .参数 事件, 整数型, , lEvent

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", 公开, 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", 公开, 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型