DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lxbfYeaa
今日帖子: 6
在线用户: 6
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 inbreak (入侵) ★☆☆☆☆ -
盒子活跃会员
2021/4/29 22:18:33
标题:
无意中看到这一些代码。挺恶心的。 浏览:1091
加入我的收藏
楼主: procedure TFrm_Login.Btn_OKClick(Sender: TObject);
var
  n:Integer;
begin
  sLoginID := ED_Username.Text; 
  //过期后。随着过期的时间越长(最长100天),随时出现错误的机率就越大;直到100%出现。
  if PubV_ExpiredDateD<Date() then begin
    Randomize;
    n := 10 - (Trunc((Date()- PubV_ExpiredDateD)/10)+1);
    if n<0 then n :=1 else n := Random(n);
    if n=1 then
    ShowErrorMsg('与数据服务器的连接出错。error code:10060');
  end;

  if DM.CheckUser(sLoginID,ED_Password.Text,LoginInfo) then begin
    ModalResult :=mrOk;
  end;
end;

难道作用就是逼迫使用者与软件开发者的联系?
----------------------------------------------
我是菜鸟,己经搞了十多年了,但是我仍然很菜。
作者:
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2021/4/29 22:21:59
1楼: 如果是共享软件,那是正常的
----------------------------------------------
虽千万人吾往矣!
作者:
男 wuxi15 (似水·流年) ▲▲▲▲△ -