Hi, i'm new at this forum.

and think that the same is very good

So I have a question.

I see a perl script encoded, and for run is use on it the module Filter::decrypt

And I have a script that decoded the same.

But I want to know how to encoded another script any1 can help me ??

=== Below the script that decoded this ===

use vars qw($XOR $BLOCKSIZE $CRYPT_MAGIC_1 $CRYPT_MAGIC_2 $Fingerprint
$file $line $size);

$XOR = 'Perl' ;
$BLOCKSIZE = length $XOR ;
$CRYPT_MAGIC_1 = 0xff ;
$CRYPT_MAGIC_2 = 0x00 ;

$Fingerprint = pack ("C*", $CRYPT_MAGIC_1, $CRYPT_MAGIC_2) ;

die "Usage: $0 file...\n" unless @ARGV ;
$file=shift(@ARGV);

open (F, "<$file") or die "Cannot open $file: $!\n" ;
open (O, ">${file}.decrypted") or die "Cannot open ${file}.decrypted: $!\n" ;

seek F, 0, 0;

while ($line !~ /^$Fingerprint/) {
die("$file does not appear to be crackable with this script.\n") unless $line=<F>;
print O $line if ( $line =~ /^#!/ ) ;
}

seek F,-length($line),1;
seek F,2,1;

$block = '';
while ($size = read(F, $block, $BLOCKSIZE) ) {
print O ($block ^ substr($XOR, 0, length $block)) ;
}

close F ;
close O ;

print "${file}.decrypted successfully written\n" if ( -f ${file}.decrypted );

USAGE: thenameofyourchoose.pl file_to_decoded.pl

==== An exemplo of encoded file ====

#!/usr/bin/perl
use Filter::decrypt ;
ÿ Z $ LrJ'J 9H>J>
1 Nko9If

-----



Any 1 help me please