CE SCRIPT ENCODE TOUT FICHIER VBS,JS,ASP,HTML,...
cs_Warny
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
7 avril 2010 à 10:12
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 27 juin 2010 à 14:39
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 27 juin 2010 à 14:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/51565-ce-script-encode-tout-fichier-vbs-js-asp-html
https://codes-sources.commentcamarche.net/source/51565-ce-script-encode-tout-fichier-vbs-js-asp-html
27 juin 2010 à 14:39
Amicalement,
Us.
27 juin 2010 à 14:31
Site Web : http://www.bellamyjc.org/
le fichier doit-être enregistré sous screncode.wsf
Le Code Source Complet est le suivant:
<job>
<runtime>
<description author="jcb">
---------------------------------------------------------------------
Ce script en ligne de commande encode tout fichier vbs,js,asp,html,...
à l'identique de l'encodeur "screnc.exe" de Microsoft :
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/webdev.asp
JCB © 2004
---------------------------------------------------------------------
</description>
<example>
Chaque nom de fichier doit être encadré par des guillemets
s'il contient des espaces.
Exemples :
----------
screncode.wsf "m:\mes scripts\monscript.vbs" h:\wsh\monscript.vbe
screncode.wsf "k:\mon site\identdec.asp" D:\Inetpub\wwwroot\ident.asp
---------------------------------------------------------------------
</example>
</runtime>
<script language="VBScript">
Const SW_SHOWNORMAL=1
Const ForReading=1
Const ForWriting=2
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject("WScript.Shell")
Set UnNamed = WScript.Arguments.UnNamed
nu=UnNamed.count
If nu<2 Then
WScript.Arguments.ShowUsage
WScript.Quit
End If
Srce=UnNamed(0)
Dest=UnNamed(1)
Display=false
If nu>=3 then if lcase(UnNamed(2))="a" Then Display=true
If not fso.FileExists(Srce) Then
MsgBox "Le fichier " & Srce & " n'a pas été trouvé", vbCritical + vbOKOnly, "Encodage de fichier"
WScript.Quit
End If
If fso.FileExists(Dest) Then
rep=MsgBox("Le fichier destination " & Dest & " existe déjà." & VBCRLF & _
"Faut-il l'écraser ?", vbQuestion+vbYesNo, "Encodage de fichier")
If rep<>vbYes Then WScript.Quit
End If
Set fs=fso.GetFile(Srce)
pe=InstrRev(fs.Name,".")
If pe>0 then ext=lcase(mid(fs.Name,pe)) else ext=".vbs"
If ext=".wsf" Then ext=".html"
Set fs = fso.OpenTextFile(Srce,ForReading,false)
data=fs.readAll
fs.close
Set se=WScript.CreateObject("Scripting.Encoder")
dataenc=se.EncodeScriptFile(ext,data, 0, "")
Set fd = fso.CreateTextFile(Dest, true,false)
fd.Write dataenc
fd.close
If Display Then
cmd="notepad.exe """ & Dest & """"
shell.run cmd,SW_SHOWNORMAL,false
End If
WScript.Quit
'--------------------------------------------------------------------
</script>
</job>
27 juin 2010 à 14:17
l'adresse : http://msdn.microsoft.com/library/default.asp?ur l=/downloads/list/webdev.asp ne fonctionne plus...
Amicalement,
Us.
8 avril 2010 à 10:26
7 avril 2010 à 10:12
Il semblerai qu'il manque une partie de la description.
Je ne connaissais pas ce formalisme de fichier avant qui me paraît très très interressante.
Précise bien que le fichier doit porter l'extension .wsf même si le code permet de le savoir.