$a="KECCCCAIIIKvefGbjmbsut";@r=("\\","|","_","@","/",",",".","("," ",")"); $v="vbDyzeppxIIACJIECCAIHCEKDIAIGFIEIDIKEBAICCCCIEBA"; $r=$a . $v;while($r){$q=chop($r); if($q=~/a-z/){$q=~y/b-x/a-y/;print $q;}else{if($q=~/K/){ print "\n";}else{$q=~y/A-J/0-9/;print @r$q;}}}

Replies are listed 'Best First'.
Re: Email sig. Old news. :/
by Anonymous Monk on May 31, 2001 at 19:15 UTC
    Isn't obfuscated code supposed to run without errors?
      Updated for new perl versions.

      $a="KECCCCAIIIKvefGbjmbsut";@r=("\\","|","_","@","/",",",".","("," ",")"); $v="vbDyzeppxIIACJIECCAIHCEKDIAIGFIEIDIKEBAICCCCIEBA"; $r=$a . $v;while($r){$q=chop($r); if($q=~/a-z/){$q=~y/b-x/a-y/;print $q;}else{if($q=~/K/){ print "\n";}]else{$q=~y/A-J/0-9/;print @r$q;}}}