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,
Version imprimable
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,
: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 !
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.
: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
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 ...
Bonjour,
Oui exactement c'est la même chose, il y a une MsgBox de promo..
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
Pour le vb.net oriente toi vers un logiciel d'obfusaction de code
http://confuser.codeplex.com
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
En fait j'aimerais pouvoir crypter mon vbs ou le protéger toujours en pouvant l'appeler depuis un .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 :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.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é.
Tout autre type de fichier que le .vbs n'est pas affecté par ce code.
Je veux bien te croire mais cela me mets une erreur vbs quand je veux le faire, "Permission refusée".
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
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 ?
- Essaie de modifier le chemin d'accès au fichier .vbe et exécute le script.
- 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.
Salut, J'ai toujours la même erreur qui s'affiche.. "Permission refusée"
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.
Salut, j'ai essayé mais cela me mes que ce n'est pas une application Win32 valide..
Le pouvoir Admin c'est sur Cmd.exe et non sur toute la ligne de commande.