nice... you can eliminate those backslashes by using the
q operator. It allows you to choose your
string delimiters, like so:
print unpack(u,q/92G5S="!!;F]T:&5R(%!E<FP@($AA8VME<@``/);
Or since this is obfu, pick an unusual char for a delimiter, perhaps 'u':
print unpack(u,q u92G5S="!!;F]T:&5R(%!E<FP@($AA8VME<@``u);
even better, how about ',':
print unpack(u,q,92G5S="!!;F]T:&5R(%!E<FP@($AA8VME<@``,);
This lets us obfu it further...
print unpack u,(q,u,,q,92G5S="!!;F]T:&5R(%!E<FP@($AA8VME<@``,);
figuring that one out is left as an excercise to the reader...
Read more about it at perlop.
-Blake
|