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

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 3498|回复: 25

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

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

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

Snap3.jpg


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


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

免费评分

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

查看全部评分

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

发表于 2017-9-12 10:20 | 显示全部楼层
冥界3大法王 发表于 2017-9-12 09:38
写的可能不对,升级更新。

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

点评

后面的弹框部分草草搞了搞,大神见笑了。  发表于 2017-9-12 10:37

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

 楼主| 发表于 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.

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

发表于 2017-9-12 09:29 | 显示全部楼层
这个牛逼,技术含量应该不低!

点评

写得不好,惭愧!  发表于 2017-9-12 09:43

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

 楼主| 发表于 2017-9-12 09:38 | 显示全部楼层
222.rar (164.1 KB, 下载次数: 62)

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

发表于 2017-9-12 10:13 | 显示全部楼层
QQ截图20170912101056.png   
来个免费评分呗  :p

点评

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

免费评分

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

查看全部评分

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

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

这种随机产生的可以得到算法么?大佬

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

发表于 2017-9-12 10:44 | 显示全部楼层
QQ截图20170912104325.jpg

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

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

来了来了。学习学习

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

发表于 2017-9-12 15:36 | 显示全部楼层
试试去爱你 发表于 2017-9-12 15:35
来了来了。学习学习

你还那么有闲功夫?把这个破了我看看

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

发表于 2017-9-12 20:28 来自手机 | 显示全部楼层
ugvnui 发表于 2017-9-12 10:44

这种改法是不是只能是0呢

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子分类或者标题加上【已解决】

如何回报帮助你解决问题的坛友,一个好办法就是给对方加【热心】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则


免责声明:
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52PoJie.Cn

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

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

GMT+8, 2018-7-23 00:45

Powered by Discuz!

© 2001-2017 Comsenz Inc.

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