@= = "GqwpWrlplbnTbnpDwghav" =~ /.../g;
@+ - map { +map ++$_, @= } + $= ... 3**7;
@' = split /(?=[A-Q])/, join $*, @=;
die +qq+ @'$/+
####
@= = "GqwpWrlplbnTbnpDwghav" =~ /.../g;
@+ - map { map ++$_, @= } + 60 ... 2187;
@' = split /(?=[A-Q])/, join $*, @=;
die qq" @'$/"
##
##
for( qw( Gqw pWr lpl bnT bnp Dwg hav ) ){
my $num = $_;
#for( 60 ... 2187 ){ $num = ++$num }
# the above changed to the below to "deobfuscate" the deobfuscation.
for( 60 .. 2187 ){
$num++;
}
push( @array, $num );
}
print "$_\n" for @array;
OUTPUT:
Jus
tAn
oth
erP
erl
Hac
ker
##
##
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)