极语言7-14 YBQ解密

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键{如果(参数=1)解密文件}
否则{处理窗口(窗口,消息,参数,数据)}
结束;
文本 解密[256]="$000204062022242680828486A0A2A4A6010305072123252781838587A1A3A5A7080A0C0E282A2C2E888A8C8EA8AAACAE090B0D0F292B2D2F898B8D8FA9ABADAF101214163032343690929496B0B2B4B6111315173133353791939597B1B3B5B7181A1C1E383A3C3E989A9C9EB8BABCBE191B1D1F393B3D3F999B9D9FB9BBBDBF4042444660626466C0C2C4C6E0E2E4E64143454761636567C1C3C5C7E1E3E5E7484A4C4E686A6C6EC8CACCCEE8EAECEE494B4D4F696B6D6FC9CBCDCFE9EBEDEF5052545670727476D0D2D4D6F0F2F4F65153555771737577D1D3D5D7F1F3F5F7585A5C5E787A7C7ED8DADCDEF8FAFCFE595B5D5F797B7D7FD9DBDDDFF9FBFDFF";
文本 加密[256]="$001001110212031320302131223223334050415142524353607061716272637304140515061607172434253526362737445445554656475764746575667667778090819182928393A0B0A1B1A2B2A3B3C0D0C1D1C2D2C3D3E0F0E1F1E2F2E3F38494859586968797A4B4A5B5A6B6A7B7C4D4C5D5C6D6C7D7E4F4E5F5E6F6E7F7081809190A1A0B1B283829392A3A2B3B485849594A5A4B5B687869796A7A6B7B0C1C0D1D0E1E0F1F2C3C2D3D2E3E2F3F4C5C4D5D4E5E4F5F6C7C6D7D6E7E6F7F889889998A9A8B9BA8B8A9B9AABAABBBC8D8C9D9CADACBDBE8F8E9F9EAFAEBFB8C9C8D9D8E9E8F9FACBCADBDAEBEAFBFCCDCCDDDCEDECFDFECFCEDFDEEFEEFFF"
文本 路径[64];字节 数,值;文件框类 文件框(长度=76,路长=64);
小程序 窗体启动

文件框.路径=路径;
文件框.分类 = "解密文件'\0'*.cfg'\0'加密文件'\0'*.dec'\0'";
读取消息

结束;
小程序 解密文件

整数 文件,长度,缓冲,指针,扩展
如果(文件选框(文件框))
{
    文件 = 开文件(路径,0);
     长度=文件大小(文件,0)
     缓冲=申请内存(长度);
    读文件(文件,缓冲,长度)
    扩展=路径+文字长度(路径)-4
    如果(文件框.定位=1)
    {指针=解密;扩展&=0$.dec
    }
    否则{指针=加密;扩展&=0$.cfg}
      加解密(缓冲+20,指针,长度-20)
    关文件(文件)
    文件 = 建文件(路径,0);
    写文件(文件,缓冲,长度)
    关文件(文件)
}

结束;
小程序 加解密(整数 数据,整数 密钥,整数 长度);
指令(9A67058C7D2D99510B2CBF1291060E8B5A63F7];
结束;