CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 00:58:55

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

DATETIMEPICKER. par youhibadelphi

TRI DE DBGRID par sparo83

RE : CHERCHER DES VALEURS DANS UN FICHIER BIN par Smith4400

RECHERCHE par sparo83

FAIRE DISPARAITRE LA BARRE DE TâCHE... par leader2000

+ de logiciels à télécharger

1 467 588 membres
9 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 651 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRYPTEUR / DÉCRYPTEUR DE FICHIERS

Information sur la source

Catégorie :Sécurité Classé sous : cryptage, xor, securite, fichier, codage Niveau : Débutant Date de création : 28/02/2007 Date de mise à jour : 08/04/2007 14:42:23 Vu / téléchargé: 9 461 / 1 358

Auteur : Romano58

Ecrire un message privé

Note :

9,67 / 10

Commentaire sur cette source (11)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Un code que j'ai réaliser pour crypter et décrypter des fichier simplement. Peut être utiles a ceux qui veulent éssayer de créer leurs propre crypteur car la fonction xor est utiliser, et c'est une methode relativement simple a comprendre.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

src
- aboutForm.dcu23 978 octets
- aboutForm.dfm25 747 octets
- aboutForm.pas 1 884 octets
- mainForm.dcu4 606 octets
- mainForm.dfm47 033 octets
- mainForm.pas 2 863 octets
- PARANOR.pas 83 934 octets
- traitementForm.dcu7 461 octets
- traitementForm.dfm2 908 octets
- traitementForm.pas 6 382 octets
- Xblue.cfg 405 octets
- Xblue.dof 1 353 octets
- Xblue.dpr 412 octets
- Xblue.res1 572 octets

Télécharger le zip

Historique

04 mars 2007 15:37:00 :: V1.0.1.1 >> Des commentaires ont étaient ajouter dans la source + utilisation de Streams + Modification mineurs J'ai enfin mis mon site web sur le web : http://www.RomSoft.fr.nf !
07 avril 2007 18:32:57 :: Confirmation du mot de passe. Modification de la fenêtre "a propos" : une petite animation avec le logo (tres simple) + une petite musique xm jouer avec uFMOD. wala :)
08 avril 2007 14:42:23 :: re-upload car la précédente n'avais pas étais pris en compte suite un probléme technique :)

Sources du même auteur

DEMO GRAPHIQUE FLMC2007 V0.4.0 (UTILISE DELPHIX ET FMOD)

Toutes les sources de Romano58

Sources de la même categorie

SECUSB ; LOGICIEL D'EFFACEMENT SÉCURISÉ POUR CLEF USB par ludodelphi

PROTECTION COPIE CD, OU PROGRAMME SUR DONGLE USB par Huugooo

KEYGENME PROTECTION par craftsystem

KEYGENME par craftsystem

GÉNÉRATEUR DE MOT DE PASSE par oliverdev

Toutes les sources de la catégorie Sécurité

Sources en rapport avec celle ci

RESTAURATION DE FICHIERS SUPPRIMÉS SUR UN DISQUE DUR NTFS par ni69

CRYPTAGE : MÉTHODE DE TRANSPOSITION par bad_dark_spirit

SOUNDCRYPT par craftsystem

CRYPTAGE (SIMPLE) AVEC CLE ALEATOIRE ET INTEGRE par elguevel

DÉCRYPTER LES FICHIERS IMAGE JPG (VOUS AVEZ ÉGARÉ LA CLÉ) par japee

Commentaires et avis

Commentaire de Francky23012301 le 01/03/2007 03:01:33

Salut,

Je viens de parcourir ton source. Quelques remarques constructives.

*Les blocks : A l'époque des portables, on utilises les streams.

*La gaugue semble ne pas progresser.

*Les filtres. Il est important que l'extension du fichier créé soit identique à celui crypté.

*procedure Tmain.Crypter1Click(Sender: TObject);
begin
  traitement.Caption := 'Crypter';
  traitement.fileinEdit1.Text := 'Aucun';
  traitement.fileoutEdit2.Text := 'Aucun';
  traitement.keyEdit1.Text := '';
  traitement.ShowModal;
end;

On peut remplacer par

procedure Tmain.Crypter1Click(Sender: TObject);
begin
With Traitement do
  begin
  Caption := 'Crypter';
  fileinEdit1.Text := 'Aucun';
  fileoutEdit2.Text := 'Aucun';
  keyEdit1.Text := '';
  ShowModal;
  end;
End;

@+ et bon coding
*

Commentaire de Romano58 le 02/03/2007 00:18:47

Je prend note et je remet la source a jour trés bientot.
Par contre, (ne riguoler pas, petits malins ;-) ) mais je n'est aucune idée de ce que peut bien être un stream. je vais chercher sur le site pour voir...

A++

Commentaire de Francky23012301 le 03/03/2007 00:37:53

Un stream se traduit par flux : je pense que tu comprendras la signification. Sinon tu rentres TStream dans l'IDE et hop la touche F1 et là tu en apprendras beaucoup

