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 !

Sujet : Cryptage fichier.txt [ Archives Visual Basic / Texte ] (didou09)

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é 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 aidez-moi !! [ par TheWhiteShadow ] voila jss programmeur delphi mais pas vba... et là j'ai une source en vba qu'il faudrait que je puisse comprendre à 100%DEFINT ccpt = 0IMPUT "nom du f 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...

CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,780 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.