Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Quick suggestion

by Lysander (Monk)
on Oct 08, 2002 at 22:04 UTC ( #203776=note: print w/replies, xml ) Need Help??

in reply to Quick suggestion
in thread Monk DNA

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;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://203776]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2018-06-25 04:42 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.