Accueil > > > KEYGENME
 KEYGENME
 Information sur la source
 Description
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
- 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.
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.
 Historique
- 28 août 2007 08:11:31 :
- j'ai enlever les fichier inutile
prochaine mise a jour dans une semaine
- 30 août 2007 01:21:37 :
- la mise jour
-Je me suis penché sur le coté crypto en utilisant une algo caesar avec une clef de trois.
(je précise que je me suis basé sur un code vue sur le site et pars malchance j'ai perdu la page de l'auteur...
Alors si ce code dit quelque chose a quelqu'un je lui serait extrêmement reconnaissant de me donner la page de l'auteur
pour le remercier, Merci d'avance)
-Effacer toute trace de string data dans les MessageBox
-Changer le skin ou plutot devrais-je dire effacer le skin de base
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
urgent : code à corriger. Cela fait des jours que je suis dessus !!!!!! [ par Marcel ]
Le code qui suit sert à créer un compte à rebours. Les 2 dernières lignes de ce code sont incorrecte car le compilateur signale:[Erreur]Unit1.pas(56):
MessageBox_HiA [ par DelphiCool ]
HelloSi quelqu'un à envie de l'essayerc'est un Soft qui creer le code Delphi pour les MessageBoxIl est Visuel, vous tester votre MessageBox avant de c
Probleme ListView [ par Shadow ]
Quand je mets ce code là et que je l execute il me dit erreur !code :varlist:TlistItem;beginif list.Caption = 'Quitter' then main.Close;
Pb fermeture d'une appli ouverte à partir d'une autre [ par Sandrine ]
Bonjour,J'ai une application qui possède un bouton permettant d'ouvrir une deuxième application (qui ne possède qu'une fenêtre affichant du texte cont
Couleur [ par Shadow ]
Salut, je voudrai mettre une couleur comme fond sur ma form mais la couleur c un code html alors je veux savoir si je peux utiliser un code html ?moi
Code ASCII -> Son caractère correspondant [ par Fabiin ]
Salut !Quel fonction permet de passer du code ASCII en sont caractère correspondnat ???l'inverse de Ord()Merci par avance@+Fabs
algorithme genetique code source [ par nana ]
je cherche le code source et le programme d'un algorithme génétique pour le problème de TSP ( de préférence en pascal, delphi, fortran sinon autres la
Code à rallonge [ par Teardrop ]
Bonjour,Voici mon probleme (en esperant etre au bon forum pour ca :)considérons que j'ai 10 CheckBox sur une fiche, chacune correspond a une valeur da
erreur et encore erreur!!! Helpppppp [ par glopglop ]
Salut! Dans le code je creer diverse DXimage, DXLabel...j'ai un bouton sur le DXdraw qui me permet de reinitialiser le tout: je fais une destruction d
erreur de pile et violation d'acces [ par glopglop ]
Salut! Dans le code je creer diverse DXimage, DXLabel...j'ai un bouton sur le DXdraw qui me permet de reinitialiser le tout: je fais une destruction d
|
Derniers Blogs
 [WF4] PASSAGE D'ARGUMENTS LITERAL, VISUALBASICVALUE OU LAMBDAVALUE?[WF4] PASSAGE D'ARGUMENTS LITERAL, VISUALBASICVALUE OU LAMBDAVALUE? par JeremyJeanson
Avec la sortie de la RC de Visual Studio 2010, Microsoft a mis un peu les points sur le i en ce qui concernait le passage d'arguments. Mais nous somme un certain nombre à avoir pris ce changement comme un méchant coup dur. Pour résumer la situation : à la...
Cliquez pour lire la suite de l'article par JeremyJeanson [RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit
Forum
 RE : DELPHIRE : DELPHI par overtaker
Cliquez pour lire la suite par overtaker RE : DELPHIRE : DELPHI par rt15
Cliquez pour lire la suite par rt15
Logiciels
 Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|