
There's more than one way to do things
	PerlMonks

Re: Line Noise (deobfuscation attempt)

by ChemBoy (Priest)

on May 24, 2001 at 04:02 UTC ( [id://82776]=note: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

use strict;
$\=$/; 
...
redo if s/!/Y</g
}
print

Select or download this
```
use strict; 
$\=$/;
$_='';
```
Select or download this
```
s//#?=>$":}\~>\\!;/;
```
Select or download this
```
$/ =~ s//s{;};$")!{$"\\:<_!;/e;
```
Select or download this
```
s/;/$")!{$"\\:<_!/;
```

Select or download this

substr($_,-1)= $". ')!{' . $" . '\:<_!';

Select or download this
```
substr($_,-1)= ' )!{ \:<_!';
```
Select or download this
```
$_ = "#?=> :}~>\! )!{ \:<_!"
```
Select or download this
```
y{%*-.$'&(#-<}{@-~}s;
```

Select or download this

y{%\052-\056$'&(\043-\074}{\100-\176}s;

Select or download this
```
y{\043-\074}{\112-\176}s;
```
Select or download this
```
y/#):</JPac/;
```
Select or download this
```
y(;-?)[\012r-{)!]s;
```
Select or download this
```
tr/\073-\077/\012r-{)!/s;
```
Select or download this
```
tr/\074-\077/r-{)!/s;
```
Select or download this
```
tr/\074-\077/r-u/s;
or
tr(<=>?)(rstu);
```
Select or download this
```
y/T-Z[\\]^_/`a-z{|/;
y/{|}~/l-z{|}~/;
```
Select or download this
```
y/Y\\_/ehk/;
y/{}~/lno/;
```
Select or download this
```
s/!/Y</;
```

Select or download this

#!/usr/bin/perl -lw

...
y/Y\\_/ehk/;
y/{}~/lno/;
print;

Log In^?

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://82776]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others admiring the Monastery: (3)

As of 2024-04-25 23:36 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found