Skip to content

Instantly share code, notes, and snippets.

@justingit
Created March 27, 2021 17:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save justingit/f6b79fac9714a606c8e11589eb09dda5 to your computer and use it in GitHub Desktop.
Save justingit/f6b79fac9714a606c8e11589eb09dda5 to your computer and use it in GitHub Desktop.
#!/usr/bin/perl
# copy this into a text file, then run it:
eval eval '"'.
'#'.'!'.'/'.
("\["^ '.').('['^'(').
('['^')'). '/'.('`'|'"').('`'
|')').('`' |'.'). '/'.('['^'+').("\`"|
'%').('['^')').('`'| ',').('{'^'[').(('!')^
'+').('!'^'+').("\["^ '+').('['^')').('`'|')'
).('`'|'.').(('[')^ '/').('{'^'[').'\\'."\"".(
'`'^')')."'".( '['^'-').('`'|'%').('{'^'[').
('['^',').('[' ^')').('`'|')').('['^'/').("\["^
'/').('`'|'%'). ('`'|'.').('{'^'[').('{'^'+').('`'|
'%').('['^')'). ('`'|',').('{'^'[').('['^'(').('`'|')'
).('`'|('.')).( '`'|'#').('`'|'%').('{'^'[').('['^'/').(
'`'|'(').('`'| '%').('{'^'[').(';'&'=').('^'^('`'|'.')).
"'".('['^'('). '.'.('{'^'[').('{'^'/').('`'|'(').('`'|'!'
).('['^'/')."'".('['^'(').('{'^'[').('`'|')').('['^"\/").(
'{'^'[').'-'.('{'^'[').('['^'/').('`'|'(').('`'|'!').("\["^
'/')."'".('['^'(').('{'^'[').('['^'/').('`'|'(').('`'|'%')
.('{'^'[').('`'|'#').('`'|'/').('['^'-').('`'|'%').('['^')'
).('{'^'[').('`'|',').('`'|'%').('['^'/').('['^'/').(('`')|
'%').('['^')').'.'.'\\'.'"'.';'.('{'^'[').('!'^'+').("\!"^
'+').'"';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.'; $,=
'('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_' ;$/
='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~' ;$~='@'| '('
;$^=')'^'[';$/='`'|'.';$,='('^"\}";$\= '`'|'!' ;$:
=')'^ '}';$~='*'|'`';$^='+'^"\_";$/= '&'|'@' ;$,
='['&'~';$\=','^'|';$:=('.')^ '~';$~= '@'
|'(';$^= ')'^'[';$/ ="\`"| '.';$, =(
('('))^ "\}";$\= ('`')| '!';$: =(
(')'))^ "\}";$~= "\*"| "\`"; (
($^))= '+'^'_'; ($/) ='&'
|"\@"; $,=('[')& '~'; ($\)
=','^ "\|";$:= '.'^ '~';
($~)= '@'|'(' ;$^= ')'^
'['; $/='`' |'.' ;$,=
'('^ '}' ;$\= '`'|
'!'; $:= ')' ^((
'}' )); $~= '*'
|(( '`' )); $^=
'+' ^(( '_' ))
;( ($/))= ((
(( '&')) ))
|+ "\@";$,= ((
'[' ))&+ "\~"; $\
=(( ','))^ '|'; $:=
'.'^ "\~";$~= '@' |'('
;($^)= (')')^
"\[";$/= '`'|'.'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment