/hexception
Last active Sep 5, 2017
hexception
| #!/usr/bin/env perl | |
| # Created: 2017-08-13 | |
| # Author: Royce Williams / tychotithonus | |
| # License: public domain | |
| while (<>) { | |
| chomp; | |
| # Convert input to $HEX[] notation | |
| my $hex = '$HEX[' . unpack("H*", $_) . ']' . "\n"; | |
| # Convert HEX notation to hex ... again (hexception!) | |
| print unpack("H*", $hex) . "\n"; | |
| } | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment