http://www.perlmonks.org?node_id=203753


in reply to Monk DNA

Any chance you could set it to work with GTCA intead? (G, T, C and A being the different DNA molecules) The capital letters would probably serve to de-obfuscate a bit, but there's the added coolness factor.

Replies are listed 'Best First'.
Re: Quick suggestion
by Lysander (Monk) on Oct 08, 2002 at 22:04 UTC
    As requested, here is a quickshot reworking of this obfu with the correct nucleotides. Enjoy.
    #!/usr/bin/perl -w use strict; my$a="ttbb bbbb Add d ddTxttbbbbb bbGdd dCx ttb bbb bbb bTd Axt tbb bbbbb bb+ xtt bbb bbb bbG dCx ttb bbb bbb Tdd dAx ttb bbb bbC ddd ddG xtt bbb bbA ddd ddd dTx ttb bbb bbT ddd ddAxttbbbbbbb Gdd dCx ttb bbb bbb bTdAxttbbbbbbbb b+x ttb bbb bbbbTd Axt tbb bbb bbG ddd Cxttb bbb bbT dddddAxttbb bbb Gddd ddd dCx ttbbbbbbAd ddd dT" ;$a =~s /d/-/g;$a=~s/\s//g;$a=~s/b/\x20/g;$a=~s/t/\x9/g;$a=~s/x/\n/g;print$a;