unmangler 0.0.1

data/lib/unmangler/string_ptr.rb

@@ -0,0 +1,112 @@
+#!/usr/bin/env ruby
+
+class StringPtr
+  attr_accessor :string, :pos
+
+  def initialize s=nil, pos=0
+    case s
+    when String
+      @string = s
+      @pos = pos
+    when StringPtr
+      @string = s.string
+      @pos = s.pos + pos
+    when NilClass
+      @string = nil
+      @pos = pos
+    else
+      raise "invalid s: #{s.inspect}"
+    end
+  end
+
+  def [] pos, len=nil
+    if t = @string[@pos..-1]
+      if len
+        t[pos, len]
+      else
+        t[pos]
+      end
+    else
+      nil
+    end
+  end
+
+  def []= pos, x, y=nil
+    if y
+      # s[10, 3] = 'abc'
+      @string[@pos+pos, x] = y
+    elsif pos.is_a?(Range)
+      range = pos
+      if range.end > 0
+        # s[10..12] = 'abc'
+        @string[Range.new(range.begin+@pos, range.end+@pos)] = x
+      else
+        if range.begin >= 0
+          # s[10..-1] = 'abc'
+          @string[Range.new(range.begin+@pos, range.end)] = x
+        else
+          # s[-3..-1] = 'abc'
+          @string[range] = x
+        end
+      end
+    else
+      # s[10] = 'a'
+      @string[@pos+pos] = x
+    end
+  end
+
+  def << s
+    @string[@pos, s.size] = s
+    @pos += s.size
+  end
+
+  def index needle
+    @string[@pos..-1].index(needle)
+  end
+
+  def =~ re
+    @string[@pos..-1] =~ re
+  end
+
+  def inc!; @pos+=1; end
+  def dec!; @pos-=1; end
+
+  def trim!
+    return unless @string
+    if idx = @string.index("\x00")
+      @string[idx..-1] = ''
+      @pos = @string.size if @pos > @string.size
+    end
+  end
+
+  def + n
+    self.class.new @string, @pos+n
+  end
+
+  def - x
+    case x
+    when Numeric
+      # shift pointer
+      self.class.new @string, @pos-x
+    when StringPtr
+      # return diff btw 2 ptrs
+      raise "subtracting different pointers" if self.string != x.string
+      @pos - x.pos
+    end
+  end
+end
+
+if $0 == __FILE__
+  ptr = StringPtr.new("foo")
+  p ptr[0]
+  p ptr[1]
+  p ptr
+  ptr += 1
+  p ptr
+  p ptr[0]
+
+  p2 = ptr+4
+  p ptr-p2
+  p p2-ptr
+  p ptr-1
+end

data/lib/unmangler/version.rb

@@ -0,0 +1,3 @@
+module Unmangler
+  VERSION = "0.0.1"
+end

data/spec/borland_spec.rb

