Added the perl/base64_encoder (closes #176).

README.md

@@ -207,6 +207,7 @@ $ ronin-payloads encoders
   js/base64_encode
   js/hex_encode
   js/node/base64_encode
+  perl/base64_encode
   php/base64_encode
   php/hex_encode
   powershell/hex_encode

lib/ronin/payloads/encoders/builtin/perl/base64_encode.rb

@@ -0,0 +1,71 @@
+# frozen_string_literal: true
+#
+# ronin-payloads - A Ruby micro-framework for writing and running exploit
+# payloads.
+#
+# Copyright (c) 2007-2024 Hal Brodigan (postmodern.mod3 at gmail.com)
+#
+# ronin-payloads is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# ronin-payloads is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with ronin-payloads.  If not, see <https://www.gnu.org/licenses/>.
+#
+
+require 'ronin/payloads/encoders/perl_encoder'
+require 'ronin/support/encoding/base64'
+
+module Ronin
+  module Payloads
+    module Encoders
+      module Perl
+        #
+        # A Perl encoder that encodes the given Perl code as a Base64 string,
+        # then decodes it using `Mime::Base64.code_base64()`, and then
+        # evaluates the decoded Perl using `eval()`.
+        #
+        #    print("PWNED\\n") -> use MIME::Base64; eval(decode_base64("..."))
+        #
+        # @since 0.3.0
+        #
+        class Base64Encode < PerlEncoder
+
+          register 'perl/base64_encode'
+
+          summary 'Encodes Perl as base64'
+
+          description <<~DESC
+            Encodes the given Perl code as a Base64 string, then decodes it
+            using `Mime::Base64.code_base64()`, and then evaluates the decoded
+            Perl using `eval()`.
+
+              print("PWNED\\n") -> use MIME::Base64; eval(decode_base64("..."))
+
+          DESC
+
+          #
+          # Encodes Perl code as Base64.
+          #
+          # @param [String] perl
+          #   The Perl code to encode.
+          #
+          # @return [String]
+          #
+          def encode(perl)
+            base64 = Support::Encoding::Base64.encode(perl, mode: :strict)
+
+            %{use MIME::Base64; eval(decode_base64("#{base64}"))}
+          end
+
+        end
+      end
+    end
+  end
+end

spec/encoders/builtin/perl/base64_encode_spec.rb

@@ -0,0 +1,17 @@
+require 'spec_helper'
+require 'ronin/payloads/encoders/builtin/perl/base64_encode'
+
+describe Ronin::Payloads::Encoders::Perl::Base64Encode do
+  it "must inherit from Ronin::Payloads::Encoders::PerlEncoder" do
+    expect(described_class).to be < Ronin::Payloads::Encoders::PerlEncoder
+  end
+
+  describe "#encode" do
+    let(:perl)    { 'print "PWNED\n"' }
+    let(:encoded) { %{use MIME::Base64; eval(decode_base64("cHJpbnQgIlBXTkVEXG4i"))} }
+
+    it "must encode the given Perl code as a Base64 string and embed it into the 'use MIME::Base64; eval(decode_base64(\"...\"))' string" do
+      expect(subject.encode(perl)).to eq(encoded)
+    end
+  end
+end