吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 6205|回复: 25
收起左侧

[CrackMe] 吾爱破解数字摇号型CrackMe来了~~

[复制链接]
冥界3大法王 发表于 2017-9-12 09:07
CM是什么?Crackme是什么?这是什么东西?楼主发的什么?
他们都是一些公开给别人尝试破解的小程序,制作 Crackme 的人可能是程序员,想测试一下自己的软件保护技术,也可能是一位 Cracker,想挑战一下其它 Cracker 的破解实力,也可能是一些正在学习破解的人,自己编一些小程序给自己破解,KeyGenMe是要求别人做出它的 keygen (序号产生器), ReverseMe 要求别人把它的算法做出逆向分析, UnpackMe 是要求别人把它成功脱壳,本版块禁止回复非技术无关水贴。

本帖最后由 冥界3大法王 于 2017-9-12 09:42 编辑




此版本 可能有问题。
还是用二楼的来娱乐吧。


Delphi 7 随机事件写的,欢迎来娱乐。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册[Register]

x

免费评分

参与人数 4吾爱币 +4 热心值 +4 收起 理由
alienhh + 1 + 1 谢谢@Thanks!
Three_fish + 1 + 1 谢谢@Thanks!
ahmeijian + 1 + 1 谢谢@Thanks!
ThunderS + 1 + 1 用心讨论,共获提升!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

Poner 发表于 2017-9-12 10:20
冥界3大法王 发表于 2017-9-12 09:38
写的可能不对,升级更新。

Delphi?挺不错   但是爆破玩起来没什么意思   回头可以出一个玩算法的

点评

后面的弹框部分草草搞了搞,大神见笑了。  发表于 2017-9-12 10:37
 楼主| 冥界3大法王 发表于 2017-9-24 08:23
本帖最后由 冥界3大法王 于 2017-9-24 08:24 编辑
尘缘丶 发表于 2017-9-14 10:04
楼主你的升级版出问题了,没有判断空值,第二次摇号注册就一直负数

@尘缘丶  @Shizev代码贴出来了,给我修改下吧。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Count_timer2: TTimer;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Count_timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label3.Visible := true;
  Label5.Visible := true;
  ////////我想在这加上label5.caption:=20;   怎么报错呢?
  Count_timer2.Enabled := true;
  Timer1.Enabled := true;
end;

procedure TForm1.Count_timer2Timer(Sender: TObject);
begin
  Label5.Caption := IntToStr(StrToint(Label5.Caption) - 1);
  if StrToint(Label5.Caption) = 0 then
  begin
    Count_timer2.Enabled := false;
    Timer1.Enabled := false;
    ShowMessage('注册失败,你耍我啊~~');
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
begin
  i := 0;
  while i = 0 do
  begin
    Randomize;
    i := random(999999)
  end;
  Label1.Caption := inttostr(i);
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.Text := '';
end;

end.

finalcrasher 发表于 2017-9-12 09:29
这个牛逼,技术含量应该不低!

点评

写得不好,惭愧!  发表于 2017-9-12 09:43
 楼主| 冥界3大法王 发表于 2017-9-12 09:38
写的可能不对,升级更新。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册[Register]

x
初吻给奶嘴耶 发表于 2017-9-12 10:13
  
来个免费评分呗  :p

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册[Register]

x

点评

众在交流学习,加分是版主老爷的工作。  发表于 2017-9-12 10:39

免费评分

参与人数 1吾爱币 +8 收起 理由
Peace + 8 我很赞同!

查看全部评分

ugvnui 发表于 2017-9-12 10:35
Poner 发表于 2017-9-12 10:20
Delphi?挺不错   但是爆破玩起来没什么意思   回头可以出一个玩算法的

这种随机产生的可以得到算法么?大佬
ugvnui 发表于 2017-9-12 10:44

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册[Register]

x
试试去爱你 发表于 2017-9-12 15:35
Poner 发表于 2017-9-12 10:20
Delphi?挺不错   但是爆破玩起来没什么意思   回头可以出一个玩算法的

来了来了。学习学习
Poner 发表于 2017-9-12 15:36
试试去爱你 发表于 2017-9-12 15:35
来了来了。学习学习

你还那么有闲功夫?把这个破了我看看
byh3025 发表于 2017-9-12 20:28 来自手机
ugvnui 发表于 2017-9-12 10:44

这种改法是不是只能是0呢
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 警告:本版块禁止回复与主题无关非技术内容,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-3-28 23:09

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表