Récupérer une valeur unicode dans un fichier txt et le charger dans une var. String

Version imprimable

03/11/2016, 21h07
Zarkann

Récupérer une valeur unicode dans un fichier txt et le charger dans une var. String

Bonjour,

J'aurais besoin de votre aide pour récupérer la première ligne d'un fichier "Lic.txt"
Je précise que le fichier txt contient des caractères unicode du type:

Code:

¿d*º(ìu²ýù×êo×aÿßÓ£ºÒüüšd¹uj÷Ú!ÜÓ

Le fichier sera dans le même répertoire que l’application
que je retrouve grâce à une variable As String "chemin".

Code:

chemin = Workbooks(ActiveWorkbook.Name).Path

En vous remerciant d'avance

Cordialement Eric
03/11/2016, 21h36
clementmarcotte

Bonjour,

Je ne suis pas vraiment sûr que VBA fasse bon ménage avec Unicode. Ceci dit, il y a peut-être un début de solution par là.
04/11/2016, 06h46
Zarkann

Bonjour

Je pense que les caractères unicode ne changent rien car j'ai déjà manipuler cela avec les variables As String qui ne posent aucun problème.;)

Pour situer la chose il s'agit d'un code de licence pour mes applications grâce a un cryptage de Vigenère qui réside en l’occurrence dans une fonction
En gros il y a 4 cellules qui pour générer le cryptage:

a) le texte à crypter
b) la Clé (un texte qui sert de support au cryptage
c) Une cellule qui recopie le texte avec des caractères unicode
d) la dernière qui génère le code

J'ai donc cette série de cellule dans dans l’application que je souhaite transmettre
et l'autre dans une petite application qui me sert a générer le code

Le but est que l'utilisateur me transmet des infos perso qui seront concaténer avec des infos concernant l'application.
Ainsi cela me permet de protéger mon application tout en permettant à l'utilisateur de pouvoir l'utiliser sur plusieurs postes,
Car je souhaite que l’application soit utilisable gratuitement pendant un moi puis ensuite avec la licence.

La licence se présenterait sous la forme d'un fichier txt
que je viendrait charger à l'ouverture.

Mon problème réside plus dans le fait d'aller chercher le code dans le fichier txt :oops:

Cordialement Eric
04/11/2016, 07h02
clementmarcotte

Bonjour,

Ah, OK

Le plus simple, c'est sans doute la vieille instruction Open. (Aucune crainte, elle était là bien avant Office 2013)
04/11/2016, 07h36
Invité

Bonjour,
Un fichier texte est un fichier à accès séquentiel? Cela veut dire qu'il faut lire chaque lignes du fichier et en extraire le informations et vue que le fichier est sensé être crypter, j'ai comprend ton embarras.

Il faut utiliser un fichier à accès directe (rendom), on défi un mask (nom,prénom,âge) par exemple et la lecture et/ou l'écriture ce fait autour du. Ce mask!

Read #1, mask ainsi les informations sont bien rangé dans la variable mask (variable de type défini par l'utilisateur!)

Pour moi le puis simple est encore de fournir un xml au utilisateur.

C'est ce que j'utilisais avant d'opter pour du SqlLite, car plusieurs utilisateurs devaient lire et écrire dedans simultanément.
04/11/2016, 08h09
Zarkann

Re-Bonjour

Non Non, vous avez sans doute mal compris (ou bien c'est peut être moi), du coté application les données sont rentrée dans une feuille "administrateur" et le code est généré par l'application dans un feuille "programmeur" qui est fortement masqué et protégé.
Je précise également que l'appli. gère des utilisateurs avec login et droits associés

En fait ce que je souhaite c'est que l’application compare le code généré par celle-ci avec le code du fichier txt que je fournis après règlement de facture.

Tout ce que j'ai besoin c'est de récupérer la première ligne du txt dans une variable As String pour la comparer

Cordialement Eric

2 pièce(s) jointe(s)

Dans cette exemple j'utilisais la base de registre mais le principe est le même!
http://www.developpez.net/forums/d13...l/#post7457349

Je dois avoir un exemple de code avec un fichier texte à accès direct, quand j'arrive pas au travail je te fais un exemple, ça va régler tous tes problème!

voila le type de licence que j'utilisais Fichier XML!
Pièce jointe 224029
tous est crypté on trouve des information sur le le serveur,sur la ou les machine connecté, le type de licence évaluation, lier à la machine, à l'utilisateur, à jeton , possibilité d'acheter la licence Oui/Non, le prix de la licence,etc...), chaque machine connecté dispose de son propre mode de cryptage et ne peut pas lire les information du voisin!

