Re: encrypted perl scripts
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
Reply to: