#!/usr/bin/perl -l sub v($){$_?uc shift:$_[0]}sub e{/../../../?'a'.."\x7a":"\101"..'Z'} $_='CEVAG RINY ERIREFR D.uNPXRE,cREY,nABGURE,wHFG}_$RFERIRE ENYNPF{CNZ ,"$AVBW.';s'.'$_{"\x35"}'geee;eval;BEGIN{for(0,32){@{chr(64|$_)}{v n.. +v z,v a..v 'm'}=e}@_{53,3..5}=('$`{$&}||$@{$&}||$&',map"\$_{$_}",51..53) +}
|
|---|