Salut à tous
Ce petit code comme son nom l'indique et un KeygenMe c'est à dire qu'il calcul un numéros de série par rapport au nom inscrit
prochaine mise a jour
-Un jolie skin
-retravailler la crypto...
Source / Exemple :
procedure TFenetre.BoutonClique(Sender: TObject);
var a,b,c,d : string;
var no, ok, pseudo, pseudo2, psw, src : string;
var i, ii, Lchaine, long, Lx33, Vascii, clef, tclef : integer;
begin
a:='n';
b:='o';
c:='d';
d:='g';
ok := (d)+(b)+(b)+(c);//ok='good'
no := (a)+(b);//no='no'
pseudo := Nom.Text;//peudo = 'ton nom'
long := length(pseudo);//calcul le nombre de caractère dans (pseudo)
Lx33 := long * 33;//nombre de caractère * 33
pseudo2 := inttostr(Lx33);//converti le nombre de caractère en valeur string
psw := pseudo2+pseudo;//psw = 'nombre de caractère + pseudo'
src := psw;
{Cryptage Caesar de 'src' avec une clef de 3
le code seras 'src' Crypté}
Lchaine := length(src);
for ii:=1 to Lchaine do
begin
src[ii] := upcase(src[ii]);
end;
clef:=3;
for i:=1 to Lchaine do
begin
Vascii := ord(src[i]);
if (clef + Vascii > 90 ) then begin
tclef := ((90 - Vascii) - clef);
Vascii := abs(tclef) + 64;
end
else begin
Vascii := Vascii + clef;
end;
src[i] := chr(Vascii);
end;
{CONDITION FINAL}
if Serial.Text=(src) then
showmessage (ok)
else
showmessage (no);
end;
procedure Tfenetre.BtnCloseClick(Sender: TObject);
begin
Close;
end;
end.
Conclusion :
Si vous avez des critiques ou autres je suis preneur.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.