Bonjour , tout le monde!Voila , je dois crypter un fichier lorsqu'il est copié vers le réseau(intranet) , mais voilà , c'est au décryptage que sa pas vraiment l'air de bien fonctionné alors si quelqu'un pourrait me dire ce qui va pas dans mon code,sa serais sympa.

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
'Procédures et fonctions utilisées dans plusieurs ou toutes les pages de l'application
 
'Encodage des informations
Public Function Encode(sChaine As String) As String
Dim sEncoded As String, iC As Integer
For iC = 1 To Len(sChaine)
sEncoded = sEncoded & CStr(Asc(Mid(sChaine, iC, 1)) + 500)
Next iC
Encode = sEncoded
End Function
 
'Décodage des informations
Public Function Decode(sChaine As String) As String
Dim sDecoded As String, iC As Integer
For iC = 1 To Len(sChaine) Step 3
sDecoded = sDecoded & CStr(Asc(Mid(sChaine, iC, 3)) - 500)
Next iC
Decode = sDecoded
End Function
Donc sa c les fonctions de chiffrage et déchiffrage que j'ai trouvé sur le net et voici a quel stade , intervient ce chiffrage-dechiffrage!
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
'Fonction d'écriture  dans le fichier  prod10m.ini
Public Static Sub ecrire_fichier_ini()
Dim Numéro_Fichier
Dim temp As String
Dim j As Integer
Numéro_Fichier = FreeFile
 
Open App.Path & "\Prod10m.ini" For Output As #Numéro_Fichier
Print #Numéro_Fichier, Encode("port série : " & Port_com)
Print #Numéro_Fichier, Encode("Intervalle par calibration : " & Periode_cal)
Print #Numéro_Fichier, Encode("Seuil discrimination : " & Seuil_det1 & ";" & Seuil_det2 & ";" & Seuil_det3 & ";" & Seuil_det4 & ";" & Seuil_det5)
Print #Numéro_Fichier, Encode("temps de stabilisation : " & Temps_stab)
Print #Numéro_Fichier, Encode("temps pic mono : " & Temps_pic)
Print #Numéro_Fichier, Encode("ecart appairage : " & Ecart_app)
Print #Numéro_Fichier, Encode("index carte : " & Index_carte)
Print #Numéro_Fichier, Encode("index stock : " & Index_stock)
Print #Numéro_Fichier, Encode("Seuil_mono_haut : " & S_mono_haut(0) & ";" & S_mono_haut(1) & ";" & S_mono_haut(2) & ";" & S_mono_haut(3) & ";" & S_mono_haut(4) & ";" & S_mono_haut(5) & ";" & S_mono_haut(6) & ";" & S_mono_haut(7) & ";" & S_mono_haut(8) & ";" & S_mono_haut(9) & ";" & S_mono_haut(10) & ";" & S_mono_haut(11) & ";" & S_mono_haut(12) & ";" & S_mono_haut(13) & ";" & S_mono_haut(14) & ";" & S_mono_haut(15) & ";" & S_mono_haut(16) & ";" & S_mono_haut(17) & ";" & S_mono_haut(18) & ";" & S_mono_haut(19) & ";" & S_mono_haut(20) & ";" & S_mono_haut(21) & ";" & S_mono_haut(22) & ";" & S_mono_haut(23) & ";" & S_mono_haut(24) & ";" & S_mono_haut(25) & ";" & S_mono_haut(26) & ";" & S_mono_haut(27) & ";" & S_mono_haut(28) & ";" & S_mono_haut(29) & ";" & S_mono_haut(30) & ";" & S_mono_haut(31) & ";" & S_mono_haut(32) & ";" & S_mono_haut(33) & ";" & S_mono_haut(34) & ";" & S_mono_haut(35))
Print #Numéro_Fichier, Encode("Seuil_mono_bas : " & S_mono_bas(0) & ";" & S_mono_bas(1) & ";" & S_mono_bas(2) & ";" & S_mono_bas(3) & ";" & S_mono_bas(4) & ";" & S_mono_bas(5) & ";" & S_mono_bas(6) & ";" & S_mono_bas(7) & ";" & S_mono_bas(8) & ";" & S_mono_bas(9) & ";" & S_mono_bas(10) & ";" & S_mono_bas(11) & ";" & S_mono_bas(12) & ";" & S_mono_bas(13) & ";" & S_mono_bas(14) & ";" & S_mono_bas(15) & ";" & S_mono_bas(16) & ";" & S_mono_bas(17) & ";" & S_mono_bas(18) & ";" & S_mono_bas(19) & ";" & S_mono_bas(20) & ";" & S_mono_bas(21) & ";" & S_mono_bas(22) & ";" & S_mono_bas(23) & ";" & S_mono_bas(24) & ";" & S_mono_bas(25) & ";" & S_mono_bas(26) & ";" & S_mono_bas(27) & ";" & S_mono_bas(28) & ";" & S_mono_bas(29) & ";" & S_mono_bas(30) & ";" & S_mono_bas(31) & ";" & S_mono_bas(32) & ";" & S_mono_bas(33) & ";" & S_mono_bas(34) & ";" & S_mono_bas(35))
Print #Numéro_Fichier, Encode("tension brute basse : " & Tension_brute_basse)
Print #Numéro_Fichier, Encode("tension brute haute : " & Tension_brute_haute)
Print #Numéro_Fichier, Encode("stabilite O2 basse : " & Stab_basse)
Print #Numéro_Fichier, Encode("stabilite O2 haute : " & Stab_haute)
Print #Numéro_Fichier, Encode("sensibilite gaz basse : " & Sensibilite_ch4_basse)
Print #Numéro_Fichier, Encode("sensibilite gaz haute : " & Sensibilite_ch4_haute)
Print #Numéro_Fichier, Encode("pic de tension : " & Pic_tension)
Print #Numéro_Fichier, Encode("fichier de résultat des mono : " & Chemin_Resultat)
temp = ""
For j = 1 To 10
temp = temp & carte.Courant_ref(j) & ";"
Next j
temp = temp & carte.date_calib
Print #Numéro_Fichier, Encode("Courant :" & temp)
Close #Numéro_Fichier
Call copy_fichier_ini
End Sub
 
