Proteger une source HTA

**papyxy** · 11/11/2012, 10h09

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

**omen999** · 13/11/2012, 11h42

bonjour,
la version courte :

insérer la ligne

Code :

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

'**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

renommer l'extension du fichier hta en htm ex : test.htm
lancer l'encodeur avec la syntaxe suivante

Code :

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

screnc test.htm encoded.hta

**papyxy** · 15/11/2012, 10h22

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 :

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

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>

**ProgElecT** · 15/11/2012, 16h30

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 :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<!-- Code du HTA avant codage -->
<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 :

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

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

Le code dans TesterCoder.hta est maintenant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<!-- Code du HTA avant codage -->
<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>

**papyxy** · 15/11/2012, 16h54

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

**omen999** · 15/11/2012, 17h04

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

Code :

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

<title> Testlephone </title>

**ProgElecT** · 15/11/2012, 17h33

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,

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

l'outil de masquage/codage (screnc.exe) n'aime pas les accents dans les noms de fichiers

**papyxy** · 16/11/2012, 09h24

Bonjour
toujours pareil; voila mon code :

Code :

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

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 :

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

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.

**omen999** · 16/11/2012, 11h47

et ça ?

Code :

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

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

**papyxy** · 16/11/2012, 12h08

même chose

**hackoofr** · 16/11/2012, 19h57

Code :

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

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>

**papyxy** · 16/11/2012, 20h05

Bonsoir
Là non plus ça fonctionne pas.

**hackoofr** · 16/11/2012, 20h29

et là non plus

Code :

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

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>

**papyxy** · 16/11/2012, 20h47

Là non plus

**hackoofr** · 16/11/2012, 20h56

Testez le fichier encodé en pièce-jointe

**papyxy** · 17/11/2012, 10h20

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

**hackoofr** · 17/11/2012, 11h35

Envoyé par papyxy

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

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 :

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

1
2
3
Sub valider
msgbox "Ca marche!"
End Sub

puis pour l'encoder j'ai utilisé [HTA] Encoder VBS2VBE & Decoder VBE2VBS

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 :

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

<script language="VBScript.Encode">

et le fichier devient comme dans la partie en haut

Bonne Chance

**papyxy** · 17/11/2012, 13h23

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"

**ProgElecT** · 17/11/2012, 14h07

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 :

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

1
2
3
4
	<script language="VBScript">
		'**Start Encode**
		......... ici le code VB ...........
	</script>

Après le Codage

Code :

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

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.

**papyxy** · 17/11/2012, 16h20

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.

Proteger une source HTA

VBScript

Discussions similaires

Partager

Partager