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
 TECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURSTECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURS par ROMELARD Fabrice
Animé par: Laurent Cotton Le développement dans SharePoint 2010 passe par plusieurs axes qui seront évoqués dans cette session, mais plus particulièrement les développements simples lié au besoin Business Business Connectivity Services Ce BCS es...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOURTECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice
Cette session est la dernière pleinière de ces 3 jours de TechDays Paris 2010. Généralement, cette troisième journée est plus axée sur l'avenir vu par Microsoft. Après un retour sur l'avenir vu par la Science Fiction ou par ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion
Forum
 RE : SAVEDIALOGRE : SAVEDIALOG par JulioDelphi
Cliquez pour lire la suite par JulioDelphi RE : SAVEDIALOGRE : SAVEDIALOG par zeydounnounou
Cliquez pour lire la suite par zeydounnounou
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|