Instantly share code, notes, and snippets.

Embed
What would you like to do?
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