iZsh-ragweed 0.1.8

data/lib/ragweed/wrap32/debugging.rb

@@ -0,0 +1,163 @@
+module Ragweed::Wrap32
+  module DebugCodes
+    CREATE_PROCESS = 3
+    CREATE_THREAD = 2
+    EXCEPTION = 1
+    EXIT_PROCESS = 5
+    EXIT_THREAD = 4
+    LOAD_DLL = 6
+    OUTPUT_DEBUG_STRING = 8
+    RIP = 9
+    UNLOAD_DLL = 7
+  end
+
+  module ExceptionCodes
+    ACCESS_VIOLATION = 0xC0000005
+    BREAKPOINT = 0x80000003
+    ALIGNMENT =  0x80000002
+    SINGLE_STEP = 0x80000004
+    BOUNDS = 0xC0000008
+    DIVIDE_BY_ZERO = 0xC0000094
+    INT_OVERFLOW = 0xC0000095
+    INVALID_HANDLE = 0xC0000008
+    PRIV_INSTRUCTION = 0xC0000096
+    STACK_OVERFLOW = 0xC00000FD
+    INVALID_DISPOSITION = 0xC0000026
+  end
+
+  module ContinueCodes
+    CONTINUE = 0x10002
+    BREAK = 0x40010008
+    CONTROL_C = 0x40010005
+    UNHANDLED = 0x80010001
+    TERMINATE_THREAD = 0x40010003
+    TERMINATE_PROCESS = 0x40010004
+  end
+end
+
+class Ragweed::Wrap32::DebugEvent
+  (FIELDS = [ :code,
+              :pid,
+              :tid,
+              :file_handle,
+              :process_handle,
+              :thread_handle,
+              :base,
+              :offset,
+              :info_size,
+              :thread_base,
+              :start_address,
+              :image_name,
+              :unicode,
+              :exception_code,
+              :exception_flags,
+              :exception_record,
+              :exception_address,
+              :parameters,
+              :exit_code,
+              :dll_base,
+              :rip_error,
+              :rip_type]).each {|x| attr_accessor x}
+
+  def initialize(str)
+    @code, @pid, @tid = str.unpack("LLL")
+    str.shift 12
+    case @code
+    when Wrap32::DebugCodes::CREATE_PROCESS 
+      @file_handle, @process_handle, @thread_handle,
+      @base, @offset,
+      @info_size, @thread_base, @start_address,
+      @image_name, @unicode = str.unpack("LLLLLLLLLH")
+    when Wrap32::DebugCodes::CREATE_THREAD 
+      @thread_handle, @thread_base, @start_address = str.unpack("LLL")
+    when Wrap32::DebugCodes::EXCEPTION 
+      @exception_code, @exception_flags,
+      @exception_record, @exception_address, @parameter_count = str.unpack("LLLLL")
+      str = str[20..-1]
+      @parameters = []
+      @parameter_count.times do
+        begin
+          @parameters << (str.unpack("L").first)
+          str = str[4..-1]
+        rescue;end
+      end
+    when Wrap32::DebugCodes::EXIT_PROCESS 
+      @exit_code = str.unpack("L").first
+    when Wrap32::DebugCodes::EXIT_THREAD 
+      @exit_code = str.unpack("L").first
+    when Wrap32::DebugCodes::LOAD_DLL 
+      @file_handle, @dll_base, @offset,
+      @info_size, @image_name, @unicode = str.unpack("LLLLLH")
+    when Wrap32::DebugCodes::OUTPUT_DEBUG_STRING 
+    when Wrap32::DebugCodes::RIP 
+      @rip_error, @rip_type = str.unpack("LL")
+    when Wrap32::DebugCodes::UNLOAD_DLL 
+      @dll_base = str.unpack("L").first
+    else
+      raise WinX.new(:wait_for_debug_event)
+    end
+  end
+
+  def inspect_code(c)
+    Wrap32::DebugCodes.to_key_hash[c].to_s || c.to_i
+  end
+  
+  def inspect_exception_code(c)
+    Wrap32::ExceptionCodes.to_key_hash[c].to_s || c.to_i.to_s(16)
+  end
+
+  def inspect_parameters(p)
+    "[ " + p.map {|x| x.to_i.to_s}.join(", ") + " ]"
+  end
+
+  def inspect
+    body = lambda do 
+      FIELDS.map do |f| 
+        if (v = send(f))
+          f.to_s + "=" + (try("inspect_#{f.to_s}".intern, v) || v.to_i.to_s(16))
+        end
+      end.compact.join(" ")
+    end
+    
+    "#<DebugEvent #{body.call}>"
+  end
+end
+
+module Ragweed::Wrap32
+  class << self
+    def wait_for_debug_event(ms=1000)
+      buf = "\x00" * 1024
+      r = CALLS["kernel32!WaitForDebugEvent:PL=L"].call(buf, ms)
+      raise WinX.new(:wait_for_debug_event) if r == 0 and get_last_error != 121
+      return Wrap32::DebugEvent.new(buf) if r != 0
+      return nil
+    end
+
+    def continue_debug_event(pid, tid, code)
+      r = CALLS["kernel32!ContinueDebugEvent:LLL=L"].call(pid, tid, code)
+      raise WinX.new(:continue_debug_event) if r == 0
+      return r
+    end
+
+    def debug_active_process(pid)
+      r = CALLS["kernel32!DebugActiveProcess:L=L"].call(pid)
+      raise WinX.new(:debug_active_process) if r == 0
+      return r
+    end
+
+    def debug_set_process_kill_on_exit(val=0)
+      r = CALLS["kernel32!DebugSetProcessKillOnExit:L=L"].call(val)
+      raise WinX.new(:debug_set_process_kill_on_exit) if r == 0
+      return r
+    end
+
+    def debug_active_process_stop(pid)
+      # don't care about failure
+      CALLS["kernel32!DebugActiveProcessStop:L=L"].call(pid)
+    end
+
+    def flush_instruction_cache(h, v1=0, v2=0)
+      CALLS["kernel32!FlushInstructionCache:LLL=L"].call(h, v1, v2)
+    end
+  end
+end

