#!/usr/bin/perl $_ = "\x8f". "\x00". "\x8d\x00\x96\x00". "\x91\x00". "\x8b\x00". "\xdf\x00". "\xdd\x00\xb5\x00". "\x8a\x00". "\x8c\x00". "\x8b\x00". "\xdf". "\x00\xbe". "\x00". "\x91\x00". "\x90". "\x00". "\x8b\x00". "\x97". "\x00\x9a". "\x00". "\x8d\x00\xdf\x00". "\xaf\x00". "\x9a". "\x00". "\x8d". "\x00\x93\x00\xdf". "\x00\xb7". "\x00". "\x9e". "\x00". "\x9c\x00". "\x94". "\x00". "\x9a". "\x00". "\x8d". "\x00\xde\x00\xa3". "\x00". "\x91". "\x00". "\xdd\x00\xc4\x00". "\xf5"; @identity=split("\x00");foreach(@identity) {$first_name=unpack "H",$_;$last_name=unpack "h",$_; $_=pack("c",255-hex("$first_name$last_name"));} $me=join("",@identity); eval $me;
In reply to My First JAPH by SleepNot
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |