Jump to content
Tuts 4 You

delphi keygenning help

Accede

By Accede
in Programming and Coding

Recommended Posts

Accede

Accede

Posted
Posted

Can any god keygener me help on this mistake her is the code:

procedure TForm1.btn1Click(Sender: TObject);

const

chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

var

N,A,B,C,D,E,F,i:Integer;

serial1,S,U,V,W,X:string;

Activation:array of Char;

begin

serial1 :='';

begin

if cbb1.Text = 'OJOsoft DVD Ripper'then//cbb is combobox

if cbb1.Text = 'OJOsoft Total Video Converter' then

if cbb1.Text = 'OJOsoft iPod Video Converter' then

if cbb1.Text = 'OJOsoft DVD Audio Ripper' then

if cbb1.Text = 'OJOsoft WMA to MP3 Converter' then

if cbb1.Text = 'OJOsoft DVD to AVI Converter' then

if cbb1.Text = 'OJOsoft WAV to MP3 Converter' then

if cbb1.Text = 'OJOsoft DVD to PSP Converter' then

if cbb1.Text = 'OJOsoft DVD to Zune Converter' then

if cbb1.Text = 'OJOsoft DVD to MP4 Converter' then

if cbb1.Text = 'OJOsoft DVD to iPhone Converter' then

if cbb1.Text = 'OJOsoft DVD to 3GP Converter' then

if cbb1.Text = 'OJOsoft HD Video Converter' then

if cbb1.Text = 'OJOsoft 3GP Converter' then

if cbb1.Text = 'OJOsoft MP4 Converter' then

if cbb1.Text = 'OJOsoft iPhone Video Converter' then

Randomize;

s :='';

for i := 1 to 4 do begin

n :=Random(Length(Chars)) + 1;

s := s + chars[n];

end;

Randomize;

u :='';

for i := 1 to 4 do begin

n :=Random(Length(Chars)) + 1;

u := u + chars[n];

end;

Randomize;

v :='';

for i := 1 to 4 do begin

n :=Random(Length(Chars)) + 1;

v := v + chars[n];

end;

Randomize;

w :='';

for i := 1 to 4 do begin

n :=Random(Length(Chars)) + 1;

w := v + chars[n];

end;

Randomize;

x :='';

for i := 1 to 4 do begin

n :=Random(Length(Chars)) + 1;

x := x + chars[n];

end;

SetLength(Activation,21);

for i := 1 to 4 do

Activation :=s;

for i :=5 to 8 do

Activation := u[i-4];

for i := 9 to 12 do

Activation := v[i-8];

for i := 13 to 16 do

Activation := w[i-12];

for i := 17 to 20 do

Activation := w[i-16];

Activation[21] :='D';

Activation[22] :='S';

Activation[23] :='H';

Activation[24] :='W';

for i := 0 to 3 do

begin

A:=ord(Activation[1+i]) - 65;

C:=ord(Activation[21+i]) - 65;

D:=ord(Activation[5+i]) - 65;

E:=ord(Activation[13+i]) - 65;

F:=ord(Activation[9+i]) - 65;

B:= E;

B:= B + A;

B:= B + C;

B:= B + D;

B:= B + F;

asm

PUSHAD

Mov EAX,B

CDQ

MOV ESI,$1A

IDIV ESI

Mov B,EDX

POPAD

end;

serial1:=serial1+chr(B+65);

end;

edt1.Text:= S+ '-'+ U + '-' + V + '-' + W + '-' + serial1;//edt is edit.text

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

cbb1.Clear;

cbb1.Items.Text:='OJOsoft DVD Ripper' +#13#10+

'OJOsoft Total Video Converter' +#13#10+

'OJOsoft iPod Video Converter' +#13#10+

'OJOsoft DVD Audio Ripper' +#13#10+

'OJOsoft WMA to MP3 Converter' +#13#10+

'OJOsoft WAV to MP3 Converter'+#13#10+

'OJOsoft DVD to AVI Converter'+#13#10+

'OJOsoft DVD to PSP Converter' +#13#10+

'OJOsoft DVD to Zune Converter' +#13#10+

'OJOsoft DVD to MP4 Converter' +#13#10+

'OJOsoft DVD to iPhone Converter' +#13#10+

'OJOsoft DVD to 3GP Converter' +#13#10+

'OJOsoft HD Video Converter' +#13#10+

'OJOsoft 3GP Converter' +#13#10+

'OJOsoft MP4 Converter' +#13#10+

'OJOsoft iPhone Video Converter';

end;

