Skip to content

Instantly share code, notes, and snippets.

@gmambro

gmambro/merry_xmas.pl

Last active December 26, 2020 09:19
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gmambro/20271bd38e694a06f99ec23827cdbff1 to your computer and use it in GitHub Desktop.
Save gmambro/20271bd38e694a06f99ec23827cdbff1 to your computer and use it in GitHub Desktop.
Download ZIP
Merry obfuscated xmas
Raw
merry_xmas.pl
#!/usr/bin/perl
$_=q; ;;$=/=2;$\=qq;\012;;$_=$_ x($=);$/=\24;$q=qq;$_*;;
$::__= sub{print $q};sub gm{s;(?<=\w\w)\w+;;g;s;n;nd;g;
eval;}sub xm{$::__->();} sub me{map{xm,$q=~s= \*=\* \*=
}($+..$=/2);$q} sub ye{$=--;$_='*'x --$=;$_.=q; *** ;,
tr;* ; *;;$q=$_;}*nde=*ha=*xm;$_=q;
merry xmas and happy new year
;;
gm
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment