Proteger une source HTA

Version imprimable

11/11/2012, 10h09
papyxy

Proteger une source HTA

Bonjour

Dans cette discussion j'ai trouvé ce lien sur l'utilisation de screnc.exe, est-il possible d'avoir une version française?
Merci:roll:
13/11/2012, 11h42
omen999

bonjour,
la version courte :

insérer la ligne

Code:

'**Start Encode**

après la balise <script language> et avant le code que l'on souhaite "crypter" ce qui est vraiment une façon de parler :mrgreen:
renommer l'extension du fichier hta en htm ex : test.htm
lancer l'encodeur avec la syntaxe suivante

Code:

screnc test.htm encoded.hta

Bonjour Omen
j'ai fait comme t'as dit, mais ça me donne une erreur "failed on" sur l'origine.
Voila mon code que j'ai sauvé sous le nom "test.htm"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<html>
<head>
<title>Téstléphone</title>
<HTA:APPLICATION
      APPLICATION="xxxtél" >
 </head>
	<script language="VBScript">
	'**Start Encode**
msgbox "Ca marche!"
       </script>
     	<BODY>
Partie du nom: <INPUT TYPE="text" NAME="argu" SIZE="20" MAXLENGTH="30" VALUE="?">
<input type="button"      onClick="valider">
	</BODY>
</html>

Salut

Créer un dossier C:\Test, dedans y mettre Screnc.exe.

A l'origine, chez moi, Screnc.exe est dans le dossier C:\Program Files\Astase\VBScript Factory\tools, mais il semblerai
que son utilisation est problématique à cause des dossiers nom long et/ou avec des espaces.

Dans le même dossier enregistrer ce programme en le nommant Tester.hta
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  <html> <head> <title> Téstléphone </title> <HTA:APPLICATION APPLICATION="Tester" > </head> <script language="VBScript"> '**Start Encode** Sub valider msgbox "Ca marche!" End Sub </script> <BODY> Partie du nom: <INPUT TYPE="text" NAME="argu" SIZE="20" MAXLENGTH="30" VALUE="?"> <input type="button" onClick="valider"> </BODY> </html>
Dans une fenêtre DOS, passer cette ligne de commande:

Code:

C:\Test\Screnc /e htm C:\Test\Tester.hta C:\Test\TesterCoder.hta

Le code dans TesterCoder.hta est maintenant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16  <html> <head> <title> Téstléphone </title> <HTA:APPLICATION APPLICATION="Tester" > </head> <script language="VBScript.Encode"> '**Start Encode**#@~^PQAAAA==@#@&d7UE(P\mVb[+M@#@&didhdT4WX~J;lPsC.m4+eJ@#@&77Ax[PU;4@#@&7fw0AAA==^#~@</script> <BODY> Partie du nom: <INPUT TYPE="text" NAME="argu" SIZE="20" MAXLENGTH="30" VALUE="?"> <input type="button" onClick="valider"> </BODY> </html>

15/11/2012, 16h54
papyxy

J'ai procédé comme indiqué, mais j'ai le même message d'erreur.:?
15/11/2012, 17h04
omen999

peut-être en supprimant les caractères accentués... :roll:

Code:

<title> Testlephone </title>
15/11/2012, 17h33
ProgElecT

Citation:

Envoyé par papyxy

J'ai procédé comme indiqué, mais j'ai le même message d'erreur.:?

Avec exactement l'exemple du code HTA post N°4 ou avec le code que tu nous soumets dans le post n°3 ?

Motif de l'édit:
En nommant le fichier xxxtél.hta,

Citation:

Envoyé par Erreur

C:\PersoFrancis>C:\Test\Screnc /e htm C:\Test\xxxtél.hta C:\Test\test.htm

Scripting encoder object ("Scripting.Encoder") failed on C:\Test\xxxtÚl.hta

le même que papyxy :aie:
l'outil de masquage/codage (screnc.exe) n'aime pas les accents dans les noms de fichiers :mouarf:

Bonjour
toujours pareil; voila mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<html>
<head>
<title>Test</title>
<HTA:APPLICATION
      APPLICATION="Tester" >
 </head>
	<script language="VBScript">
	'**Start Encode**
		Sub valider
			msgbox "Ca marche!"
		End Sub
       </script>
     	<BODY>
Partie du nom: <INPUT TYPE="text" NAME="argu" SIZE="20" MAXLENGTH="30" VALUE="?">
<input type="button"      onClick="valider">
	</BODY>
</html>

et la procédure .BAT qui l’exécute dans le répertoire Test:

Code:

1
2
3
C:\Test\Screnc /e htm C:\Test\Tester.hta C:\Test\TesterCoder.hta
pause
exit