data/lib/ragweed/wrap32/device.rb

@@ -0,0 +1,49 @@
+module Ragweed
+  class Device
+    def initialize(path, options={})
+      @path = path
+      @options = options
+      @h = Wrap32::create_file(@path, :flags => Wrap32::FileAttributes::OVERLAPPED|Wrap32::FileAttributes::NORMAL)
+    end
+
+    def ioctl(code, inbuf, outbuf)
+      overlap(lambda do |o|
+        Wrap32::device_io_control(@h, code, inbuf, outbuf, o)
+      end) do |ret, count|
+        outbuf[0..count]
+      end  
+    end
+    
+    def read(sz)
+      overlap(lambda do |o|
+        Wrap32::read_file(@h, sz, o)
+      end) do |ret, count|
+        ret[0..count]
+      end
+    end
+    
+    def write(buf)
+      overlap(lambda do |o|
+        Wrap32::write_file(@h, buf, o)
+      end) do |ret, count|
+        count
+      end
+    end 
+    
+    def release
+      Wrap32::close_handle(@h)
+      @h = nil
+    end
+
+    private
+
+    def overlap(proc)
+      o = Wrap32::Overlapped.get
+      ret = proc.call(o)
+      count = o.wait(@h)
+      r = yield ret, count
+      o.release
+      ret = r if r
+    end
+  end
+end

data/lib/ragweed/wrap32/event.rb

