Digisig

use IPC::Open3;open3*0,*1,*2,$^X,"-we$&$1=>"and$_.=0,<2>||$_++while
        Idiigdigdsgisdigggss0001issigdigidsdi
=~/.(?=(.))/g;print pack'b*',$_;
[download]

Comment on Digisig Download Code

Replies are listed 'Best First'.
Re: Digisig by ambrus (Abbot) on May 10, 2017 at 12:43 UTC
This obfu no longer works starting from perl 5.20 and 5.19.2. See Re: How to make warnings disappear and http://www.nntp.perl.org/group/perl.perl5.porters/2013/07/msg204205.html .	[reply]
Re: Digisig by ambrus (Abbot) on Oct 02, 2005 at 13:17 UTC
See also How to make warnings disappear.	[reply]

Back to Obfuscated Code