Cryptage fichier.txtRésolu

Question

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.

valtrase · Answer

Salut,
Si tu veux crypter Simplement tu peux appliquer a tes valeurs un ou exclusif  XOR avec une cl&#233; pour d'&#233;cripter tu fait l'opp&#233;ration inverse. Ceci avant de les &#233;crirent dans ton fichier bien sur.

____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partag&#233;

didou09 · Answer

Didou09

Salut Valtrase
pourrais-tu me donner un peu plus d'explications?
je suis novice et utilise vb6 par loisir.

valtrase · Answer

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&#233;

didou09 · Answer

Merci je regarde de suite.
A+ Didou09

didou09 · Answer

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

valtrase · Answer

Re,
Tiens voil&#224; un bout de code tr&#233;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 (&#224; essayer .......)
 Print #intFile, EncryptText(OP(i).nom)
par exemple.

____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partag&#233;

didou09 · Answer

Bonjour et encore merci,
Je cherchais quelque chose de simple et cela r&#233;pond tout &#224; fait &#224; mon probl&#232;me.
J'essaie d'appliquer &#224; mon prog.
Bon-week-end et peut-&#234;tre &#224; bient&#244;t sur ce forum.
Didou09