now my mistake if i press on generate on the second serial for the OJOsoft DVD Ripper my keygen crashes wight out any error msg.What i make wrong.

Ps:yes its from kriptons tut only the combbox is from me.And how to i can make that i dont need so many if

BoRoV

BoRoV

Posted
Posted (edited)
if cbb1.Text = 'OJOsoft DVD Ripper'then//cbb is combobox

if cbb1.Text = 'OJOsoft Total Video Converter' then

if cbb1.Text = 'OJOsoft iPod Video Converter' then

if cbb1.Text = 'OJOsoft DVD Audio Ripper' then

if cbb1.Text = 'OJOsoft WMA to MP3 Converter' then

if cbb1.Text = 'OJOsoft DVD to AVI Converter' then

if cbb1.Text = 'OJOsoft WAV to MP3 Converter' then

if cbb1.Text = 'OJOsoft DVD to PSP Converter' then

if cbb1.Text = 'OJOsoft DVD to Zune Converter' then

if cbb1.Text = 'OJOsoft DVD to MP4 Converter' then

if cbb1.Text = 'OJOsoft DVD to iPhone Converter' then

if cbb1.Text = 'OJOsoft DVD to 3GP Converter' then

if cbb1.Text = 'OJOsoft HD Video Converter' then

if cbb1.Text = 'OJOsoft 3GP Converter' then

if cbb1.Text = 'OJOsoft MP4 Converter' then

if cbb1.Text = 'OJOsoft iPhone Video Converter' then

what is it? maybe that you error

asm

PUSHAD

Mov EAX,B

CDQ

MOV ESI,$1A

IDIV ESI

Mov B,EDX

POPAD

end;

you can repleace this on

B := B mod $1A;
w := v + chars[n];

this not error?

Edited by BoRoV
Accede

Accede

Posted
  • Author
Posted (edited)
if cbb1.Text = 'OJOsoft DVD Ripper'then//cbb is combobox

if cbb1.Text = 'OJOsoft Total Video Converter' then

if cbb1.Text = 'OJOsoft iPod Video Converter' then

if cbb1.Text = 'OJOsoft DVD Audio Ripper' then

if cbb1.Text = 'OJOsoft WMA to MP3 Converter' then

if cbb1.Text = 'OJOsoft DVD to AVI Converter' then

if cbb1.Text = 'OJOsoft WAV to MP3 Converter' then

if cbb1.Text = 'OJOsoft DVD to PSP Converter' then

if cbb1.Text = 'OJOsoft DVD to Zune Converter' then

if cbb1.Text = 'OJOsoft DVD to MP4 Converter' then

if cbb1.Text = 'OJOsoft DVD to iPhone Converter' then

if cbb1.Text = 'OJOsoft DVD to 3GP Converter' then

if cbb1.Text = 'OJOsoft HD Video Converter' then

if cbb1.Text = 'OJOsoft 3GP Converter' then

if cbb1.Text = 'OJOsoft MP4 Converter' then

if cbb1.Text = 'OJOsoft iPhone Video Converter' then

what is it? maybe that you error //this is for the combobox menu examble if OJOsoft HD Video Converter check on the combobox then comes the routine and so on.

asm

PUSHAD

Mov EAX,B

CDQ

MOV ESI,$1A

IDIV ESI

Mov B,EDX

POPAD

end;

//is inline asm for delphi

you can repleace this on

B := B mod $1A;
w := v + chars[n];

this not error?

//and yes this is are error :P

thanks for the help the mistake is the same can please help are god delphi keygener.

Edited by accede
BoRoV

BoRoV

Posted
Posted (edited)

you think I stupid?...

I know it all!

what is it, what you select?...


if cbb1.Text = 'OJOsoft DVD Ripper'then
  if cbb1.Text = 'OJOsoft Total Video Converter' then
    if cbb1.Text = 'OJOsoft iPod Video Converter' then
      if cbb1.Text = 'OJOsoft DVD Audio Ripper' then
        if cbb1.Text = 'OJOsoft WMA to MP3 Converter' then
          if cbb1.Text = 'OJOsoft DVD to AVI Converter' then
            if cbb1.Text = 'OJOsoft WAV to MP3 Converter' then
              if cbb1.Text = 'OJOsoft DVD to PSP Converter' then
                if cbb1.Text = 'OJOsoft DVD to Zune Converter' then
                  if cbb1.Text = 'OJOsoft DVD to MP4 Converter' then
                    if cbb1.Text = 'OJOsoft DVD to iPhone Converter' then
                      if cbb1.Text = 'OJOsoft DVD to 3GP Converter' then
                        if cbb1.Text = 'OJOsoft HD Video Converter' then
                          if cbb1.Text = 'OJOsoft 3GP Converter' then
                            if cbb1.Text = 'OJOsoft MP4 Converter' then
                              if cbb1.Text = 'OJOsoft iPhone Video Converter' then
                                Randomize;