voici un exemple que tu pouras utiliser dans ton programme!

exécute sub test dans le modul1 et ouvre le fichier Licence.dll avec notpad!

Code:

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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
Option Explicit
 
 
Private StrClé As String
Private StrTexte As String
 
 
Public Property Let IniClé(Clé As String)
StrClé = Clé
Initialize
End Property
 
 
Public Property Let IniTexte(Texte As String)
StrTexte = Texte
End Property
 
 
Public Property Get IniTexte() As String
IniTexte = StrTexte
End Property
 
 
Public Sub DoXor()
Dim lngC As Long
Dim intB As Long
Dim LngN As Long
For LngN = 1 To Len(StrTexte)
lngC = Asc(Mid(StrTexte, LngN, 1))
intB = Int(Rnd * 256)
Mid(StrTexte, LngN, 1) = Chr(lngC Xor intB)
Next LngN
End Sub
 
 
Private Sub Initialize()
Dim LngN As Long
Randomize Rnd(-1)
For LngN = 1 To Len(StrClé)
Randomize Rnd(-Rnd * Asc(Mid(StrClé, LngN, 1)))
Next LngN
End Sub
 
 
Public Function Encrypt(Code As String, text As String) As String
Dim strHead As String
Dim strT As String
Dim strA As String
Dim CodageX As New CDETXT
Dim LngN As Long
CodageX.IniTexte = text
CodageX.IniClé = Code
CodageX.DoXor
strT = CodageX.IniTexte
strHead = strT
CodageX.IniClé = strHead
CodageX.IniTexte = strA
CodageX.DoXor
strA = CodageX.IniTexte
Encrypt = strHead
 
 
 
 
End Function
 
 
Public Function Decrypt(Code As String, Verif As String) As String
Dim strA As String
Dim strT As String
Dim CodageX As New CDETXT
Dim lnlN As Long
Decrypt = True
strT = Code 'Mid(Code, Len("[Crypting_AutoCâble]") + 1, Len(Code) - (Len("[Crypting_AutoCâble]")))
CodageX.IniClé = Code
CodageX.IniTexte = Verif
CodageX.DoXor
Decrypt = CodageX.IniTexte
'If CodageX.IniTexte <> Verif Then
' MsgBox "Mot de passe incorrect", vbExclamation + vbOKOnly
' Decrypt = False
' Exit Function
'End If
 
 
 
End Function
 
 
Public Function DefinSerialPass(UserName As String, Serial As String, Pass As String)
On Error Resume Next
 
 
Dim x
Dim Longcode
Dim y
Dim P As Integer
Dim I As Long
x = Right(UserName, 1) 'code pour coder le serial
Longcode = Len(UserName) + 3 'code pour coder le serial
y = Longcode * 10
Serial = Chr(Longcode * 5) & Asc(Right(UserName, 1)) & Asc(Left(UserName, 1)) & Asc(x) & Chr(y) 'code pour coder le serial
Pass = ""
For I = 1 To Len(UserName)
 
 
 
 
P = Asc(Mid(UserName, I, 1))
P = 90 - Asc(Mid(UserName, I, 1))
Reprise:
 
If (P < 48) And (P < 58) Then P = 48 + (48 - P)
If (P > 57) And (P < 90) Then P = 90 + (90 - P)
 
 
If (P > 122) Then P = 122 + (122 - P)
If (P > 90) And (P < 97) Then
P = 97 - P
 
GoTo Reprise
End If
 
Pass = Pass & Chr(P)
Debug.Print Pass
'Pass
Next
 
 
 
 
Private Function PeriodeVal(DateD As Date, DateEncours As Date, DateF As Date) As Boolean
PeriodeVal = True
If (DateD < DateEncours) And (DateEncours > DateF) Then
PeriodeVal = False
End If
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Type NomPnom
Nom As String
Pnom As String
Age As String
End Type
Sub test()
Dim A As NomPnom, B As NomPnom, Crypt As New CDETXT
A.Age = Crypt.Encrypt("Cle", "25")
A.Pnom = Crypt.Encrypt("Cle", "Robert")
A.Nom = Crypt.Encrypt("Cle", "dysorthographie")
Dim NumFile As Long
NumFile = FreeFile
Open ThisWorkbook.Path & "\Licence.dll" For Random As #NumFile
Put #NumFile, , A
Close #NumFile
Open ThisWorkbook.Path & "\Licence.dll" For Random As #NumFile
Get #NumFile, , B
Close #NumFile
B.Age = Crypt.Decrypt("Cle", B.Age)
B.Nom = Crypt.Decrypt("Cle", B.Nom)
B.Pnom = Crypt.Decrypt("Cle", B.Pnom)
End Sub

