Discussion :

[lebonsavane]

Bonjour je suis en possession de deux fichiers .VBNET et l'autre .vbs il me faudrait une solutions pour les crypter tout deux en un même fichier étant donné que le VBNET fait appel au vbs
Merci de me répondre,

[hackoofr]

Est-ce-que tu peux nous joindre leurs codes sources ?
Remarque : Juste pour votre information que convertir un vbs en exécutable .exe ça ne veut pas dire crypter son contenu !

[lebonsavane]

Non je ne peux je n'en n'ai pas l'autorisation mais en gros je peux te les décrire un maximum si tu veux, l'un c'est un .vbs simple qui se lance depuis un fichier qui lui est en .exe, qui est à la base un fichier issu de Microsoft Visual Studio. De plus j'ai mis les mettre en exe mais ce que je souhaite, mon but premier c'est que mon code ne soit pas lisible, ni que l'on puisse l'obtenir via le reverse engineering.

[hackoofr]

Je souhaite, que mon code ne soit pas lisible, ni que l'on puisse l'obtenir via le reverse engineering.

(VbsEdit/HTAEdit), il s’agit d’un package comprenant (VbsEdit 32 bits, VbsEdit 64 bits, HtaEdit 32 bits et HtaEdit 64 bits).
Il a une bonne fonctionnalité est de compiler et convertir vos fichiers VBS ou HTA en .exe

[lebonsavane]

Je te remercie je l'ai essayé mais le problème est qu'avant l'exécution il y a une msgbox de promo pour le logiciel ...

[hackoofr]

Je te remercie je l'ai essayé mais le problème est qu'avant l'exécution il y a une msgbox de promo pour le logiciel ...

Oui, mais as-tu essayé de le convertir en .exe ? et ce msgbox apprait-il ou non après l'exécution de l'exécutable ?

[steph78630]

...il s’agit d’un package comprenant (VbsEdit 32 bits, VbsEdit 64 bits, HtaEdit 32 bits et HtaEdit 64 bits)...

Bonjour à tous,

de mémoire, VBSEdit / HTAEdit ne fait qu'encapsuler le fichier source en EXE.

Pour retrouver le code d'origine (la source), il suffit d'exécuter l'EXE et d'aller chercher le VBS dans le dossier %TEMP% de son profil (pas glop).

> Pour une meilleure protection d'un VBS, il y a ScriptCryptor de chez abyssmedia... (note : Ils ont la même chose pour des fichiers BAT et MSI)

[l_autodidacte]

...... pour les crypter tout deux en un même fichier étant donné que le VBNET fait appel au vbs....

Si tu est l'auteur du fichier VB.NET, il y a moyen de le faire autrement :

1. Crypte d'abord le fichier vbs en vbe.
2. Mets le fichier vbe dans un fichier de ressource(.res) que tu aurais ajouté à ton application.
3. Lors de l'appel du fichier vbs(maintenant appelé vbe), extrais-le dans un dossier(de préférence le dossier de ton application pour le localiser facilement au cas où tu en aurais besoin).
4. Une fois l'appel terminé et le fichier a fait son boulot, tu le supprimes.

Voici une méthode pour l'extraction du fichier (en VB6) :

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
Sub ExtractResData(DestFileName As String, Id As Integer, Section As String)
' DestFileName : Fichier de sortie, dans ton cas le fichier vbe
   Dim  ResultData As String
   Dim b() As Byte
   Dim intFile As Integer
' Récupération de la ressource
    ResultData = DestFileName
   b = LoadResData(Id, Section)
   intFile = FreeFile
' Inscription des données récupérées dans un fichier (fichier résultat)   
   Open ResultData For Binary Access Write Lock Read As #intFile
   Put #intFile, , b
   Close #intFile
   intFile = 0
End Sub

[ericlm128]

Pour le vb.net oriente toi vers un logiciel d'obfusaction de code
http://confuser.codeplex.com

[lebonsavane]

Re-bonjour,
En le cryptant (vbe) le problème est que il n'est pas réutilisable après en l'appelant depuis mon mini soft en exe

[lebonsavane]

En fait j'aimerais pouvoir crypter mon vbs ou le protéger toujours en pouvant l'appeler depuis un .exe

[l_autodidacte]

En le cryptant (vbe) le problème est que il n'est pas réutilisable après en l'appelant depuis mon mini soft en exe

Cela dépend de la façon dont tu as crypté ton fichier.
Si c'est avec un code tel que le suivant, ton fichier de sortie (.vbe) est toujours utilisable :

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
Option Explicit
Dim objEncoder, oFSO, vbsText, VbsFile, VbeFile, txtStream, EncodedText
 
VbeFile = "EncodedFile.vbe"
VbsFile = Wscript.ScriptFullName ' ici, on utilise le  présent fichier pour le crypter
' >>  à l'utilisation, mettre le chemin complet du fichier à crypter
Set objEncoder = CreateObject("Scripting.Encoder")
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
vbsText = oFSO.OpenTextFile(VbsFile).ReadAll
EncodedText = objEncoder.EncodeScriptFile(".vbs", vbsText, 0, "VBscript")
 
Set txtStream = oFSO.CreateTextFile("EncodedFile.vbe", True, False)
txtStream.Write EncodedText
txtStream.Close
Set objEncoder = Nothing : Set oFSO = Nothing    
MsgBox "Opération terminée." ' C'est juste pour avertir que tout est terminé.

Tu peux appeler le fichier .vbe (ici dénommé EncodedFile.vbe) depuis ton soft et il doit faire ce que tu veux selon ce que tu y as mis.
Tout autre type de fichier que le .vbs n'est pas affecté par ce code.

[lebonsavane]

Je veux bien te croire mais cela me mets une erreur vbs quand je veux le faire, "Permission refusée".