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 ?

[lebonsavane]

Bonjour,
Oui exactement c'est la même chose, il y a une MsgBox de promo..

[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".

[l_autodidacte]

....cela me mets une erreur vbs quand je veux le faire, "Permission refusée".

Qui / Quoi cela ? Quel fichier ?
Erreur : n° ligne et n° caractère ?

[lebonsavane]

A l’exécution du script j'ai une erreur VBS qui me dit "Permission refusée" sur le chemin de mon fichier alors que les droits d’accès y sont bien présents
Ligne 13
Code 800A0046

[l_autodidacte]

Il me semble qu'à partir de WIN 7, la création d'un fichier à la racine du lecteur système n'est pas autorisée même si on est admin. Est-ce le cas ?

1. Essaie de modifier le chemin d'accès au fichier .vbe et exécute le script.
2. Sinon essaie de remplacer la ligne 13 par Set txtStream = oFSO.OpenTextFile("EncodedFile.vbe", ForWriting, True) tout en déclarant au début Const ForWriting = 2 et exécute le vbs pour voir ce que cela donne.

[lebonsavane]

Salut, J'ai toujours la même erreur qui s'affiche.. "Permission refusée"

[l_autodidacte]

As-tu essayé de lancer le script en ligne de commandes via Cmd.exe Vbs2Vbe.vbs en Admin ?
Vbs2Vbe.vbs étant le nom du fichier vbs qui se charge du cryptage; bien sûr, il faut soit se placer dans le dossier contenant le fichier vbs, soit taper son chemin complet.

[lebonsavane]

Salut, j'ai essayé mais cela me mes que ce n'est pas une application Win32 valide..

[l_autodidacte]

Le pouvoir Admin c'est sur Cmd.exe et non sur toute la ligne de commande.