@@ -0,0 +1,73 @@
+require 'spec_helper'
+
+describe Unmangler::Borland do
+
+  it "keeps original name if not mangled" do
+    s = "foo::bar(@)"
+    Unmangler::Borland.unmangle(s).should == s
+  end
+
+  describe "#unmangle" do
+    it "raises error on bad input" do
+      lambda{
+        Unmangler::Borland.unmangle("@TTabPage@$bctr")
+      }.should raise_error
+    end
+  end
+
+  describe "#safe_unmangle" do
+    it "raises no error and returns original on bad input" do
+      s = "@TTabPage@$bctr"
+      Unmangler::Borland.safe_unmangle(s).should == s
+    end
+  end
+
+  def self.check mangled, unmangled
+    it "unmangles #{mangled}" do
+      Unmangler::Borland.unmangle(mangled).should == unmangled
+    end
+
+    it "unmangles #{mangled} w/o args" do
+      x = unmangled.split('(').first.strip.sub(/^__fastcall /,'')
+      Unmangler::Borland.unmangle(mangled, :args => false).should == x
+    end
+  end
+
+  check "@afunc$qxzcupi",   "afunc(const signed char, int *)"
+  check "@foo$qpqfi$d",     "foo(double (*)(float, int))"
+  check "@myclass@func$qil","myclass::func(int, long)"
+
+  check "@Sysinit@@InitExe$qqrpv",
+    "__fastcall Sysinit::__linkproc__ InitExe(void *)"
+
+  check "@Forms@TApplication@SetTitle$qqrx17System@AnsiString",
+    "__fastcall Forms::TApplication::SetTitle(const System::AnsiString)"
+
+  check "@Forms@TApplication@CreateForm$qqrp17System@TMetaClasspv",
+    "__fastcall Forms::TApplication::CreateForm(System::TMetaClass *, void *)"
+
+  check "@System@@LStrCatN$qqrv", "__fastcall System::__linkproc__ LStrCatN()"
+
+  check "@System@DynArraySetLength$qqrrpvpvipi",
+    "__fastcall System::DynArraySetLength(void *&, void *, int, int *)"
+
+  check "@System@Variant@PutElement$qqrrx14System@Variantxixi",
+    "__fastcall System::Variant::PutElement(System::Variant&, const int, const int)"
+
+  check "@Windows@HwndMSWheel$qqrruit1t1rit4",
+    "__fastcall Windows::HwndMSWheel(unsigned int&, unsigned int&, unsigned int&, int&, int&)"
+
+  # IDA uses '__int64' instead of 'long long'
+  check "@Sysutils@TryStrToInt64$qqrx17System@AnsiStringrj",
+    "__fastcall Sysutils::TryStrToInt64(const System::AnsiString, long long&)"
+
+  check "@Sysutils@Supports$qqrpx14System@TObjectrx5_GUIDpv",
+    "__fastcall Sysutils::Supports(System::TObject *, _GUID&, void *)"
+
+  check "@std@%vector$51boost@archive@detail@basic_iarchive_impl@cobject_id69std@%allocator$51boost@archive@detail@basic_iarchive_impl@cobject_id%%@$bsubs$qui",
+    "std::vector<boost::archive::detail::basic_iarchive_impl::cobject_id, std::allocator<boost::archive::detail::basic_iarchive_impl::cobject_id> >::operator [](unsigned int)"
+
+  check "@Dbcommon@GetTableNameFromSQLEx$qqrx17System@WideString25Dbcommon@IDENTIFIEROption",
+    "__fastcall Dbcommon::GetTableNameFromSQLEx(const System::WideString, Dbcommon::IDENTIFIEROption)"
+
+end

data/spec/spec_helper.rb

@@ -0,0 +1,14 @@
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+require 'unmangler'
+
+RSpec.configure do |config|
+  config.treat_symbols_as_metadata_keys_with_true_values = true
+  config.run_all_when_everything_filtered = true
+  #config.filter_run :focus
+
+  # Run specs in random order to surface order dependencies. If you find an
+  # order dependency and want to debug it, you can fix the order by providing
+  # the seed, which is printed after each run.
+  #     --seed 1234
+  #config.order = 'random'
+end

data/unmangler.gemspec

@@ -0,0 +1,19 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'unmangler/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = "unmangler"
+  gem.version       = Unmangler::VERSION
+  gem.authors       = ["Andrey \"Zed\" Zaikin"]
+  gem.email         = ["zed.0xff@gmail.com"]
+  gem.description   = %q{Unmangles mangled C++/Delphi names"}
+  gem.summary       = gem.description + %q{, i.e. '@myclass@func$qil' => 'myclass::func(int, long)'}
+  gem.homepage      = "http://zed.0xff.me"
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.require_paths = ["lib"]
+end

metadata

@@ -0,0 +1,60 @@
+--- !ruby/object:Gem::Specification
+name: unmangler
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Andrey "Zed" Zaikin
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-05-03 00:00:00.000000000 Z
+dependencies: []
+description: Unmangles mangled C++/Delphi names"
+email:
+- zed.0xff@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- Gemfile
+- LICENSE.txt
+- README.md
+- README.md.tpl
+- Rakefile
+- lib/unmangler.rb
+- lib/unmangler/borland.rb
+- lib/unmangler/string_ptr.rb
+- lib/unmangler/version.rb
+- spec/borland_spec.rb
+- spec/spec_helper.rb
+- unmangler.gemspec
+homepage: http://zed.0xff.me
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.3
+signing_key: 
+specification_version: 4
+summary: Unmangles mangled C++/Delphi names", i.e. '@myclass@func$qil' => 'myclass::func(int,
+  long)'
+test_files:
+- spec/borland_spec.rb
+- spec/spec_helper.rb