begin process at 2012 02 11 22:07:30
  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

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 comment ecrire dans un fichier txt à l'aide de print un ? alt177 [ par LolPiratas ] bonjour j'ai un petit soucis je ne sais pas la fonction pour pouvoir faire un caractère spécial comme le alt 177 ? en vb pour l'envoyer dans un fichi charger fichier multiligne [ par vegetalain ] Euh, voilà je voudrais charger le contenu d'un fichier dans plusieurs champs. Le dernier champe st sensé affiché des infos sur p lusieurs lignes mais Fichier TXT en mode paysage par défaut? [ par sancho12345 ] Bonjour à vous, Une question concernant l’impression d’un fichier de type TXT. Est-il possible à l’ouverture d’un fichier TXT d’imprimer en [color=b 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 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


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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 : 2,574 sec (3)

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