04/11/2016, 12h23
Marc-L

Bonjour.

Citation:

Envoyé par Zarkann

J'aurais besoin de votre aide pour récupérer la première ligne d'un fichier "Lic.txt"
Je précise que le fichier txt contient des caractères unicode

C'est possible en utilisant l'ActiveX ADODB.Stream documenté sur le site MSDN et il doit y avoir des exemples sur ce forum …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
04/11/2016, 12h39
Invité

1 pièce(s) jointe(s)
Bonjour Marc,

¿d*º(ìu²ýù×êo×aÿßÓ£ºÒüüšd¹uj÷Ú!ÜÓ

Citation:

a) le texte à crypter
b) la Clé (un texte qui sert de support au cryptage
c) Une cellule qui recopie le texte avec des caractères unicode
d) la dernière qui génère le code

est-ce des valeur Unicode ou crypté?

voila par exemple ce que j'ai dans Licence.dll poste #7!
5è™³ýÃ þˆ¹ýÃÒƒÿm¼N U²
Code:

1 2 3 4 A.Age = Crypt.Encrypt("Cle", "25") A.Pnom = Crypt.Encrypt("Cle", "Robert") A.Nom = Crypt.Encrypt("Cle", "dysorthographie")
Citation:

Envoyé par developpez.net

un membre averti en vaut 2
je peux estimer que j'en ai Pièce jointe 224052?
04/11/2016, 16h14
Marc-L

Salut Robert !

J'ai effectivement répondu à la question telle que posée initialement (voir aussi le titre de cette discussion !),
à savoir pour du texte au format Unicode et non pour un quelconque cryptage.

« c) Une cellule qui recopie le texte avec des caractères unicode » : c'est à se demander si l'auteur sait de quoi il est question !
Y aurait-il une confusion entre encodage Unicode et caractères cryptés ? …

Bonjour

Excusez moi pour la réponse tardive mais le travail m’a prit tout mon temps

Je me suis peut être mal exprimé pour les symbole "unicode" il s'agit bien d'un cryptage
Sinon j'ai trouver la solution
Code:

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 Dim i As Long, j As Long, ar Dim sRepertoire As String, sNomFichier As String Dim iFile As Integer Dim data Dim Ws As Worksheet Dim Licence As String '(fichier init) Dim Code As String 'Cellule (DB101) sRepertoire = "E:\Aplications\Prodution\" '// doit terminer avec un "\" sNomFichier = "Licence.init" 'Ouvrir le fichier iFile = FreeFile Open sRepertoire & sNomFichier For Input As #iFile 'Lecture du 1er fichier et écriture dans Excel i = 1 Do Until EOF(iFile) Line Input #iFile, data Licence = data Ws.Cells(i, 5) = data i = i + 1 Loop 'Fermer le fichier Close #iFile
C'est un bout de code que j'ai trouvé sur internet et qui était prévu pour travailler sur plusieurs fichier et plusieurs lignes.

Ensuite il ne me suffit plus qu'a comparer la valeur du fichier txt (ou plutôt init) avec le code généré dans l'application

En tout cas merci à ceux qui se sont penché sur mon problème.

Merci également à dysorthographie pour son code de licence qui à l'air excellent, mais j'avoue que mon niveau en programmation n'est pas suffisant pour comprendre précisément son fonctionnement

Cordialement Eric

08/11/2016, 12h21
Invité
bonjour,
note cependant q'il sera facile de craquer l'application, car le fait que les donné soient cryptées, ne changera rien l’affaire!

Code:

if décrypte(a) = décrypte(b) then

il est possible de contourner le test (IF)!

si tu veux faire un système de licence efficace, apprends le développement dans un environnement évolué! Visual studio 6 {c'est le même langage que VBA} est passé dans le domaine publique.

https://mon-partage.fr/f/05A1tQvN/

aprends à développer une DLL avec tout ton code vba dedans et utilise la dans tes projets vba. tu pourras ainsi forcer la reconnaissance de licence sans que personne ne puissent la contourner!
Code:

1 2 3 4 5 6 Private Sub Class_Initialize() If Environ("username") <> "TOTO" Then Err.Raise 1664, "vb6", "La mise en bière est à 15 heure!" End Sub Public Sub programme() MsgBox "ton est OK" End Sub
Code:

1 2 3 4 Sub TEST() Dim a As New Login a.programme End Sub
08/11/2016, 12h37
unparia

Bonjour
un pouce vert (on ne peut qu'en mettre un) pour :

Citation:

il sera facile de craquer l'application, car le fait que les donné soient cryptées, ne changera rien l’affaire!