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

冥界3大法王

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


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

Poner

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

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

冥界3大法王

尘缘丶 发表于 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

这个牛逼，技术含量应该不低！

冥界3大法王

写的可能不对，升级更新。

初吻给奶嘴耶

  
来个免费评分呗  :p

ugvnui

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

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

ugvnui

试试去爱你

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

来了来了。学习学习

Poner

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

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

byh3025

ugvnui 发表于 2017-9-12 10:44

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