Empecher la visualisation du code d'un script PERL

Version imprimable

16/03/2006, 12h06
TigreRouge

Empecher la visualisation du code d'un script PERL

Bonjour à tous,

J'ai écrit des scripts Perl et je souhaiterai empecher la lecture (cad empecher de lire le code, pas d'éxécuter les scripts) de ces scripts par n'importe qui (je suis sous WInXP). Y-a-til une méthode pour le faire? J'ai cherché rapidement, mais je n'ai pas trouvé de début de piste..

J'imagine pourtant que ca doit être possible...
Merci d'avance! :D
16/03/2006, 12h34
djibril

deux soluces de ma part. Tu changes les droits ( dans propriete) ou bien tu le converti en exe.
Si d'autres personnes ont des solutions. :lol:
16/03/2006, 13h10
HRS

Contrairement à UNIX, je ne pense pas qu'on puisse en Windows,
interdire la lecture et permettre l'exécution
16/03/2006, 13h41
djibril

Citation:

Envoyé par HRS

Contrairement à UNIX, je ne pense pas qu'on puisse en Windows,
interdire la lecture et permettre l'exécution

je viens de verifier, bah sous windows, le droit d'execution est toujours lié au droit de lecture.
derniere possibilité, exe :lol: .
Qu'elle est l'intérêt sinon d'empecher la lecture??
16/03/2006, 13h58
TigreRouge

Prenons le cas d'un logiciel écrit à base de script Perl qu'on voudrait prêter à un client pour qu'il le teste... Si on pouvait éviter qu'il regarde dans le code source...
Pour la solution de l'EXE, j'imagine que c'est plus compliqué que de changer l'extension :lol: ?
16/03/2006, 14h09
djibril

tu install le module PAR et ensuite la commande c'est

Code:

pp -o toto.exe toto.pl

je crois

Voilà, pas tres compliqué 8)
16/03/2006, 14h11
TigreRouge

Je vais me renseigner sur ce module. Merci en tout cas!

Si vous avez d'autres idées, par ailleurs, je suis évidemment preneur!
16/03/2006, 15h07
TigreRouge

Par contre, mes scripts s'exécutent au travers d'une interface Web.. du genre http://localhost/monscript.pl

si je modifie en EXE, ça ne marchera plus l'accès par le web,non? :?
16/03/2006, 15h28
Invité

S'ils s'exécutent en CGI, pas besoin de convertir, les sources ne sont pas visibles, on ne voit que le code de sortie des scripts (HTML ou XML résultant)
16/03/2006, 15h30
TigreRouge

oui, en fait, je n'ai pas été clair :ils ont accès physiquement à la machine sur laquelle sont les scripts et peuvent donc y accéder et éditer les fichiers..
16/03/2006, 15h36
Invité

Ah, effectivement, ça change tout. Je n'ai jamais testé, mais les CGI peuvent être des exe, mais il faut le spécifier au serveur web. C'est Apache ou IIS ?
16/03/2006, 15h36
djibril

je sais pas. j'ai déjà vu des exe qui s'execute en cgi donc ça dois etre possible je crois, test et tu verra. :lol:
16/03/2006, 15h39
TigreRouge

Citation:

Envoyé par kuzco

Ah, effectivement, ça change tout. Je n'ai jamais testé, mais les CGI peuvent être des exe, mais il faut le spécifier au serveur web. C'est Apache ou IIS ?

Apache2
16/03/2006, 16h02
djibril

Bon je viens de tester un exe et ça marche correctement. Je suis sous apache2 (sous linux) et j'ai rien configuré dans apache2, donc pas de soucis
:lol:

Ok, cool. J'ai cherché également et je suis parti sur la piste de l'utilisation d'un obfuscateur afin de transformer mon code en 1 code illisible (et au passage, je ne compte pas les blagues que j'ai pu lire lors de mes recherches, du style "Un parfait obfuscateur pour Perl.. c'est Perl lui-même! :lol:).