This is what gives all of your conditions...

I know what is inline asm for delphi, why you used it?... "mod" is standart operation...

Edited by BoRoV
Accede

Accede

Posted
  • Author
Posted

you think I stupid?...

I know it all!

what is it, what you select?...


if cbb1.Text = 'OJOsoft DVD Ripper'then
  if cbb1.Text = 'OJOsoft Total Video Converter' then
    if cbb1.Text = 'OJOsoft iPod Video Converter' then
      if cbb1.Text = 'OJOsoft DVD Audio Ripper' then
        if cbb1.Text = 'OJOsoft WMA to MP3 Converter' then
          if cbb1.Text = 'OJOsoft DVD to AVI Converter' then
            if cbb1.Text = 'OJOsoft WAV to MP3 Converter' then
              if cbb1.Text = 'OJOsoft DVD to PSP Converter' then
                if cbb1.Text = 'OJOsoft DVD to Zune Converter' then
                  if cbb1.Text = 'OJOsoft DVD to MP4 Converter' then
                    if cbb1.Text = 'OJOsoft DVD to iPhone Converter' then
                      if cbb1.Text = 'OJOsoft DVD to 3GP Converter' then
                        if cbb1.Text = 'OJOsoft HD Video Converter' then
                          if cbb1.Text = 'OJOsoft 3GP Converter' then
                            if cbb1.Text = 'OJOsoft MP4 Converter' then
                              if cbb1.Text = 'OJOsoft iPhone Video Converter' then
                                begin//now its right or not
                                Randomize;

This is what gives all of your conditions...

I know what is inline asm for delphi, why you used it?... "mod" is standart operation...

I have not say that you stupid ore somthing then the error comes from kripton

BoRoV

BoRoV

Posted
Posted (edited)

no, this condition is never executed because of what it will comply, you must select all the elements combobox simultaneously

Edited by BoRoV
Accede

Accede

Posted
  • Author
Posted

Sorry my english is not god.now i completty confused you say //you must select all the elements combobox simultaneously\\ you whant say if combobox.text 'name' then serial calc then end then if same as above wight 'name2'

BoRoV

BoRoV

Posted
Posted (edited) 
if (you select all combobox.item at the same time) then
  your operations
else 
  nothing

but you never will be able to choose all combobox.item

Edited by BoRoV
Nacho_dj

Nacho_dj

Posted
Posted

Well, in fact you do not need to use all those if instructions. Since the chosen target has been selected from a ComboBox (cbb1), you have got selected one element of the list of targets allowed when the btn1 has been clicked. Just give the property enabled := false to btn1 till any element of cbb1 has been selected, in this case btn1 should turn enabled (by using events of cbb1).

So, the best is performing directly the Randomize procedure without any if sentence before.

Cheers

Nacho_dj

Accede

Accede

Posted
  • Author
Posted (edited)

can you two me give are littel exmable on my code wight that what you say,and please

Since not that hard to me, I have most in delphi to put himself.

ps:I tell myself always best to learn it if you tried.

Edited by accede
BoRoV

BoRoV

Posted
Posted (edited) 

if cbb1.ItemIndex <> -1 then
begin
  // your operations
end;
Edited by BoRoV
  • Like 1
Nacho_dj

Nacho_dj

Posted
Posted

Another way (I use normally this on my tools):

Set the property Enabled of btn1 to FALSE.

Then, open the event OnChange of cbb1 and insert this code:


  if Form1.cbb1.ItemIndex <> -1 then
    Form1.btn1.Enabled := TRUE
  else
    Form1.btn1.Enabled := FALSE;

In this way, the btn1 only gets enabled when some available target has been selected.

Of course, there are many more possible configurations... ;)

Cheers

Nacho_dj

  • Like 1
BoRoV

BoRoV

Posted
Posted

@ Nacho_dj:

optimize your method :)

Form1.btn1.Enabled := Form1.cbb1.ItemIndex <> -1;
  • Like 1
Nacho_dj

Nacho_dj

Posted
Posted

Yes, mine is some kind of old school, hehe.

Thanks for your tip. :)

Cheers

Nacho_dj

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing
×
×
  • Create New...