Okay, this isn't really an obfuscation, but it is better here than anywhere else I believe. What does it do? Pass it any number and it will see how many seconds it takes for your computer to count that high. Granted, your computer is actually faster: it would run faster without the print statements :)
#!/usr/bin/perl #Usage: "script.pl INT" [INT = any # (5000+ to see anything)] ${_}=time;print$.++."\r"while($.<$ARGV[0]);$_=abs(time-$_);print$_." s +econds.";
No, it doesn't break Deparse. I am still working on figuring out a destruction method for that...
Back to
Obfuscated Code