Discussion :

[anisj1m]

bonjour,
je voudrais savoir comment je peut crypter un fichier vbs dans le but qu'un utilisateur pourra l'executer mais sans pouvoir savoir le contenu du fichier.

[ced600]

Je ne suis pas sur que cela soit possible.

[omen999]

bonjour,
http://www.microsoft.com/downloads/d...displaylang=en

jamais testé son efficacité réelle

[anisj1m]

merci,
la reponse d'omen999 propose l'utilisation du tag suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
<SCRIPT LANGUAGE="VBScript">
'Copyright© 1998. XYZ Productions. All rights reserved.
'**Start Encode**
' Your code goes here.
</SCRIPT>

et ensuite executer une ligne de commande (un petit programme) j'ai fait ceci mais pas de resultat correcte j'ai obtenu une erreur.

est ce que qu'ellqu'un l'a utilisé ?

[DarkVader]

En utilisant la classe Encoder de scrrun.dll (Scripting Runtime - la même que pour FSO et Dictionary)

[anisj1m]

comment on peut utiliser le "scrrun.dll" pour le cryptage?

[DarkVader]

Depuis VB ou VBA pour encoder un script, en utilisant la fonction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function Encode(myString As String)
    Dim scrEnc As New Encoder '("Référence à Microsoft Scripting Runtime")
 
    Encode = scrEnc.EncodeScriptFile(".vbs", myString, 0, "")
End Function

sinon depuis vbs avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set scrEnc = Server.CreateObject("Scripting.Encoder")
'etc.

Attention, il s'agit d'encodage et non de cryptage

[anisj1m]

merci beaucoup DarkVader,

pour encoder mon fichier a.vbs, j'ai cré,suite a vos aides, le fichier suivant :


b.vbs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Function Encode
    Dim scrEnc 
 
    Encode = scrEnc.EncodeScriptFile("a.vbs", "fichier_encode.vbs", 0, "")
End Function

le fichier s'execute sans faute mais pas de resultat. le fichier que j'ai attendu qu'il sera cré ne c'est pas cré.

[ThierryAIM]

sinon depuis vbs avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set scrEnc = Server.CreateObject("Scripting.Encoder")
'etc.

[anisj1m]

oui, j'ai vu ce code mais je n'ai pas su comment faire pour indiquer le nom du fichier c'est pourquoi j'ai choisit la procedure.
alors est ce que vous avez des idées comment pourrai-je appeller mon fichier?

[DarkVader]

sinon depuis vbs avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set scrEnc = Server.CreateObject("Scripting.Encoder")
'etc.

OK Thierry, je réponds souvent vite à l'emporte pièce
mais tu auras corrigé : Sans Server pour VBS, avec pour asp lol

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set scrEnc = CreateObject("Scripting.Encoder")
Set scrFSO = CreateObject("Scripting.FileSystemObject")
 
    myfile = scrFSO.OpenTextFile("a.vbs").ReadAll
    If scrFSO.FileExists("fichier_encode.vbe") Then scrFSO.DeleteFile "fichier_encode.vbe", True
    myFileEncode=scrENC.EncodeScriptFile(".vbs", myfile, 0, "")
 
    Set ts = scrFSO.CreateTextFile("fichier_encode.vbe", True, False)
    ts.Write "'**Start Encode**" + vbcrlf + myFileEncode
ts.close

[anisj1m]

merci infiniment DarkVader la solution est correcte et exactement correspond a mes besoins, et merci pour vous aussi ThierryAIM, omen999 et ced600

[DarkVader]

Il n'y a pas de quoi d'autant que cela ne découragera que les novices
car cette méthode d'obfuscation est réversible.

[Kurix]

Salut il est possible de "crypter" un doc txt en le convertissant de ANSI en UNICODE donc "hello word"devient 敨汬潷摲਍

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim txtcry,text,fso, f ,t
Const ForReading = 1, ForWriting = 2,ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("h:\LE CHEMIN DU DOC TXT", ForAppending, True)
Set t = fso.OpenTextFile("h:\LE CHEMIN DU DOC TXT", ForReading)
text=t.ReadAll
txtcry = inputbox("Entrez votre message a crypter puis allez voir le doc. txt.Voici le contenus dechifrer                " & text & "")
f.writeline(txtcry)

il faut enregistrer ton doc.txt en UNICODE