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

冥界3大法王 发表于 2017-9-12 09:07

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

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

Delphi 7 随机事件写的，欢迎来娱乐。{:301_975:}

Poner 发表于 2017-9-12 10:20

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

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

冥界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

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

冥界3大法王 发表于 2017-9-12 09:38

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

初吻给奶嘴耶 发表于 2017-9-12 10:13

来个免费评分呗:p

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

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

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

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

试试去爱你 发表于 2017-9-12 15:35

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

{:1_918:}来了来了。学习学习

Poner 发表于 2017-9-12 15:36

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

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

byh3025 发表于 2017-9-12 20:28

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

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

页: [1] 2

吾爱破解 - 52pojie.cn's Archiver

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