HI @ all,
ich hab mich grade angemeldet und bin eher zufällig auf euch gestoßen (war lange bei hs tätig).
Ich lerne seit kurzer zeit delphi und stehe vor einem Problem: Keygens.....
Ist es seht schwer welche zu schreiben??? BIn nach 2 stündigem googeln auf des gestossen:
********************************source in delphi*************************************************
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
ascii,ascii2 : string;
begin
for i:=1 to length(edit1.text) do
begin
ascii:=ascii + inttostr((ord(edit1.text)+82));
end;
begin
for i:=1 to length(edit3.text) do
begin
ascii2:=ascii2 + inttostr((ord(edit3.text)+82));
end;
edit2.text:=ascii2+ascii;
end;
end;
*******************************************end of source*****************************************
to make this work :
- 1st create a new project
- 2nd put 3 texts box (1 for name (edit1.text there), 1 for product ID (edit3.text there) , and
1 for the serial (edit2.text there)...
- 3rd put one button
double click on the button and past this code !!
have fun , and enjoy it ...
aber da kommen tausende von fehlern, egal ob ixh was änder...
naja und eigentlich wollt ich fragen ob jemand n tut oder so hat um keygens in delphi zu proggn
--------> greetz mabazzer
ich hab mich grade angemeldet und bin eher zufällig auf euch gestoßen (war lange bei hs tätig).
Ich lerne seit kurzer zeit delphi und stehe vor einem Problem: Keygens.....
Ist es seht schwer welche zu schreiben??? BIn nach 2 stündigem googeln auf des gestossen:
********************************source in delphi*************************************************
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
ascii,ascii2 : string;
begin
for i:=1 to length(edit1.text) do
begin
ascii:=ascii + inttostr((ord(edit1.text)+82));
end;
begin
for i:=1 to length(edit3.text) do
begin
ascii2:=ascii2 + inttostr((ord(edit3.text)+82));
end;
edit2.text:=ascii2+ascii;
end;
end;
*******************************************end of source*****************************************
to make this work :
- 1st create a new project
- 2nd put 3 texts box (1 for name (edit1.text there), 1 for product ID (edit3.text there) , and
1 for the serial (edit2.text there)...
- 3rd put one button
double click on the button and past this code !!
have fun , and enjoy it ...
aber da kommen tausende von fehlern, egal ob ixh was änder...
naja und eigentlich wollt ich fragen ob jemand n tut oder so hat um keygens in delphi zu proggn
--------> greetz mabazzer