@@ -0,0 +1,50 @@
+class Ragweed::Event
+  # Quick wrapper around Win32 events. Events are simple thread sync
+  # objects that are cross-process. They are like semaphores that you
+  # can select() on. 
+
+  # You can just do WinEvent.new to get a new anonymous handle, and
+  # then call .handle on it to find out what the handle was. Communicate
+  # your pid and the handle value, somehow, to a remote process. That
+  # process can get the same event by passing a WinProcess and the
+  # handle here. 
+  # 
+  # So, in Process1 (assume pid 668, and handle 300):
+  #
+  # e = WinEvent.new
+  # puts #{ get_current_process_id }: #{ e.handle }"
+  #
+  # And in Process2:
+  #
+  # e = WinEvent.new(WinProcess.new(668), 300)
+  #
+  # Now both processes share an event.
+  def initialize(p=nil, h=nil)
+    @p = p
+    @h = (@p.dup_handle(h) if h) || create_event
+  end
+
+  # Don't return until the event is signalled. Note that you
+  # can't break this with timeouts or CTR-C.
+  def wait
+    Wrap32::wait_for_single_object @h
+  end
+
+  # Signal the event; anyone waiting on it is now released.
+  def signal
+    Wrap32::set_event(@h)
+  end
+
+  # Force the event back to unsignalled state.
+  def reset
+    Wrap32::reset_event(@h)
+  end
+
+  # A wait loop.
+  def on(&block)
+    while 1
+      wait
+      break if not yield
+    end
+  end
+end

data/lib/ragweed/wrap32/hooks.rb

@@ -0,0 +1,23 @@
+class Ragweed::Debugger32
+  # Hook function calls
+  # nargs is the number of arguments taken by function at ip
+  # callable/block is called with ev, ctx, dir (:enter or :leave), and args Array (see examples/hook_notepad.rb)
+  # default handler prints arguments
+  def hook(ip, nargs, callable=nil, &block)
+    callable ||= block || lambda do |ev, ctx,dir,args|
+      puts "#{dir} #{ip.to_s(16) rescue ip.to_s}"
+      puts args.map{|a| "%08x" % a}.join(',')
+    end
+
+    breakpoint_set(ip) do |ev,ctx|
+      args = (1..nargs).map {|i| process.read32(ctx.esp + 4*i)}
+      retp = process.read32(ctx.esp)
+      # set exit bpoint
+      breakpoint_set(retp) do |ev,ctx|
+        callable.call(ev, ctx, :leave, args)
+        breakpoint_clear(retp)
+      end.install
+      callable.call(ev, ctx, :enter, args)
+    end
+  end
+end

data/lib/ragweed/wrap32/overlapped.rb

@@ -0,0 +1,46 @@
+class Ragweed::Wrap32::Overlapped
+  attr_accessor :internal
+  attr_accessor :internal_high
+  attr_accessor :offset
+  attr_accessor :offset_high
+  attr_accessor :event
+  attr_accessor :target
+
+  def self.get
+    h = Ragweed::Wrap32::create_event(nil, false, true)
+    r = self.new
+    r.event = h
+    return r
+  end
+
+  def initialize(str=nil)
+    @buf = "\x00" * 20
+    @internal, @internal_high, @offset, @offset_high, @event = [0,0,0,0,0]
+    init(str) if str    
+  end
+
+  def to_s
+    buf = [@internal, @internal_high, @offset, @offset_high, @event].pack("LLLLL")
+    @buf.replace(buf)
+  end
+
+  def release
+    Ragweed::Wrap32::close_handle(@event)
+  end
+
+  def wait(h)
+    return if not @event
+    Ragweed::Wrap32::wait_for_single_object(@event)
+    Ragweed::Wrap32::get_overlapped_result(h, self)
+  end
+
+  private
+
+  def init(str)
+    @internal,
+    @internal_high,
+    @offset,
+    @offset_high,
+    @event = str.unpack("LLLLL")
+  end
+end

data/lib/ragweed/wrap32/process.rb