'Décodage du fichier prod_10m.ini
Public Sub decode_fichier_ini()
Dim Numéro_Fichier
Dim temp As String
Dim j As Integer
Numéro_Fichier = FreeFile
 
Open App.Path & "\Prod10m.ini" For Output As #Numéro_Fichier
Print #Numéro_Fichier, Decode("port série : " & Port_com)
Print #Numéro_Fichier, Decode("Intervalle par calibration : " & Periode_cal)
Print #Numéro_Fichier, Decode("Seuil discrimination : " & Seuil_det1 & ";" & Seuil_det2 & ";" & Seuil_det3 & ";" & Seuil_det4 & ";" & Seuil_det5)
Print #Numéro_Fichier, Decode("temps de stabilisation : " & Temps_stab)
Print #Numéro_Fichier, Decode("temps pic mono : " & Temps_pic)
Print #Numéro_Fichier, Decode("ecart appairage : " & Ecart_app)
Print #Numéro_Fichier, Decode("index carte : " & Index_carte)
Print #Numéro_Fichier, Decode("index stock : " & Index_stock)
Print #Numéro_Fichier, Decode("Seuil_mono_haut : " & S_mono_haut(0) & ";" & S_mono_haut(1) & ";" & S_mono_haut(2) & ";" & S_mono_haut(3) & ";" & S_mono_haut(4) & ";" & S_mono_haut(5) & ";" & S_mono_haut(6) & ";" & S_mono_haut(7) & ";" & S_mono_haut(8) & ";" & S_mono_haut(9) & ";" & S_mono_haut(10) & ";" & S_mono_haut(11) & ";" & S_mono_haut(12) & ";" & S_mono_haut(13) & ";" & S_mono_haut(14) & ";" & S_mono_haut(15) & ";" & S_mono_haut(16) & ";" & S_mono_haut(17) & ";" & S_mono_haut(18) & ";" & S_mono_haut(19) & ";" & S_mono_haut(20) & ";" & S_mono_haut(21) & ";" & S_mono_haut(22) & ";" & S_mono_haut(23) & ";" & S_mono_haut(24) & ";" & S_mono_haut(25) & ";" & S_mono_haut(26) & ";" & S_mono_haut(27) & ";" & S_mono_haut(28) & ";" & S_mono_haut(29) & ";" & S_mono_haut(30) & ";" & S_mono_haut(31) & ";" & S_mono_haut(32) & ";" & S_mono_haut(33) & ";" & S_mono_haut(34) & ";" & S_mono_haut(35))
Print #Numéro_Fichier, Decode("Seuil_mono_bas : " & S_mono_bas(0) & ";" & S_mono_bas(1) & ";" & S_mono_bas(2) & ";" & S_mono_bas(3) & ";" & S_mono_bas(4) & ";" & S_mono_bas(5) & ";" & S_mono_bas(6) & ";" & S_mono_bas(7) & ";" & S_mono_bas(8) & ";" & S_mono_bas(9) & ";" & S_mono_bas(10) & ";" & S_mono_bas(11) & ";" & S_mono_bas(12) & ";" & S_mono_bas(13) & ";" & S_mono_bas(14) & ";" & S_mono_bas(15) & ";" & S_mono_bas(16) & ";" & S_mono_bas(17) & ";" & S_mono_bas(18) & ";" & S_mono_bas(19) & ";" & S_mono_bas(20) & ";" & S_mono_bas(21) & ";" & S_mono_bas(22) & ";" & S_mono_bas(23) & ";" & S_mono_bas(24) & ";" & S_mono_bas(25) & ";" & S_mono_bas(26) & ";" & S_mono_bas(27) & ";" & S_mono_bas(28) & ";" & S_mono_bas(29) & ";" & S_mono_bas(30) & ";" & S_mono_bas(31) & ";" & S_mono_bas(32) & ";" & S_mono_bas(33) & ";" & S_mono_bas(34) & ";" & S_mono_bas(35))
Print #Numéro_Fichier, Decode("tension brute basse : " & Tension_brute_basse)
Print #Numéro_Fichier, Decode("tension brute haute : " & Tension_brute_haute)
Print #Numéro_Fichier, Decode("stabilite O2 basse : " & Stab_basse)
Print #Numéro_Fichier, Decode("stabilite O2 haute : " & Stab_haute)
Print #Numéro_Fichier, Decode("sensibilite gaz basse : " & Sensibilite_ch4_basse)
Print #Numéro_Fichier, Decode("sensibilite gaz haute : " & Sensibilite_ch4_haute)
Print #Numéro_Fichier, Decode("pic de tension : " & Pic_tension)
Print #Numéro_Fichier, Decode("fichier de résultat des mono : " & Chemin_Resultat)
temp = ""
For j = 1 To 10
temp = temp & carte.Courant_ref(j) & ";"
Next j
temp = temp & carte.date_calib
Print #Numéro_Fichier, Decode("Courant :" & temp)
Close #Numéro_Fichier
End Sub
J'espere que vous pourrez m'eclairer,merci d'avance.