Si je vous soumets ce genre de code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!C:\perl\bin\perl.exe -w
print "\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\
x74\x65\x78\x74\x2f\x68\x74\x6d\x6c\x0a\x0a";use forme;use File::stat;use Time::localtime;print "\x3c\x48\x54\x4d\x4c\x3e";forme::haut();open(FIC2,"\x3c\x2e\x2e
\x2f\x73\x74\x61\x74\x73\x2e\x74\x78\x74");
while(defined($OOO00=<FIC2>)){chomp $OOO00;$OO00[$OO0000]=$OOO00;$OO0000++;}close FIC2;open(FIC,"\x3c\x2e\x2e\x2f\x63\x6f\x6e\x66\x67\x61\x6c\x2e
\x74\x78\x74");
while(defined($OOO00=<FIC>)){chomp $OOO00;$OOO=$OOO00;last;}@OOO=split(//,$OOO);
$OOO00O=splice(@OOO,0,1);if($OOO00O eq "\x3c"||$OOO00O eq "\x3e"){$OOO=join("",@OOO);}close FIC;open(FIC3,"\x3c\x2e\x2e\x2f\x66\x61\x6d\x69\x6c\x6c\x65
\x6d\x61\x63\x2e\x74\x78\x74");$OO0O=0;
while(defined($OO000OO=<FIC3>)){chomp $OO000OO;($OOO0O[$OO0O],undef)=split(/\*/,$OO000OO);
$OO0O++;}close FIC3;print "\x3c\x43\x45\x4e\x54\x45\x52\x3e\x3c\x54\x41\x42\x4c\x45\x20\x61\x6c\x69\x67\x6e\x3d\x63\x65\x6e\x74\x65\x72\
x20\x62\x6f\x72\x64\x65\x72\x3d\x30\x20\x77\x69\x64\x74\x68\x3d
\x31\x30\x30\x25\x3e";print "\x3c\x54\x52\x3e";print "\x3c\x54\x44\x20\x61\x6c\x69\x67\x6e\x3d\x63\x65\x6e\x74
\x65\x72\x3e";print "\x3c\x66\x6f\x6e\x74\x20\x73\x69\x7a\x65\x3d\x33\x3e\x3c\x69\x3e
\x3c\x61\x20\x68\x72\x65\x66\x3d\x27\x53\x63\x72\x69\x70\x74\x73
\x20\x50\x72\x6f\x74\x65\x63\x74\x65\x64\x2f\x63\x6f\x6e\x66\x69
\x67\x6d\x65\x6e\x75\x2e\x70\x6c\x27\x3e\x3c\x63\x65\x6e\x74\x65
\x72\x3e\x43\x6f\x6e\x66\x69\x67\x75\x72\x61\x74\x69\x6f\x6e\x20
\x64\x65\x20\x4e\x65\x74\x77\x6f\x72\x6b\x73\x20\x49\x6e\x76\x65
\x6e\x74\x6f\x72\x79\x3c\x2f\x63\x65\x6e\x74\x65\x72\x3e\x20\x3c
\x2f\x66\x6f\x6e\x74\x3e\x3c\x2f\x69\x3e\x3c\x2f\x61\x3e";

Est-ce que vous pensez que c'est déchiffrable facilement? (je sais que c'est déchiffrable, mais si ca se déchiffre en 30s, il n'y a pas d'intéret... et comme je ne suis pas un pro du cryptage de données....)

16/03/2006, 17h15
djibril

la meilleur solution est qd même un exe. si t'as une maudif à faire, y a juste à voir regarder son script et refaire l'exe. sur ton dechiffrage, je peux voir plusieurs infos qd même. Et si j'ai vraiment envie de voir ton code, bah j'ai au moins 30 sec pour chercher à mieux le dechiffrer :lol:
16/03/2006, 17h33
Invité

A première vue, la quasi-totalité des caractètres ont été transformés en hexa, mais en tout cas, ça ne me donne pas envie d'essayer de déchiffrer... :lol:

Par contre, c'est quoi l'URL vers ton obfuscateur ?
16/03/2006, 21h37
Jedai

Ca a l'air ultra simple à déchiffrer... Un passage pour retransformer les caractères en hexa, un autre pour perltidifier la chose... Déjà un module qui fait mieux, c'est Acme::Eyedrops, en plus tu peux lui spécifier la forme que doit avoir ton script... Va voir le "99 bottles" pour un résultat de ce module : http://www.99-bottles-of-beer.net/language-perl-737.html . Ca a au moins l'avantage d'être joli...

De toutes façon, tant que tu ne passes pas par un executable, on peut toujours faire un perl -MO=Deparse sur ton code... Essaie pour voir.

--
Jedaï
16/03/2006, 22h49
Woufeil

Je pense également que le passage en exe est la meilleure solution, ton code n'est peut être pas déchiffrable en 30secondes mais très facilement en 10 minutes, ce n'est pas une solution vraiment viable...

Au fait, pourquo veux tu cacher tes sources, si ce n'est pas indiscret ?
17/03/2006, 10h31
TigreRouge

Salut,

L'adresse vers l'obfuscateur :
http://liraz.org/obfus.html

Ensuite, je veux cacher mes sources car en fait, il s'agit d'un logiciel qui sera vendu à des clients. Mais 1 client souhaite qu'on lui "prête le logiciel" pour qu'il l'essaye. On se dit donc qu'il serait mieux de ne pas leur filer les sources...

Donc, à votre avis, l'EXE? Même si c'est que des scripts CGI?

AUtre question qui me vient à l'esprit : supposons que je passe mes sources sous un Linux. Là, avec le CHMOD qui va bien, je pourrai empecher la lecture tout en autorisant l'exécution, c'est bien ça? Si des gens récupèrent ces sources de Linux, et les mettent sur un WIndows, quels sont les alors droits que possède l'utilisateur sur ces fichiers sous windows? Ni lecture, ni exécution? Tout?

C'est peut-etre une question à la con, mais bon...:D

Honnêtement, le conseil de Jedai est très bien pour ce qu'il te faut !
Installe le module Acme::EyeDrops fais-toi un script obfus comme ca :
Code:

1 2 3 4 5 6 7 8 9 use strict; use Acme::EyeDrops qw(sightly); my ($shape, $source) = @ARGV; print sightly( { Shape => $shape, SourceFile => $source, Regex => 1 } );
Ensuite tu l'appelles en faisant "perl obfus.pl camel mon_cgi.pl > mon_nouveau_cgi.pl" . c'est tout simplement magnifique !!!!

@+
Mr6

17/03/2006, 13h59
Jedai

Ouais c'est joli... mais si le client s'y connaît en Perl il fait un simple "perl -MO=Deparse" et hop ça devient tout de suite plus lisible !

--
Jedaï
17/03/2006, 14h31
Mr6

arf ! on en apprend tous les jours !
17/03/2006, 16h48
TigreRouge

Donc, reste plus que l'EXE comme "solution ultime"...?
Est ce que Perl2EXE est bien à ce niveau? Vu que c'est le plus simple d'utilisation, j'ai essayé avec celui là, mais est ce que des gens ont des retours négatifs sur ce produit?
17/03/2006, 17h24
djibril

pas moi, moi j'utilise PAR, c'est vraiment tres tres simple.

Salut!

J'ai des problèmes pour utiliser PP....

Code:

1
2
3
4
5
6
7
8
9
10
C:\UTIL\Modules Perl\PAR-0.92\script>perl pp -o test accueil.pl
File::Glob object version 1.04 does not match bootstrap parameter 1.02 at C:/Perl/lib/DynaLoader.pm line 185.
Compilation failed in require at C:/Perl/lib/ExtUtils/MM_Win32.pm line 134.
BEGIN failed--compilation aborted at C:/Perl/lib/ExtUtils/MM_Win32.pm line 134.
Compilation failed in require at (eval 7) line 3.
Compilation failed in require at C:/Perl/lib/ExtUtils/MakeMaker.pm line 37.
Compilation failed in require at C:/Perl/lib/PAR/Packer.pm line 26.
BEGIN failed--compilation aborted at C:/Perl/lib/PAR/Packer.pm line 26.
Compilation failed in require at pp line 5.
BEGIN failed--compilation aborted at pp line 5.

Je ne sais pas trop comment faire.... j'ai bien le module DynaLoader.Pm...J'ai fait quelques recherches mais je ne trouve po la solution..

Merci d'avance!

20/03/2006, 15h06
djibril

Tu as oublié l'extension .exe
Si tu as bien installé le module PAR

Code:

ppm install PAR

Tu tapes la commande suivante :
perl pp -o test.exe accueil.pl
Il te creera un fichier test..exe de ton script accueil.pl.
Il faut que tu sois dans le repertoire ou il y a le script accueil.pl ou bien lui donner le bon chemin.
voilà!!

Rhaa, je connais meme pas les bases.... :cry:
Code:

1 2 3 4 5 6 7 8 C:\Documents and Settings>ppm install PAR File::Glob object version 1.04 does not match bootstrap parameter 1.02 at C:/Perl/lib/DynaLoader.pm line 185. Compilation failed in require at C:\Perl\site\lib\ppm-conf\ppminst.bat line 645. BEGIN failed--compilation aborted at C:\Perl\site\lib\ppm-conf\ppminst.bat line 645. Error: connect: Unknown error
Ce que j'ai fait :
:arrow: J'ai téléchargé le module à l'adresse suivante:
http://search.cpan.org/CPAN/authors/id/S/SM/SMUELLER/PAR-0.92.tar.gz

:arrow: J'ai copié les fichiers de lib ds un de mes repertoires LIB

Et c'est tout... quand j'essaye ppm install par, cela m'affiche l'erreur ci-dessus.....

Mince, c'est le premier module qui me pose problème... :?

20/03/2006, 16h14
djibril

t'es sous WinXP, j'ai ecrit une doc sur l'installation de module pour windows (confere FAQ dans ma signature).
Dans une fenetre DOS, ppm install PAR, et hop le tout est joué.
Vire les fichiers que t'as telechargé. et recommence proprement via le DOS

J'ai désintallé/réinstallé Perl, et cette fois, le ppm install PAR est passé.. par contre,

Code:

perl pp -o test.exe accueil.pl

me donne toujours la même erreur

Code:

1
2
3
4
5
6
7
8
9
10
C:\UTIL\Modules Perl\PAR-0.92\script>perl pp -o test accueil.pl
File::Glob object version 1.04 does not match bootstrap parameter 1.02 at C:/Perl/lib/DynaLoader.pm line 185.
Compilation failed in require at C:/Perl/lib/ExtUtils/MM_Win32.pm line 134.
BEGIN failed--compilation aborted at C:/Perl/lib/ExtUtils/MM_Win32.pm line 134.
Compilation failed in require at (eval 7) line 3.
Compilation failed in require at C:/Perl/lib/ExtUtils/MakeMaker.pm line 37.
Compilation failed in require at C:/Perl/lib/PAR/Packer.pm line 26.
BEGIN failed--compilation aborted at C:/Perl/lib/PAR/Packer.pm line 26.
Compilation failed in require at pp line 5.
BEGIN failed--compilation aborted at pp line 5.

..

Ca commence à m'irriter... :?
Merci pour votre aide... sinon, je vais finir par utiliser Perl2EXE.. le problème est que c'est un shareware...

20/03/2006, 16h56
djibril

Code:

pp -o test.exe accueil.pl

et non

Code:

perl pp -o test.exe accueil.pl

:lol: :lol:
20/03/2006, 17h17
TigreRouge

J'ai cru que ca serait bon... à cause du " :lol: " dans ton post (genre "erreur complètement conne")... mais en fait, :lol: , ca ne marche pas non plus et c'est exactement la même erreur que j'ai.. erreur que je ne comprends d'ailleurs pas en fait.. :?
20/03/2006, 17h36
TigreRouge

J'ai désinstallé le Perl sur ma machine (Active Perl 5.8.7) et réinstallé la dernière version (Active Perl 5.8.8) et là.. ça marche :D ...

Je ne pense pas que ca soit l'upgrade de version qui ait résolu le pb, plutôt le nettoyage par effet de bord qui a du l'accompagner... bon, je vais essayer d'avancer maintenant :wink:
Merci à tous ceux qui m'ont aidé :)
20/03/2006, 18h04
TigreRouge

Bon... la joie aura été de courte durée.
En fait, je me rends compte que vu que l'EXE embarque l'interpréteur Perl, je multiplie par 100 la taille du fichier, passant de 10ko à 1Mo... 8O

Et comme j'ai plusieurs dizaines de scripts... Ma question est la suivante:

Comme je l'ai déjà dit, mes scripts sont accesibles par le WEB (CGI) et en gros, 1 page WEB=1 script PERL.
Donc supposons que j'ai script1.pl et script2.pl
script1.pl contient un lien HTML vers script2.pl

Quand je fais localhost/script1.pl via WEB, j'ai donc un lien HTML vers localhost/script2.pl
Maintenant, j'utilise PP pour créer script1.EXE auquel j'ajoute (avec -a) script2.pl

J'écris donc : pp -o script1.exe script1.pl -a script2.pl
Mais quand je lance script1.exe via Firefox, le lien n'est plus fonctionnel car il pointe vers script2.pl que j'ai viré parce que je me dis que je l'ai intégré dans script1.exe...

Comment faire pour faire un unique EXE qui serait le point d'entrée de tous mes autres scripts, qui, eux, seraient intégrés dans cette EXE principal? J'espère avoir été à peu près clair..

Sinon, j'ai la solution brutale de tout passer en EXE et de transformer partout mes liens .pl vers des liens .EXE... mais question optimisation...
:?