Le résultat est le même dans une fenêtre DOS.:(

16/11/2012, 11h47
omen999

et ça ?

Code:

C:\Test\Screnc /e html Tester.hta TesterCoder.hta
16/11/2012, 12h08
papyxy

même chose:(

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
<html>    
<head>
<title> test </title>
<HTA:APPLICATION APPLICATION="Tester" >
</head>
<script language="VBScript.Encode">
#@~^LQAAAA==j!4~7l^kND@#@&Hko8WXPE/mP:m.m4+"r@#@&2    N,?;46QwAAA==^#~@
</script>
<BODY>
Partie du nom: <INPUT TYPE="text" NAME="argu" SIZE="20" MAXLENGTH="30" VALUE="?">
<input type="button" onClick="valider">
</BODY>
</html>

16/11/2012, 20h05
papyxy

Bonsoir
Là non plus ça fonctionne pas.

et là non plus :koi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<html>
    <head>
    <title> test </title>
    <HTA:APPLICATION
      APPLICATION="Tester" >
    </head>
<script language="VBScript.Encode">
    #@~^LQAAAA==j!4~7l^kND@#@&Hko8WXPE/mP:m.m4+"r@#@&2    N,?;46QwAAA==^#~@
    </script>
<BODY>
        Partie du nom: <INPUT TYPE="text" NAME="argu" SIZE="20" MAXLENGTH="30" VALUE="?">
        <input type="button" onClick="valider">
    </BODY>
</html>

16/11/2012, 20h47
papyxy

Là non plus:(
16/11/2012, 20h56
hackoofr

1 pièce(s) jointe(s)

Testez le fichier encodé en pièce-jointe ;)
17/11/2012, 10h20
papyxy

Bonjour
Effectivement; après extraction, ce fichier fonctionne.
Par contre je n'arrive pas à le créer moi-même.:cry:
17/11/2012, 11h35
hackoofr
Citation:

Envoyé par papyxy

Bonjour
Effectivement; après extraction, ce fichier fonctionne.
Par contre je n'arrive pas à le créer moi-même.:cry:

:salut:
Parce que j'ai remarqué qu'il y a des caractères "non affichable" lors du copier-coller directement dans le code.
1ère Méthode (pas testé):
Testez ceci : Copier-coller le code dans le notepad et enregistrez en UNICODE et non pas en ~~ANSI~~.
2ème Méthode (testé et qui fonctionne):
Pour l'édition d'un HTA j'ai utilisé HTAEDIT
Pour l'encodage voila ce que j'ai fait excatement dans l'ordre:
J'ai copié et collé ce sub dans un fichier VBS:
Code:

1 2 3 Sub valider msgbox "Ca marche!" End Sub
puis pour l'encoder j'ai utilisé [HTA] Encoder VBS2VBE & Decoder VBE2VBS

http://vb.developpez.com/telecharger...0ed6fecf2972f2

puis j'ai récuperé la partie encodé qui va être placé dans le nouveau HTA encodé tout en respectant l'ordre de l'écriture du HTML en ajoutant bien sûr ceci:

Code:

<script language="VBScript.Encode">

et le fichier devient comme dans la partie en haut :mouarf:
Bonne Chance :ccool:
17/11/2012, 13h23
papyxy

C'est vrai, j'arrive à coder la partie VBS et quand j’insère le contenu du VBE dans le HTA, ça fonctionne.:)
Par contre cela me semble être du bricolage, car d'après les explications trouvées, cela devrait être plus facile.:?
Finalement le terme : '**Start Encode** ne doit pas fonctionner; il faut ajouter ".Encode" derrière "VBScript"
17/11/2012, 14h07
ProgElecT
Salut

Je pense que cela sera ma dernière intervention dans cette discussion car je ne comprend pas le problème que tu rencontres.
Au départ avant "Codage"dans le HTA il y pour la partie à encoder
Code:

1 2 3 4 <script language="VBScript"> '**Start Encode** ......... ici le code VB ........... </script>
Après le Codage
Code:

1 2 <script language="VBScript.Encode"> '**Start Encode**#@~^ ........ici le code VB encodé......... ^#~@</script>
Pour moi, quelque soit le nombre de lignes avant codage, l'encodage lui ce retrouve sur une seule ligne (en tous cas sans aucun retour à la ligne, sinon celui imposé par l'éditeur).
Ce qui me semble être les tags de début #@~^ et de fin de codage ^#~@ revienne systématiquement.
17/11/2012, 16h20
papyxy

C'est quand même bizzard que ça fonctionne chez vous!
J'ai pourtant suivi les consignes.
Quand au résultat, je remarque que le terme '**Start Encode** n'est plus présent pour que cela marche, comme Hackoofr m'a conseillé dans son exemple.