hash-ber-tlv 1.0.1

data/lib/hash-ber-tlv.rb

@@ -0,0 +1,66 @@
+class Hash
+	def from_ber_tlv(data)
+		i = 0
+		tag = data[i]
+		if tag.unpack('C').pop & 0x1F == 0x1F # matches 00011111 mask? 
+			begin
+				i += 1
+				tag[i] = data[i]
+			end while tag[i].unpack('C').pop & 0x80 == 0x80
+		end
+
+		length = data[tag.length].unpack('C').pop
+
+		tag_i = tag.unpack('H*').pop.to_i(16)
+
+		if length < 0x80
+			self[tag_i] = data[tag.length + 1, length]
+			remainder = data[tag.length + 1 + length..-1]
+		else
+			num_octets = length & 0x7f
+			octets = data[tag.length + 1, num_octets].unpack('C*')
+			length = 0
+			octets.each_with_index do |octet, idx|
+				length += octet * 255 ** (num_octets - idx - 1)
+			end
+
+			self[tag_i] = data[tag.length + 1 + num_octets, length]
+			remainder = data[tag.length + 1 + num_octets + length..-1]
+		end
+
+		if remainder.length > 2
+			self.from_ber_tlv(remainder)
+		end
+
+		self
+	end
+
+	def to_ber_tlv 
+		result = ''
+		self.each do |tag, value|
+			result << int_to_binstr(tag) # adding tag to result string
+			if value.length < 0x80
+				result << int_to_binstr(value.length)
+			else
+				#calculate length of length :)
+				len_len = int_to_binstr(value.length)
+				result << int_to_binstr(0x80 | len_len.length)
+				result << len_len
+			end
+
+			result << value
+		end
+
+		result
+	end
+
+	# converts integer to binary string representation
+	def int_to_binstr(i)
+		binstr = i.to_s(16)
+		if binstr.length % 2 == 1
+			binstr = '0' << binstr
+		end
+
+		[binstr].pack('H*')
+	end
+end

metadata

@@ -0,0 +1,64 @@
+--- !ruby/object:Gem::Specification 
+name: hash-ber-tlv
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 1
+  - 0
+  - 1
+  version: 1.0.1
+platform: ruby
+authors: 
+- Maxim Chechel
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-10-22 00:00:00 +04:00
+default_executable: 
+dependencies: []
+
+description: Extend Hash class with ability to parse and convert BER TLV format
+email: maximchick@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/hash-ber-tlv.rb
+has_rdoc: true
+homepage: http://rubygems.org/gems/hash-ber-tlv
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: ""
+test_files: []
+