begin process at 2010 02 09 18:11:16
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Texte

 > 

Cryptage fichier.txt


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Cryptage fichier.txt

vendredi 21 janvier 2005 à 22:06:57 | Cryptage fichier.txt

didou09

Membre Club




Didou09
Bonsoir le forum,
je voudrais crypter des données que j'écris dans un fichier texte.
j'essaye de faire un petit prog qui me permettrait de gérer mes heures
sup, mes congés.
j'envois ces données sous cette forme:
 
  Open "fichier.txt" For Output As #intFile   
    For i = 0 To Nombre_Opération - 1
      If Opération(i).type <> -1 Then
        Vrai_Opération = Vrai_Opération + 1
      End If
    Next   
    Print #intFile, Str(Vrai_Opération)
   
    For i = 0 To Nombre_Opération - 1
      If Opération(i).type <> -1 Then
        Print #intFile, "--" & i & "--"
        Print #intFile, OP(i).nom
        Print #intFile, OP(i).type
        Print #intFile, OP(i).date.jj
        Print #intFile, OP(i).date.mm
        Print #intFile, OP(i).date.aa
        Print #intFile, "*******"
      End If
    Next
    Close #intFile
End Sub

Je ne recherche pas un cryptage complexe, juste un moyen de "masquer"
mes données au cas où quelqu'un ouvrirait mon fichier .txt avec le bloc note
ou tout autre éditeur de texte.
Par avance merci.

 

vendredi 21 janvier 2005 à 22:39:29 | Re : Cryptage fichier.txt

valtrase

Salut,
Si tu veux crypter Simplement tu peux appliquer a tes valeurs un ou exclusif  XOR avec une clé pour d'écripter tu fait l'oppération inverse. Ceci avant de les écrirent dans ton fichier bien sur.

____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partagé
vendredi 21 janvier 2005 à 22:52:53 | Re : Cryptage fichier.txt

didou09

Membre Club


Didou09

Salut Valtrase
pourrais-tu me donner un peu plus d'explications?
je suis novice et utilise vb6 par loisir.
vendredi 21 janvier 2005 à 22:59:54 | Re : Cryptage fichier.txt

valtrase

Tiens t'as une source sur ce site
http://www.vbfrance.com/code.aspx?id=5648

____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partagé
vendredi 21 janvier 2005 à 23:03:50 | Re : Cryptage fichier.txt

didou09

Membre Club


Merci je regarde de suite.
A+ Didou09
vendredi 21 janvier 2005 à 23:35:17 | Re : Cryptage fichier.txt

didou09

Membre Club


Ok c'est vu, mais c'est trop complexe pour moi.(Je ne suis pas assez bon pour adapter ce code à mon "petit" prog)
J'ai quand même essayé pour voir le résultat : Le texte crypté n'est plus décryptable après l'opération ?? 
Si quelqu'un a une solution simple? (Mais peut-on faire simple?)
Bonne soirée à tous
Didou09





samedi 22 janvier 2005 à 00:15:32 | Re : Cryptage fichier.txt

valtrase

Réponse acceptée !

Re,
Tiens voilà un bout de code trés simple il te faut 3 TextBox et 2 Command bouton
Private Sub Command1_Click()
Text2.Text = ""
Text2.Text = EncryptText(Text1.Text)

End Sub
Private Function EncryptText(Texte As String) As String
Dim i As Long
For i = 1 To Len(Texte)
EncryptText = EncryptText & Chr(Asc(Mid(Texte, i, 1)) Xor 8)
Next i


End Function

Private Sub Command2_Click()
Text3.Text = ""
Text3.Text = EncryptText(Text2.Text)

End Sub

dans ton cas tu peux utiliser la fonction toute seule et faire (à essayer .......)
 Print #intFile, EncryptText(OP(i).nom)
par exemple.


____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

samedi 22 janvier 2005 à 10:45:19 | Re : Cryptage fichier.txt

didou09

Membre Club


Bonjour et encore merci,
Je cherchais quelque chose de simple et cela répond tout à fait à mon problème.
J'essaie d'appliquer à mon prog.
Bon-week-end et peut-être à bientôt sur ce forum.
Didou09  




Cette discussion est classée dans : fichier, print, op, opération, intfile


Répondre à ce message

Sujets en rapport avec ce message

Multiline dans textbox et fichier texte [ par Sna ] quelqu'un pourrait me dire pourquoi quand j affiche un fichier texte dans une textbox avec la propriete multiline en true il s affiche toujours a la 2 probleme d'ecriture dans un fichier [ par laulaut ] je veux créer une page html le probleme quand t-on faitprint #1 , "blabla"ca marchemais print #1 , "bla"et"blail change le code enprint #1 . "bla"; et erreur ecriture dans un fichier [ par vanes83 ] Salut Je viens de débuter en vb , je ne veux pas utiliser d'interfaceet je veux écrire la taille de mon tableau dans mon fichierJ'ai une erreur de com Print# [ par henri21 ] salut je voudrais imprimer sur le meme fichier avec la commande print#dans une boucle for next mais j ai toujours les donnees sur la premier ligne qui vb fusille mon .txt o lieu de bosser sagement dessus!!! [ par stidjeanmoulin ] mojn problem est le suivant:je travaille sur un doc texteg une form ki s'appelle SuprimerDesColonnesdessus ya deux textbox tnomdufichier et tnomdufich Ecriture dans un fichier texte... [ par mike79 ] BonjourJe sais ecrire dans un fichier texte en utilisant les commandes print ou write mais la façon dont celà est écrit me dérange.Par exemple, je vou Comment ecrire a la fin d un fichier avec print ??? [ par adess00 ] Bonjour tout le monde si vous avez la solution ou une autre methode merci de me repondre c pour ecrire du texte a la fin d un fichier textea+ Erreur d'écriture dans un fichier [ par moi4975 ] salut a tous ;Voila j'ai un probleme avec l'ecriture dans un fichier ! lorsque j'ex¨¦cute le code ici en dessous et que par apr¨¨s j'ouvre le fichier VBA UTF-8 [ par sly63 ] Bonjour,j'ai des fichiers excel avec des mots en toutes les langues et en utilisant une macro je suis en train de creer un fichier xml pour un acces


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

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 : 0,764 sec (3)

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