Discussion :

[skysool]

Bonjour,

connaissez vous un moyen simple de crypter le contenu d'un fichier TXT via une fonction CALL ?

ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Call EnCrypt((App.Path & "\Data\fichier.txt"))
Call DeCrypt((App.Path & "\Data\fichier.txt"))

Le but étant que l'utilisateur ne puisse lire le contenu du fichier.
Ainsi un fichier contenant :


"Il était une fois dans un pays lointain..."

soit transformé en

"
5ZG64
547ZF41
416C696
56EHLM?H32B
"

J'ai cherché sur le web mais à chaque fois je ne trouve qu'une conversion de texte et non de fichier .Txt ou autre format texte

Merci

[DAUDET78]

J'ai cherché sur le web mais à chaque fois je ne trouve qu'une conversion de texte et non de fichier .Txt ou autre format texte
i

Tu as regardé ça : https://www.sourcecodester.com/tutor...using-vb6.html
Effectivement, il code/decode du texte. Prend le programme de cryptage/décryptage donné (je n'ai rien vérifié)

• Tu lis ton fichier à crypter dans une variable "Texte$"
• Tu moulines "Texte$" avec le programme. Tu as le texte encrypté dans "TexteCrypte$"
• Tu écris "TexteCrypte$" dans un fichier qui est alors crypté

Et manip idem pour décrypter

[skysool]

Merci je vais m'en inspirer

[DAUDET78]

Merci je vais m'en inspirer

Commence par tester (ce que je n'ai pas fait), si une zone texte est bien cryptée/décryptée par ce programme sans le modifier.

Si c'est OK, le programme n'est pas une élucubration non testée . . .
Ensuite tu rajoutes ce qu'il faut pour gérer des fichiers en lecture/écriture

[DAUDET78]

Je viens de tester le programme ... c'est pas un must !

• Le cryptage est fait en rajoutant le nombre de caractère du texte au code ASCII du caractère à crypter
• Si on a le texte "ABC", ça donne "DEF" ( "A"= 0x41 , 0x41+3= 0x44= "D" etc etc )
• Mais, si on a un texte assez long (plus que 200 caractères environ), la somme du code ASCII et du nombre de caractère dépasse 256 ... et le programme plante ! Car le cas n'a pas été prévu par le gamin boutonneux qui a écrit le programme. Et pourtant, c'était facile de corriger ce BUG !

Bref , niveau de sécurité voisin de 0,001 et fonctionnement pourri. Si tu veux utiliser ce programme pour pas que ta femme lise des textes adressés à ta maitresse, faut déjà corriger le BUG . . . et que ta femme ne soit pas trop intelligente !

PS : rentre ce texte , ça bugue : abcdefghijklmnopqrstuvw0123456789abcdefghijklmnopqrstuvw0123456789abcdefghijklmnopqrstuvw0123456789abcdefghijklmnopqrstuvw0123456789abcdefghijklmnopqrstuvw0123456789abcdefghijklmnopqrstuvw0123456789abcdefghijklmnopqrstuvw0123456789abcdefghijklmnopqrstuvw0123456789

[skysool]

Mince j'allais m'y mettre j'ai un peu de temps devant moi ce soir.

Non non je n'ai rien à cacher à ma femme

Simplement que je confectionne un programme dont certains réglages seront stockés dans un fichier .TXT ou .INI.
Ces réglages ne peuvent être stockés autrement que dans un fichier texte et ils influent sur le réglage du programme.

Si quelqu'un arrive à les débloquer il ne gagnera rien à les modifier mais il risque de faire dysfonctionner le logiciel et je souhaite m'éviter autant que possible du SAV pour ceux qui sont un peu trop curieux.
C'est bien d'être curieux mais autant que se soit protégé et plus sécurisé pour tout le monde.

Je vais continuer mes investigations merci Daudet78

[DAUDET78]

Quelle est la longueur de ton fichier de paramétrage ?

[skysool]

Quelle est la longueur de ton fichier de paramétrage ?

Il est évolutif actuellement 1279 lignes maximum en moyenne selon l'utilisation du logiciel je pense entre 500 et 800 lignes


Edit :

J'ai trouvé une solution !
Plutôt que de crypter je vais tout simplement changer l'emplacement du fichier contenant les données.
Ainsi il ne sera pas stocké dans le dossier d'installation mais dans un dossier tout autre dans le lecteur principal.

J'ai trouvé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
 
Private Declare Function GetWindowsDirectory Lib "kernel32" _
    Alias "GetWindowsDirectoryW" ( _
    ByVal lpBuffer As Long, _
    ByVal nSize As Long) As Long
 
Private Function GetSystemDrive(ByVal CharsDesired As Long) As String
    Dim Buffer As String
    Dim BufferSize As Long
 
    BufferSize = GetWindowsDirectory(0, 0)
    Buffer = String$(BufferSize - 1, 0)
    GetWindowsDirectory StrPtr(Buffer), BufferSize
    If 1 > CharsDesired Or CharsDesired > 3 Then CharsDesired = 3
    GetSystemDrive = Left$(Buffer, CharsDesired)
End Function
 
Private Sub Form_Load()
    AutoRedraw = True
 
    Print "GetSystemDrive(1) -> "; GetSystemDrive(1)
    Print "GetSystemDrive(2) -> "; GetSystemDrive(2)
    Print "GetSystemDrive(3) -> "; GetSystemDrive(3)
End Sub

Il ne me reste plus qu'à...

[DAUDET78]

Il est évolutif actuellement 1279 lignes maximum en moyenne selon l'utilisation du logiciel je pense entre 500 et 800 lignes

Donc il faut corriger le BUG que j'ai signalé

J'ai trouvé une solution !
Plutôt que de crypter je vais tout simplement changer l'emplacement du fichier contenant les données.
Ainsi il ne sera pas stocké dans le dossier d'installation mais dans un dossier tout autre dans le lecteur principal.

Ouais ... C'est plus simple de planquer ton paramétrage dans la base de registre. Comme c'est imbitable à comprendre pour un néophyte, c'est dur à modifier . Surtout que si tu y fais n'importe quoi, le PC est planté . . .