Merge branch 'dmaloney-r7-tests/rex/post/meterpreter_packet' into rapid7
James Lee
commit
d36f2df5b4
|
|
@ -0,0 +1,479 @@
|
|||
require 'rex/post/meterpreter/packet'
|
||||
|
||||
describe Rex::Post::Meterpreter::Tlv do
|
||||
subject{
|
||||
Rex::Post::Meterpreter::Tlv.new(
|
||||
Rex::Post::Meterpreter::TLV_TYPE_STRING,
|
||||
"test"
|
||||
)
|
||||
}
|
||||
|
||||
it "should respond to type" do
|
||||
subject.should respond_to :type
|
||||
end
|
||||
|
||||
it "should respond to value" do
|
||||
subject.should respond_to :value
|
||||
end
|
||||
|
||||
it "should respond to compress" do
|
||||
subject.should respond_to :compress
|
||||
end
|
||||
|
||||
it "should respond to inspect" do
|
||||
subject.should respond_to :inspect
|
||||
end
|
||||
|
||||
it "should respond to meta_type?" do
|
||||
subject.should respond_to :meta_type?
|
||||
end
|
||||
|
||||
it "should respond to type?" do
|
||||
subject.should respond_to :type?
|
||||
end
|
||||
|
||||
it "should respond to value?" do
|
||||
subject.should respond_to :value?
|
||||
end
|
||||
|
||||
it "should respond to to_r" do
|
||||
subject.should respond_to :to_r
|
||||
end
|
||||
|
||||
it "should respond to from_r" do
|
||||
subject.should respond_to :from_r
|
||||
end
|
||||
|
||||
context "A String TLV" do
|
||||
it "should return the correct TLV type" do
|
||||
subject.type.should == Rex::Post::Meterpreter::TLV_TYPE_STRING
|
||||
end
|
||||
|
||||
it "should return the correct value" do
|
||||
subject.value.should == "test"
|
||||
end
|
||||
|
||||
context "#type?" do
|
||||
it "should return true for STRING" do
|
||||
subject.type?(Rex::Post::Meterpreter::TLV_TYPE_STRING).should == true
|
||||
end
|
||||
|
||||
it "should return false for UINT" do
|
||||
subject.type?(Rex::Post::Meterpreter::TLV_TYPE_UINT).should == false
|
||||
end
|
||||
end
|
||||
|
||||
context "#value?" do
|
||||
it "should return true for the correct value" do
|
||||
subject.value?("test").should == true
|
||||
end
|
||||
|
||||
it "should return false for an incorrect value" do
|
||||
subject.value?("fake").should == false
|
||||
end
|
||||
end
|
||||
|
||||
context "#inspect" do
|
||||
it "should return a string representation of the TLV" do
|
||||
tlv_to_s = "#<Rex::Post::Meterpreter::Tlv type=STRING meta=STRING value=\"test\">"
|
||||
subject.inspect.should == tlv_to_s
|
||||
end
|
||||
end
|
||||
|
||||
context "#to_r" do
|
||||
it "should return the raw bytes of the TLV to send over the wire" do
|
||||
tlv_bytes = "\x00\x00\x00\r\x00\x01\x00\ntest\x00"
|
||||
subject.to_r.should == tlv_bytes
|
||||
end
|
||||
end
|
||||
|
||||
context "#from_r" do
|
||||
it "should adjust the tlv attributes from the given raw bytes" do
|
||||
subject.from_r("\x00\x00\x00\r\x00\x01\x00\ntes2\x00")
|
||||
subject.value.should == "tes2"
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
context "A Method TLV" do
|
||||
subject{
|
||||
Rex::Post::Meterpreter::Tlv.new(
|
||||
Rex::Post::Meterpreter::TLV_TYPE_METHOD,
|
||||
"test"
|
||||
)
|
||||
}
|
||||
it "should have a meta type of String" do
|
||||
subject.meta_type?(Rex::Post::Meterpreter::TLV_META_TYPE_STRING).should == true
|
||||
end
|
||||
|
||||
it "should show the correct type and meta type in inspect" do
|
||||
tlv_to_s = "#<Rex::Post::Meterpreter::Tlv type=METHOD meta=STRING value=\"test\">"
|
||||
subject.inspect.should == tlv_to_s
|
||||
end
|
||||
end
|
||||
|
||||
context "A String TLV with a number value" do
|
||||
subject{Rex::Post::Meterpreter::Tlv.new(Rex::Post::Meterpreter::TLV_TYPE_STRING,5)}
|
||||
it "should return the string version of the number" do
|
||||
subject.value.should == "5"
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
describe Rex::Post::Meterpreter::GroupTlv do
|
||||
subject{
|
||||
Rex::Post::Meterpreter::GroupTlv.new(
|
||||
Rex::Post::Meterpreter::TLV_TYPE_CHANNEL_DATA_GROUP
|
||||
)
|
||||
}
|
||||
|
||||
it "should respond to tlvs" do
|
||||
subject.should respond_to :tlvs
|
||||
end
|
||||
|
||||
it "should respond to each" do
|
||||
subject.should respond_to :each
|
||||
end
|
||||
|
||||
it "should respond to each_tlv" do
|
||||
subject.should respond_to :each_tlv
|
||||
end
|
||||
|
||||
it "should respond to each_with_index" do
|
||||
subject.should respond_to :each_with_index
|
||||
end
|
||||
|
||||
it "should respond to each_tlv_with_index" do
|
||||
subject.should respond_to :each_tlv_with_index
|
||||
end
|
||||
|
||||
it "should respond to get_tlvs" do
|
||||
subject.should respond_to :get_tlvs
|
||||
end
|
||||
|
||||
it "should respond to add_tlv" do
|
||||
subject.should respond_to :add_tlv
|
||||
end
|
||||
|
||||
it "should respond to add_tlvs" do
|
||||
subject.should respond_to :add_tlvs
|
||||
end
|
||||
|
||||
it "should respond to get_tlv" do
|
||||
subject.should respond_to :get_tlv
|
||||
end
|
||||
|
||||
it "should respond to get_tlv_value" do
|
||||
subject.should respond_to :get_tlv_value
|
||||
end
|
||||
|
||||
it "should respond to get_tlv_values" do
|
||||
subject.should respond_to :get_tlv_values
|
||||
end
|
||||
|
||||
it "should respond to has_tlv?" do
|
||||
subject.should respond_to :has_tlv?
|
||||
end
|
||||
|
||||
it "should respond to reset" do
|
||||
subject.should respond_to :reset
|
||||
end
|
||||
|
||||
it "should respond to to_r" do
|
||||
subject.should respond_to :to_r
|
||||
end
|
||||
|
||||
it "should respond to from_r" do
|
||||
subject.should respond_to :from_r
|
||||
end
|
||||
|
||||
it "should return an empty array for tlvs by default" do
|
||||
subject.tlvs.should == []
|
||||
end
|
||||
|
||||
context "#add_tlv" do
|
||||
it "should add to the tlvs array when given basic tlv paramaters" do
|
||||
subject.add_tlv(Rex::Post::Meterpreter::TLV_TYPE_STRING,"test")
|
||||
subject.tlvs.first.type.should == Rex::Post::Meterpreter::TLV_TYPE_STRING
|
||||
subject.tlvs.first.value.should == "test"
|
||||
end
|
||||
|
||||
it "should replace any existing TLV of the same type when the replace flag is set to true" do
|
||||
subject.add_tlv(Rex::Post::Meterpreter::TLV_TYPE_STRING,"test")
|
||||
subject.add_tlv(Rex::Post::Meterpreter::TLV_TYPE_STRING,"test2", true)
|
||||
subject.tlvs.count.should == 1
|
||||
subject.tlvs.first.value.should == "test2"
|
||||
end
|
||||
|
||||
it "should add both if replace is set to false" do
|
||||
subject.add_tlv(Rex::Post::Meterpreter::TLV_TYPE_STRING,"test")
|
||||
subject.add_tlv(Rex::Post::Meterpreter::TLV_TYPE_STRING,"test2", false)
|
||||
subject.tlvs.first.value.should == "test"
|
||||
subject.tlvs.last.value.should == "test2"
|
||||
end
|
||||
end
|
||||
|
||||
context "#add_tlvs" do
|
||||
it "should be able to add an array of type-value hashes" do
|
||||
tlv_array = [
|
||||
{'type' => Rex::Post::Meterpreter::TLV_TYPE_STRING, 'value' => "test"},
|
||||
{'type' => Rex::Post::Meterpreter::TLV_TYPE_STRING, 'value' => "test2"}
|
||||
]
|
||||
subject.add_tlvs(tlv_array)
|
||||
subject.tlvs.count.should == 2
|
||||
subject.tlvs.first.value.should == "test"
|
||||
subject.tlvs.last.value.should == "test2"
|
||||
end
|
||||
|
||||
it "should raise an error when given something other than nil or an array" do
|
||||
pending "RM #7598"
|
||||
subject.add_tlvs("bad value").should raise_error
|
||||
end
|
||||
|
||||
it "should raise an error when given an array of objects other than hashes" do
|
||||
pending "RM #7598"
|
||||
subject.add_tlvs([1,2,3]).should raise_error
|
||||
end
|
||||
|
||||
it "should raise an error when any of the hashes are missing a key" do
|
||||
pending "RM #7598"
|
||||
tlv_array = [
|
||||
{:type => Rex::Post::Meterpreter::TLV_TYPE_STRING, :value => "test"},
|
||||
{:type => Rex::Post::Meterpreter::TLV_TYPE_STRING}
|
||||
]
|
||||
subject.add_tlvs(tlv_array).should raise_error
|
||||
end
|
||||
end
|
||||
|
||||
context "with TLVs added" do
|
||||
before(:each) do
|
||||
subject.reset
|
||||
tlv_array = [
|
||||
{'type' => Rex::Post::Meterpreter::TLV_TYPE_STRING, 'value' => "test"},
|
||||
{'type' => Rex::Post::Meterpreter::TLV_TYPE_STRING, 'value' => "test2"},
|
||||
{'type' => Rex::Post::Meterpreter::TLV_TYPE_UINT, 'value' => 5}
|
||||
]
|
||||
subject.add_tlvs(tlv_array)
|
||||
@raw_group = "\x00\x00\x00/@\x00\x005\x00\x00\x00\r\x00\x01\x00\ntest\x00\x00\x00\x00\x0E\x00\x01\x00\ntest2\x00\x00\x00\x00\f\x00\x02\x00\v\x00\x00\x00\x05"
|
||||
end
|
||||
|
||||
it "should empty the array of TLV when reset is called" do
|
||||
subject.reset
|
||||
subject.tlvs.should == []
|
||||
end
|
||||
|
||||
it "should convert to raw bytes when to_r is called" do
|
||||
subject.to_r.should == @raw_group
|
||||
end
|
||||
|
||||
|
||||
context "#from_r" do
|
||||
it "should build the TLV group when given the propper raw bytes" do
|
||||
subject.reset
|
||||
subject.from_r( @raw_group)
|
||||
subject.tlvs[0].inspect.should == "#<Rex::Post::Meterpreter::Tlv type=STRING meta=STRING value=\"test\">"
|
||||
subject.tlvs[1].inspect.should == "#<Rex::Post::Meterpreter::Tlv type=STRING meta=STRING value=\"test2\">"
|
||||
subject.tlvs[2].inspect.should == "#<Rex::Post::Meterpreter::Tlv type=UINT meta=INT value=5>"
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
context "#get_tlvs" do
|
||||
it "should return all TLVs of the supplied type" do
|
||||
tlvs = subject.get_tlvs(Rex::Post::Meterpreter::TLV_TYPE_STRING)
|
||||
tlvs.count.should == 2
|
||||
tlvs.first.value.should == "test"
|
||||
tlvs.last.value.should == "test2"
|
||||
end
|
||||
|
||||
it "should return all TLVs when supplied the ANY TLV type" do
|
||||
tlvs = subject.get_tlvs(Rex::Post::Meterpreter::TLV_TYPE_ANY)
|
||||
tlvs.count.should == subject.tlvs.count
|
||||
end
|
||||
|
||||
it "should return an empty array for a TLV type that isn't present" do
|
||||
subject.get_tlvs(Rex::Post::Meterpreter::TLV_TYPE_BOOL).should == []
|
||||
end
|
||||
|
||||
it "should return an empty array for a nonexistant TLV type" do
|
||||
subject.get_tlvs(55555555).should == []
|
||||
end
|
||||
end
|
||||
|
||||
context "#get_tlv" do
|
||||
it "should return the first TLV of the specified type by default" do
|
||||
subject.get_tlv(Rex::Post::Meterpreter::TLV_TYPE_STRING).should == subject.tlvs.first
|
||||
subject.get_tlv(Rex::Post::Meterpreter::TLV_TYPE_UINT).should == subject.tlvs.last
|
||||
end
|
||||
|
||||
it "should return the correct TLV of the specified type for the given index" do
|
||||
subject.get_tlv(Rex::Post::Meterpreter::TLV_TYPE_STRING,1).should == subject.tlvs[1]
|
||||
end
|
||||
|
||||
it "should return nil if given an out of bounds index" do
|
||||
subject.get_tlv(Rex::Post::Meterpreter::TLV_TYPE_STRING,5).should == nil
|
||||
end
|
||||
|
||||
it "should return nil if given a non-present TLV type" do
|
||||
subject.get_tlv(Rex::Post::Meterpreter::TLV_TYPE_BOOL).should == nil
|
||||
end
|
||||
end
|
||||
|
||||
context "#get_tlv_value" do
|
||||
it "should return the value of the first TLV with the given type" do
|
||||
subject.get_tlv_value(Rex::Post::Meterpreter::TLV_TYPE_STRING).should == subject.tlvs.first.value
|
||||
end
|
||||
|
||||
it "should return the correct TLV value of the specified type for the given index" do
|
||||
subject.get_tlv_value(Rex::Post::Meterpreter::TLV_TYPE_STRING,1).should == subject.tlvs[1].value
|
||||
end
|
||||
|
||||
it "should return nil if given an out of bounds index" do
|
||||
subject.get_tlv_value(Rex::Post::Meterpreter::TLV_TYPE_STRING,5).should == nil
|
||||
end
|
||||
|
||||
it "should return nil if given a non-present TLV type" do
|
||||
subject.get_tlv_value(Rex::Post::Meterpreter::TLV_TYPE_BOOL).should == nil
|
||||
end
|
||||
end
|
||||
|
||||
context "#get_tlv_values" do
|
||||
it "should return an array of values for the designated TLV types" do
|
||||
subject.get_tlv_values(Rex::Post::Meterpreter::TLV_TYPE_STRING).should == ["test", "test2"]
|
||||
end
|
||||
|
||||
it "should return an empty array for a non-present TLV type" do
|
||||
subject.get_tlv_values(Rex::Post::Meterpreter::TLV_TYPE_BOOL).should == []
|
||||
end
|
||||
end
|
||||
|
||||
context "#has_tlv?" do
|
||||
it "should return true if the TLV Type is present" do
|
||||
subject.has_tlv?(Rex::Post::Meterpreter::TLV_TYPE_STRING).should == true
|
||||
end
|
||||
|
||||
it "should return false if the TLV type is not present" do
|
||||
subject.has_tlv?(Rex::Post::Meterpreter::TLV_TYPE_BOOL).should == false
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
describe Rex::Post::Meterpreter::Packet do
|
||||
context "Request Packet" do
|
||||
subject{
|
||||
Rex::Post::Meterpreter::Packet.new(
|
||||
Rex::Post::Meterpreter::PACKET_TYPE_REQUEST,
|
||||
"test_method"
|
||||
)
|
||||
}
|
||||
|
||||
it "should respond to created_at" do
|
||||
subject.should respond_to :created_at
|
||||
end
|
||||
|
||||
it "should respond to response?" do
|
||||
subject.should respond_to :response?
|
||||
end
|
||||
|
||||
it "should respond to method?" do
|
||||
subject.should respond_to :method?
|
||||
end
|
||||
|
||||
it "should respond to method" do
|
||||
subject.should respond_to :method
|
||||
end
|
||||
|
||||
it "should respond to result?" do
|
||||
subject.should respond_to :result?
|
||||
end
|
||||
|
||||
it "should respond to result=" do
|
||||
subject.should respond_to :result=
|
||||
end
|
||||
|
||||
it "should respond to result" do
|
||||
subject.should respond_to :result
|
||||
end
|
||||
|
||||
it "should respond to rid" do
|
||||
subject.should respond_to :rid
|
||||
end
|
||||
|
||||
it "should return false for response?" do
|
||||
subject.response?.should == false
|
||||
end
|
||||
|
||||
it "should evaluate the method correctly" do
|
||||
subject.method?("test_method").should == true
|
||||
subject.method?("blah").should == false
|
||||
end
|
||||
|
||||
it "should accept new methods" do
|
||||
subject.method= "test_method2"
|
||||
subject.method?("test_method2").should == true
|
||||
end
|
||||
|
||||
it "should return the correct method" do
|
||||
subject.method.should == "test_method"
|
||||
end
|
||||
|
||||
it "should not have a result" do
|
||||
subject.result.should == nil
|
||||
end
|
||||
|
||||
it "should return a valid request id" do
|
||||
subject.rid.should =~ /\A\d{32}\Z/
|
||||
end
|
||||
|
||||
it "should be created when Packet.create_request is called" do
|
||||
req = Rex::Post::Meterpreter::Packet.create_request("test_method")
|
||||
req.class.should == Rex::Post::Meterpreter::Packet
|
||||
req.response?.should == false
|
||||
req.method?("test_method").should == true
|
||||
end
|
||||
|
||||
it "should return the correct raw byte form of the packet" do
|
||||
rid = subject.rid
|
||||
meth = subject.method
|
||||
raw = subject.to_r
|
||||
subject.from_r(raw)
|
||||
subject.rid.should == rid
|
||||
subject.method.should == meth
|
||||
end
|
||||
end
|
||||
|
||||
context "a response packet" do
|
||||
subject{
|
||||
Rex::Post::Meterpreter::Packet.new(
|
||||
Rex::Post::Meterpreter::PACKET_TYPE_RESPONSE,
|
||||
"test_method"
|
||||
)
|
||||
}
|
||||
before(:all) do
|
||||
subject.add_tlv(Rex::Post::Meterpreter::TLV_TYPE_RESULT, "a-ok")
|
||||
end
|
||||
|
||||
it "should return the correct result" do
|
||||
subject.result.should == "a-ok"
|
||||
end
|
||||
|
||||
it "should evaluate result correctly" do
|
||||
subject.result?("a-ok").should == true
|
||||
subject.result?("5by5").should == false
|
||||
end
|
||||
|
||||
it "should accept a new result" do
|
||||
subject.result= "test2"
|
||||
subject.result.should == "test2"
|
||||
end
|
||||
|
||||
it "should be created when Packet.create_response is called" do
|
||||
resp = Rex::Post::Meterpreter::Packet.create_response
|
||||
resp.class.should == Rex::Post::Meterpreter::Packet
|
||||
resp.response?.should == true
|
||||
end
|
||||
|
||||
end
|
||||
end
|
||||
Loading…
Reference in New Issue