@@ -0,0 +1,506 @@
+# XXX - PORT ME!!
+
+class Ragweed::Process
+  def handle; @h; end
+  attr_reader :pid
+  include Ragweed
+
+  def self.find_by_regex(name)
+    Wrap32::all_processes do |p|
+      if p.szExeFile =~ name
+        return self.new(p.th32ProcessID)
+      end
+    end
+  end
+
+  # Get a pointer into the remote process; pointers are just fixnums
+  # with a read/write method and a to_s.
+  def ptr(x)
+    ret = Ptr.new(x)
+    ret.p = self
+    return ret
+  end
+
+  # clone a handle from the remote process to here (to here? tf?)
+  def dup_handle(h)
+    Wrap32::duplicate_handle(@h, h)
+  end
+
+  # look up a process by its name --- but this is in the local process,
+  # which is broken --- a heuristic that sometimes works for w32 functions,
+  # but probably never otherwise.
+  def get_proc(name)
+    return Ptr.new(name) if name.kind_of? Numeric or name.kind_of? Ptr
+    ptr(Wrap32::get_proc_address(name))
+  end
+
+  def get_proc_remote(name)
+    mod, meth = name.split "!"
+    modh = remote_call "kernel32!GetModuleHandleW", mod.to_utf16
+    raise "no such module #{ mod }" if not modh
+    ret = remote_call "kernel32!GetProcAddress", modh, meth
+    ret
+  end
+
+  # Look up a process by name or regex, returning an array of all
+  # matching processes, as objects.
+  def self.by_name(n)
+    n = Regexp.new(n) if not n.kind_of? Regexp
+    p = []
+    all_processes do |px|
+      if px.szExeFile =~ n
+        p << self.new(px.th32ProcessID)
+      end
+    end
+    p
+  end
+
+  # Just need a PID to get started.
+  def initialize(pid) 
+    @pid = pid
+    @h = Wrap32::open_process(pid)
+    @a = arena()
+  end
+
+  # Return the EXE name of the process.
+  def image
+    buf = "\x00" * 256
+    if Wrap32::nt_query_information_process(@h, 27, buf)
+      buf = buf.from_utf16
+      buf = buf[(buf.index("\\"))..-1]
+      return buf.asciiz
+    end
+    nil
+  end
+
+  # Return a list of all the threads in the process; relatively
+  # expensive, so cache the result.
+  def threads(full=false, &block)
+    return Wrap32::threads(@pid, &block) if block_given?
+    ret = []
+    Wrap32::threads(@pid) {|x| ((full) ? ret << x : ret << x.th32ThreadID) }
+    return ret
+  end
+
+  # Suspend all the threads in the process.
+  def suspend_all; threads.each {|x| suspend(x)}; end
+
+  # Resume all the threads in the process. XXX this will not 
+  # resume threads with suspend counts greater than 1.
+  def resume_all; threads.each {|x| resume(x)}; end
+
+  # Suspend a thread by tid. Technically, this doesn't need to be
+  # a method; you can suspend a thread anywhere without a process handle.
+  def suspend(tid); Wrap32::open_thread(tid) {|x| Wrap32::suspend_thread(x)}; end
+
+  # Resume a thread by tid.
+  def resume(tid); Wrap32::open_thread(tid) {|x| Wrap32::resume_thread(x)}; end
+
+  # List the modules for the process, either yielding a struct for
+  # each to a block, or returning a list.
+  def modules(&block)
+    if block_given?
+      Wrap32::list_modules(@pid, &block)
+    else
+      ret = []
+      Wrap32::list_modules(@pid) {|x| ret << x}
+      return ret
+    end
+  end
+
+  # Read/write ranges of data or fixnums to/from the process by address.
+  def read(off, sz=4096); Wrap32::read_process_memory(@h, off, sz); end
+  def write(off, data); Wrap32::write_process_memory(@h, off, data); end
+  def read32(off); read(off, 4).unpack("L").first; end
+  def read16(off); read(off, 2).unpack("v").first; end
+  def read8(off); read(off, 1)[0]; end      
+  def write32(off, v); write(off, [v].pack("L")); end
+  def write16(off, v); write(off, [v].pack("v")); end
+  def write8(off, v); write(off, v.chr); end
+  
+  # call a function, by name or address, in the process, using 
+  # CreateRemoteThread
+  def remote_call(meth, *args)
+    loc = meth
+    loc = get_proc(loc) if loc.kind_of? String
+    loc = Ptr.new loc
+    raise "bad proc name" if loc.null?
+    t = Trampoline.new(self, loc)
+    t.call *args      
+  end
+
+  # Can I write to this address in the process?
+  def writeable?(off); Wrap32::writeable? @h, off; end
+
+  # Use VirtualAllocEx to grab a block of memory in the process. This
+  # is expensive, the equivalent of mmap()'ing for each allocation. 
+  def syscall_alloc(sz); ptr(Wrap32::virtual_alloc_ex(@h, sz)); end
+
+  # Use arenas, when possible, to quickly allocate memory. The upside
+  # is this is very fast. The downside is you can't free the memory
+  # without invalidating every allocation you've made prior.
+  def alloc(sz, syscall=false) 
+    if syscall or sz > 4090
+      ret = syscall_alloc(sz)
+    else
+      ptr(@a.alloc(sz))
+    end
+  end
+
+  # Free the return value of syscall_alloc. Do NOT use for the return
+  # value of alloc.
+  def free(off)
+    Wrap32::virtual_free_ex(@h, off)
+  end
+
+  # Convert an address to "module+10h" notation, when possible.
+  def to_modoff(off, force=false)
+    if not @modules or force
+      @modules = modules.sort {|x,y| x.modBaseAddr <=> y.modBaseAddr}
+    end
+
+    @modules.each do |m|
+      if off >= m.modBaseAddr and off < (m.modBaseAddr + m.modBaseSize)
+        return "#{ m.szModule }+#{ (off - m.modBaseAddr).to_s(16) }h"
+      end
+    end
+
+    return "#{ off.to_x }h"
+  end  
+
+  # Get another allocation arena for this process. Pretty cheap. Given
+  # a block, behaves like File#open, disposing of the arena when you're
+  # done.
+  def arena(&block)
+    me = self
+    a = Arena.new(lambda {me.syscall_alloc(4096)}, 
+                  lambda {|p| me.free(p)},
+                  lambda {|dst, src| me.write(dst, src)})
+    if block_given?
+      ret = yield a
+      a.release
+      return ret
+    end
+    a
+  end
+
+  # Insert a string anywhere into the memory of the remote process,
+  # returning its address, using an arena.
+  def insert(buf); @a.copy(buf); end
+
+  # List all memory regions in the remote process by iterating over
+  # VirtualQueryEx. With a block, yields MEMORY_BASIC_INFORMATION
+  # structs. Without it, returns [baseaddr,size] tuples.
+  # 
+  # We "index" this list, so that we can refer to memory locations
+  # by "region number", which is a Rubycorn-ism and not a Win32-ism.
+  # You'll see lots of functions asking for memory indices, and this
+  # is what they're referring to.
+  def list_memory(&block)
+    ret = []
+    i = 0
+    while (mbi = Wrap32::virtual_query_ex(@h, i))
+      break if (not ret.empty? and mbi.BaseAddress == 0)
+      if block_given?
+        yield mbi
+      else
+        base = mbi.BaseAddress || 0
+        size = mbi.RegionSize || 0
+        ret << [base,size] if mbi.State & 0x1000 # MEM_COMMIT
+        i = base + size
+      end
+    end
+    ret
+  end
+
+  # Human-readable standard output of list_memory. Remember that the
+  # index number is important.
+  def dump_memory_list
+    list_memory.each_with_index {|x,i| puts "#{ i }. #{ x[0].to_s(16) }(#{ x[1] })"}
+    true
+  end
+
+  # Read an entire memory region into a string by region number.
+  def get_memory(i, opts={})
+    refresh opts
+    read(@memlist[i][0], @memlist[i][1])
+  end
+
+  # Print a canonical hexdump of an entire memory region by region number.
+  def dump_memory(i, opts={}); get_memory(i, opts).hexdump; end
+
+  # In Python, and maybe Ruby, it was much faster to work on large 
+  # memory regions a 4k page at a time, rather than reading the 
+  # whole thing into one big string. Scan takes a memory region
+  # and yields 4k chunks of it to a block, along with the length
+  # of each chunk.
+  def scan(i, opts={})
+    refresh opts
+    memt = @memlist[i]
+    if memt[1] > 4096
+      0.step(memt[1], 4096) do |i|
+        block = (memt[1] - i).cap(4096)
+        yield read(memt[0] + i, block), memt[0]+i
+      end
+    else
+      yield read(memt[0], memt[1]), memt[0]
+    end
+  end
+
+  # Dump thread context, returning a struct that contains things like
+  # .Eip and .Eax.
+  def thread_context(tid)
+    Wrap32::open_thread(tid) do |h|
+      Wrap32::get_thread_context(h)
+    end
+  end
+
+  # Take a region of memory and walk over it in 255-byte samples (less
+  # than 255 bytes and you lose accuracy, but you can increase it with
+  # the ":window" option), computing entropy for each sample, returning
+  # a list of [offset,entropy] tuples.
+  def entropy_map(i, opts={})
+    ret = []
+    startoff = opts[:starting_offset]
+    startoff ||= 0
+    window = opts[:window] || 255
+    scan(i, opts) do |block, soff|
+      startoff.stepwith(block.size, window) do |off, len|
+        ret << [off, block[off,len].entropy]
+      end
+    end
+    return ret
+  end
+
+  # Given a source and destination memory region, scan through "source"
+  # looking for properly-aligned U32LE values that would be valid pointers
+  # into "destination". The ":range_start" and ":range_end" options
+  # constrain what a "valid pointer" into "destination" is.
+  def pointers_to(src, dst, opts={})
+    refresh opts
+    ret = {}
+    range = ((opts[:range_start] || @memlist[dst][0])..(opts[:range_stop] || @memlist[dst][0]+@memlist[dst][1]))
+    scan(src, opts) do |block, soff|
+      0.stepwith(block.size, 4) do |off, len|
+        if len == 4
+          if range.member? block[off,4].to_l32
+            ret[soff + off] = block[off,4].to_l32
+          end
+        end
+      end
+    end
+    return ret
+  end
+
+  # Given a memory region number, do a Unix strings(1) on it. Valid
+  # options:
+  # :unicode:  you probably always want to set this to "true"
+  # :minimum:  how small strings to accept.
+  # 
+  # Fairly slow.
+  def strings_mem(i, opts={})
+    ret = []
+    opts[:offset] ||= 0
+    scan(i) do |block, soff|
+      while 1
+        off, size = block.nextstring(opts)
+        break if not off
+        opts[:offset] += (off + size)
+        ret << [soff+off, size, block[off,size]]
+      end
+    end
+    ret
+  end
+
+  # Given a string key, find it in memory. Very slow. Will read all
+  # memory regions, but you can provide ":index_range", which must be
+  # a Range object, to constrain which ranges to search through. 
+  # Returns a list of structs containing absolute memory locations,
+  # the index of the region, and some surrounding context for the 
+  # hit.
+  def hunt(key, opts={})
+    ret = []
+    refresh opts
+    range = opts[:index_range] || (0..@memlist.size)
+    @memlist.each_with_index do |t, i|
+      if range.member? i
+        if opts[:noisy]
+          puts "#{ i }. #{ t[0].to_s(16) } -> #{ (t[0]+t[1]).to_s(16) }"
+        end
+        scan(i, opts) do |block, soff|
+          if (needle = block.index(key))
+            r = OpenStruct.new
+            r.location = (t[0] + soff + needle)
+            r.index = i
+            r.context = block
+            ret << r
+            return ret if opts[:first]
+          end
+        end
+      end
+    end
+    ret
+  end
+
+  private
+
+  def windowize(i, opts={})
+    window = opts[:window] || 1024
+    if window == :auto
+      r = region_range(i)
+      window = (r.last - r.first) / 60
+    end
+    return window
+  end
+
+  public
+
+  # Like entropy_map, scan a process and compute adler16 checksums for
+  # 1k (or :window) blocks.
+  def adler_map(i, opts={})
+    refresh opts
+    window = windowize(i, opts)
+    ret = []
+    scan(i, opts) do |block,soff|
+      0.stepwith(block.size-1, window) do |off, len|
+        if (b = block[off,len])
+          ret << b.adler 
+        end
+      end
+    end
+    ret
+  end
+
+  # If you store the adler map, you've compressed the memory region
+  # down to a small series of fixnums, and you can use it with this
+  # function to re-check the memory region and see if anything's changing.
+  def adler_compare(i, orig, opts={})
+    refresh opts
+    window = windowize(i, opts)
+    ret = []
+    c = -1
+    scan(i, opts) do |block,soff|
+      0.stepwith(block.size-1, window) do |off, len|
+        if block[off,len].adler != orig[c += 1]
+          ret << soff+off
+        end
+      end
+    end
+    ret 
+  end
+
+  # Quick and dirty visualization of a memory region by checksum
+  # changes. 
+  class AdlerChart
+
+    # Create with a WinProcess and region index
+    def initialize(p, i)
+      @p = p
+      @i = i
+      @initstate = map
+    end
+
+    private
+    def map; @p.adler_map(@i, :window => :auto); end
+
+    public
+
+    # Just puts the chart repeatedly, to get:
+    # ........................................................*.*..
+    # ..........................................................*..
+    # ..........................................................*..
+    # Where * represents a chunk of memory that has changed.
+    def to_s
+      s = StringIO.new
+      newstate = map
+      @initstate.each_with_index do |sum, i|
+        if sum != newstate[i]
+          s.write "*"
+          @initstate[i] = newstate[i]
+        else
+          s.write "."
+        end
+      end
+      s.rewind;s.read()
+    end
+  end
+  
+  # See WinProcess::AdlerChart. Get one.
+  def adler_chart(i)
+    AdlerChart.new self, i
+  end
+
+  # Given a memory region, use the adler routines to create a checksum
+  # map, wait a short period of time, and scan for changes, to find 
+  # churning memory. 
+  def changes(i, sleeptime=0.5)
+    q = adler_map(i)
+    sleep(sleeptime)
+    adler_compare(i, q)
+  end
+
+  # Get the memory range, as a Ruby Range, for a region by index
+  def region_range(i, opts={})
+    refresh opts
+    (@memlist[i][0]..(@memlist[i][1]+@memlist[i][0]))
+  end
+
+  # Figure out what region (by region index) has an address
+  def which_region_has?(addr, opts={})
+    refresh opts
+    @memlist.each_with_index do |r, i|
+      return i if (r[0]..r[0]+r[1]).member? addr
+    end
+    return nil
+  end
+
+  # Do something with a thread while its suspended
+  def with_suspended_thread(tid)
+    ret = nil
+    Wrap32::with_suspended_thread(tid) {|x| ret = yield}
+    return ret
+  end
+
+  # For libraries compiled with frame pointers: walk EBP back
+  # until it stops giving intelligible addresses, and, at each
+  # step, grab the saved EIP from just before it.
+  def thread_stack_trace(tid)
+    with_suspended_thread(tid) do
+      ctx = thread_context(tid)
+      if((start = read32(ctx.Ebp)) != 0) 
+        a = start
+        stack = [[start, read32(start+4)]]
+        while((a = read32(a)) and a != 0 and not stack.member?(a))
+          begin
+            stack << [a, read32(a+4)]
+          rescue; break; end
+        end
+        return stack
+      end
+    end
+    []
+  end
+
+  # Human-readable version of thread_stack_trace, with module
+  # offsets. 
+  def dump_stack_trace(tid)
+    thread_stack_trace(tid).each do |frame, code|
+      puts "#{ frame.to_x } @ #{ to_modoff(code) }"
+    end
+  end
+  alias_method :bt, :dump_stack_trace
+
+  def detour(loc, o={})
+    klass = o[:class] || Detour
+    loc = get_proc(loc)
+    r = klass.new(loc, o)
+    r.call if not o[:chicken]
+    return r
+  end
+
+  private
+
+  def refresh(opts={})
+    @memlist = list_memory if not @memlist or opts.delete(:refresh)
+  end
+end