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;
|