hurl-2.1+git20120717.1.afca9c5/README0000644000000000000000000000633312001245663014314 0ustar 00000000000000.::[ hURL - hexadecimal & URL (en/de)coder v2.1 ]::. USAGE: hURL [ -flag|--flag ] [ -f , ] [ string ] -M|--menu => Menu-driven GUI ; ./hURL -M -U|--URL => URL encode ; ./hURL -U "hello world" -u|--url => uRL decode ; ./hURL -u "hello%20world" -D|--DURL => Double URL encode ; ./hURL -D "hello world" -d|--durl => double URL decode ; ./hURL -d "hello%2520world" -B|--BASE64 => Base64 encode ; ./hURL -B "hello world" -b|--base64 => base64 decode ; ./hURL -b "aGVsbG8gd29ybGQ=" -H|--HTML => HTML encode ; ./hURL -H "" -h|--html => hTML decode ; ./hURL -h "<hello world>" -X|--HEX => ascii -> heX ; ./hURL -X "hello world" --esc :: output in escaped string ; "\x00\x01\x02\x03 ..." --pair :: output in hexpair format ; 00010203 ... -x|--hex => hex -> ascii ; ./hURL -x "68656c6c6f20776f726c64" -I|--INT => Int -> hex ; ./hURL -I "10" -i|--int => hex -> int ; ./hURL -i "0xa" -n|--nint => -int -> hex ; ./hURL -n -- -77 -N|--NHEX => -hex -> iNt ; ./hURL -N 0xffffffb3 -T|--INTB => inT -> bin ; ./hURL -T 30 -t|--bint => bin -> int ; ./hURL -t 1010 -F|--FLOATH => Float -> hex ; ./hURL -F 3.33 -l|--hfloat => hex -> float ; ./hURL -l 0x40551ed8 -o|--octh => octal -> hex ; ./hURL -o 35 -O|--HOCT => hex -> Octal ; ./hURL -O 0x12 -0|--binh => bin -> hex ; ./hURL -0 1100011 -1|--hexb => hex -> bin ; ./hURL -1 0x63 -2|--SHA1 => SHA1 checksum ; ./hURL -2 "hello world" -3|--SHA224 => SHA224 checksum ; ./hURL -3 "hello world" -4|--SHA256 => SHA256 checksum ; ./hURL -4 "hello world" -5|--SHA384 => SHA384 checksum ; ./hURL -5 "hello world" -6|--SHA512 => SHA512 checksum ; ./hURL -6 "hello world" -7|--ROT13 => ROT13 encode ; ./hURL -7 "hello world" -8|--rot13 => ROT13 decode ; ./hURL -8 "uryyb jbeyq" -9|--stack => push string 2 stack (corelan) ; ./hURL -9 "hello world" --esc :: output in escaped string ; "\x00\x01\x02\x03 ..." --pair :: output in hexpair format ; 00010203 ... --ansiC :: output in C format ; 0x00, 0x01, 0x02, 0x03 ... -m|--md5 => md5 digest ; ./hURL -m "hello world" -e|--net => int -> hex (net-byte order) ; ./hURL -e 4444 -E|--NET => hex (nEt-byte order) -> int ; ./hURL -E 5c11 -w|--wbin => hex [file] -> binary [file] ; ./hURL -w -f -r|--rbin => binary [file] -> hex (corelan); ./hURL -r -f /tmp/msgbox.bin --esc :: output in escaped string ; "\x00\x01\x02\x03 ..." --pair :: output in hexpair format ; 00010203 ... --ansiC :: output in C format ; 0x00, 0x01, 0x02, 0x03 ... --color|--nocolor => enable/disable colored output [default is ENABLED] --corelan => display corelan reference --help => displays help --man => displays extended help with examples --version => displays version information -s => suppress (display result only) -f|--file , => use file(s) as input [string] => string as input EXAMPLES: ./hURL -b -s "aGVsbG8gd29ybGQ=" ./hURL -X -f /var/www/meterpreter.php ./hURL --nocolor -Xsf /var/www/revshell1337.php,pythonshell.py hurl-2.1+git20120717.1.afca9c5/hURL0000755000000000000000000053022412001245663014175 0ustar 00000000000000#!/usr/bin/perl # hURL - hexadecimal & URL encoder + decoder v2.1 # copyleft - fnord0@riseup.net # # CHANGELOG # 06152011 => added md5 digest (hex 32byte) # 06162011 => added base64 encode + decode # 06162011 => added HTML encode + decode # 06172011 => added "-s" supress (minimal mode). combine with other tools (i.e. msfvenom) # 04242012 => SHA1/224/256/384/512 + MORE, script becomes similar in vein to radare's rax(2) base conversion tool # 05202012 => Peter Van Eeckhoutte/corelanc0d3r push string to stack function added (source: http://corelan.be|pvePushString.pl) - slight modifications # 05202012 => Getopt::Long for better command-line support # 05202012 => --man option for extended documentation done using Pod::Usage # 05202012 => color|nocolor optional support added # 05212012 => multi-file support (-f ,) + bundling of multi-file && string on cmdline (-f -f "hello world") # 05272012 => rotate13/ROT13 encode + decode # 06022012 => sting2stack output formats added: ansiC format, escaped string, hexpairs format # 06022012 => ascii -> hex output formats added: escaped string, hexpairs # 06022012 => corelan reference added: adopted from https://redmine.corelan.be/projects/corelanart/ # 07082012 => Peter Van Eeckhoutte/corelanc0der readbin function added (source: http://corelan.be|pveReadbin.pl) - slight modifications # 07082012 => Peter Van Eeckhoutte/corelanc0der inspired writebin function added (source: http://corelan.be|pveWritebin.pl) # 07082012 => added double URL encode + decode function # 07112012 => added a menu-driven interface, inspired by SET and WebSploit Toolkit ## TODO ## Unicode encoding ## Invalid Hex Encoding (ASP) ## unicode2ascii ## ascii2unicode ## detect being run on windows/linux ####################################################### use vars qw/$myFile $myStringHex $myStringmd5 $myStringb64 $myStringb64d $myStringhe $myStringhd $int $fh @hexyLines @opt %opt %opts $string $urlenc $hex $hexi $bin $bini $bdone $floath $floathh $hexf $octh $hexo $hexb $binh $inth $inthh $integer $intn $hexdata $net $neth $sha1 $sha $sha2 $sha24 $sha3 $sha5 $sha224 $sha256 $sha384 $sha512 $opt $zeFile $file $line $color @file $strToPush $strThisChar $strThisHex $cnt $bytecnt $strHex $strOpcodes $strPush $hexWord $strDelimit $strHexy $rot13 $i $parser $select/; $|++; use Getopt::Long qw(:config bundling no_ignore_case); use Pod::Usage; use CGI; use URI::Escape; use Digest::MD5 qw(md5_hex); use MIME::Base64 (); use HTML::Entities; use Digest::SHA; ## test for color support eval { require Term::ANSIColor; }; my $HAS_COLOR = $@ ? 0 : 1; my $VERSION = "v2.1"; sub VERSION_MESSAGE { print ".::[", RESET(), BOLD(), " hURL - hexadecimal & URL (en/de)coder ", RESET(), "]::.\n"; print RESET(), BOLD(), "$VERSION \@COPYLEFT -> fnord0 riseup net\n", RESET(); } sub HELP_MESSAGE { VERSION_MESSAGE(); print BOLD(), RED(), "\n USAGE: ", RESET(); print BOLD(), BLUE(), "$0 ", BOLD(), BLUE(), "[", BOLD(), CYAN(), " -flag", BOLD(), BLUE(), "|", BOLD(), CYAN(), "--flag ", BOLD(), BLUE(), "] [", BOLD(), CYAN(), " -f , ", BOLD(), BLUE(), "] [", BOLD(), CYAN(), " string ", BOLD(), BLUE(), "]\n", RESET(); print "\n"; print " COMMAND LINE ARGUMENTS\n", RESET(); print BOLD(), BLUE(), " -M", CYAN(), "|", BLUE(), "--menu\t", RESET(), "=> ", BOLD(), "M", RESET(), "enu-driven GUI", RESET(), "\t\t ; $0 -M\n"; print BOLD(), BLUE(), " -U", CYAN(), "|", BLUE(), "--URL\t", RESET(), "=> ", BOLD(), "U", RESET(), "RL encode", RESET(), "\t\t\t ; $0 -U \"hello world\"\n"; print BOLD(), BLUE(), " -u", CYAN(), "|", BLUE(), "--url\t", RESET(), "=> ", BOLD(), "u", RESET(), "RL decode", RESET(), "\t\t\t ; $0 -u \"hello%20world\"\n"; print BOLD(), BLUE(), " -D", CYAN(), "|", BLUE(), "--DURL\t", RESET(), "=> ", BOLD(), "D", RESET(), "ouble URL encode", RESET(), "\t\t ; $0 -D \"hello world\"\n"; print BOLD(), BLUE(), " -d", CYAN(), "|", BLUE(), "--durl\t", RESET(), "=> ", BOLD(), "d", RESET(), "ouble URL decode", RESET(), "\t\t ; $0 -d \"hello%2520world\"\n"; print BOLD(), BLUE(), " -B", CYAN(), "|", BLUE(), "--BASE64\t", RESET(), "=> ", BOLD(), "B", RESET(), "ase64 encode", RESET(), "\t\t ; $0 -B \"hello world\"\n"; print BOLD(), BLUE(), " -b", CYAN(), "|", BLUE(), "--base64\t", RESET(), "=> ", BOLD(), "b", RESET(), "ase64 decode", RESET(), "\t\t ; $0 -b \"aGVsbG8gd29ybGQ=\"\n"; print BOLD(), BLUE(), " -H", CYAN(), "|", BLUE(), "--HTML\t", RESET(), "=> ", BOLD(), "H", RESET(), "TML encode", RESET(), "\t\t\t ; $0 -H \"\"\n"; print BOLD(), BLUE(), " -h", CYAN(), "|", BLUE(), "--html\t", RESET(), "=> ", BOLD(), "h", RESET(), "TML decode", RESET(), "\t\t\t ; $0 -h \"<hello world>\"\n"; print BOLD(), BLUE(), " -X", CYAN(), "|", BLUE(), "--HEX\t", RESET(), "=> ascii -> he", BOLD(), "X", RESET(), "\t\t ; $0 -X \"hello world\"\n"; print BOLD(), BLUE(), "\t--esc", RESET(), " :: output in ", BOLD(), "esc", RESET(), "aped string\t ; \"\\x00\\x01\\x02\\x03 ...\"\n"; print BOLD(), BLUE(), "\t--pair", RESET(), " :: output in hex", BOLD(), "pair", RESET(), " format\t ; 00010203 ...\n"; print BOLD(), BLUE(), " -x", CYAN(), "|", BLUE(), "--hex\t", RESET(), "=> he", BOLD(), "x", RESET(), " -> ascii", RESET(), "\t\t ; $0 -x \"68656c6c6f20776f726c64\"\n"; print BOLD(), BLUE(), " -I", CYAN(), "|", BLUE(), "--INT\t", RESET(), "=> ", BOLD(), "I", RESET(), "nt -> hex", RESET(), "\t\t ; $0 -I \"10\"\n"; print BOLD(), BLUE(), " -i", CYAN(), "|", BLUE(), "--int\t", RESET(), "=> hex -> ", BOLD(), "i", RESET(), "nt", RESET(), "\t\t ; $0 -i \"0xa\"\n"; print BOLD(), BLUE(), " -n", CYAN(), "|", BLUE(), "--nint\t", RESET(), "=> -i", BOLD(), "n", RESET(), "t -> hex", RESET(), "\t\t ; $0 -n ", BOLD(), "--", RESET(), " -77\n"; print BOLD(), BLUE(), " -N", CYAN(), "|", BLUE(), "--NHEX\t", RESET(), "=> -hex -> i", BOLD(), "N", RESET(), "t", RESET(), "\t\t ; $0 -N 0xffffffb3\n"; print BOLD(), BLUE(), " -T", CYAN(), "|", BLUE(), "--INTB\t", RESET(), "=> in", BOLD(), "T", RESET(), " -> bin", RESET(), "\t\t ; $0 -T 30\n"; print BOLD(), BLUE(), " -t", CYAN(), "|", BLUE(), "--bint\t", RESET(), "=> bin -> in", BOLD(), "t", RESET(), "\t\t ; $0 -t 1010\n"; print BOLD(), BLUE(), " -F", CYAN(), "|", BLUE(), "--FLOATH\t", RESET(), "=> ", BOLD(), "F", RESET(), "loat -> hex", RESET(), "\t\t ; $0 -F 3.33\n"; print BOLD(), BLUE(), " -l", CYAN(), "|", BLUE(), "--hfloat\t", RESET(), "=> hex -> f", BOLD(), "l", RESET(), "oat", RESET(), "\t\t ; $0 -l 0x40551ed8\n"; print BOLD(), BLUE(), " -o", CYAN(), "|", BLUE(), "--octh\t", RESET(), "=> ", BOLD(), "o", RESET(), "ctal -> hex", RESET(), "\t\t ; $0 -o 35\n"; print BOLD(), BLUE(), " -O", CYAN(), "|", BLUE(), "--HOCT\t", RESET(), "=> hex -> ", BOLD(), "O", RESET(), "ctal", RESET(), "\t\t ; $0 -O 0x12\n"; print BOLD(), BLUE(), " -0", CYAN(), "|", BLUE(), "--binh\t", RESET(), "=> bin -> ", BOLD(), "", RESET(), " hex", RESET(), "\t\t ; $0 -0 1100011\n"; print BOLD(), BLUE(), " -1", CYAN(), "|", BLUE(), "--hexb\t", RESET(), "=> hex -> ", BOLD(), "", RESET(), " bin", RESET(), "\t\t ; $0 -1 0x63\n"; print BOLD(), BLUE(), " -2", CYAN(), "|", BLUE(), "--SHA1\t", RESET(), "=> SHA1 checksum", RESET(), "\t\t ; $0 -2 \"hello world\"\n"; print BOLD(), BLUE(), " -3", CYAN(), "|", BLUE(), "--SHA224\t", RESET(), "=> SHA224 checksum", RESET(), "\t\t ; $0 -3 \"hello world\"\n"; print BOLD(), BLUE(), " -4", CYAN(), "|", BLUE(), "--SHA256\t", RESET(), "=> SHA256 checksum", RESET(), "\t\t ; $0 -4 \"hello world\"\n"; print BOLD(), BLUE(), " -5", CYAN(), "|", BLUE(), "--SHA384\t", RESET(), "=> SHA384 checksum", RESET(), "\t\t ; $0 -5 \"hello world\"\n"; print BOLD(), BLUE(), " -6", CYAN(), "|", BLUE(), "--SHA512\t", RESET(), "=> SHA512 checksum", RESET(), "\t\t ; $0 -6 \"hello world\"\n"; print BOLD(), BLUE(), " -7", CYAN(), "|", BLUE(), "--ROT13\t", RESET(), "=> ROT13 encode", RESET(), "\t\t\t ; $0 -7 \"hello world\"\n"; print BOLD(), BLUE(), " -8", CYAN(), "|", BLUE(), "--rot13\t", RESET(), "=> ROT13 decode", RESET(), "\t\t\t ; $0 -8 \"uryyb jbeyq\"\n"; print BOLD(), BLUE(), " -9", CYAN(), "|", BLUE(), "--stack\t", RESET(), "=> push string 2 stack (corelan)", RESET(), " ; $0 -9 \"hello world\"\n"; print BOLD(), BLUE(), "\t--esc", RESET(), " :: output in ", BOLD(), "esc", RESET(), "aped string\t ; \"\\x00\\x01\\x02\\x03 ...\"\n"; print BOLD(), BLUE(), "\t--pair", RESET(), " :: output in hex", BOLD(), "pair", RESET(), " format\t ; 00010203 ...\n"; print BOLD(), BLUE(), "\t--ansiC", RESET(), " :: output in ", BOLD(), "C", RESET(), " format\t\t ; 0x00, 0x01, 0x02, 0x03 ...\n"; print BOLD(), BLUE(), " -m", CYAN(), "|", BLUE(), "--md5\t", RESET(), "=> ", BOLD(), "m", RESET(), "d5 digest", RESET(), "\t\t\t ; $0 -m \"hello world\"\n"; print BOLD(), BLUE(), " -e", CYAN(), "|", BLUE(), "--net\t", RESET(), "=> int -> hex (n", BOLD(), "e", RESET(), "t-byte order)", RESET(), " ; $0 -e 4444\n"; print BOLD(), BLUE(), " -E", CYAN(), "|", BLUE(), "--NET\t", RESET(), "=> hex (n", BOLD(), "E", RESET(), "t-byte order) -> int", RESET(), " ; $0 -E 5c11\n"; print BOLD(), BLUE(), " -w", CYAN(), "|", BLUE(), "--wbin\t", RESET(), "=> hex [", BOLD(), "file", RESET(), "] -> binary [", BOLD(), "file", RESET(), "]", "\t ; $0 -w -f <", BOLD(), "INfile", RESET(), "> <", BOLD(), "OUTfile", RESET(), ">\n"; print BOLD(), BLUE(), " -r", CYAN(), "|", BLUE(), "--rbin\t", RESET(), "=> binary [", BOLD(), "file", RESET(), "] -> hex (corelan)", RESET(), "; $0 -r -f /tmp/msgbox.bin\n"; print BOLD(), BLUE(), "\t--esc", RESET(), " :: output in ", BOLD(), "esc", RESET(), "aped string\t ; \"\\x00\\x01\\x02\\x03 ...\"\n"; print BOLD(), BLUE(), "\t--pair", RESET(), " :: output in hex", BOLD(), "pair", RESET(), " format\t ; 00010203 ...\n"; print BOLD(), BLUE(), "\t--ansiC", RESET(), " :: output in ", BOLD(), "C", RESET(), " format\t\t ; 0x00, 0x01, 0x02, 0x03 ...\n"; print "\n"; print BOLD(), BLUE(), " --color", CYAN(), "|", BLUE(), "--nocolor\t", RESET(), "=> enable/disable colored output [", BOLD(), "default is ENABLED", RESET(), "]\n"; print BOLD(), BLUE(), " --corelan\t\t", RESET(), "=> display corelan reference\n"; print BOLD(), BLUE(), " --help\t\t", RESET(), "=> displays help\n"; print BOLD(), BLUE(), " --man\t\t", RESET(), "=> displays extended help with examples\n"; print BOLD(), BLUE(), " --version\t\t", RESET(), "=> displays version information\n"; print "\n"; print BOLD(), BLUE(), " -s", BLUE(), "\t\t\t\t", RESET(), "=> ", BOLD(), "s", RESET(), "uppress (display result ", RESET(), BOLD(), "only", RESET(), ")\n", RESET(); print BOLD(), BLUE(), " -f", CYAN(), "|", BLUE(), "--file ", BOLD(), CYAN(), "<", BLUE(), "file1", CYAN(), ">,<", BLUE(), "file2", CYAN(), ">\t", RESET(), "=> use file(s) as input\n", RESET(); print BOLD(), CYAN(), " [", BLUE(), "string", CYAN(), "]\t\t\t", RESET(), "=> string as input\n"; exit(0); } ## default config values my %opts = ( color => 1, file => '', ); Getopt::Long::Configure("no_ignore_case"); GetOptions(\%opts, 'URL|U' => \$opts{URL}, 'url|u' => \$opts{url}, 'DURL|D' => \$opts{DURL}, 'durl|d' => \$opts{durld}, 'BASE64|B' => \$opts{BASE64}, 'base64|b' => \$opts{base64}, 'HTML|H' => \$opts{HTML}, 'html|h' => \$opts{html}, 'HEX|X' => \$opts{HEX}, 'hex|x' => \$opts{hex}, 'md5|m' => \$opts{md5}, 'INT|I' => \$opts{INT}, 'int|i' => \$opts{int}, 'nint|n' => \$opts{nint}, 'NHEX|N' => \$opts{NHEX}, 'INTB|T' => \$opts{INTB}, 'bint|t' => \$opts{bint}, 'FLOATH|F' => \$opts{FLOATH}, 'hfloat|l' => \$opts{hfloat}, 'octh|o' => \$opts{octh}, 'HOCT|O' => \$opts{HOCT}, 'binh|0' => \$opts{binh}, 'hexb|1' => \$opts{hexb}, 'SHA1|2' => \$opts{SHA1}, 'SHA224|3' => \$opts{SHA224}, 'SHA256|4' => \$opts{SHA256}, 'SHA384|5' => \$opts{SHA384}, 'SHA512|6' => \$opts{SHA512}, 'ROT13|7' => \$opts{ROT13}, 'rot13|8' => \$opts{rot13}, 'stack|9' => \$opts{stack}, 'net|e' => \$opts{net}, 'NET|E' => \$opts{NET}, 'rbin|r' => \$opts{readbin}, 'wbin|w' => \$opts{writebin}, 'ansiC' => \$opts{ansiC}, 'pair' => \$opts{pair}, 'esc' => \$opts{esc}, 'corelan|Z' => \$opts{corelan}, 'menu|M' => \$opts{menu}, 'suppress|s' => \$opts{suppress}, 'file|f=s' => \@file, 'color!' => \$opts{color}, 'help' => \$opts{help}, 'man' => \$opts{man}, 'version' => \$opts{version}, ); ## user may want to disable color if ($HAS_COLOR and not $opts{color}) { $HAS_COLOR = 0; } if ($HAS_COLOR) { import Term::ANSIColor ':constants'; } else { *RESET = sub { }; *YELLOW = sub { }; *CYAN = sub { }; *RED = sub { }; *GREEN = sub { }; *BLUE = sub { }; *WHITE = sub { }; *BOLD = sub { }; *UNDERLINE = sub { }; } my $RESET = RESET() || ''; my $YELLOW = YELLOW() || ''; my $CYAN = CYAN() || ''; my $RED = RED() || ''; my $GREEN = GREEN() || ''; my $BLUE = BLUE() || ''; my $WHITE = WHITE() || ''; my $BOLD = BOLD() || ''; my $UNDERLINE = UNDERLINE() || ''; if (($opts{man})) { podtextcolor(); exit(0); } elsif (($opts{version})) { VERSION_MESSAGE(); exit(0); } elsif (($opts{help})) { HELP_MESSAGE(); exit(0); } elsif (($opts{corelan})) { corelan(); exit(0); } elsif (($opts{menu})) { &main_menu; } elsif ( ! $ARGV[0] && ! @file ) { HELP_MESSAGE(); exit(0); }; if (@file) { @file = split(/,/,join(',',@file)); foreach $file (@file) { local $/; # same as 'local undef $/;' enables "slurp mode" to read entire file $myFile = $file; open(INPUTFILE, "$myFile") or die "$!"; while () { chomp $_; $line = $_; last if $line eq "done"; $string = $_; $string =~ s/\R*$//; # removes last linebreak/newline URLfile() if $opts{URL}; urlfile() if $opts{url}; BASE64file() if $opts{BASE64}; base64file() if $opts{base64}; HTMLfile() if $opts{HTML}; htmlfile() if $opts{html}; HEXfile() if $opts{HEX}; xfile() if $opts{hex}; INTfile() if $opts{INT}; ifile() if $opts{int}; INTBfile() if $opts{INTB}; bintfile() if $opts{bint}; FLOATHfile() if $opts{FLOATH}; hfloatfile() if $opts{hfloat}; octhfile() if $opts{octh}; HOCTfile() if $opts{HOCT}; nintfile() if $opts{nint}; NHEXfile() if $opts{NHEX}; # ./hURL -n -- -77 netfile() if $opts{net}; NETfile() if $opts{NET}; binhfile() if $opts{binh}; hexbfile() if $opts{hexb}; sha1file() if $opts{SHA1}; sha224file() if $opts{SHA224}; sha256file() if $opts{SHA256}; sha384file() if $opts{SHA384}; sha512file() if $opts{SHA512}; rotate13file() if $opts{ROT13}; unrotate13file() if $opts{rot13}; md5file() if $opts{md5}; string2stackfile() if $opts{stack}; readbinfunc() if $opts{readbin}; DURLfile() if $opts{DURL}; durldfile() if $opts{durld}; writebinfunc() if $opts{writebin}; } close(INPUTFILE); } @file = undef; } URL() if $opts{URL}; url() if $opts{url}; BASE64() if $opts{BASE64}; base64() if $opts{base64}; HTML() if $opts{HTML}; html() if $opts{html}; HEX() if $opts{HEX}; x() if $opts{hex}; INT() if $opts{INT}; i() if $opts{int}; INTB() if $opts{INTB}; bint() if $opts{bint}; FLOATH() if $opts{FLOATH}; hfloat() if $opts{hfloat}; octh() if $opts{octh}; HOCT() if $opts{HOCT}; nint() if $opts{nint}; NHEX() if $opts{NHEX}; net() if $opts{net}; NET() if $opts{NET}; binh() if $opts{binh}; hexb() if $opts{hexb}; sha1() if $opts{SHA1}; sha224() if $opts{SHA224}; sha256() if $opts{SHA256}; sha384() if $opts{SHA384}; sha512() if $opts{SHA512}; rotate13() if $opts{ROT13}; unrotate13() if $opts{rot13}; md5() if $opts{md5}; string2stack() if $opts{stack}; corelan() if $opts{corelan}; DURL() if $opts{DURL}; durld() if $opts{durld}; main_menu() if $opts{menu}; sub podtextcolor { if ($HAS_COLOR) { use Pod::Text::Color; $parser = new Pod::Text::Color( width => 78, sentence => 1, ); $parser->parse_from_filehandle(\*DATA); exit(0); } else { pod2usage( { -verbose=>2, -input => \*DATA } ); exit(0); } } sub URL { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; print BOLD(), CGI::escape("$string"), RESET(); } elsif (($ARGV[0])) { $string = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "URL ENcoded :: ", RESET(), BOLD(), CGI::escape("$string") . "\n", RESET(); } } sub URLfile { if (($opts{suppress}) && ($file)) { print BOLD(), CGI::escape("$string"), "\n", RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "URL ENcoded :: ", RESET(), BOLD(), CGI::escape("$string") . "\n", RESET(); } } sub url { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; print BOLD(), "$string", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "URL DEcoded :: ", RESET(), BOLD(), "$string\n", RESET(); } } sub urlfile { if (($opts{suppress}) && ($file)) { $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; print BOLD(), "$string", "\n", RESET(); } else { $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "URL DEcoded :: ", RESET(), BOLD(), "$string\n", RESET(); } } sub HEX { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; if (($opts{esc})) { $myStringHex = unpack("H*", $string); $myStringHex =~ s/([[:xdigit:]]{2})/\\x$1/g; print BOLD(), chr(34), "$myStringHex", chr(34), RESET(); } else { $myStringHex = unpack("H*", $string); print BOLD(), "$myStringHex", RESET(); } } elsif ($ARGV[0]) { $string = $ARGV[0]; if (($opts{esc})) { $myStringHex = unpack("H*", $string); $myStringHex =~ s/([[:xdigit:]]{2})/\\x$1/g; $myStringHex=chr(34).$myStringHex.chr(34); } else { $myStringHex = unpack("H*", $string); } print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "Hex ENcoded :: ", RESET(), BOLD(), "$myStringHex\n", RESET(); if (($opts{esc})) { $myStringHex =~ tr/"\\x//d; } else { } } } sub HEXfile { if (($opts{suppress}) && ($file)) { if (($opts{esc})) { $myStringHex = unpack("H*", $string); $myStringHex =~ s/([[:xdigit:]]{2})/\\x$1/g; print BOLD(), chr(34), "$myStringHex", chr(34), "\n", RESET(); } else { $myStringHex = unpack("H*", $string); print BOLD(), "$myStringHex", "\n", RESET(); } } else { if (($opts{esc})) { $myStringHex = unpack("H*", $string); $myStringHex =~ s/([[:xdigit:]]{2})/\\x$1/g; $myStringHex=chr(34).$myStringHex.chr(34); } else { $myStringHex = unpack("H*", $string); } print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Hex ENcoded :: ", RESET(), BOLD(), "$myStringHex\n", RESET(); if (($opts{esc})) { $myStringHex =~ tr/"\\x//d; print "File byte count: ".length($string)." bytes\n"; } else { print "File byte count: ".length($string)." bytes\n"; } } } sub x { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $string =~ s/\\x//g; # remove \x $string =~ s/\\//g; # remove \ $string =~ s/;//g; # remove ; $string =~ s/\"//g; # remove " $string =~ s/\.//g; # remove . $string =~ s/\r\n//g; # remove linefeed $string =~ s/\n//g; # remove newline $string =~ s/\s//g; # remove space while($string =~ /(.{2})/sg) { print BOLD(), chr(hex($1)), RESET(); } } elsif ($ARGV[0]) { $string = $ARGV[0]; $string =~ s/\\x//g; # remove \x $string =~ s/\\//g; # remove \ $string =~ s/;//g; # remove ; $string =~ s/\"//g; # remove " $string =~ s/\.//g; # remove . $string =~ s/\r\n//g; # remove linefeed $string =~ s/\n//g; # remove newline $string =~ s/\s//g; # remove space print BOLD(), BLUE(), "\nOriginal HEX :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "ASCII/RAW DEcoded :: ", RESET(); while($string =~ /(.{2})/sg) { print BOLD(), chr(hex($1)), RESET(); } print "\n"; } } sub xfile { if (($opts{suppress}) && ($file)) { $string =~ s/\\x//g; # remove \x $string =~ s/\\//g; # remove \ $string =~ s/;//g; # remove ; $string =~ s/\"//g; # remove " $string =~ s/\.//g; # remove . $string =~ s/\r\n//g; # remove linefeed $string =~ s/\n//g; # remove newline $string =~ s/\s//g; # remove space while($string =~ /(.{2})/sg) { print BOLD(), chr(hex($1)), RESET(); } print "\n"; } else { $string =~ s/\\x//g; # remove \x $string =~ s/\\//g; # remove \ $string =~ s/;//g; # remove ; $string =~ s/\"//g; # remove " $string =~ s/\.//g; # remove . $string =~ s/\r\n//g; # remove linefeed $string =~ s/\n//g; # remove newline $string =~ s/\s//g; # remove space print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "ASCII/RAW DEcoded :: ", RESET(); while($string =~ /(.{2})/sg) { print BOLD(), chr(hex($1)), RESET(); } print "\n"; } } sub md5 { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $myStringmd5 = md5_hex($string); print BOLD(), "$myStringmd5", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $myStringmd5 = md5_hex($string); print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "MD5 digest :: ", RESET(), BOLD(), "$myStringmd5\n", RESET(); } } sub md5file { if (($opts{suppress}) && ($file)) { my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), Digest::MD5->new->addfile(*FILE)->hexdigest, "\n", RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD() . CYAN() . "MD5 digest of file :: " . RESET() . BOLD() . Digest::MD5->new->addfile(*FILE)->hexdigest . "\n" . RESET(); } } sub BASE64 { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $myStringb64 = MIME::Base64::encode($string); print BOLD(), "$myStringb64", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $myStringb64 = MIME::Base64::encode($string); print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "base64 ENcoded :: ", RESET(), BOLD(), "$myStringb64", RESET(); } } sub BASE64file { if (($opts{suppress}) && ($file)) { $myStringb64 = MIME::Base64::encode($string); print BOLD(), "$myStringb64", RESET(); } else { $myStringb64 = MIME::Base64::encode($string); print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "base64 ENcoded file :: ", RESET(), BOLD(), "$myStringb64", "\n", RESET(); } } sub base64 { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $myStringb64d = MIME::Base64::decode($string); print BOLD(), "$myStringb64d", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $myStringb64d = MIME::Base64::decode($string); print BOLD(), BLUE(), "\nOriginal string :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "base64 DEcoded string :: ", RESET(), BOLD(), "$myStringb64d\n", RESET(); } } sub base64file { if (($opts{suppress}) && ($file)) { $myStringb64d = MIME::Base64::decode($string); print BOLD(), "$myStringb64d", RESET(); } else { $myStringb64d = MIME::Base64::decode($string); print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "base64 DEcoded file :: ", RESET(), BOLD(), "$myStringb64d\n", RESET(); } } sub HTML { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $myStringhe = encode_entities($string); print BOLD(), "$myStringhe", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $myStringhe = encode_entities($string); print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "HTML ENcoded :: ", RESET(), BOLD(), "$myStringhe\n", RESET(); } } sub HTMLfile { if (($opts{suppress}) && ($file)) { $myStringhe = encode_entities($string); print BOLD(), "$myStringhe", RESET(); } else { $myStringhe = encode_entities($string); print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "HTML ENcoded :: ", RESET(), BOLD(), "$myStringhe\n", RESET(); } } sub html { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $myStringhd = decode_entities($string); print BOLD(), "$myStringhd", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $myStringhd = decode_entities($string); print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "HTML DEcoded :: ", RESET(), BOLD(), "$myStringhd\n", RESET(); } } sub htmlfile { if (($opts{suppress}) && ($file)) { $myStringhd = decode_entities($string); print BOLD(), "$myStringhd", RESET(); } else { $myStringhd = decode_entities($string); print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "HTML DEcoded :: ", RESET(), BOLD(), "$myStringhd\n", RESET(); } } sub INT { if (($opts{suppress}) && ($ARGV[0])) { $int = $ARGV[0]; print BOLD(), sprintf("0x%x", "$int"), RESET(); } elsif ($ARGV[0]) { $int = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal integer :: ", RESET(), BOLD(), "$int\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), sprintf("0x%x", "$int") . "\n", RESET(); } } sub INTfile { if (($opts{suppress}) && ($file)) { print BOLD(), sprintf("0x%x", "$string"), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), sprintf("0x%x", "$string") . "\n", RESET(); } } sub i { if (($opts{suppress}) && ($ARGV[0])) { $hexi = $ARGV[0]; print BOLD(), hex("$hexi"), RESET(); } elsif ($ARGV[0]) { $hexi = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal hex :: ", RESET(), BOLD(), "$hexi\n", RESET(); print BOLD(), CYAN(), "Converted to integer :: ", RESET(), BOLD(), hex("$hexi") . "\n", RESET(); } } sub ifile { if (($opts{suppress}) && ($file)) { print BOLD(), hex("$string"), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to integer :: ", RESET(), BOLD(), hex("$string") . "\n", RESET(); } } sub nint { if (($opts{suppress}) && ($ARGV[0])) { $inth = $ARGV[0]; print BOLD(), sprintf("%X", "$inth"), RESET(); } elsif ($ARGV[0]) { $inth = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal -integer :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), sprintf("%X", "$inth") . "\n", RESET(); } } sub nintfile { if (($opts{suppress}) && ($file)) { print BOLD(), sprintf("%X", "$string"), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), sprintf("%X", "$string") . "\n", RESET(); } } sub NHEX { if (($opts{suppress}) && ($ARGV[0])) { $intn = $ARGV[0]; print BOLD(), unpack("i", pack("i", hex($intn))), RESET(); } elsif ($ARGV[0]) { $intn = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal -hex :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to int :: ", RESET(), BOLD(), unpack("i", pack("i", hex("$intn"))) . "\n", RESET(); } } sub NHEXfile { if (($opts{suppress}) && ($file)) { print BOLD(), unpack("i", pack("i", hex($string))), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to int :: ", RESET(), BOLD(), unpack("i", pack("i", hex("$string"))) . "\n", RESET(); } } sub INTB { if (($opts{suppress}) && ($ARGV[0])) { $bin = $ARGV[0]; print BOLD(), sprintf("%b", "$bin"), RESET(); } elsif ($ARGV[0]) { $bin = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal integer :: ", RESET(), BOLD(), "$bin\n", RESET(); print BOLD(), CYAN(), "Converted to binary :: ", RESET(), BOLD(), sprintf("%08b", "$bin") . "\n", RESET(); } } sub INTBfile { if (($opts{suppress}) && ($file)) { print BOLD(), sprintf("%b", "$string"), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to binary :: ", RESET(), BOLD(), sprintf("%b", "$string") . "\n", RESET(); } } sub bint { if (($opts{suppress}) && ($ARGV[0])) { $bini = $ARGV[0]; print BOLD(), bin2dec("$bini"), RESET(); } elsif ($ARGV[0]) { $bini = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal binary :: ", RESET(), BOLD(), "$bini\n", RESET(); print BOLD(), CYAN(), "Converted to integer :: ", RESET(), BOLD(), bin2dec("$bini") . "\n", RESET(); } } sub bintfile { if (($opts{suppress}) && ($file)) { print BOLD(), bin2dec("$string"), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to integer :: ", RESET(), BOLD(), bin2dec("$string") . "\n", RESET(); } } sub bin2dec { # transform a string of binary into an integer return unpack("N", pack("B32", substr("0" x 32 . shift, -32))); } sub FLOATH { if (($opts{suppress}) && ($ARGV[0])) { $floath = $ARGV[0]; print BOLD(), "0x" . unpack("H*", pack("f*", "$floath")), RESET(); } elsif ($ARGV[0]) { $floath = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal float :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), "0x" . unpack("H*", pack("f*", "$floath")) . "\n", RESET(); } } sub FLOATHfile { if (($opts{suppress}) && ($file)) { print BOLD(), "0x" . unpack("H*", pack("f*", "$string")), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), unpack("H*", pack("f*", "$string")) . "\n", RESET(); } } sub hfloat { if (($opts{suppress}) && ($ARGV[0])) { $hexf = $ARGV[0]; print BOLD(), sprintf("%f", hex("$hexf")), RESET(); } elsif ($ARGV[0]) { $hexf = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal hex :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to float :: ", RESET(), BOLD(), sprintf("%f", hex("$hexf")) . "\n", RESET(); } } sub hfloatfile { if (($opts{suppress}) && ($file)) { $hexf = $string; print BOLD(), sprintf("%f", hex("$string")), RESET(); } else { $hexf = $string; print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to float :: ", RESET(), BOLD(), sprintf("%f", hex("$string")) . "\n", RESET(); } } sub octh { if (($opts{suppress}) && ($ARGV[0])) { $octh = $ARGV[0]; print BOLD(), "0x" . sprintf( "%x", oct("$octh")), RESET(); } elsif ($ARGV[0]) { $octh = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal oct :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), "0x" . sprintf( "%x", oct("$octh")) . "\n", RESET(); } } sub octhfile { if (($opts{suppress}) && ($file)) { print BOLD(), "0x" . sprintf( "%x", oct("$string")), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), "0x" . sprintf( "%x", oct("$string")) . "\n", RESET(); } } sub HOCT { if (($opts{suppress}) && ($ARGV[0])) { $hexo = $ARGV[0]; $hexo =~ s/0x//i; print BOLD(), sprintf("%o", hex($hexo)), RESET(); } elsif ($ARGV[0]) { $hexo = $ARGV[0]; $hexo =~ s/0x//i; print BOLD(), BLUE(), "\nOriginal hex :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to oct :: ", RESET(), BOLD(), sprintf("%o", hex($hexo)) . "\n", RESET(); } } sub HOCTfile { if (($opts{suppress}) && ($file)) { $hexo = $string; $hexo =~ s/0x//i; print BOLD(), sprintf("%o", hex($hexo)), RESET(); } else { $hexo = $string; $hexo =~ s/0x//i; print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to oct :: ", RESET(), BOLD(), sprintf("%o", hex($hexo)) . "\n", RESET(); } } sub binh { if (($opts{suppress}) && ($ARGV[0])) { $binh = $ARGV[0]; print BOLD(), sprintf("0x%x", oct("0b$binh")), RESET(); } elsif ($ARGV[0]) { $binh = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal bin :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), sprintf("0x%x", oct("0b$binh")) . "\n", RESET(); } } sub binhfile { if (($opts{suppress}) && ($file)) { print BOLD(), sprintf("0x%x", oct("0b$string")), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to hex :: ", RESET(), BOLD(), sprintf("0x%x", oct("0b$string")) . "\n", RESET(); } } sub net { if (($opts{suppress}) && ($ARGV[0])) { $neth = $ARGV[0]; print BOLD(), unpack("H4*", pack("vN", "$neth")), RESET(); } elsif ($ARGV[0]) { $neth = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal int :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "To hex (in network byte order) :: ", RESET(), BOLD(), unpack("H4*", pack("vN", "$neth")) . "\n", RESET(); } } sub netfile { if (($opts{suppress}) && ($file)) { print BOLD(), unpack("H4*", pack("vN", "$string")), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "To hex (in network byte order) :: ", RESET(), BOLD(), unpack("H4*", pack("vN", "$string")) . "\n", RESET(); } } sub NET { if (($opts{suppress}) && ($ARGV[0])) { $net = $ARGV[0]; print BOLD(), unpack("vN", pack("H*","$net")), RESET(); } elsif ($ARGV[0]) { $net = $ARGV[0]; print BOLD(), BLUE(), "\nHex (in network byte order) :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to int :: ", RESET(), BOLD(), unpack("vN", pack("H*","$net")) . "\n", RESET(); } } sub NETfile { if (($opts{suppress}) && ($file)) { print BOLD(), unpack("vN", pack("H*","$string")), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to int :: ", RESET(), BOLD(), unpack("vN", pack("H*","$string")) . "\n", RESET(); } } sub sha1 { if (($opts{suppress}) && ($ARGV[0])) { $sha = $ARGV[0]; $sha1 = Digest::SHA::sha1_hex("$sha"); print BOLD(), "$sha1" . RESET(); } elsif ($ARGV[0]) { $sha = $ARGV[0]; $sha1 = Digest::SHA::sha1_hex("$sha"); print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "SHA1 checksum :: ", RESET(), BOLD(), "$sha1" . "\n", RESET(); } } sub sha1file { if (($opts{suppress}) && ($file)) { my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), Digest::SHA->new->addfile(*FILE)->hexdigest . "\n", RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), CYAN(), "SHA1 checksum of file :: ", RESET(), BOLD(), Digest::SHA->new->addfile(*FILE)->hexdigest . "\n", RESET(); } } sub sha224 { if (($opts{suppress}) && ($ARGV[0])) { $sha24 = $ARGV[0]; $sha224 = Digest::SHA::sha224_hex("$sha24"); print BOLD(), "$sha224" . RESET(); } elsif ($ARGV[0]) { $sha24 = $ARGV[0]; $sha224 = Digest::SHA::sha224_hex("$sha24"); print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "SHA224 checksum :: ", RESET(), BOLD(), "$sha224" . "\n", RESET(); } } sub sha224file { if (($opts{suppress}) && ($file)) { my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), Digest::SHA->new(224)->addfile(*FILE)->hexdigest . "\n", RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), CYAN(), "SHA224 checksum of file :: ", RESET(), BOLD(), Digest::SHA->new(224)->addfile(*FILE)->hexdigest . "\n", RESET(); } } sub sha256 { if (($opts{suppress}) && ($ARGV[0])) { $sha2 = $ARGV[0]; $sha256 = Digest::SHA::sha256_hex("$sha2"); print BOLD(), "$sha256" . RESET(); } elsif ($ARGV[0]) { $sha2 = $ARGV[0]; $sha256 = Digest::SHA::sha256_hex("$sha2"); print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "SHA256 checksum :: ", RESET(), BOLD(), "$sha256" . "\n", RESET(); } } sub sha256file { if (($opts{suppress}) && ($file)) { my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), Digest::SHA->new(256)->addfile(*FILE)->hexdigest . "\n", RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), CYAN(), "SHA256 checksum of file :: ", RESET(), BOLD(), Digest::SHA->new(256)->addfile(*FILE)->hexdigest . "\n", RESET(); } } sub sha384 { if (($opts{suppress}) && ($ARGV[0])) { $sha3 = $ARGV[0]; $sha384 = Digest::SHA::sha384_hex("$sha3"); print BOLD(), "$sha384" . RESET(); } elsif ($ARGV[0]) { $sha3 = $ARGV[0]; $sha384 = Digest::SHA::sha384_hex("$sha3"); print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "SHA384 checksum :: ", RESET(), BOLD(), "$sha384" . "\n", RESET(); } } sub sha384file { if (($opts{suppress}) && ($file)) { my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), Digest::SHA->new(384)->addfile(*FILE)->hexdigest . "\n", RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), CYAN(), "SHA384 checksum of file :: ", RESET(), BOLD(), Digest::SHA->new(384)->addfile(*FILE)->hexdigest . "\n", RESET(); } } sub sha512 { if (($opts{suppress}) && ($ARGV[0])) { $sha5 = $ARGV[0]; $sha512 = Digest::SHA::sha512_hex("$sha5"); print BOLD(), "$sha512" . RESET(); } elsif ($ARGV[0]) { $sha5 = $ARGV[0]; $sha512 = Digest::SHA::sha512_hex("$sha5"); print BOLD(), BLUE(), "\nOriginal string :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "SHA512 checksum :: ", RESET(), BOLD(), "$sha512" . "\n", RESET(); } } sub sha512file { if (($opts{suppress}) && ($file)) { my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), Digest::SHA->new(512)->addfile(*FILE)->hexdigest . "\n", RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); my $file = shift || "$file"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); print BOLD(), CYAN(), "SHA512 checksum of file :: ", RESET(), BOLD(), Digest::SHA->new(512)->addfile(*FILE)->hexdigest . "\n", RESET(); } } sub hexb { if (($opts{suppress}) && ($ARGV[0])) { $hexb = $ARGV[0]; print BOLD(), sprintf("%b", hex($hexb)), RESET(); } elsif ($ARGV[0]) { $hexb = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal hex :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to bin :: ", RESET(), BOLD(), sprintf("%b", hex($hexb)) . "\n", RESET(); } } sub hexbfile { if (($opts{suppress}) && ($file)) { print BOLD(), sprintf("%b", hex($string)), RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to bin :: ", RESET(), BOLD(), sprintf("%b", hex($string)) . "\n", RESET(); } } sub rotate13 { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $string =~ tr[a-zA-Z][n-za-mN-ZA-M]; print BOLD(), "$string", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $string =~ tr[a-zA-Z][n-za-mN-ZA-M]; print BOLD(), BLUE(), "\nOriginal string :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "Converted to ROT13 :: ", RESET(), BOLD(), "$string\n", RESET(); } } sub rotate13file { if (($opts{suppress}) && ($file)) { $string =~ tr[a-zA-Z][n-za-mN-ZA-M]; print BOLD(), $string, RESET(); } else { $string =~ tr[a-zA-Z][n-za-mN-ZA-M]; print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "Converted to ROT13 :: ", RESET(), BOLD(), "$string\n", RESET() } } sub unrotate13 { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $string =~ tr[n-za-mN-ZA-M][a-zA-Z]; print BOLD(), "$string", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $string =~ tr[n-za-mN-ZA-M][a-zA-Z]; print BOLD(), BLUE(), "\nOriginal string :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "ROT13 decoded :: ", RESET(), BOLD(), "$string\n", RESET(); } } sub unrotate13file { if (($opts{suppress}) && ($file)) { $string =~ tr[n-za-mN-ZA-M][a-zA-Z]; print BOLD(), "$string", RESET(); } else { $string =~ tr[n-za-mN-ZA-M][a-zA-Z]; print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "ROT13 decoded :: ", RESET(), BOLD(), "$string\n", RESET() } } sub string2stack { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; str2stksuppress($string); } elsif ($ARGV[0]) { $string = $ARGV[0]; str2stk($string); } } sub string2stackfile { if (($opts{suppress}) && ($file)) { str2stksuppress($string); print "\n"; } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file", RESET(); str2stk($string); } } # Perl script written by Peter Van Eeckhoutte # http://svn.corelan.be:8800/svn/shellcoding/scripts/pvePushString.pl # - slight modifications by fnord0 # sub str2stk ($) { if ($file) { $strToPush=$string; } else { $strToPush=$ARGV[0]; } $strThisChar=""; $strThisHex=""; $cnt=0; $bytecnt=0; $strHex=""; $strOpcodes=""; $strPush=""; $hexWord=""; print BOLD(), BLUE(), "\nString length :: ", RESET(), BOLD(), length($strToPush), "\n", RESET(); print BOLD(), BLUE(), "Opcodes to push this string onto the stack + terminating NULL BYTE (", RED(), "\\x00", BLUE(), ") ::\n\n", RESET(); if (($opts{ansiC})) { print BOLD(), "unsigned char shellcode[] = {\n", RESET(); $strHexy = "0x"; $strDelimit = ","; while ($cnt < length($strToPush)) { $strThisChar=substr($strToPush,$cnt,1); $strThisHex=" 0x".ascii_to_hex($strThisChar).$strDelimit; if ($bytecnt < 3) { $strHex=$strHex.$strThisHex; $bytecnt++; } else { $strPush = $strHex.$strThisHex; $strPush =~ s/0x//g; $strPush =~ tr/([0-9A-Fa-f]{2})+//cd; $hexWord=substr($strPush,6,2).substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2); $strHex=" 0x68,".$strHex.$strThisHex. " /* PUSH 0x".substr($strPush,6,2).substr($strPush,4,2). substr($strPush,2,2).substr($strPush,0,2)."\t". RESET() . chr(39) . BOLD() . hex2ascii($hexWord) . RESET() . chr(39) . " */"; $strOpcodes=$strHex."\n".$strOpcodes; $strHex=""; $bytecnt=0; } $cnt++; } ##last line if (length($strHex) > 0) { while(length($strHex) < 18) { $strHex=$strHex." 0x20,"; } $strPush = $strHex; $strPush =~ s/0x//g; $strPush =~ tr/([0-9A-Fa-f]{2})+//cd; $hexWord=substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2); $strHex=" 0x68,".$strHex. BOLD() . RED() . " 0x00" . RESET() . ", /* PUSH 0x" . BOLD() . RED() . "00" . RESET() . substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2)."\t". RESET() . chr(39) . " " . BOLD() . hex2ascii($hexWord) . RESET() . chr(39) . " */"; $strOpcodes=$strHex."\n".$strOpcodes; } else { ##add line with spaces + null byte (string terminator) $strOpcodes=" 0x68, 0x20, 0x20, 0x20, " . BOLD() . RED() . "0x00" . RESET() . ", /* PUSH 0x" . BOLD() . RED() . "00" . RESET() . "202020"."\t" . RESET() . "\'" . BOLD() . " " . RESET() . "\' */\n".$strOpcodes; } print $strOpcodes . BOLD() . "};\n" . RESET(); } elsif (($opts{pair})) { $strHexy = ''; $strDelimit = ''; while ($cnt < length($strToPush)) { $strThisChar=substr($strToPush,$cnt,1); $strThisHex=ascii_to_hex($strThisChar); if ($bytecnt < 3) { $strHex=$strHex.$strThisHex; $bytecnt++; } else { $strPush = $strHex.$strThisHex; $hexWord=substr($strPush,6,2).substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2); $strHex="68".$strHex.$strThisHex. " # PUSH 0x".substr($strPush,6,2).substr($strPush,4,2). substr($strPush,2,2).substr($strPush,0,2)."\t". RESET() . chr(39) . BOLD() . hex2ascii($hexWord) . RESET() . chr(39); $strOpcodes=$strHex."\n".$strOpcodes; $strHex=""; $bytecnt=0; } $cnt++; } ##last line if (length($strHex) > 0) { while(length($strHex) < 6) { $strHex=$strHex."20"; } $strPush = $strHex; $hexWord=substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2); $strHex="68".$strHex . BOLD() . RED() . "00" . RESET() . " # PUSH 0x" . BOLD() . RED() . "00" . RESET() . substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2)."\t". RESET() . chr(39) . " " . BOLD() . hex2ascii($hexWord) . RESET() . chr(39); $strOpcodes=$strHex."\n".$strOpcodes; } else { #add line with spaces + null byte (string terminator) $strOpcodes="68202020" . BOLD() . RED() . "00 " . RESET() . " # PUSH 0x" . BOLD() . RED() . "00" . RESET() . "202020"."\t" . RESET() . "\'" . BOLD() . " " . RESET() . "\'\n".$strOpcodes; } print $strOpcodes; } else { $strHexy = "\\x"; $strDelimit = ''; while ($cnt < length($strToPush)) { $strThisChar=substr($strToPush,$cnt,1); $strThisHex="\\x".ascii_to_hex($strThisChar); if ($bytecnt < 3) { $strHex=$strHex.$strThisHex; $bytecnt++; } else { $strPush = $strHex.$strThisHex; $strPush =~ tr/\\x//d; $hexWord=substr($strPush,6,2).substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2); $strHex=chr(34)."\\x68".$strHex.$strThisHex.chr(34). " //PUSH 0x".substr($strPush,6,2).substr($strPush,4,2). substr($strPush,2,2).substr($strPush,0,2)."\t". RESET() . chr(39) . BOLD() . hex2ascii($hexWord) . RESET() . chr(39); $strOpcodes=$strHex."\n".$strOpcodes; $strHex=""; $bytecnt=0; } $cnt++; } ##last line if (length($strHex) > 0) { while(length($strHex) < 12) { $strHex=$strHex."\\x20"; } $strPush = $strHex; $strPush =~ tr/\\x//d; $hexWord=substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2); $strHex=chr(34)."\\x68".$strHex . BOLD() . RED() . "\\x00" . RESET() . chr(34)." //PUSH 0x" . BOLD() . RED() . "00" . RESET() . substr($strPush,4,2).substr($strPush,2,2).substr($strPush,0,2)."\t". RESET() . chr(39) . " " . BOLD() . hex2ascii($hexWord) . RESET() . chr(39); $strOpcodes=$strHex."\n".$strOpcodes; } else { ##add line with spaces + null byte (string terminator) $strOpcodes=chr(34)."\\x68\\x20\\x20\\x20" . BOLD() . RED() . "\\x00" . RESET() . chr(34)." //PUSH 0x" . BOLD() . RED() . "00" . RESET() . "202020"."\t" . RESET() . "\'" . BOLD() . " " . RESET() . "\'\n".$strOpcodes; } print $strOpcodes; } } # Perl script written by Peter Van Eeckhoutte # http://svn.corelan.be:8800/svn/shellcoding/scripts/pvePushString.pl # - slight modifications by fnord0 # sub str2stksuppress ($) { if ($file) { $strToPush=$string; } else { $strToPush=$ARGV[0]; } $strThisChar=""; $strThisHex=""; $cnt=0; $bytecnt=0; $strHex=""; $strOpcodes=""; $strPush=""; $hexWord=""; if (($opts{ansiC})) { print BOLD(), "unsigned char shellcode[] = {\n", RESET(); $strHexy = "0x"; $strDelimit = ","; while ($cnt < length($strToPush)) { $strThisChar=substr($strToPush,$cnt,1); $strThisHex=" 0x".ascii_to_hex($strThisChar).$strDelimit; if ($bytecnt < 3) { $strHex=$strHex.$strThisHex; $bytecnt++; } else { $strPush = $strHex.$strThisHex; $strPush =~ s/0x//g; $strPush =~ tr/([0-9A-Fa-f]{2})+//cd; $strHex=" 0x68,".$strHex.$strThisHex; $strOpcodes=$strHex."\n".$strOpcodes; $strHex=""; $bytecnt=0; } $cnt++; } ##last line if (length($strHex) > 0) { while(length($strHex) < 18) { $strHex=$strHex." 0x20,"; } $strPush = $strHex; $strPush =~ s/0x//g; $strPush =~ tr/([0-9A-Fa-f]{2})+//cd; $strHex=" 0x68," . $strHex . BOLD() . RED() . " 0x00" . RESET() . ", "; $strOpcodes=$strHex."\n".$strOpcodes; } else { ##add line with spaces + null byte (string terminator) $strOpcodes=" 0x68, 0x20, 0x20, 0x20, " . BOLD() . RED() . "0x00" . RESET() . ", \n".$strOpcodes; } print $strOpcodes . BOLD() . "};\n" . RESET(); } elsif (($opts{pair})) { $strHexy = ''; $strDelimit = ''; while ($cnt < length($strToPush)) { $strThisChar=substr($strToPush,$cnt,1); $strThisHex=ascii_to_hex($strThisChar); if ($bytecnt < 3) { $strHex=$strHex.$strThisHex; $bytecnt++; } else { $strPush = $strHex.$strThisHex; $strHex="68".$strHex.$strThisHex; $strOpcodes=$strHex.$strOpcodes; $strHex=""; $bytecnt=0; } $cnt++; } ##last line if (length($strHex) > 0) { while(length($strHex) < 6) { $strHex=$strHex."20"; } $strPush = $strHex; $strHex="68" . $strHex . BOLD() . RED() . "00" . RESET(); $strOpcodes=$strHex.$strOpcodes; } else { #add line with spaces + null byte (string terminator) $strOpcodes="68202020" . BOLD() . RED() . "00" . RESET() . $strOpcodes; } print $strOpcodes; } else { $strHexy = "\\x"; $strDelimit = ''; print chr(34); while ($cnt < length($strToPush)) { $strThisChar=substr($strToPush,$cnt,1); $strThisHex="\\x".ascii_to_hex($strThisChar); if ($bytecnt < 3) { $strHex=$strHex.$strThisHex; $bytecnt++; } else { $strPush = $strHex.$strThisHex; $strPush =~ tr/\\x//d; $strHex="\\x68".$strHex.$strThisHex; $strOpcodes=$strHex.$strOpcodes; $strHex=""; $bytecnt=0; } $cnt++; } ##last line if (length($strHex) > 0) { while(length($strHex) < 12) { $strHex=$strHex."\\x20"; } $strPush = $strHex; $strPush =~ tr/\\x//d; $strHex="\\x68" . $strHex . BOLD() . RED() . "\\x00" . RESET(); $strOpcodes=$strHex.$strOpcodes; } else { #add line with spaces + null byte (string terminator) $strOpcodes="\\x68\\x20\\x20\\x20" . BOLD() . RED() . "\\x00" . RESET() . $strOpcodes; } print $strOpcodes; print chr(34); } } sub ascii_to_hex ($) { (my $str = shift) =~ s/(.|\n)/sprintf("%02lx", ord $1)/eg; return $str; } sub hex2ascii ($) { (my $str = shift) =~ s/" \/\/PUSH 0x"//g; $str =~ s/([a-fA-F0-9]{2})/chr(hex $1)/eg; return $str; } sub readbinfunc { if (($opts{suppress}) && ($file)) { pveReadbinsuppress($string); print "\n"; } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file", RESET(), "\n"; pveReadbin($string); } } # Perl script written by Peter Van Eeckhoutte # http://svn.corelan.be:8800/svn/shellcoding/scripts/pveReadbin.pl # - slight modifications by fnord0 # sub pveReadbin ($) { open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); #open file in binary mode my ($data, $n, $strContent); $strContent=""; my $cnt=0; my $offset=0; while (($n = read FILE, $data, 1, $offset) != 0) { $offset += $n; } close(FILE); print "Read ", BOLD(), $offset, RESET(), " bytes\n\n"; $cnt=0; my $nullbyte=0; if (($opts{ansiC})) { print BOLD(), "unsigned char shellcode[] = {\n", RESET(); } elsif (($opts{pair})) { print chr(34); } else { print chr(34); } for ($i=0; $i < (length($data)); $i++) { my $c = substr($data, $i, 1); my $str1 = sprintf("%01x", ((ord($c) & 0xf0) >> 4) & 0x0f); my $str2 = sprintf("%01x", ord($c) & 0x0f); if ($cnt < 8) { if (($opts{ansiC})) { if (($str1 eq "0") && ($str2 eq "0")) { print BOLD(), RED(), "0x00", RESET(), ", "; } else { if ($cnt==0) { print " 0x".$str1.$str2.", "; } else { print "0x".$str1.$str2.", "; } } $cnt=$cnt+1; } elsif (($opts{pair})) { if (($str1 eq "0") && ($str2 eq "0")) { print BOLD(), RED(), "00", RESET(); } else { print "$str1"."$str2"; } $cnt=$cnt+1; } else { if (($str1 eq "0") && ($str2 eq "0")) { print BOLD(), RED(), "\\x00", RESET(); } else { print "\\x".$str1.$str2; } $cnt=$cnt+1; } } else { if (($opts{ansiC})) { if (($str1 eq "0") && ($str2 eq "0")) { $cnt=1; print "\n " . BOLD() . RED() . "0x00" . RESET() . ", "; } else { $cnt=1; print "\n 0x".$str1.$str2.", "; } } elsif (($opts{pair})) { if (($str1 eq "0") && ($str2 eq "0")) { $cnt=1; print chr(34)."\n".chr(34), BOLD(), RED(), "00", RESET(); } else { $cnt=1; print chr(34)."\n".chr(34).$str1.$str2; } } else { if (($str1 eq "0") && ($str2 eq "0")) { $cnt=1; print chr(34)."\n".chr(34), BOLD(), RED(), "\\x00", RESET(); } else { $cnt=1; print chr(34)."\n".chr(34)."\\x".$str1.$str2; } } } if (($str1 eq "0") && ($str2 eq "0")) { $nullbyte=$nullbyte+1; } } if (($opts{ansiC})) { print BOLD() . "\n};\n" . RESET(); print "\nNumber of ", BOLD(), "NULL", RESET(), " bytes : ", BOLD(), $nullbyte, RESET(), "\n"; } elsif (($opts{pair})) { print chr(34).";\n"; print "\nNumber of ", BOLD(), "NULL", RESET(), " bytes : ", BOLD(), $nullbyte, RESET(), "\n"; } else { print chr(34).";\n"; print "\nNumber of ", BOLD(), "NULL", RESET(), " bytes : ", BOLD(), $nullbyte, RESET(), "\n"; } } # Perl script written by Peter Van Eeckhoutte # http://svn.corelan.be:8800/svn/shellcoding/scripts/pveReadbin.pl # - slight modifications by fnord0 # sub pveReadbinsuppress ($) { open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE); #open file in binary mode my ($data, $n, $strContent); $strContent=""; my $cnt=0; my $offset=0; while (($n = read FILE, $data, 1, $offset) != 0) { $offset += $n; } close(FILE); $cnt=0; my $nullbyte=0; if (($opts{ansiC})) { print BOLD(), "unsigned char shellcode[] = {\n", RESET(); } elsif (($opts{pair})) { print chr(34); } else { print chr(34); } for ($i=0; $i < (length($data)); $i++) { my $c = substr($data, $i, 1); my $str1 = sprintf("%01x", ((ord($c) & 0xf0) >> 4) & 0x0f); my $str2 = sprintf("%01x", ord($c) & 0x0f); if ($cnt < 8) { if (($opts{ansiC})) { if (($str1 eq "0") && ($str2 eq "0")) { print BOLD(), RED(), "0x00", RESET(), ", "; } else { if ($cnt==0) { print " 0x".$str1.$str2.", "; } else { print "0x".$str1.$str2.", "; } } $cnt=$cnt+1; } elsif (($opts{pair})) { if (($str1 eq "0") && ($str2 eq "0")) { print BOLD(), RED(), "00", RESET(); } else { print "$str1"."$str2"; } $cnt=$cnt+1; } else { if (($str1 eq "0") && ($str2 eq "0")) { print BOLD(), RED(), "\\x00", RESET(); } else { print "\\x".$str1.$str2; } $cnt=$cnt+1; } } else { if (($opts{ansiC})) { if (($str1 eq "0") && ($str2 eq "0")) { $cnt=1; print "\n " . BOLD() . RED() . "0x00" . RESET() . ", "; } else { $cnt=1; print "\n 0x".$str1.$str2.", "; } } elsif (($opts{pair})) { if (($str1 eq "0") && ($str2 eq "0")) { $cnt=1; print chr(34)."\n".chr(34), BOLD(), RED(), "00", RESET(); } else { $cnt=1; print chr(34)."\n".chr(34).$str1.$str2; } } else { if (($str1 eq "0") && ($str2 eq "0")) { $cnt=1; print chr(34)."\n".chr(34), BOLD(), RED(), "\\x00", RESET(); } else { $cnt=1; print chr(34)."\n".chr(34)."\\x".$str1.$str2; } } } if (($str1 eq "0") && ($str2 eq "0")) { $nullbyte=$nullbyte+1; } } if (($opts{ansiC})) { print BOLD() . "\n};\n" . RESET(); } elsif (($opts{pair})) { print chr(34).";\n"; } else { print chr(34).";\n"; } } sub DURL { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; print BOLD(), CGI::escape(CGI::escape("$string")), RESET(); } elsif (($ARGV[0])) { $string = $ARGV[0]; print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$string\n", RESET(); print BOLD(), CYAN(), "2xURL ENcoded:: ", RESET(), BOLD(), CGI::escape(CGI::escape("$string")) . "\n", RESET(); } } sub DURLfile { if (($opts{suppress}) && ($file)) { print BOLD(), CGI::escape(CGI::escape("$string")), "\n", RESET(); } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "2xURL ENcoded :: ", RESET(), BOLD(), CGI::escape(CGI::escape("$string")) . "\n", RESET(); } } sub durld { if (($opts{suppress}) && ($ARGV[0])) { $string = $ARGV[0]; $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; print BOLD(), "$string", RESET(); } elsif ($ARGV[0]) { $string = $ARGV[0]; $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; print BOLD(), BLUE(), "\nOriginal :: ", RESET(), BOLD(), "$ARGV[0]\n", RESET(); print BOLD(), CYAN(), "2xURL DEcoded :: ", RESET(), BOLD(), "$string\n", RESET(); } } sub durldfile { if (($opts{suppress}) && ($file)) { $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; print BOLD(), "$string", "\n", RESET(); } else { $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; $string =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg; print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file\n", RESET(); print BOLD(), CYAN(), "2xURL DEcoded :: ", RESET(), BOLD(), "$string\n", RESET(); } } sub writebinfunc { if (($opts{suppress}) && ($file)) { writebinsuppress($string); print "\n"; } else { print BOLD(), BLUE(), "\nOriginal file :: ", RESET(), BOLD(), "$file", RESET(), "\n"; writebin($string); } } # inspired by Perl script written by Peter Van Eeckhoutte # http://svn.corelan.be:8800/svn/shellcoding/scripts/pveWritebin.pl # sub writebin { if (-e $ARGV[0]) { system("rm $ARGV[0]"); } my $count = 0; my $len = 0; open(IN, "< $file"); open(OUT, "> $ARGV[0]"); binmode(OUT); while () { chop; s/\\x//g; s/\"//g; s/;//g; s/\.//g; s/\r\n//g; s/\n//g; s/\s//g; s/0x([[:xdigit:]])/$1/g; s/x//g; $len = length($_); $count += $len/2; print (OUT pack("H$len", $_)); } close(IN); close(OUT); print "Wrote $count bytes to file :: " . BOLD() . "$ARGV[0]\n" . RESET(); } # inspired by Perl script written by Peter Van Eeckhoutte # http://svn.corelan.be:8800/svn/shellcoding/scripts/pveWritebin.pl # sub writebinsuppress { if (-e $ARGV[0]) { system("rm $ARGV[0]"); } my $count = 0; my $len = 0; open(IN, "< $file"); open(OUT, "> $ARGV[0]"); binmode(OUT); while () { chop; s/\\x//g; s/\"//g; s/;//g; s/\.//g; s/\r\n//g; s/\n//g; s/\s//g; s/0x([[:xdigit:]])/$1/g; s/x//g; $len = length($_); $count += $len/2; print (OUT pack("H$len", $_)); } close(IN); close(OUT); } sub main_menu { $ARGV[0] = undef; $file = undef; $opts{esc} = undef; $opts{pair} = undef; $opts{ansiC} = undef; print "\t[========================================================]\n"; print "\t[ hURL - $VERSION by fnord0 - \@COPYLEFT ]\n"; print "\t[========================================================]\n"; print "\n"; print BOLD() . " ## \tCommand\t\t\tExample Input\t\tExample Output\n" . RESET(); print " ---\t----------------\t-------------\t\t--------------\n"; print " 1)\tURL encode\t\thello world\t\thello%20world\n"; print " 2)\tURL decode\t\thello%20world\t\thello world\n"; print " 3)\tDouble URL encode\thello world\t\thello%2520world\n"; print " 4)\tDouble URL decode\thello%2520world\t\thello world\n"; print " 5)\tBase64 encode\t\thello world\t\taGVsbG8gd29ybGQ=\n"; print " 6)\tBase64 decode\t\taGVsbG8gd29ybGQ=\thello world\n"; print " 7)\tHTML encode\t\t\t\t<hello world>\n"; print " 8)\tHTML decode\t\t<hello world>\thello world\n"; print " 9)\tRAW/ascii -> HEX\thello world\t\t68656c6c6f20776f726c64\n"; print " 10)\tHEX -> RAW/ascii\t68656c6c6f20776f726c64\thello world\n"; print " 11)\tINT -> HEX\t\t10\t\t\t0xa\n"; print " 12)\tHEX -> INT\t\t0xa\t\t\t10\n"; print " 13)\t-INT -> HEX\t\t-77\t\t\tFFFFFFFFFFFFFFB3\n"; print " 14)\t-HEX -> INT\t\tFFFFFFB3\t\t-77\n"; print " 15)\tINT -> BIN\t\t30\t\t\t00011110\n"; print " 16)\tBIN -> INT\t\t1010\t\t\t10\n"; print " 17)\tFLOAT -> HEX\t\t3.33\t\t\t0xb81e5540\n"; print " 18)\tHEX -> FLOAT\t\t0x40551ed8\t\t1079320280.000000\n"; print " 19)\tOCTAL -> HEX\t\t35\t\t\t0x1d\n"; print " 20)\tHEX -> octal\t\t0x1d\t\t\t35\n"; print " 21)\tBIN -> HEX\t\t1100011\t\t\t0x63\n"; print " 22)\tHEX -> BIN\t\t63\t\t\t1100011\n"; print " 23)\tSHA1 checksum\t\thello world\t\t2aae6c35c94fcfb415dbe95f408b9ce9...\n"; print " 24)\tSHA224 checksum\t\thello world\t\t2f05477fc24bb4faefd86517156dafde...\n"; print " 25)\tSHA256 checksum\t\thello world\t\tb94d27b9934d3e08a52e52d7da7dabfa...\n"; print " 26)\tSHA384 checksum\t\thello world\t\tfdbd8e75a67f29f701a4e040385e2e23...\n"; print " 27)\tSHA512 checksum\t\thello world\t\t309ecc489c12d6eb4cc40f50c902f2b4...\n"; print " 28)\tROT13 encode\t\thello world\t\turyyb jbeyq\n"; print " 29)\tROT13 decode\t\turyyb jbeyq\t\thello world\n"; print " 30)\tMD5 digest\t\thello world\t\t5eb63bbbe01eeed093cb22bb8f5acdc3\n"; print "\n"; print BOLD() . " ## \tCommands useful for shellcode creation\t Input\t Output\n" . RESET(); print " ---\t--------------------------------------\t -----\t ------\n"; print " 31)\tpush string 2 stack (corelanc0d3r)\t hello world ASM code to push string to stack\n"; print " 32)\tBINARY [infile] -> HEX (corelanc0d3r)\t BINARY FILE HEX to screen + counts NULL bytes\n"; print " 33)\tHEX [infile] -> BINARY [outfile]\t HEX FILE BINARY FILE\n"; print " 34)\tINT -> HEX (network-byte order)\t\t 4444\t 5c11\n"; print " 35)\tHEX (network-byte order) -> INT\t\t 5c11\t 4444\n"; print "\n"; print " 99)\tExit hURL\n\n"; print CYAN(), UNDERLINE(), "hURL", RESET(); print BOLD(), "> ", RESET(); $select = ; chomp ($select); if ($select =~ /^1$/){&menu_URL} if ($select =~ /^2$/){&menu_url} if ($select =~ /^3$/){&menu_DURL} if ($select =~ /^4$/){&menu_durl} if ($select =~ /^5$/){&menu_BASE64} if ($select =~ /^6$/){&menu_base64} if ($select =~ /^7$/){&menu_HTML} if ($select =~ /^8$/){&menu_html} if ($select =~ /^9$/){&menu_HEX} if ($select =~ /10/){&menu_hex} if ($select =~ /11/){&menu_INT} if ($select =~ /12/){&menu_int} if ($select =~ /13/){&menu_nint} if ($select =~ /14/){&menu_NHEX} if ($select =~ /15/){&menu_INTB} if ($select =~ /16/){&menu_bint} if ($select =~ /17/){&menu_FLOATH} if ($select =~ /18/){&menu_hfloat} if ($select =~ /19/){&menu_octh} if ($select =~ /20/){&menu_HOCT} if ($select =~ /21/){&menu_binh} if ($select =~ /22/){&menu_hexb} if ($select =~ /23/){&menu_SHA1} if ($select =~ /24/){&menu_SHA224} if ($select =~ /25/){&menu_SHA256} if ($select =~ /26/){&menu_SHA384} if ($select =~ /27/){&menu_SHA512} if ($select =~ /28/){&menu_ROT13} if ($select =~ /29/){&menu_rot13} if ($select =~ /30/){&menu_md5} if ($select =~ /31/){&menu_stack} if ($select =~ /32/){&menu_rbin} if ($select =~ /33/){&menu_wbin} if ($select =~ /34/){&menu_net} if ($select =~ /35/){&menu_NET} if ($select =~ /99/){&menu_exit} if ($select =~ /^q/){&menu_exit} if ($select =~ /^e/){&menu_exit} if ($select =~ /^x/){&menu_exit} else {system ("$select"); goto &main_menu; } } sub menu_URL { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "URLencode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectURLfile = ; chomp ($selectURLfile); $selectURLfile ||= "string"; if ($selectURLfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "URLencode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &URLfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectURLfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "URLencode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &URL; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_url { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "URLdecode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selecturlfile = ; chomp ($selecturlfile); $selecturlfile ||= "string"; if ($selecturlfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "URLdecode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE( ) . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &urlfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selecturlfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "URLdecode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &url; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_DURL { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "2xURLencode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectDURLfile = ; chomp ($selectDURLfile); $selectDURLfile ||= "string"; if ($selectDURLfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "2xURLencode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &DURLfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectDURLfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "2xURLencode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &DURL; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_durl { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "2xURLdecode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectdurldfile = ; chomp ($selectdurldfile); $selectdurldfile ||= "string"; if ($selectdurldfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "2xURLdecode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &durldfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectdurldfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "2xURLdecode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &durld; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_BASE64 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Base64encode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectBASE64file = ; chomp ($selectBASE64file); $selectBASE64file ||= "string"; if ($selectBASE64file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Base64encode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &BASE64file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectBASE64file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Base64encode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &BASE64; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_base64 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Base64decode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectbase64file = ; chomp ($selectbase64file); $selectbase64file ||= "string"; if ($selectbase64file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Base64decode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &base64file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectbase64file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Base64decode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &base64; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_HTML { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HTMLencode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectHTMLfile = ; chomp ($selectHTMLfile); $selectHTMLfile ||= "string"; if ($selectHTMLfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HTMLencode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &HTMLfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectHTMLfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HTMLencode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &HTML; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_html { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HTMLdecode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selecthtmlfile = ; chomp ($selecthtmlfile); $selecthtmlfile ||= "string"; if ($selecthtmlfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HTMLdecode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &htmlfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selecthtmlfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HTMLdecode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &html; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_HEX { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Ascii->HEX" . RESET(); print BOLD() . ">" . RESET() . " output in" . RESET() . " hexpair (" . BOLD() . "0f" . RESET() . ") or escaped format (" . BOLD() . "\\x0f" . RESET() . ")?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "hexpair" . RESET() . "|" . "escaped" . RESET() . "] "; my $hexformat = ; chomp ($hexformat); $hexformat ||= "hexpair"; if ($hexformat =~ m/^e/i) { $opts{esc} = 1; } elsif ($hexformat =~ m/^h/i) { $opts{pair} = 1; } print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Ascii->HEX" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectHEXfile = ; chomp ($selectHEXfile); $selectHEXfile ||= "string"; if ($selectHEXfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Ascii->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &HEXfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectHEXfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "Ascii->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &HEX; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_hex { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->Ascii" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectxfile = ; chomp ($selectxfile); $selectxfile ||= "string"; if ($selectxfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->Ascii" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &xfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectxfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->Ascii" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &x; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_INT { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->HEX" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectINTfile = ; chomp ($selectINTfile); $selectINTfile ||= "string"; if ($selectINTfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &INTfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectINTfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &INT; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_int { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->INT" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectifile = ; chomp ($selectifile); $selectifile ||= "string"; if ($selectifile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->INT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &ifile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectifile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->INT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &i; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_nint { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "-INT->HEX" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectnintfile = ; chomp ($selectnintfile); $selectnintfile ||= "string"; if ($selectnintfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "-INT->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &nintfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectnintfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "-INT->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &nint; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_NHEX { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "-HEX->INT" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectNHEXfile = ; chomp ($selectNHEXfile); $selectNHEXfile ||= "string"; if ($selectNHEXfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "-HEX->INT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &NHEXfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectNHEXfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "-HEX->INT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &NHEX; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_INTB { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->BIN" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectINTBfile = ; chomp ($selectINTBfile); $selectINTBfile ||= "string"; if ($selectINTBfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->BIN" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &INTBfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectINTBfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->BIN" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &INTB; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_bint { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "BIN->INT" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectbintfile = ; chomp ($selectbintfile); $selectbintfile ||= "string"; if ($selectbintfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "BIN->INT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &bintfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectbintfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "BIN->INT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &bint; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_FLOATH { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "FLOAT->HEX" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectFLOATHfile = ; chomp ($selectFLOATHfile); $selectFLOATHfile ||= "string"; if ($selectFLOATHfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "FLOAT->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &FLOATHfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectFLOATHfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "FLOAT->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &FLOATH; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_hfloat { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->FLOAT" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selecthfloatfile = ; chomp ($selecthfloatfile); $selecthfloatfile ||= "string"; if ($selecthfloatfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->FLOAT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &hfloatfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selecthfloatfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->FLOAT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &hfloat; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_octh { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "OCTAL->HEX" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectocthfile = ; chomp ($selectocthfile); $selectocthfile ||= "string"; if ($selectocthfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "OCTAL->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &octhfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectocthfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "OCTAL->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &octh; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_HOCT { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->OCTAL" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectHOCTfile = ; chomp ($selectHOCTfile); $selectHOCTfile ||= "string"; if ($selectHOCTfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->OCTAL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &HOCTfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectHOCTfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->OCTAL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &HOCT; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_binh { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "BIN->HEX" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectbinhfile = ; chomp ($selectbinhfile); $selectbinhfile ||= "string"; if ($selectbinhfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "BIN->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &binhfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectbinhfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "BIN->HEX" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &binh; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_hexb { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->BIN" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selecthexbfile = ; chomp ($selecthexbfile); $selecthexbfile ||= "string"; if ($selecthexbfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->BIN" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &hexbfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selecthexbfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEX->BIN" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &hexb; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_SHA1 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA1" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectSHA1file = ; chomp ($selectSHA1file); $selectSHA1file ||= "string"; if ($selectSHA1file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA1" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &sha1file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectSHA1file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA1" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &sha1; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_SHA224 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA224" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectSHA224file = ; chomp ($selectSHA224file); $selectSHA224file ||= "string"; if ($selectSHA224file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA224" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &sha224file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectSHA224file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA224" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &sha224; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_SHA256 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA256" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectSHA256file = ; chomp ($selectSHA256file); $selectSHA256file ||= "string"; if ($selectSHA256file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA256" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &sha256file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectSHA256file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA256" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &sha256; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_SHA384 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA384" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectSHA384file = ; chomp ($selectSHA384file); $selectSHA384file ||= "string"; if ($selectSHA384file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA384" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &sha384file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectSHA384file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA384" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &sha384; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_SHA512 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA512" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectSHA512file = ; chomp ($selectSHA512file); $selectSHA512file ||= "string"; if ($selectSHA512file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA512" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &sha512file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectSHA512file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "SHA512" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &sha512; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_ROT13 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "ROT13encode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectROT13file = ; chomp ($selectROT13file); $selectROT13file ||= "string"; if ($selectROT13file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "ROT13encode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &rotate13file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectROT13file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "ROT13encode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &rotate13; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_rot13 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "ROT13decode" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectrot13file = ; chomp ($selectrot13file); $selectrot13file ||= "string"; if ($selectrot13file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "ROT13decode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &unrotate13file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectrot13file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "ROT13decode" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &unrotate13; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_md5 { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "MD5" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectmd5file = ; chomp ($selectmd5file); $selectmd5file ||= "string"; if ($selectmd5file =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "MD5" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &md5file; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectmd5file =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "MD5" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &md5; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_stack { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string2stack" . RESET(); print BOLD() . ">" . RESET() . " output in" . RESET() . " escaped (" . BOLD() . "\\x0f" . RESET() . "), hexpair (" . BOLD() . "0f" . RESET() . "), or ansiC format (" . BOLD() . "0x0f" . RESET() . ")?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "escaped" . RESET() . "|" . "hexpair" . RESET() . "|ansiC] "; my $hexformat = ; chomp ($hexformat); $hexformat ||= "escaped"; if ($hexformat =~ m/^e/i) { $opts{esc} = 1; } elsif ($hexformat =~ m/^h/i) { $opts{pair} = 1; } elsif ($hexformat =~ m/^a/i) { $opts{ansiC} = 1; } print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string2stack" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectstackfile = ; chomp ($selectstackfile); $selectstackfile ||= "string"; if ($selectstackfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string2stack" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &string2stackfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectstackfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string2stack" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &string2stack; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_rbin { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "ReadBin" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &readbinfunc; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } sub menu_wbin { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "WriteBin" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . BOLD() . "INPUT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "WriteBin" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . BOLD() . "OUTPUT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $ARGV[0] =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &filemenu; &writebinfunc; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } sub menu_net { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->HEXnetwork" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectnetfile = ; chomp ($selectnetfile); $selectnetfile ||= "string"; if ($selectnetfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->HEXnetwork" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &netfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectnetfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "INT->HEXnetwork" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &net; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_NET { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEXnetwork->INT" . RESET(); print BOLD() . "> string" . RESET() . " or file?" . BOLD() . " :: " . RESET() . "[" . BOLD() . "string" . RESET() . "] "; my $selectNETfile = ; chomp ($selectNETfile); $selectNETfile ||= "string"; if ($selectNETfile =~ m/^f/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEXnetwork->INT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "filename" . RESET(); print BOLD() . "> " . RESET(); $file = ; ## expands tilde in filename -- O'Reilly's Perl Cookbook, Recipe #7.3 $file =~ s{ ^ ~ ( [^/]* ) } { $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] ) }ex; chomp ($file); if (! $file) { print "\n"; goto &main_menu; } &filemenu; &NETfile; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } elsif ($selectNETfile =~ m/string/i) { print CYAN() . UNDERLINE() . "hURL" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "HEXnetwork->INT" . RESET() . UNDERLINE() . ":" . CYAN() . UNDERLINE() . "string" . RESET(); print BOLD() . "> " . RESET(); $ARGV[0] = ; chomp ($ARGV[0]); if (! $ARGV[0]) { print "\n"; goto &main_menu; } &NET; print "\nPress ENTER to continue..."; my $input = ; goto &main_menu; } else { print "\n"; goto &main_menu; } } sub menu_exit { print "\n"; print BOLD() . "[" . CYAN() . "*" . RESET() . BOLD() . "] Thanks for using " . "hURL" . RESET() . "\n"; print BOLD() . "[" . CYAN() . "*" . RESET() . BOLD() . "] Have an epic day =)\n"; exit(0); } sub filemenu { local $/; # same as 'local undef $/;' enables "slurp mode" to read entire file $myFile = $file; open(INPUTFILE, "$myFile") or print BOLD() . "\n[" . RED() . "*" . RESET() . BOLD() . "] " . RED() . "Error opening file: " . RESET() . BOLD() . "$myFile\n\n" . RESET(); if (! open (INPUTFILE, "$myFile")) { goto &main_menu; } while () { chomp $_; $line = $_; last if $line eq "done"; $string = $_; $string =~ s/\R*$//; # removes last linebreak/newline } close (INPUTFILE); } sub corelan { my $asciitable = " Dec Hex Chr Dec Hex Chr Dec Hex Chr Dec Hex Chr Dec Hex Chr Dec Hex Chr Dec Hex Chr Dec Hex Chr\n". " 0 00 ".BOLD()." NUL".RESET()." 16 10 ".BOLD()." DLE".RESET()." 32 20 48 30 ".BOLD()."0".RESET()." 64 40 ".BOLD()."@".RESET()." 80 50 ".BOLD()."P".RESET()." 96 60 ".BOLD()."`".RESET()." 112 70 ".BOLD()."p".RESET()."\n". " 1 01 ".BOLD()." SOH".RESET()." 17 11 ".BOLD()." DC1".RESET()." 33 21 ".BOLD()."!".RESET()." 49 31 ".BOLD()."1".RESET()." 65 41 ".BOLD()."A".RESET()." 81 51 ".BOLD()."Q".RESET()." 97 61 ".BOLD()."a".RESET()." 113 71 ".BOLD()."q".RESET()."\n". " 2 02 ".BOLD()." STX".RESET()." 18 12 ".BOLD()." DC2".RESET()." 34 22 ".BOLD()."\"".RESET()." 50 32 ".BOLD()."2".RESET()." 66 42 ".BOLD()."B".RESET()." 82 52 ".BOLD()."R".RESET()." 98 62 ".BOLD()."b".RESET()." 114 72 ".BOLD()."r".RESET()."\n". " 3 03 ".BOLD()." ETX".RESET()." 19 13 ".BOLD()." DC3".RESET()." 35 23 ".BOLD()."#".RESET()." 51 33 ".BOLD()."3".RESET()." 67 43 ".BOLD()."C".RESET()." 83 53 ".BOLD()."S".RESET()." 99 63 ".BOLD()."c".RESET()." 115 73 ".BOLD()."s".RESET()."\n". " 4 04 ".BOLD()." EOT".RESET()." 20 14 ".BOLD()." DC4".RESET()." 36 24 ".BOLD()."\$".RESET()." 52 34 ".BOLD()."4".RESET()." 68 44 ".BOLD()."D".RESET()." 84 54 ".BOLD()."T".RESET()." 100 64 ".BOLD()."d".RESET()." 116 74 ".BOLD()."t".RESET()."\n". " 5 05 ".BOLD()." ENQ".RESET()." 21 15 ".BOLD()." NAK".RESET()." 37 25 ".BOLD()."\%".RESET()." 53 35 ".BOLD()."5".RESET()." 69 45 ".BOLD()."E".RESET()." 85 55 ".BOLD()."U".RESET()." 101 65 ".BOLD()."e".RESET()." 117 75 ".BOLD()."u".RESET()."\n". " 6 06 ".BOLD()." ACK".RESET()." 22 16 ".BOLD()." SYN".RESET()." 38 26 ".BOLD()."&".RESET()." 54 36 ".BOLD()."6".RESET()." 70 46 ".BOLD()."F".RESET()." 86 56 ".BOLD()."V".RESET()." 102 66 ".BOLD()."f".RESET()." 118 76 ".BOLD()."v".RESET()."\n". " 7 07 ".BOLD()." BEL".RESET()." 23 17 ".BOLD()." ETB".RESET()." 39 27 ".BOLD()."'".RESET()." 55 37 ".BOLD()."7".RESET()." 71 47 ".BOLD()."G".RESET()." 87 57 ".BOLD()."W".RESET()." 103 67 ".BOLD()."g".RESET()." 119 77 ".BOLD()."w".RESET()."\n". " 8 08 ".BOLD()." BS".RESET()." 24 18 ".BOLD()." CAN".RESET()." 40 28 ".BOLD()."(".RESET()." 56 38 ".BOLD()."8".RESET()." 72 48 ".BOLD()."H".RESET()." 88 58 ".BOLD()."X".RESET()." 104 68 ".BOLD()."h".RESET()." 120 78 ".BOLD()."x".RESET()."\n". " 9 09 ".BOLD()." HT".RESET()." 25 19 ".BOLD()." EM".RESET()." 41 29 ".BOLD().")".RESET()." 57 39 ".BOLD()."9".RESET()." 73 49 ".BOLD()."I".RESET()." 89 59 ".BOLD()."Y".RESET()." 105 69 ".BOLD()."i".RESET()." 121 79 ".BOLD()."y".RESET()."\n". " 10 0A ".BOLD()." LF".RESET()." 26 1A ".BOLD()." SUB".RESET()." 42 2A ".BOLD()."*".RESET()." 58 3A ".BOLD().":".RESET()." 74 4A ".BOLD()."J".RESET()." 90 5A ".BOLD()."Z".RESET()." 106 6A ".BOLD()."j".RESET()." 122 7A ".BOLD()."z".RESET()."\n". " 11 0B ".BOLD()." VT".RESET()." 27 1B ".BOLD()." ESC".RESET()." 43 2B ".BOLD()."+".RESET()." 59 3B ".BOLD().";".RESET()." 75 4B ".BOLD()."K".RESET()." 91 5B ".BOLD()."[".RESET()." 107 6B ".BOLD()."k".RESET()." 123 7B ".BOLD()."{".RESET()."\n". " 12 0C ".BOLD()." FF".RESET()." 28 1C ".BOLD()." FS".RESET()." 44 2C ".BOLD().",".RESET()." 60 3C ".BOLD()."<".RESET()." 76 4C ".BOLD()."L".RESET()." 92 5C ".BOLD()."\\".RESET()." 108 6C ".BOLD()."l".RESET()." 124 7C ".BOLD()."|".RESET()."\n". " 13 0D ".BOLD()." CR".RESET()." 29 1D ".BOLD()." GS".RESET()." 45 2D ".BOLD()."-".RESET()." 61 3D ".BOLD()."=".RESET()." 77 4D ".BOLD()."M".RESET()." 93 5D ".BOLD()."]".RESET()." 109 6D ".BOLD()."m".RESET()." 125 7D ".BOLD()."}".RESET()."\n". " 14 0E ".BOLD()." SO".RESET()." 30 1E ".BOLD()." RS".RESET()." 46 2E ".BOLD().".".RESET()." 62 3E ".BOLD().">".RESET()." 78 4E ".BOLD()."N".RESET()." 94 5E ".BOLD()."^".RESET()." 110 6E ".BOLD()."n".RESET()." 126 7E ".BOLD()."~".RESET()."\n". " 15 0F ".BOLD()." SI".RESET()." 31 1F ".BOLD()." US".RESET()." 47 2F ".BOLD()."/".RESET()." 63 3F ".BOLD()."?".RESET()." 79 4F ".BOLD()."O".RESET()." 95 5F ".BOLD()."_".RESET()." 111 6F ".BOLD()."o".RESET()." 127 7F ".BOLD()."DEL".RESET()."\n"; print BOLD()."--[ ASCII Table ]--\n".RESET().$asciitable."\n"; my $registersX86 = " (E|R)AX : return value, calculations | (E|R)SP : top of stack\n". " (E|R)CX : loopcounter, params | (E|R)BP : frame pointer\n". " (E|R)DX : params, data, math | (E|R)SI : source\n". " (E|R)BX : generic | (E|R)DI : destination\n". " (E|R)IP : instruction pointer\n"; print BOLD()."--[ Registers ]--\n".RESET().$registersX86."\n"; my $commonAsm = " jmp eax FF E0 | call eax FF D0\n". " jmp ebx FF E3 | call ebx FF D3\n". " jmp ecx FF E1 | call ecx FF D1\n". " jmp edx FF E2 | call edx FF D2\n". " jmp edi FF E7 | call edi FF D7\n". " jmp esi FF E6 | call esi FF D6\n". " jmp esp FF E4 | call esp FF D4\n". " jmp ebp FF E5 | call ebp FF D5\n". " pop eax 58 | push eax 50\n". " pop ebx 5B | push ebx 53\n". " pop ecx 59 | push ecx 51\n". " pop edx 5A | push edx 52\n". " pop edi 5F | push edi 57\n". " pop esi 5E | push esi 56\n". " pop esp 5C | push esp 54\n". " pop ebp 5D | push ebp 55\n". " ret C3 | ret+offset C2\n"; print BOLD()."--[ Common asm/opcodes (x86_64 = substitute E##{EAX} with R##{RAX}) ]--\n".RESET().$commonAsm."\n"; my $condjmpShort = " Code Mnemonic Description\n". " 77 cb JA rel8 Jump short if above (CF=0 and ZF=0)\n". " 73 cb JAE rel8 Jump short if above or equal (CF=0)\n". " 72 cb JB rel8 Jump short if below (CF=1)\n". " 76 cb JBE rel8 Jump short if below or equal (CF=1 or ZF=1)\n". " 72 cb JC rel8 Jump short if carry (CF=1)\n". " E3 cb JCXZ rel8 Jump short if CX register is 0\n". " E3 cb JECXZ rel8 Jump short if ECX register is 0\n". " 74 cb JE rel8 Jump short if equal (ZF=1)\n". " 7F cb JG rel8 Jump short if greater (ZF=0 and SF=OF)\n". " 7D cb JGE rel8 Jump short if greater or equal (SF=OF)\n". " 7C cb JL rel8 Jump short if less (SF<>OF)\n". " 7E cb JLE rel8 Jump short if less or equal (ZF=1 or SF<>OF)\n". " 76 cb JNA rel8 Jump short if not above (CF=1 or ZF=1)\n". " 72 cb JNAE rel8 Jump short if not above or equal (CF=1)\n". " 73 cb JNB rel8 Jump short if not below (CF=0)\n". " 77 cb JNBE rel8 Jump short if not below or equal (CF=0 and ZF=0)\n". " 73 cb JNC rel8 Jump short if not carry (CF=0)\n". " 75 cb JNE rel8 Jump short if not equal (ZF=0)\n". " 7E cb JNG rel8 Jump short if not greater (ZF=1 or SF<>OF)\n". " 7C cb JNGE rel8 Jump short if not greater or equal (SF<>OF)\n". " 7D cb JNL rel8 Jump short if not less (SF=OF)\n". " 7F cb JNLE rel8 Jump short if not less or equal (ZF=0 and SF=OF)\n". " 71 cb JNO rel8 Jump short if not overflow (OF=0)\n". " 7B cb JNP rel8 Jump short if not parity (PF=0)\n". " 79 cb JNS rel8 Jump short if not sign (SF=0)\n". " 75 cb JNZ rel8 Jump short if not zero (ZF=0)\n". " 70 cb JO rel8 Jump short if overflow (OF=1)\n". " 7A cb JP rel8 Jump short if parity (PF=1)\n". " 7A cb JPE rel8 Jump short if parity even (PF=1)\n". " 7B cb JPO rel8 Jump short if parity odd (PF=0)\n". " 78 cb JS rel8 Jump short if sign (SF=1)\n". " 74 cb JZ rel8 Jump short if zero (ZF = 1)\n"; print BOLD()."--[ Conditional jumps - short ]--\n".RESET().$condjmpShort."\n"; my $condjmpNear = " Code Mnemonic Description\n". " 0F 87 cw/cd JA rel16/32 Jump near if above (CF=0 and ZF=0)\n". " 0F 83 cw/cd JAE rel16/32 Jump near if above or equal (CF=0)\n". " 0F 82 cw/cd JB rel16/32 Jump near if below (CF=1)\n". " 0F 86 cw/cd JBE rel16/32 Jump near if below or equal (CF=1 or ZF=1)\n". " 0F 82 cw/cd JC rel16/32 Jump near if carry (CF=1)\n". " 0F 84 cw/cd JE rel16/32 Jump near if equal (ZF=1)\n". " 0F 84 cw/cd JZ rel16/32 Jump near if 0 (ZF=1)\n". " 0F 8F cw/cd JG rel16/32 Jump near if greater (ZF=0 and SF=OF)\n". " 0F 8D cw/cd JGE rel16/32 Jump near if greater or equal (SF=OF)\n". " 0F 8C cw/cd JL rel16/32 Jump near if less (SF<>OF)\n". " 0F 8E cw/cd JLE rel16/32 Jump near if less or equal (ZF=1 or SF<>OF)\n". " 0F 86 cw/cd JNA rel16/32 Jump near if not above (CF=1 or ZF=1)\n". " 0F 82 cw/cd JNAE rel16/32 Jump near if not above or equal (CF=1)\n". " 0F 83 cw/cd JNB rel16/32 Jump near if not below (CF=0)\n". " 0F 87 cw/cd JNBE rel16/32 Jump near if not below or equal (CF=0 and ZF=0)\n". " 0F 83 cw/cd JNC rel16/32 Jump near if not carry (CF=0)\n". " 0F 85 cw/cd JNE rel16/32 Jump near if not equal (ZF=0)\n". " 0F 8E cw/cd JNG rel16/32 Jump near if not greater (ZF=1 or SF<>OF)\n". " 0F 8C cw/cd JNGE rel16/32 Jump near if not greater or equal (SF<>OF)\n". " 0F 8D cw/cd JNL rel16/32 Jump near if not less (SF=OF)\n". " 0F 8F cw/cd JNLE rel16/32 Jump near if not less or equal (ZF=0 and SF=OF)\n". " 0F 81 cw/cd JNO rel16/32 Jump near if not overflow (OF=0)\n". " 0F 8B cw/cd JNP rel16/32 Jump near if not parity (PF=0)\n". " 0F 89 cw/cd JNS rel16/32 Jump near if not sign (SF=0)\n". " 0F 85 cw/cd JNZ rel16/32 Jump near if not zero (ZF=0)\n". " 0F 80 cw/cd JO rel16/32 Jump near if overflow (OF=1)\n". " 0F 8A cw/cd JP rel16/32 Jump near if parity (PF=1)\n". " 0F 8A cw/cd JPE rel16/32 Jump near if parity even (PF=1)\n". " 0F 8B cw/cd JPO rel16/32 Jump near if parity odd (PF=0)\n". " 0F 88 cw/cd JS rel16/32 Jump near if sign (SF=1)\n". " 0F 84 cw/cd JZ rel16/32 Jump near if 0 (ZF=1)\n"; print BOLD()."--[ Conditional jumps - near ]--\n".RESET().$condjmpNear."\n"; my $ropPivot = " add esp,offset + ret\n". " xchg reg,esp + ret\n". " xchg esp,reg + ret\n". " push reg, pop esp + ret\n". " mov esp,reg + ret\n". " call [reg]\n". " mov reg,[ebp+0c] + call [reg] (ref to seh)\n". " mov reg, dword ptr fs:[0] + ... + ret\n"; print BOLD()."--[ ROP Stack Pivot ]--\n".RESET().$ropPivot."\n"; my $nopSledTable = " \\x90 nop | \\x91 | \\x92 | \\x93 | \\x95 | \\x96 | \\x97 \\x9b\n". " \\x41 inc eax (A) | \\x42 inc edx (B) | \\x43 inc ebx (C)\n". " \\x44 inc esp (D) | \\x45 inc ebp (E) | \\x46 inc esi (F)\n". " \\x47 inc edi (G) | \\x48 dec eax (H) | \\x49 dec ecx (I)\n". " \\x4a dec edx (J) | \\x4b dec ebx (K) | \\x4c dec esp (L)\n". " \\x4d dec ebp (M) | \\x4e dec esi (N) | \\x4f dec edi (O)\n". " push/pop \\x50\\x58 (eax) | \\x51\\x59 (ecx) | \\x52\\x5a (edx)\n". " \\x53\\x5b (ebx) | \\x54\\x5c (esp) | \\x55\\x5d (ebp)\n". " \\x56\\x5e (esi) | \\x57\\x5f (edi) | \\x60\\x61 (all)\n". " \\x0a\\x0a | \\x0c\\x0c | \\x0d\\x0d | \\x0d\\x0c\\x0d\\x0c\\x0d | \\x0c\\x??\n"; print BOLD()."--[ NOP Sled Table ]--\n".RESET().$nopSledTable."\n"; my $unicodeNOPpad = " (-> \\x00\\x..\\x00. Register = write to [target])\n". " EAX EBX ECX EDX EBP ESI EDI\n". " \\x40 \\x43 \\x41 \\x42 \\x45 \\x46 \\x47\n". " \\x48 \\x4b \\x49 \\x4a \\x4d \\x4e \\x4f\n". " \\x50 \\x53 \\x51 \\x52 \\x55 \\x56 \\x57\n". " \\x58 \\x5b \\x59 \\x5a \\x5d \\x5e \\x5f\n". " \\x60 \\x63 \\x61 \\x62 \\x65 \\x66 \\x67\n". " \\x68 \\x6b \\x69 \\x6a \\x6d \\x6e \\x6f\n". " \\x70 \\x73 \\x71 \\x72 \\x75 \\x76 \\x77\n". " \\x78 \\x7b \\x79 \\x7a \\x7d \\x7e \\x7f\n"; print BOLD()."--[ Unicode NOP / padding ]--\n".RESET().$unicodeNOPpad."\n"; my $monaEgghunter = " Egghunter, " . BOLD() . "tag " . RED() . "w00t" . RESET() . " :\n". " \"\\x66\\x81\\xca\\xff\\x0f\\x42\\x52\\x6a\\x02\\x58\\xcd\\x2e\\x3c\\x05\\x5a\\x74\" +\n". " \"\\xef\\xb8\" + " . BOLD() . RED() . "\"\\x77\\x30\\x30\\x74\"" . RESET() . " + \"\\x8b\\xfa\\xaf\\x75\\xea\\xaf\\x75\\xe7\\xff\\xe7\"\n". BOLD() . " Put this tag in front of your shellcode" . CYAN() . " : w00tw00t\n" . RESET() . "\n". "Opcodes + description for basic version of egghunter ::\n". "\t\"\\x66\\x81\\xca\\xff\\x0f\"+ \t# OR DX,0xFFF\n". "\t\"\\x42\"+ \t# INC EDX\n". "\t\"\\x52\"+ \t# PUSH EDX\n". "\t\"\\x6a\\x02\"+ \t# PUSH 2 (NtAccessCheckAndAuditAlarm syscall)\n". "\t\"\\x58\"+ \t# POP EAX\n". "\t\"\\xcd\\x2e\"+ \t# INT 0x2E \n". "\t\"\\x3c\\x05\"+ \t# CMP AL,5\n". "\t\"\\x5a\"+ \t# POP EDX\n". "\t\"\\x74\\xef\"+ \t# JE \"OR DX,0xFFF\"\n". "\t\"\\xb8\"+ " . BOLD() . RED() . "EGG" . RESET() . " + \t# MOV EAX, " . BOLD() . RED() . "EGG\n" . RESET() . "\t\"\\x8b\\xfa\"+ \t# MOV EDI,EDX\n". "\t\"\\xaf\"+ \t# SCASD\n". "\t\"\\x75\\xea\"+ \t# JNE \"INC EDX\"\n". "\t\"\\xaf\"+ \t# SCASD\n". "\t\"\\x75\\xe7\"+ \t# JNE \"INC EDX\"\n". "\t\"\\xff\\xe7\" \t# JMP EDI (jumps to first byte of code/payload)\n"; print BOLD()."--[ Mona.py Egghunter ]--\n".RESET().$monaEgghunter."\n"; my $getPC = "GetPC (get Program Counter, also known as GetEIP on x86) code determines its own location in a process' address space.\n". "\n". BOLD() . ".:[ CALL \$+4 GetPC (7byte NULL-free) ]:.\n" . RESET() . " \\xE8\\xFF\\xFF\\xFF\\xFF \t\tCALL \$+4\n". " \\xC3 \t\t\tRET\n". " \\x59 \t\t\tPOP ECX\n". "\n". BOLD() . " << When the code executes, the CALL will jump to the last byte of the call instruction itself, and will work as follows: >>\n" . RESET() . " \$+0: E8 FFFFFF CALL \$+4 ; PUSH \$+5 onto the stack and jump to \$+4 (which is the last \\xFF)\n". " \$+4: FF C3 INC EBX ; Does nothing useful; can be considered a NOP\n". " \$+6: 59 POP ECX ; ECX = \$+5\n". " \$+7: " . BOLD() . "...shellcode...\n" . RESET() . "\n". BOLD() . ".:[ FSTENV GetPC (7byte NULL-free) ]:.\n" . RESET() . " A way to retrieve EIP on x86 is to use the x87 FSTENV opcode to store the state of the x87 floating point chip after issuing\n". " the FLDZ opcode. FSTENV will then contain the address of the FLDZ instruction at offset 0x0C: \n". " \\xD9\\xEE \t\t\tFLDZ\n". " \\xD9\\x74\\x24\\xF4 \t\tFSTENV PTR SS:[ESP-0xC]\n". " \\x59 \t\t\tPOP ECX\n". "\n". BOLD() . " << Explanation of code: >>\n" . RESET() . " \$+0 D9EE FLDZ ; Floating point stores \$+0 in its environment\n". " \$+2 D97424 F4 FSTENV PTR SS:[ESP-0xC] ; Save environment at ESP-0xC; now [ESP] = \$+0\n". " \$+6 59 POP ECX ; ECX = \$+0\n". "\n". " REFERENCE: https://skypher.com/wiki/index.php/Hacking/Shellcode/GetPC\n". " https://www.corelan.be/index.php/2010/02/25/exploit-writing-tutorial-part-9-introduction-to-win32-shellcoding/\n"; print BOLD()."--[ GetPC/GetEIP ]--\n".RESET().$getPC."\n"; my $shellCodes = " \"... if EIP and ESP are too close to each other (which is very common if the\n". " shellcode is on the stack), then NOPs are a good way to prevent corruption.\n". " ... a simple stackadjust instruction might do the trick as well.\n". " Simply prepend the shellcode with the opcode bytes (for example, add esp,-450).\n". " The Metasploit assembler may be used to provide the required\n". " instructions in hex:\"\n". "\n". "\troot\@bt:/pentest/exploits/framework3/tools# " . BOLD() . "./metasm_shell.rb\n" . RESET() . "\ttype \"exit\" or \"quit\" to quit\\n". "\tuse \";\" or \"\\n\" for newline\n". "\tmetasm > " . BOLD() . "add esp,-450\n" . RESET() . "\t\\x81\\xc4\\x3e\\xfe\\xff\\xff\n". "\tmetasm >\n". "\n". " ^^^ Gray Hat Hacking - The Ethical Hackers Handbook - p313, Chapter 15: Windows Exploits ^^^\n". "\n"; print BOLD()."--[ Shellcode Hints/Resources ]--\n".RESET().$shellCodes."\n"; my $whereIsCorelan = " https://www.corelan.be\n". " https://redmine.corelan.be/projects/corelanart/\n". " IRC: #corelan (freenode)\n". " (c) corelanc0d3r\n"; print BOLD()."--[ CORELAN ]--\n".RESET().$whereIsCorelan."\n"; } __DATA__ =head1 NAME .::[ hURL - hexadecimal & URL (en/de)coder v2.1 ]::. =head1 USAGE I I<[> B<->flagF<|>B<-->flag I<]> I<[> B<-f> >F<,>> I<]> I<[> B I<]> COMMAND LINE ARGUMENTS -M|--menu => Menu-driven GUI ; ./hURL -M -U|--URL => URL encode ; ./hURL -U "hello world" -u|--url => uRL decode ; ./hURL -u "hello%20world" -D|--DURL => Double URL encode ; ./hURL -D "hello world" -d|--durl => double URL decode ; ./hURL -d "hello%2520world" -B|--BASE64 => Base64 encode ; ./hURL -B "hello world" -b|--base64 => base64 decode ; ./hURL -b "aGVsbG8gd29ybGQ=" -H|--HTML => HTML encode ; ./hURL -H "" -h|--html => hTML decode ; ./hURL -h "<hello world>" -X|--HEX => ascii -> heX ; ./hURL -X "hello world" --esc :: output in escaped string ; "\x00\x01\x02\x03 ..." --pair :: output in hexpair format ; 00010203 ... -x|--hex => hex -> ascii ; ./hURL -x "68656c6c6f20776f726c64" -I|--INT => Int -> hex ; ./hURL -I "10" -i|--int => hex -> int ; ./hURL -i "0xa" -n|--nint => -int -> hex ; ./hURL -n -- -77 -N|--NHEX => -hex -> iNt ; ./hURL -N 0xffffffb3 -T|--INTB => inT -> bin ; ./hURL -T 30 -t|--bint => bin -> int ; ./hURL -t 1010 -F|--FLOATH => Float -> hex ; ./hURL -F 3.33 -l|--hfloat => hex -> float ; ./hURL -l 0x40551ed8 -o|--octh => octal -> hex ; ./hURL -o 35 -O|--HOCT => hex -> Octal ; ./hURL -O 0x12 -0|--binh => bin -> hex ; ./hURL -0 1100011 -1|--hexb => hex -> bin ; ./hURL -1 0x63 -2|--SHA1 => SHA1 checksum ; ./hURL -2 "hello world" -3|--SHA224 => SHA224 checksum ; ./hURL -3 "hello world" -4|--SHA256 => SHA256 checksum ; ./hURL -4 "hello world" -5|--SHA384 => SHA384 checksum ; ./hURL -5 "hello world" -6|--SHA512 => SHA512 checksum ; ./hURL -6 "hello world" -7|--ROT13 => ROT13 encode ; ./hURL -7 "hello world" -8|--rot13 => ROT13 decode ; ./hURL -8 "uryyb jbeyq" -9|--stack => push string 2 stack (corelan) ; ./hURL -9 "hello world" --esc :: output in escaped string ; "\x00\x01\x02\x03 ..." --pair :: output in hexpair format ; 00010203 ... --ansiC :: output in C format ; 0x00, 0x01, 0x02, 0x03 ... -m|--md5 => md5 digest ; ./hURL -m "hello world" -e|--net => int -> hex (net-byte order) ; ./hURL -e 4444 -E|--NET => hex (nEt-byte order) -> int ; ./hURL -E 5c11 -w|--wbin => hex [file] -> binary [file] ; ./hURL -w -f INfile OUTfile -r|--rbin => binary [file] -> hex (corelan); ./hURL -r -f /tmp/msgbox.bin --esc :: output in escaped string ; "\x00\x01\x02\x03 ..." --pair :: output in hexpair format ; 00010203 ... --ansiC :: output in C format ; 0x00, 0x01, 0x02, 0x03 ... --color|--nocolor => enable/disable colored output [default is ENABLED] --corelan => display corelan reference --help => displays help --man => displays extended help with examples --version => displays version information -s => suppress (display result only) -f|--file , => use file(s) as input [string] => string as input =head1 AUTHOR fnord0 RISEUP NET =head1 EXAMPLES =head2 Example :: BASE64 decode using suppression option... F<./hURL -b -s "aGVsbG8gd29ybGQ="> =head2 Example :: take file PHP meterpreter as input and convert to hexadecimal... F<./hURL -X -f /var/www/meterpreter.php> =head2 Example :: Multiple files as input (files are read in as RAW, so binary files can be used as input) F<./hURL -Xf ,,> =head2 Example :: Multiple files as input + string on command line {files WILL BE TRANSFORMED BEFORE THE STRING} + multiple flag manipulators F<./hURL -23456s -f , "hello wolrd"> =head2 Example :: Reading in a binary file - outputing in hex {ideal for shellcoding} F<./hURL -r -f > -> escaped string format "\x00\x01" F<./hURL -r --pair -f > -> hexpair format - "0001" F<./hURL -r --ansiC -f > -> ansiC format - "0x00, 0x01" =head2 Example :: Take hex file as input, write to new file as binary {ideal for shellcoding} F<./hURL -w -f > =head2 Example :: Using hURL's menu-driven GUI (similar to SET/WebSploit) F<./hURL -M> =head2 Example :: Disable color output F<./hURL --nocolor -Xsf /var/www/revshell.php,pythonshell.py>