begin process at 2012 02 08 16:39:53
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Sécurité

 > KEYGENME

KEYGENME


 Information sur la source

Note :
1 / 10 - par 2 personnes
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Sécurité Classé sous :protection, code, sécurité, cryptage Niveau :Débutant Date de création :28/08/2007 Date de mise à jour :30/08/2007 01:21:37 Vu / téléchargé :9 197 / 822

Auteur : craftsystem

Ecrire un message privé
Site perso
Commentaire sur cette source (17)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   KM002
    • close.bmpTélécharger ce fichier [Réservé aux membres club]Voir ce fichier574 octets
    • KM002.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier189 octets
    • KM002.exeTélécharger ce fichier [Réservé aux membres club]394 240 octets
    • KM002.resTélécharger ce fichier [Réservé aux membres club]876 octets
    • main.dfmTélécharger ce fichier [Réservé aux membres club]3 713 octets
    • main.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier1 752 octets

Télécharger le zip


 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

Source avec Zip Source avec une capture WEBDEZIGN FORMULAIRE
BLOQUER LE TASKMGR SANS CLÉ DE REGISTRE
Source avec une capture CRÉER UN INSTALLATEUR POUR VOS PROGRAMME
INTERPRÉTEUR DE SYNTAXE
Source avec Zip Source avec une capture SOUNDCRYPT

 Sources de la même categorie

Source avec Zip Source avec une capture EXE PROTECTOR V1 par MrClock
Source avec Zip Source avec une capture LYNX : CHIFFREMENT À BLOC/FLUX, EXEMPLE INCLUS par Bacterius
Source avec Zip FBCREATEUSER par fbalien
Source avec Zip Source avec une capture SCANNER DE MALWARES ( ßE SCANNER ) par MrClock
Source avec Zip Source avec une capture GOLDEN PASSWORDS - STOCKEZ VOS MOTS DE PASSE ! par Bacterius

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture EXE PROTECTOR V1 par MrClock
Source avec Zip Source avec une capture GOLDEN PASSWORDS - STOCKEZ VOS MOTS DE PASSE ! par Bacterius
Source avec Zip Source avec une capture CRYPTAGE / DECRYPTAGE DE FICHIERS PAR MOT DE PASSE par sivaller
Source avec Zip COMPOSANT HASHPROTECTOR (PROTÉGEZ VOS APPLICATIONS CONTRE L... par shining
Source avec Zip Source avec une capture COMPOSANT FASTCRYPT METTEZ DE LA CRYPTOGRAPHIE DANS VOS APPL... par shining

Commentaires et avis

Commentaire de fbalien le 28/08/2007 08:02:47

Bonjour
tous les fichier .~dpr, .~pas, .~dfm, .dcu ne devraient pas ce trouver dans l'archive y a pas un règlement ?

Code pas indenté bon certes il est court

je m'attendais à voir un algo de cryptage :(

Commentaire de craftsystem le 28/08/2007 08:08:20

j'y ai pensé mais je préfère prendre mon temps pour évitez de me planté si tu a quelque idées y a pas de souci

Commentaire de fbalien le 28/08/2007 09:04:07

une petite recherche "cryptage" sur le site devrait déjà donner quelques exemples de codes

Commentaire de f0xi le 28/08/2007 17:44:46 administrateur CS



inutile et sans interet.

de plus, hors de question de voir des logiciels de ce genre ici (KeyGen, Crack, NoCD etc).

Commentaire de craftsystem le 28/08/2007 18:02:45

le but de cette source n'est pas de le cracker ou autre connerie mais
de me créer une protection fiable pour mes prochains projet

La celle chose que je demande c'est d'apprendre après

comme tu dis
hors de question de voir des logiciels de ce genre ici

mais c'est pas le premier que je vois et il ne se sont pas fait accabler comme moi et question sécurité j'ai vue mieux

j'ai dit
Ne soyez pas indulgent pour autant.

j'ai oublié de préciser
que cela ne serre a rien d'être méchant pour rien

après si on ne peut pas apprendre a se faire des protection contre le crackage je ne vois pas l'intérêt d'un telle site

merci pour l'écoute

Commentaire de sylvunix le 28/08/2007 19:49:15

Désolé craftsystem ... mais il faut que tu sois bien conscient que code source est un espace de partage au sein de la communauté de programmeurs.

Tu as posté ce projet que tu as réalisé toi-même et c'est tout en ton honneur. Mais il faut de demander si ce source peut apporter quelque chose à la communauté.

Personnellement, lorsque je poste un source qui me semble intéressant à partager, je le perfectionne au maximum afin qu'il puisse être réutilisable.

Ce n'est pas la course aux dépots, car ce n'est pas un dépotware !

Finalise ton projet et je pense que l'accueil sera nettement meilleur.

sylvunix

Commentaire de craftsystem le 28/08/2007 20:02:21

j'ai déposer cette source car je me suis dit que quelqu'un pouvez me guider, car sur le forum personne ne ma répondus

après je suis tous a fais conscient que cette espace et réserver au pro. Si tu connait une communauté pour les débutant je suis preneur.
et si tu peu me guider cela me serait d'un grand secours

que je t'explique mon problème:

"j'ai pris gout a la programmation avec LibertyBasic et avec se merveilleux outils je me suis créer un player audio et j'y ai intégrer une protection time limit et keygen avec un algo de cryptage César.
J'aurais voulu reproduire mon programme en Delphi (pour l'améliorer) mais cette fois-ci avec une algo de cryptage vigenère."
Thank

