I always have to search for these.

VB6 Hexdump function

Function HexDump(ByVal str, Optional hexOnly = 0) As String Dim s() As String, chars As String, tmp As String On Error Resume Next Dim ary() As Byte Dim offset As Long offset = 0 str = " " & str ary = StrConv(str, vbFromUnicode, LANG_US) chars = " " For i = 1 To UBound(ary) tt = Hex(ary(i)) If Len(tt) = 1 Then tt = "0" & tt tmp = tmp & tt & " " x = ary(i) 'chars = chars & IIf((x > 32 And x < 127) Or x > 191, Chr(x), ".") 'x > 191 causes \x0 problems on non us systems... asc(chr(x)) = 0 chars = chars & IIf((x > 32 And x < 127), Chr(x), ".") If i > 1 And i Mod 16 = 0 Then h = Hex(offset) While Len(h) < 6: h = "0" & h: Wend If hexOnly = 0 Then push s, h & " " & tmp & chars Else push s, tmp End If offset = offset + 16 tmp = Empty chars = " " End If Next 'if read length was not mod 16=0 then 'we have part of line to account for If tmp <> Empty Then If hexOnly = 0 Then h = Hex(offset) While Len(h) < 6: h = "0" & h: Wend h = h & " " & tmp While Len(h) <= 56: h = h & " ": Wend push s, h & chars Else push s, tmp End If End If HexDump = Join(s, vbCrLf) If hexOnly <> 0 Then HexDump = Replace(HexDump, " ", "") HexDump = Replace(HexDump, vbCrLf, "") End If End Function Sub push(ary, Value) 'this modifies parent ary object On Error GoTo init x = UBound(ary) '<-throws Error If Not initalized ReDim Preserve ary(UBound(ary) + 1) ary(UBound(ary)) = Value Exit Sub init: ReDim ary(0): ary(0) = Value End Sub

C

