Created
March 5, 2019 11:57
-
-
Save bombsimon/2c229a84acb9f122909d842f07c71234 to your computer and use it in GitHub Desktop.
Just another Perl hacker and other obfuscations
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$_ = "wftedskaebjgdpjgidbsmnjgc"; | |
tr/a-z/oh, turtleneck Phrase Jar!/; print; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$_="krJhruaesrltre c a cnP,ohet";$_.=$1,print$2while s/(..)(.)//; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ _= | |
.CG | |
T--A | |
A---T | |
A----T | |
C----G | |
T----A | |
A---T | |
G--C | |
CG | |
CG | |
C--G | |
G---C | |
G----C | |
C----G | |
A----T | |
C---G | |
G--C | |
AT | |
CG | |
A--T | |
A---T | |
G----C | |
A----T | |
G----C | |
C---G | |
A--T | |
GC | |
CG | |
G--C | |
A---T | |
G----C | |
G----C | |
G----C | |
A---T | |
T--A | |
AT | |
CG | |
T--A | |
C---G | |
A----T | |
A----T | |
G----C | |
A---T | |
A--T | |
CG | |
TA | |
T--A | |
G---C | |
G----C | |
C----G | |
A----T | |
C---G | |
G--C | |
CG | |
TA | |
T--A | |
C---G | |
T----A | |
C----G | |
A----T | |
C---G | |
G--C | |
GC | |
TA | |
G--C | |
C---G | |
G----C | |
G----C | |
G----C | |
A---T | |
T--A | |
CG | |
AT | |
G--C | |
A---T | |
A----T | |
C----G | |
C----G | |
A---T | |
A--T | |
CG | |
CG | |
G--C | |
G---C | |
G----C | |
A----T | |
T----A | |
C---G | |
G--C | |
CG | |
TA | |
A--T | |
A---T | |
G----C | |
A----T | |
A----T | |
C---G | |
A--T | |
GC | |
TA | |
G--C | |
C---G | |
T----A | |
G----C | |
G----C | |
C---G | |
T--A | |
AT | |
CG | |
G--C | |
G---C | |
T----A | |
C----G | |
G----C | |
C---G | |
C--G | |
CG | |
AT | |
T--A | |
C---G | |
G----C | |
G----C | |
A----T | |
T---A | |
G--C | |
CG | |
TA | |
G--C | |
A---T | |
G----C | |
A----T | |
G----C | |
.;@_{A | |
=> C | |
=> | |
G=> | |
T=>} | |
=0..3 | |
;s;. * | |
(\w).* | |
(\w).* | |
\n;$_ | |
{ $- | |
++ | |
/9 | |
%2?$ | |
2:$ 1 | |
};gex; | |
s;(.)( | |
.)(.)(. | |
);chr | |
64*$ | |
1+ | |
16 | |
*$2+ | |
4 *$ | |
3 +$ | |
4 ;gex | |
; eval | |
# MeowChow from http://www.perlmonks.com/ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$_='987;s/^(\d+)/$1-1/e;$1?eval:print"Just another Perl hacker,"';eval; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{ | |
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord | |
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&& | |
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$LOVE= AMOUR. | |
true.cards. ecstacy.crush | |
.hon.promise.de .votion.partners. | |
tender.truelovers. treasure.affection. | |
devotion.care.woo.baby.ardor.romancing. | |
enthusiasm.fealty.fondness.turtledoves. | |
lovers.sentiment.worship.sweetling.pure | |
.attachment.flowers.roses.promise.poem; | |
$LOVE=~ s/AMOUR/adore/g; @a=split(//, | |
$LOVE); $o.= chr (ord($a[1])+6). chr | |
(ord($a[3])+3). $a[16]. $a[5]. chr | |
(32). $a[0]. $a[(26+2)]. $a[27]. | |
$a[5].$a[25]. $a[8].$a[3].chr | |
(32).$a[29]. $a[8].$a[3]. | |
$a[62].chr(32).$a[62]. | |
$a[2].$a[38].$a[4]. | |
$a[3].'.'; | |
$o; | |
# Kickstart from http://www.perlmonks.com/ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# | |
sub j(\$){($ | |
P,$V)= @_;while($$P=~s:^ | |
([()])::x){ $V+=('('eq$1)?-32:31 | |
}$V+=ord( substr( $$P,0,1,""))-74} sub a{ | |
my($I,$K,$ J,$L)=@_ ;$I=int($I*$M/$Z);$K=int( | |
$K*$M/$Z);$J=int($J*$M /$Z);$L=int($L*$M/$Z); $G=$ | |
J-$I;$F=$L-$K;$E=(abs($ G)>=abs($F))?$G:$F;($E<0) and($ | |
I,$K)=($J,$L);$E||=.01 ;for($i=0;$i<=abs$E;$i++ ){ $D->{$K | |
+int($i*$F/$E) }->{$I+int($i*$G/$E)}=1}}sub p{$D={};$ | |
Z=$z||.01;map{ $H=$_;$I=$N=j$H;$K=$O=j$H;while($H){$q=ord | |
substr($H,0,1,"" );if(42==$q){$J=j$H;$L=j$H}else{$q-=43;$L =$q | |
%9;$J=($q-$L)/9;$L=$q-9*$J-4;$J-=4}$J+=$I;$L+=$K;a($I,$K,$J,$ L); | |
($I,$K)=($J,$L)}a($I,$K,$N,$O)}@_;my$T;map{$y=$_;map{ $T.=$D->{$y} | |
->{$_}?$\:' '}(-59..59);$T.="\n"}(-23..23);print"\e[H$T"}$w= eval{ | |
require Win32::Console::ANSI};$b=$w?'1;7;':"";($j,$u,$s,$t,$a,$n,$o | |
,$h,$c,$k,$p,$e,$r,$l,$C)=split/}/,'Tw*JSK8IAg*PJ[*J@wR}*JR]*QJ[*J'. | |
'BA*JQK8I*JC}KUz]BAIJT]*QJ[R?-R[e]\RI'.'}Tn*JQ]wRAI*JDnR8QAU}wT8KT'. | |
']n*JEI*EJR*QJ]*JR*DJ@IQ[}*JSe*JD[n]*JPe*'.'JBI/KI}T8@?PcdnfgVCBRcP'. | |
'?ABKV]]}*JWe*JD[n]*JPe*JC?8B*JE};Vq*OJQ/IP['.'wQ}*JWeOe{n*EERk8;'. | |
'J*JC}/U*OJd[OI@*BJ*JXn*J>w]U}CWq*OJc8KJ?O[e]U/T*QJP?}*JSe*JCnTe'. | |
'QIAKJR}*JV]wRAI*J?}T]*RJcJI[\]3;U]Uq*PM[wV]W]WCT*DM*SJ'. 'ZP[Z'. | |
'PZa[\]UKVgogK9K*QJ[\]n[RI@*EH@IddR[Q[]T]T]T3o[dk*JE'. '[Z\U'. | |
'{T]*JPKTKK]*OJ[QIO[PIQIO[[gUKU\k*JE+J+J5R5AI*EJ00'. 'BCB*'. | |
'DMKKJIR[Q+*EJ0*EK';sub h{$\ = qw(% & @ x)[int rand | |
4];map{printf "\e[$b;%dm",int(rand 6)+101-60* ($w | |
||0);system( "cls")if$w ;($A,$S)= ($_[1], $ | |
_[0]);($M, @,)= split '}';for( $z=256 | |
;$z>0; $z -=$S){$S*= $A;p @,} sleep$_ | |
[2];while ($_[3]&&($ z+=$ S) <=256){ | |
p@,}}("". "32}7D$j" ."}AG". "$u}OG" | |
."$s}WG" ."$t","" ."24}(" ."IJ$a" | |
."}1G$n" ."}CO$o" ."}GG$t" ."}QC" | |
."$h}" ."^G$e" ."})IG" ."$r", | |
"32}?" ."H$p}FG$e}QG$r". "}ZC" | |
."$l", "28}(LC" ."" ."". | |
"$h}:" ."J$a}EG". "$c" | |
."}M" ."C$k}ZG". "$e" | |
."}" ."dG$r","18" ."}(" | |
."D;" ."$C" )}{h(16 ,1,1,0 | |
);h(8, .98,0,0 );h(16 ,1,1,1) | |
;h(8.0 ,0.98,0, 1); redo}### | |
#written 060204 by | |
#liverpole @@@@@@@ | |
#@@@@@@@@@@@ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
not exp log srand xor s qq qx xor | |
s x x length uc ord and print chr | |
ord for qw q join use sub tied qx | |
xor eval xor print qq q q xor int | |
eval lc q m cos and print chr ord | |
for qw y abs ne open tied hex exp | |
ref y m xor scalar srand print qq | |
q q xor int eval lc qq y sqrt cos | |
and print chr ord for qw x printf | |
each return local x y or print qq | |
s s and eval q s undef or oct xor | |
time xor ref print chr int ord lc | |
foreach qw y hex alarm chdir kill | |
exec return y s gt sin sort split |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=( | |
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++; | |
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++ | |
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=` |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
''=~('(?{'.('-)@.)@_*([]@!@/)(@)@-@),@(@@+@)' | |
^'][)@]`}`]()`@.@]@%[`}%[@`@!#@%[').',"})') |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
undef$/;$_=<DATA>;y/ODA\n / /ds;@yoda=map{length}split;print chr | |
oct join('',splice(@yoda,0,3))-111 while@yoda; | |
__DATA__ | |
00O00O000O00O0000 000O DD000000O0 | |
0DO0000000O0000O00 O00000 00O00000O0O | |
0000 0O0 O00 O00 00D 0DO | |
00O0 0O0 00D 000 DO0D00000D | |
0O00 DOD 000000O00000 000 O00O | |
DD0000D000O0 000 0O00O0000D00DO 0OD D00O000D00O0 | |
00000DO00O0 000 000O 00D0 O0D O00000O0DO0 | |
0O000 OD0D O00O0 0000 DDDO000000 O00O000000 | |
0O000 O00DDO 00000 0O0D00 00O0O00000O 0O00O000000 | |
0O0O00OD00000DDD 00O 0D0 DDD D0O 00O0D | |
00000O00000000 O00 DO0 D00D00O000 00D00 | |
D0O00 O0000 000O000O00DO 000 00O0 0OD00 | |
O00 000 0O000D000O00O0 000 0D0O000000O00O00 | |
0 0 0O0D 0000 0O0 0O0000000O000O |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'% * % % * % %<> | |
* % ~ * % % * % * * % * * | |
* % % * * % * % *<> * % ~ % % % * % | |
* * * % * % % % % * % % % % % % * % % * % | |
% * % % ^ * % % % % *[] % % * * % * * % % % | |
% * % % % % % % * * % * * @ * @ % * % % | |
% ^ % * % * % * * % % * % <> % % % % * % %() % | |
% % * * * % % * % % * * % * * * * % * * % % * * * | |
% * * * % % * % % *[]<> % % % % * % * * * % % *<> | |
% * * % % % * * % * * * \ * %\ * * * %/ \ # % * * | |
% % % *\ * /\ * *// % %\ <>\ // % %/ % \// % * % | |
* * *\ \|| \ \/ / % %// \ \ *\ /<> %// %// % %<> | |
* % * %\ \ | | ||// % || // \// % // * * * % | |
%{} % * ----\ \ | / %||// / ---/ / * % % * | |
% * *\ ____\ \| | / / / /----/ * % | |
\ ----\ | / // / | |
\ \ / /' | |
=~m/(.*)/s;$_=$1; | |
s![-\\|_/\s]!!g | |
;%e=('%',0, | |
'^',132918, | |
'~'=>18054, | |
'@'=>19630, | |
'*' =>0b01, | |
'#'=>13099, | |
'[]'=>4278, | |
'<>'=>2307, | |
'{}'=>9814, | |
'()',2076); | |
for $a(keys | |
%e){$e{$a}= | |
sprintf"%b" | |
, $e{$a};} | |
$y= qq{(}.join( | |
'|',map "\Q$_\E" | |
,keys %e).qq{)};s/$y | |
/$e{$1}/gex;print pack"B*",$_; | |
# Clinton Pierce |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment