#!/usr/bin/perl @a = map{[split /[a-z]+/]} split /\W+/,'179ust1.$60q3-302qr3-^88p3*&12 +aoth2$!19n1#@-11g4*(-21a1 90n1)252n3^%361q1^5a1,15rse1'; ($a,$b,$c)=(join "",@a[0,2,4,6,8] ,join "",@a[10,12,14,16,18] ,join "" +,@a[1,3,5,7,9,11,13,15,17,19]); $_=q{pack('CC',0x24,0x30)};s/$a/$b/ge;open(IN,eval eval) and seek(IN,$ +a[5],$c[2]); foreach(@a){seek(IN,$_->[0],0);read(IN,$_,$_->[1]);print $_;};
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
grrrr....
by maverick (Curate) on Jun 27, 2000 at 01:06 UTC | |
by jcwren (Prior) on Jun 27, 2000 at 16:54 UTC | |
by redmist (Deacon) on Jun 28, 2000 at 16:58 UTC | |
by cwest (Friar) on Jun 27, 2000 at 04:00 UTC | |
by Anonymous Monk on Jun 27, 2000 at 06:11 UTC | |
by Anonymous Monk on Jun 27, 2000 at 06:12 UTC | |
by Anonymous Monk on Jun 27, 2000 at 06:13 UTC |