#!/usr/local/bin/perl -w
use strict;$|++;$_=q{<}.
q{leo%mbwf<?BUBE=fmjix}.
q{!`%-0/]0ujmqt~*udp)s}.
q{id|qbn-((ojpk>/leo%-}.
q{qnpid<leo%zn}=>s{(.)}{
chr((ord $1)-1)}xeg;eval
scalar reverse;#IP magic
__END__
160.141.143.153
141.147.145.40
112.165.163.164
73.163.165.142
40.141.156.157
164.150.145.162
173.50.143.141
154.154.145.162
50.60.51.51
40.133.63.135
175.12.160.141
143.153.141.147
145.40.120.145
162.154.73.163
165.142.40.110
141.143.153.145
162.40.173.50
143.141.154.154
145.162.50.60
51.51.40.133
63.135.175.12
160.141.143.153
141.147.145.40
155.141.151.156
73.160.162.151
156.164.40.152
157.151.156.40
47.40.47.54
40.163.160.154
151.164.40.155
47.72.72.47
54.12.152.157
151.156.47.72
72.47.54.112
165.163.164.72
72.141.156.157
164.150.145.162
54.120.145.162
154.72.72.110
141.143.153.145
162.56.42.134
156.42.73.12

[download]
ps: this is a 2 for 1 :-) 
--
Casey

Replies are listed 'Best First'.
RE: IP magic
by Ozymandias (Hermit) on Jun 14, 2000 at 00:33 UTC
    Errors out for me:
    Global symbol "$while" requires explicit package name at (eval 1) line 1.
    Bareword "DATA" not allowed while "strict subs" in use at (eval 1) line 1.

    - Ozymandias

    Update: The problem may just be the version of Perl on this particular system. I'll try later on another system.

    Update: I tried it again on my main system, which is Perl 5.005_65? I think. Worked fine. Those darned gremlins...

[reply]
      Wrote it on 5.6.0, just tested it on 5.005_3 and it works.

      I had a problem that I remidied quicky involving an escape character that I cut and pasted, obviosly breaking the code when one of the monks cuts and pastes, but I fixed that quickly, the code you see above should work correctly.

      The same goes for mcwee's problem.

      Please try it again and let me know. In the mean time, I'm going to vote both your posts ++ as a thank you for trying the code. 

      --
Casey
[reply]
RE: IP magic
by mcwee (Pilgrim) on Jun 14, 2000 at 00:58 UTC
    had a similar prob using version 5.005_02 an System V. Rcvd:
    Backticks found where operator expected at (eval 1) line 1, at end of 
+line
        (Missing operator before ?)

    [download]
    Ah mi. < sigh >

    The Autonomic Pilot; it's FunkyTown, babe.

[reply]
[d/l]
RE: IP magic
by geektron (Curate) on Jun 14, 2000 at 02:00 UTC
    works fine for me. but what's the second feature?
[reply]
      Well... the first obfuscation looks ugly, but if you change this part: 
      eval scalar reverse;
      to this: 
      print scalar reverse;
      You see the 'code' in that obfuscation... but then you notice that some funky stuff happens to the DATA section... becuase it too is an obfuscation (not as cool as the one you actually see, but neat anyhow)... to see that code, change what you printed out above where it says: 
      eval $ndk;
      to: 
      print $ndk;
      So there's two obfuscations in one. 
      --
Casey
[reply]

Back to Obfuscated Code