void real_hexdump(unsigned char* str, int len, int offset, bool hexonly){ char asc[19]; int aspot=0; int i=0; int hexline_length = 3*16+4; char *nl="\n"; char *tmp = (char*)malloc(75); bool color_on = false; uint32_t display_rows = -1; uint32_t displayed_lines = -1; CONSOLE_SCREEN_BUFFER_INFO csb; if(GetConsoleScreenBufferInfo( GetStdHandle(STD_OUTPUT_HANDLE) , &csb) !=0){ display_rows = csb.srWindow.Bottom - csb.srWindow.Top - 2; } if(!hexonly) printf(nl); if(offset >=0){ printf(" 0 1 2 3 4 5 6 7 8 9 A B C D E F\n"); printf("%04x ", offset); } for(i=0;i20 && (int)str[i] < 123 ) asc[aspot] = str[i]; else asc[aspot] = 0x2e; aspot++; if(aspot%8==0) printf(" "); //to make figuring out offset easier if(aspot%16==0){ asc[aspot]=0x00; if(!hexonly){ displayed_lines++; sprintf(tmp," %s\n", asc); printf("%s",tmp); if(display_rows > 0 && displayed_lines == display_rows){ if(!opts.automationRun){ displayed_lines = 0; printf("-- More --"); char qq = getch(); if(qq == 'q') break; printf("\n"); } } } if(offset >=0){ offset += 16; if(i+1 != len) printf("%04x ", offset); } aspot=0; } } if(aspot%16!=0){//print last ascii segment if not full line if(!hexonly){ int spacer = hexline_length - (aspot*3); while(spacer--) printf("%s"," "); asc[aspot]=0x00; sprintf(tmp, "%s\n",asc); printf("%s",tmp); } } if(!hexonly) printf("%s",nl); free(tmp); }

C#

using System.IO; using System.Text; public class HexDumper { private const int LineLen = 16; private static int bCount = 0; private static byte[] bytes = new byte[LineLen]; private static StringBuilder buf; public static string HexDump(string str) { buf = new StringBuilder(); char[] ch = str.ToCharArray(); for (int i = 0; i < ch.Length; i++) AddByte((byte)ch[i], (i == ch.Length-1)); return buf.ToString(); } public static string HexDump(byte[] b) { buf = new StringBuilder(); for (int i = 0; i < b.Length; i++) AddByte(b[i], (i==b.Length-1) ); return buf.ToString(); } public static string HexDump(byte[] b, bool showOffset) { buf = new StringBuilder(); for (int i = 0; i < b.Length; i++) { if (showOffset && (i == 0 || i % 16 == 0)) buf.Append(i.ToString("X05")+" "); AddByte(b[i], (i == b.Length - 1)); } return buf.ToString(); } private static void AddByte(byte b, bool final) { bytes[bCount++] = b; if (!final) if(bCount != LineLen) return; if (bCount <= 0) return; //main dump section for (int i = 0; i < LineLen; i++) { buf.Append( i >= bCount ? " " : bytes[i].ToString("X2") + " "); } buf.Append(" "); //char display pad for (int i = 0; i < LineLen; i++) { byte ch = bytes[i] >= 32 && bytes[i] <= 126 ? bytes[i] : (byte)0x2e; //dot buf.Append(i >= bCount ? " " : (char)ch+""); } buf.Append("\n"); bCount = 0; } }

Pascal

function HexDump(data:string;maxLen:integer = -1):string; var i: integer; buf: string; tmp: string; chars: string; b: byte; charsOffset: integer; begin charsOffset := 0; tmp := format('%.8x', [0]) + ' '; if (maxLen = -1) or (maxLen > length(data)) then maxLen := length(data); for i:=1 to maxLen do begin b := ord(data[i]); tmp += format('%.2x', [b] ) + ' '; if (b > 32) and (b < 127) then chars += data[i] else chars += '.'; if i mod 16 = 0 then begin tmp += ' '; if charsOffset = 0 then charsOffset := length(tmp); tmp += chars + #13#10; buf += tmp; tmp := format('%.8x', [i]) + ' '; //starting a new line.. chars := ''; end; end; if length(chars) > 0 then begin charsOffset -= length(tmp); buf += tmp + StringOfChar(' ',charsOffset) + chars; end; Result := buf; end;

ActionScript

public function hexdump(bytes:ByteArray, start:uint = 1, length:uint = 0 ):void { var output:String = ""; var charbuf:String = ""; if(start==0) start = 1; if(length > bytes.length || length == 0) length = bytes.length; bytes.position = start - 1; //0 based for (var i:int = start; i < length+1; i++) { var byte:int = bytes.readByte(); if( byte>20 && byte < 123 )charbuf+= String.fromCharCode(byte); else charbuf += "."; output += byte2hex(byte) + " "; if(i%16==0){ output += "\t" + charbuf + "\n"; charbuf = ""; } } if(i%16 != 0){ while(i%16!=0){output+=" ";i++;} output+=" " output += "\t" + charbuf + "\n"; } xx(output); //return output; } public function byte2hex(byte:uint):String { //http://www.actionscript.org/forums/showthread.php3?t=189952 var hex:String = ''; var arr:String = 'FEDCBA'; for(var i:uint = 0; i < 2; i++) { if(((byte & (0xF0 >> (i * 4))) >> (4 - (i * 4))) > 9){ hex += arr.charAt(15 - ((byte & (0xF0 >> (i * 4))) >> (4 - (i * 4)))); } else{ hex += String((byte & (0xF0 >> (i * 4))) >> (4 - (i * 4))); } } return hex; }

PHP Hexdump function (not mine)

function hdump($data, $htmloutput = true, $uppercase = false, $return = false){ //Init $hexi = ""; $ascii = ""; $dump = ($htmloutput === true) ? "<pre>" : ""; $offset = 0; $len = strlen($data); // Upper or lower case hexidecimal $x = ($uppercase === false) ? "x" : "X"; // Iterate string for ($i = $j = 0; $i < $len; $i++) { // Convert to hexidecimal $hexi .= sprintf("%02$x ", ord($data[$i])); // Replace non-viewable bytes with "." if (ord($data[$i]) >= 32) { $ascii .= ($htmloutput === true) ? htmlentities($data[$i]) : $data[$i]; } else { $ascii .= "."; } // Add extra column spacing if ($j === 7) { $hexi .= " "; $ascii .= " "; } // Add row if (++$j === 16 || $i === $len - 1) { // Join the hexi / ascii output $dump .= sprintf("%04$x %-49s %s", $offset, $hexi, $ascii); // Reset vars $hexi = $ascii = ""; $offset += 16; $j = 0; // Add newline if ($i !== $len - 1) { $dump .= "\n"; } } } // Finish dump $dump .= $htmloutput === true ? "</pre>" : ""; $dump .= "\n"; // Output method if ($return === false) { echo $dump; } else { return $dump; } }

Python Hexdump function (sbz gist)

def hexdump(src, length=16): FILTER = ''.join([(len(repr(chr(x))) == 3) and chr(x) or '.' for x in range(256)]) lines = [] for c in xrange(0, len(src), length): chars = src[c:c+length] hex = ' '.join(["%02x" % ord(x) for x in chars]) printable = ''.join(["%s" % ((ord(x) <= 127 and FILTER[ord(x)]) or '.') for x in chars]) lines.append("%04x %-*s %s\n" % (c, length*3, hex, printable)) return ''.join(lines)