Commentaire de Caribensila le 28/08/2007 23:41:47

Salut,

«je suis tous a fais conscient que cette espace et réserver au pro»

'faut pas dire ça, craftsystem!
Je suis un amateur et les "pros" m'ont appris tout ce que je sais. ICI, sur ce site.

Le hiatus entre 'pros' et 'débutants' est inévitable...
Mais il faut aussi y mettre du sien.
Indenter et commenter le code qu'on poste n'a jamais tué son auteur, et c'est une sorte de respect pour ceux qui vont le lire et se donner la peine de donner des conseils.

Mais je te comprends et je ne vais pas recommencer mon laïus à propos d'un espace sur CS réservé aux débutants où ils pourraient poster temporairement pour se frotter à la critique... sans se faire descendre en flamme et sans engorger le serveur.

( J'ai quand même recommencé! Incorrigible que je suis! ;)


Commentaire de craftsystem le 28/08/2007 23:51:04

Je ferais en sorte de mieux commenté ma source et de mieux formuler mes demandes.
Se n'ai pas pour ça que je lacherai l'affaire.
Pour le moment je boss ma source et je reviens pour les mises a jours
Promis

Commentaire de Caribensila le 29/08/2007 00:05:26

:)))

C'est comme ça qu'on progresse.

Courage!

Commentaire de f0xi le 29/08/2007 12:10:25 administrateur CS



alors désolé si mes propos t'ont parus "mechant" ... mais comem c'est les vaccances ont a droit a toute sorte de choses et donc on ne fait pas de traitement de faveur.

bon je vois bien qu'apparement, tu ne cherche qu'une chose, progresser. c'est tout a ton honneur.

je remarque aussi, que tu ne t'attaque pas trop a des trucs qui te depasse, cesar et vigenere sont deux petite methode amusante a programmer au debut.

aprés ça je ne saurais trop te conseiller de passer a CRC16, CRC32, MD5, SHA1, etc. bien que pour MD5 et SHA1 ont commence vraiment a donner dans le truc trés "haut vol".

la ou il faut faire neanmoins attention, c'est dans les termes que tu choisis.
Keygen est le terme qui designe un programme qui genere une clef, un numero de serie, mais avec une conotation "cracking".
d'ou ma premiere remarque.

voila et bonne continuation.

Commentaire de craftsystem le 29/08/2007 14:07:40

petit a petit je vois la lumière...Lol
Y a pas de souci je viens de finir une version avec une algo de cryptage césar sur tous les string data.
Déjà sa corse l'affaire.Mais le but final c'est le Vivi...Vigenère.
Toute arrive a qui c'est attendre..Je crois que c'est ça qu'on dit???

Commentaire de WinLin le 03/09/2007 06:11:18

j'ai pas encore regarder mais je cherche une application a réaliser pareil que toi craftsystem
fin moi je vais avoir besoin d'un generateur de clef par modules Style
module Gestion client crm xxxxxx code 1
module Gestion mail calendar xxxxxxx Code
module Gestion commercial Simple xxxxx code
Module gestion commercial niv1  xxxxx code
Module gestion commercial Caisse xxxx code
.. et etc etc
je vais regarder ton code et
je te rebalancerai sur ce site le résultat de ma réflexion merci et a bientot

Commentaire de craftsystem le 03/09/2007 06:14:47

pas de souci

Commentaire de cantador le 04/09/2007 13:33:35 administrateur CS

@craftsystem
j'en remets une louche :

"j'ai oublié de préciser
que cela ne serre a rien d'être méchant pour rien".

Foxi est "admin" et il fait son travail d'admin.
et je pense qu'il le fait bien..
courageux, dévoué, inventif et pas avare de code..
A quoi cela servirait s'il passait son temps à passer de la pommade sur tout ce qui déboule sur le forum ?

@bientôt

Commentaire de matrix1 le 15/09/2007 17:53:20

j'ai pas regarder ton code avec tros d'attention mais je doute qu'un simple newbie avec un Ollydebug peut avoir bc de déffuclté pour trouvé ce que fai ce code , c a d ce code ne sert pas un gros chose, aumoin utilise des api pour crypté ou ... fai un code util, si non ça peut etre un jolie tuto pour les debut.
bon courage

Commentaire de cantador le 16/09/2007 12:21:07 administrateur CS

@craftsystem :
A mon avis ce qui ne va pas ce n'est pas le code, mais la logique lui-même.
Tu essaies de vérifier une clef que l'on ne connait pas..
IL aurait fallut à mon sens faire le contraire fournir une clef de cryptage et ensuite seulement la vérifier en cas d'utilisation.
@+

 Ajouter un commentaire


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


Nos sponsors


Appels d'offres

Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,888 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales