极语言7-3 cfg解密

整数 文件, 写入,长度, num,de,dc,i,ln,bfq,bfi();文本 tmp[64];OPENFILENAME fn;
文本 sKey[64]="$121D07190F1F161B091A030D130E140B050217100A181C11061E00150C0804011A1F110A1E1018021D08140F1C0B0D041317000C0E1B06121503090716011905";
小程序 窗体消息(整数 句柄,整数 消息,整数 参数,整数 数据);
判断(消息)
为 单击左键{YbiFile(参数);}
为 窗口关闭{停止(0);}
否则{DefWindowProc(句柄,消息,参数,数据);}
结束;
小程序 窗体启动();
fn.lStructSize = 76;
fn.hwndOwner = 窗体;
fn.lpstrFilter = "cfg文件'\0'.cfg'\0'dec文件'\0'.dec'\0'";
fn.nMaxFileTitle = 64;
fn.lpstrDefExt = "cfg";
fn.lpstrFile = tmp;
fn.nMaxFile = 64;
fn.lpstrTitle = "打开文件";
读取消息();
结束;
小程序 YbiDenc(整数 pv,整数 md,整数 mn);
指令[8B7D088B1F8B750C31C0D1EB730B8A0EBA01000000D3E201D04685DB75ECAB8B5D104B895D1075DB];
结束;
小程序 YbiFile(整数 ty);
fn.nFilterIndex= ty;
tmp=0;GetOpenFileName(fn);
ln=tmp+len(tmp)-3;de=sKey;
文件 = fopen(tmp,"rb");
如果(ty=1){strcpy(ln,"dec");}否则{strcpy(ln,"cfg");de+32;}
如果(文件=-1){信息框(0,tmp,"打开文件失败",$10);}
否则{fseek(文件, 0, 2);
长度=ftell(文件);fseek(文件, 0, 0);
写入 = fopen(tmp,"wb+");
ln=长度/4;bfq=malloc(长度);
fread(bfq,长度,1,文件);
YbiDenc(bfq,de,ln);
fwrite(bfq,长度,1,写入);
free(bfq);
fclose(写入);
fclose(文件);
信息框(0,tmp,"操作完成",$40);}
结束;