Commentaire de shining le 04/03/2007 11:49:42

Salut,
si je puis me permettre une chtite pub :p, dans mon source tu trouveras un petit exemple très simple du Streaming ^^
http://www.delphifr.com/codes/COMPOSANT-FASTCRYPT-METTEZ-CRYPTOGRAPHIE-DANS-VOS-APPLICATIONS_36906.aspx

il fait Crypteur/Décrypteur/Hasheur/Générateur de mot de passe(sécurisé)

@+

Commentaire de Romano58 le 04/03/2007 14:20:03

j'ai trouver une exelente doc sur l'utilisation des stream (il y a deja 2 jour...) J'ai mis ma source a jour et je vous la met en ligne tres bientot. J'ai était tres occuper ces dernier jour car j'ai refait mon site ouaibe et je vais de suite le mettre en ligne. Shining, je vais aller voir ta source quand même car on n'en sais jamais asser :)

Commentaire de Romano58 le 07/04/2007 18:41:10

Il semblerer que le zip ne ce soit pas mis a jour ? Bon je reviendrer demain pour voir...

Mercie pour la note, sa fait plaisir ^^

Commentaire de PrograMaster le 09/05/2008 14:44:13

Salut,

Sympa ton code, je vais m'en servir !

Par contre, j'ai mal aux yeux... Corrige toutes tes fautes... Il y en a dans toutes les phrases !

Cordialement,
Mathieu

Commentaire de Romano58 le 12/05/2008 13:46:23

Salut !

Merci pour le commentaire. Désolé pour les fautes, je fait des efforts mais le français et moi... Sinon si sa t'intéresse j'ai poser le même code source sur csharpfr et il est orienté objet (et n'est pas terminer, comme d'hab :)).

En ce moment je bosse en java et je refait encore le même crypteur :D

Et qu'on ne me dise pas que je réinvente la roue a chaque fois parce que c'est pas facile de faire une roue bien ronde... Moi j'aime bien faire des roues lol (oui on ne ma rien dis mais j'ai des coups de pression des fois hihi)

Aller, a+ et bonne prog a tous

Commentaire de jackalunion le 22/06/2008 13:04:12 10/10

c'est bon a savoir

Commentaire de josalco le 01/09/2008 20:02:51

Bonjour,
j'essaye de débuter avec delphi 5 j'ai pris tes sources et en essayant de compiler je reçois cette errreur :[Erreur fatale] aboutForm.pas(12): F1026 Fichier introuvable : 'uFMOD.dcu'

Josalco

Commentaire de Romano58 le 02/09/2008 09:06:27

Coucou ! Oui en effet tu as cette erreur car tu n'as pas la lib uFmod d'installé. Cherche un peux sur google tu devrai la trouver. Elle est fournie avec quelques exemples et si tu a un peu de jugeote tu devrais pouvoir gérer comme il faut. Je suis sur qu'elle te sera même trés utile :) Au pire, retire la du projet.

uFmod c'est un lib qui permet de lire des fichiers sonore (*.xm) dans les programmes, principalement des intro ou autre cracktro.

Bonne chance et a+

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Securite avec NT [ par magicvinni ] Bonjour, je suis prof de math, j'ai crée un programme de calcul (www.prototheque.com) le programe s'appelle point par point ( j'en profite pour faire XOR mécanique [ par craftsystem ] Salut toussuite au poste "Fichier Corrompus" qui a est résolus...Au passage je remercie fOxij'aurais une autre question:je viens de faire un lecteur a Detection & suppression de fichier [ par craftsystem ] Salut a tousJe suis en train de faire lecteur de fichier audioavec une algo de cryptage XORbref:en temps que musicienje me suis dit comment faire écou Conseil sur l'utilisation des threads [ par John Dogget ] Bonjour à tous.Je voudrais mettre à jour ma source déposé ici (http://www.delphifr.com/codes/GENERATEUR-ALEATOIRE-FICHIER_44115.aspx) en ajoutant quel importer un fichier text vers une bd sql [ par dalatifa ] salut, je veux lire un fichier text et l'enregistrer ds une table de sql server , donc je dois non seulement lire les lignes mais les colonnes aussi., Chemin d'un Fichier dans lexplorateur [ par Hardouz ] Bonjour !Je cherche a trouver le chemin d'un dossier ou un ficher lors d'un click gauche !!!c a dire lorsque je clique(1 click) sur un fichier ( ou do webservice [ par tilab ] Je dois consommer un webservice avec delphi 7 Enterprise: http://xml.unione.ch/Ph4stdWebServices/ArtQueries.asmx?WSDLet envoyer un fichier XML <?xm Manipulation de fichiers [ par L_art_ment ] Bonjour :)Euh j'ai une p'tite question, j'suis pas trés doué en delphi et je souhaiterais savoir si c'est possible d'attacher un fichier à mon projet lire fichier TXT [ par azzeddine_hh ] salut SVP j'ai besoin d'une application pour lire les fichiers (TXT) et détecter s'il y a les doublons pour éliminer .............. mon email : azzedd