encrypted perl scripts

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

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^]


	Now, I have two questions:

	1. how did they do this?

	2. Is there a *way* to get the original source back??

	Thanks.

Shao.

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