From db1894a5c015004e8c10c65e868a0259c3c7aac5 Mon Sep 17 00:00:00 2001
From: blackhedd <blackhedd@005445c4-6811-0410-8301-cae4f0071d1d>
Date: Fri, 8 Dec 2006 16:03:24 +0000
Subject: [PATCH] Added Array#to_ber_oid.

---
 lib/net/ber.rb | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/net/ber.rb b/lib/net/ber.rb
index 53d7920..fbf6dc9 100644
--- a/lib/net/ber.rb
+++ b/lib/net/ber.rb
@@ -472,6 +472,16 @@ class Array
     [code].pack('C') + s.length.to_ber_length_encoding + s
   end
 
+  def to_ber_oid
+    ary = self.dup
+    first = ary.shift
+    raise Net::BER::BerError.new( "invalid OID" ) unless [0,1,2].include?(first)
+    first = first * 40 + ary.shift
+    ary.unshift first
+    oid = ary.pack("w*")
+    [6, oid.length].pack("CC") + oid
+  end
+
 end # class Array