Well, it's been days since the last obfu was posted, and the one I'm working on isn't ready yet (taking a little longer than expected...), so meanwhile here's a little JAPH. Think of it as an apetizer to hold you over until my real obfu is ready...
#!/usr/bin/perl @;=map{++$$_}split//,"csbvpbnkdwqnvglnhvpklprwybicortxipbdueuspgvnbofp +xgvttsasqx gackuwwfxaijuvjlidgjriltajfxpcwhsdfxgojdqviljuixxdccujscxdskudkdierpqh +lqhiiicpdr waxtekipqtwbhqoqdjcxpxvscxxfpkwajdimcbtxssihepklcdakjqcaxrqvnpbgwaguil +gkbbuldvqn glaqvprdakljbgpvrvshvqhavpcadwhnwoijniphitndcbtanwvaxpbpholdigpgbfkipn +pvnuhwafgg qdcnppochndqovohkbghukvpogjcebdhpsbhbvabcjtgrqfmmvkkwkgbihhtplaxqcdgws +luvskidosq gx qtfphccdf ddibgpna ccvfvitw vwjbgt +cfgj boc bpp ikxiq hjpyxjejoq xp podcuui ghajvwx vrlqlgx qlwweh +elfg ivo ejbtnbxxnah hgikkabtv ouat catptj vrtnlqlg llvefb tnqvig +hodw sjc wbogdkjthqu spmbclivd gwkjqp vtsdpe lqjbwaoog jvked gihcaq +pkuk kho okbilaxjqat hljluqxx jlqdns ttkea ndauaxttgo ditq jdutvj +jxbj ubb qxocdsncnvt xoqddclv fduhtxqj qjbcp ivoxxowvkch jkx fpkkxo +swpg wbl ifuvpssbuik npqviqq ipygbhsi xgds lflxvkrbqa wmfv hjsblv +pgvm npi cwdfooehhua kupfvno qllqidfblh dwit hwqgubakd lsovh viilgw +iqdq wlx elnpdfhkkkd lkipswi atqkjfgbtl hddd lbojpukw uvcvhv dgjnpn +mvxk dwg gtfaldblvwj ncotpqx ydinrhupsq pfnv vunswwj xcbothu dgrjwh +jtbu pek bxiwcbpcuuy adovojo viig ugocwuon + big nkgcwltaqrr mnbfhdk hxidgbwwpc huxh bucbepctuuseibqlu hqxowd +jccq qvi olqxhatxajb hidkpun gjqtdgdwkg ploa iiacipijrbahkvqxh woyolv +xodg tic amehmhwktxx aqlbxlc qucqgrfpbi cmsb lqovtqvdaovwqhoic hvxgua +xcbw ivc pnyfdnuenmk nbvutoo avldbjrlcx nxnm kksbkwhpjshixlqwc jfdfmn +htsw ulq odhlctjxnkd kpgxtjh dohbcuxxtm dxjd blvxjxlwcdjsgtbxu wmgthu +dckb bxn snfkkfmpscq uvdahbq kwktlbpbsp gtqh cwcaggpbggorhecqp rakcog +fxan owj olawndmnthi assutxs wbxwocpgwt upxc qdcxumvnxfjnlxdqc sbikox +smcu irq mvbdxxwugod cglttil hvpblsbjgt gskc isnqvnjccocjlhqul dgivxn +spnw daw vf plbqwe idwcxho hgwwwdhkcs ytuq hktalhoqxuijjohib utucnx +qiaa ovf nh pkrciv vtjdnsn fxwqefcjbw ikkr vrjxsbhgcmjecibwp vlfnhj +ldpw atq ml piullv bowwlwo afbynqfheb xoip rudfbhqfpdwcgvtnx uljgrj +wkig utx wjf gkup pfbggjx tipkxaudhi tqwj ibahsunxiqmtricip tqgsxi +ujtn xwd bjg bp uqtkxkuc hplvjhgffc vnvj kjcdtkkqhckoucqhx qgiebl +bwxs gbc lbpx gxdooxjwb npxnupsthc vtoc qpokkfwlqolppbahd nucpsm +mkow itl ooilxw jlholopvfq lqhlhgtqfh duci ikdejcuemoeslnvkt okliwk +tvqt lij cbwwbjtbssnpsgxorwuvhuvsdlliljdophbfnhlktapnhvvgxjwtiuruuugicuopcvgslf +xoqvodbtcg jajdxglkvshlftovxdgubwqwnsuhhioigtcuuggaltpwfdfdtoqtcmuhnfoabhudlaqkdf +iioklvfvug jogjyklolglhiqfmbpbixnsdocovxgoptbawlimxiqhvducavupipsdcplmgalubgjgjch +sxhibudbno ucjjhvwankhksndpewxxcfguctrbdukdfiorlldlkxlsieqiqqbnbistwjkgxjhjohiafb +ipopptdkcj bjkkcdgvwepdmfkvggktcpqobjqaqtlpsvuljjijsqgfcl";sub ::{print@_};sub _{ +my($a,$b); for(map{pop@;}1..8){$b+=$_*$^F**$a++;}$b%256}push @,,&_ while@;; @;='a'..'z',map{chr$_}@,,:: map{chr$$_}@;;print;
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
|
|---|