Re: encrypted perl scripts

[Shao Zhang <shao@cia.com.au>]

Hi,
	I still think it is encrypted. You can tell that Joey's
	signature is proper perl code. But the one I posted is not. It
	uses Filter::decrypt to process it, which makes it very slow.

	I wish there is someway that I can get the original source back.

	Thanks.

Shao.

Matthew Dalton [matthewd@research.canon.com.au] wrote:
> Shao Zhang wrote:
> > 
> > Hi,
> >         I have got a perl script that are encrypted.
> >         It looks like something like this:
> > 
> >         #!/usr/bin/perl
> >         use Filter::decrypt ;
> >         ÿ^@sH^VV^T5^@^C6oxOp<=9p(35p+=8p&:-^^"7L^D-;?p&=(^UE_Ap&:-^^";"^WE&$^Y6R/^_!7L^F,=
> >         ^Q17?p<=9^BoQL^\,1)^^67L^Q"
> >         )^U(7"^DKxOZFR/?^U^K^^9^B^Z^XpM^QEpWB\`E7!^E^H^S^E<IR^E>^F\fsoQL^Q)>L^B,5$^D6R>^U67>^F
> >         6fsoQfsE&^E=^L^\^Kp^K^]^X5^VxOZF0
> >         >^F^Z^A1^W^YVp^Q^[^A9^K^ULeUB\`UR^E$^@^@^M$^L^]^B#E^]
> 
> That's not encrypted! Looks like a normal Perl script to me!
> 
> Just take a look at Joey Hess' sig:
> 
> #!/usr/bin/perl -nietianmsurwdkgohvf_l_pjbxcyzq   --. --- -  .--. . .-.
> .-..
> y/-. //cd;for$^(split){for$b(1..80){$_=int($b/27).$b/9%3 .$b/3%3 .$b#
> by  JH
> %3;/[12]0/||do{y/120/.-/d;$^eq$_&&print substr$^I,$c,1;$c++}}$c=0}  #
> and RC
> 
> The similarities are astounding!
> 
> Matthew
> 

-- 
____________________________________________________________________________
Shao Zhang - Running Debian 2.1  ___ _               _____
Department of Communications    / __| |_  __ _ ___  |_  / |_  __ _ _ _  __ _ 
University of New South Wales   \__ \ ' \/ _` / _ \  / /| ' \/ _` | ' \/ _` |
Sydney, Australia               |___/_||_\__,_\___/ /___|_||_\__,_|_||_\__, |
Email: shao@cia.com.au                                                  |___/ 
_____________________________________________________________________________