1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
#!perl
#jsPacker (July 2005)
#
use strict;
use Pack;
use vars qw($PROGNAME $VERSION
$opt_h $opt_q $opt_v $opt_i $opt_o $opt_e $opt_f $opt_s);
use Getopt::Std;
$PROGNAME = $0;
$VERSION = '1.00b';
my $Description = 'A JavaScript Compressor/Obfuscator';
my $Version = "v$VERSION\[p$Pack::VERSION-pm$Pack::PM_VERSION\]";
# "English" versions of settings
my %ENCODINGS = (0=>'None', 10=>'Decimal', 36=>'Normal', 62=>'Normal', 95=>'High-ascii');
my %SETTINGS = (0=>'No', 1=>'Yes');
exit(0) if &main();
exit(1);
################
# Sub-routines #
################
# Main program
sub main {
# Get command line options
&getopts('hqvfsi:o:e:');
$opt_h ||= 0; # $opt_h shows usage and exits
$opt_q ||= 0; # $opt_q sets quiet mode (no stdout output)
$opt_v ||= 0; # $opt_v shows version and exits
$opt_i ||= ''; # $opt_i is input file. Required!
$opt_o ||= ''; # $opt_o is output file. If not set, use standard output
$opt_e ||= 0; # $opt_e encoding level (0,10,36,62,95)
$opt_f ||= 0; # $opt_f use fast decoding
$opt_s ||= 0; # $opt_x use special characters
# Display help or version if requested
if ($opt_h) {&usage("help")}
if ($opt_v) {&usage("version")}
# Constrain encoding level, fastdecoding and specialcharacters to allowed limits
$opt_e = ($opt_e > 0) ? ($opt_e > 10) ? ($opt_e > 36) ? ($opt_e > 62) ? 95 : 62 : 36 : 10 : 0;
$opt_f = ($opt_f) ? 1 : 0;
$opt_s = ($opt_s) ? 1 : 0;
# Do the job if an input file is specified
if ($opt_i) {
# Read the source script
my $script = &readInputFile($opt_i);
# Pack the source script
my $packedscript = &Pack::pack($script,$opt_e, $opt_f, $opt_s);
# Show what happened (if not in quiet mode)
if (!$opt_q) {showJobDetails($opt_i, $opt_o, $opt_e, $opt_f,$opt_s,\$script,\$packedscript)}
# Output the packed script
if ($opt_o) {&writeOutputFile($opt_o,\$packedscript)} # to output file if specifed
else {print "$packedscript"} # otherwise to STDOUT
}
else { # If no input file is specified, display help
&usage();
}
return(1);
}
######################
sub showJobDetails { #
######################
# Show details of input/output files, settings and compression ratio
my ($inputfile, $outputfile,
$encoding, $fastdecode, $specialchars,
$instringref, $outstringref) = @_;
print "$PROGNAME $Version\n";
print "\tSource file : ";
print "\"$inputfile\"\n";
print (($outputfile) ? ("\tOutput file : \"$outputfile\"\n") : ''); # Print only if output is going to a file
print "\tSettings : encoding=$ENCODINGS{$encoding} fastdecode=$SETTINGS{$fastdecode} specialchars=$SETTINGS{$specialchars}\n";
print "\tCompression : " . &compressionRatio($instringref, $outstringref). "\n\n";
}
#####################
sub readInputFile { #
#####################
# Read content (source script) from input file
my $filename = shift;
open(FH, $filename) || die "Error!!! Problem opening input file \"$filename\"!\n";
my @content = <FH>;
close(FH);
return join('',@content);
}
#######################
sub writeOutputFile { #
#######################
# Write content (packed script) to output file
my ($filename,$refcontent) = @_;
open(FH, ">$filename") || die "Error!!! Problem opening output file \"$filename\"\n";
print(FH $$refcontent);
close(FH);
}
########################
sub compressionRatio { #
########################
# Calculate the ratio of output string to input string
my ($sref1,$sref2) = @_;
my $ratio = (length($$sref2) / (length($$sref1)||1));
$ratio = sprintf "%.2f", $ratio;
return $ratio;
}
#############
sub usage { #
#############
# Inform user about usage, version and exit
my $showusage = 0;
my $showversion = 0;
my $params = shift;
if (defined $params) {
if ($params eq "help") {$showusage = 1;}
elsif ($params eq "version") {$showversion = 1;}
else {$showusage = 1;}
}
else {$showversion = 1;}
if ($showversion) {
print<<EOT;
$PROGNAME $Version
$Description
\tBased on "Packer.js" by Dean Edwards <http://dean.edwards.name/>
\tPorted to Perl by Rob Seiler, ELR Software Pty Ltd <http://www.elr.com.au>
\tCopyright 2005. License <http://creativecommons.org/licenses/LGPL/2.1/>
Use "$PROGNAME -h" for options
EOT
exit(1);
}
if ($showusage) {
print<<EOT;
$PROGNAME $Version
$Description
Usage:
\t$PROGNAME -i inputfile [-o outputfile] [-eX] [-f] [-s] [-qvh]\n
\t-i <inputfile> (eg -i myscript.js)
\t-o <outputfile> (eg -o myscript-p.js)
\t-eN <encoding> [0=None 10=Numeric 62=Normal(alphanumeric) 95=High-ascii]
\t-f <fast decode>
\t-s <special characters>
\t-q quiet mode
\t-v version
\t-h help
Examples:
\t$PROGNAME -i myscript.js
\t$PROGNAME -i myscript.js -o packed.js
\t$PROGNAME -i myscript.js -o packed.js -e10 -f -s
\t$PROGNAME -i myscript.js -e95 -fsq > packed.js
EOT
exit(1);
}
}
|
