#!/usr/bin/perl -w # there can be only one use strict; $_='$_={one(( one($")<<1)^one( $/))}{{one((one($;) <<($^=(one($/)>>1)>>1) +1)+one($/)>>1)}{{{one((( one($;)<<$^+1)+one($/)>>1)-$ ^)}{{{one(((one($;)<<$^+1)+one( $/)>>1)-1)}{one (one($"))}{{one ((one($;)<<$^)^ (one($")>>1)+1) }{one((one($;)< <$^)-$^)}{{one( ((one($;)<<$^)- $^)+1)}}{one((( one($;)<<$^+1)+ one($/)>>1)-1)} {one(($~=$=)<<1 ^one($")>>1)}{{ {one((one($;)<< $^)-one($/)-1)} {one(((one($;)< <$^+1)+one($/)> >1)-$^-1)}{one( one($"))}}{one( one($/)<<$^+1)} {one((one($;)<< $^)-one($/)-1)} {one(((one($;)< <$^+1)+one($/)> >1)-$^-1)}}}{{{one(((one($;)<<$^)-$^)-$^)}}}{one( one($"))}}{one(($~=$=)<<1^one($")>>1)}}{{one((one ($;)<<$^)-(one($")>>1)+1)}{one((one($;)<<$^)-(one ($")>>1)+$^+1)}}{{one(($~=$=)<<1^(one($")>>1)+$^+ 1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<< $^+1)+one($/)>>1)-$^-1)}}{one($=^(one($")>>1))';s ;{one;chr;g;y;{ne}}\012\040;.rd.;sd;eval;print;#1
|
---|
Replies are listed 'Best First'. | |
---|---|
RE: There can be only one!
by raflach (Pilgrim) on May 15, 2000 at 23:34 UTC | |
RE: There can be only one!
by ChuckularOne (Prior) on May 15, 2000 at 23:38 UTC | |
RE: There can be only one!
by Anonymous Monk on May 15, 2000 at 21:18 UTC | |
RE: There can be only one!
by Bourgeois_Rage (Beadle) on Jun 01, 2000 at 19:53 UTC | |
RE: There can be only one!
by Anonymous Monk on May 15, 2000 at 21:19 UTC | |
by vroom (His Eminence) on May 15, 2000 at 21:27 UTC | |
by Anonymous Monk on May 16, 2000 at 04:35 UTC | |
by vroom (His Eminence) on May 16, 2000 at 04:53 UTC | |
by c-era (Curate) on May 16, 2000 at 19:07 UTC | |
by . (Acolyte) on May 18, 2000 at 04:06 UTC | |
by base_16 (Beadle) on May 23, 2000 at 06:17 UTC | |
by Anonymous Monk on May 31, 2000 at 22:39 UTC | |
by Zorn (Initiate) on Oct 27, 2002 at 05:40 UTC | |
by thunders (Priest) on Sep 26, 2001 at 00:05 UTC | |
RE: There can be only one!
by Anonymous Monk on May 20, 2000 at 07:52 UTC |
Back to
Obfuscated Code