A voir également:
- Crypter code vba
- Visual txt - Meilleures réponses
- Txt visual - Meilleures réponses
- Ouvrir fichier txt vba - Conseils pratiques - Visual Basic / VB.NET
- Importer fichier txt dans excel vba ✓ - Forum - Visual Basic 6
- Ecrire dans un fichier txt c# ✓ - Forum - C# / .NET
- Logiciel de verification virement ccp (fichier txt) + logiciel de creation de ce fichier ✓ - Forum - Delphi / Pascal
- Java créer fichier txt - Forum - Java
7 réponses
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é
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é
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é
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é
Didou09
Salut Valtrase
pourrais-tu me donner un peu plus d'explications?
je suis novice et utilise vb6 par loisir.
Salut Valtrase
pourrais-tu me donner un peu plus d'explications?
je suis novice et utilise vb6 par loisir.
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é
http://www.vbfrance.com/code.aspx?id=5648
____________________________________________________
Cordialement, Jean-Paul
Le Savoir n'a de valeur que s'il est partagé
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
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