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

Instruction dans VBA [ par Harlem971 ] Bonjour, Je souhaite créer un fichier contenant des données numériques et textes contenues dans des feuilles Excel. Pour cela j'utilise l'instruction problème avec open for output as [ par forcalqueiret ] le but est de récupérer des données  ( nom, adresse, etc.) dans un fichier Excel servant de chrono de courrier, et de les envoyer dans word afin de po Enregistrer/Ouvrir un fichier .txt en vba [ par bmwax ] Sujet : TextBox et fichier txtMessage :Bonjour, excusez-moi de vous déranger. Je code en VBA et souhaiterais enregistrer le contenu de 25 TextBox 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


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

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

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,406 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é.