Mettre deux fichiers .vbs en .exe

Version imprimable

06/06/2019, 15h29
lebonsavane

Mettre deux fichiers .vbs en .exe

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,
06/06/2019, 16h51
hackoofr

:salut:
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 !
07/06/2019, 08h22
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.
07/06/2019, 11h55
hackoofr

Citation:

Envoyé par lebonsavane

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

:salut:
(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

https://i.stack.imgur.com/H9WKo.gif
07/06/2019, 15h49
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 ...
07/06/2019, 16h40
hackoofr

Citation:

Envoyé par 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 ...

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 ?
13/06/2019, 09h52
lebonsavane

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

Citation:

Envoyé par lebonsavane

...... 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 :

Crypte d'abord le fichier vbs en vbe.
Mets le fichier vbe dans un fichier de ressource(.res) que tu aurais ajouté à ton application.
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).
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:

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

17/06/2019, 07h40
ericlm128

Pour le vb.net oriente toi vers un logiciel d'obfusaction de code
http://confuser.codeplex.com
17/06/2019, 17h38
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
17/06/2019, 17h58
lebonsavane

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

Citation:

Envoyé par lebonsavane

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:

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.

18/06/2019, 09h24
lebonsavane

Je veux bien te croire mais cela me mets une erreur vbs quand je veux le faire, "Permission refusée".
18/06/2019, 09h50
l_autodidacte

Citation:

Envoyé par lebonsavane

....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 ?
18/06/2019, 14h55
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
18/06/2019, 15h47
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.
19/06/2019, 17h27
lebonsavane

Salut, J'ai toujours la même erreur qui s'affiche.. "Permission refusée"
19/06/2019, 20h04
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.
20/06/2019, 16h21
lebonsavane

Salut, j'ai essayé mais cela me mes que ce n'est pas une application Win32 valide..
21/06/2019, 21h43
l_autodidacte

Le pouvoir Admin c'est sur Cmd.exe et non sur toute la ligne de commande.
13/10/2020, 20h31
steph78630

Citation:

Envoyé par hackoofr

:salut:
...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)