-- 作者:武田晴信
-- 发布时间:2013/9/28 10:34:56
--
{ //加密及期限 drawtextex(1,1,200,800,engincode()); rzb:=strcmp(engincode(),\'aaaaaaaaaa\'); if rzb<>0 then begin drawtextex(1,1,500,500,\'程序不能在此计算机上运行\'); exit; end 有效期:1121230,linethick0; 账号:11111,linethick0; zhh:=strtonum(taccount(1)); if zhh<>账号 then begin drawtextex(1,1,500,500,\'授权账号不正确,程序无法使用\'); exit; end if date>有效期 then begin drawtextex(1,1,500,500,\'已过授权时间,程序无法使用\'); exit; end
if datatype<>14 then begin drawtextex(1,1,50,950,\'本程序使用2分钟周期,请切换到Mn周期\'); exit; end }
这个是一个公式加密的程序,可以在其他的公式用吗,这个我没试过
|