Net-VNC

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    create_license     => 1,
    create_readme      => 1,
    license            => 'perl',
    'meta-spec' => {
        version => '2',
        url     => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
    },
    module_name => 'Net::VNC',
    requires    => {
        'Class::Accessor::Fast' => '0',
        'Crypt::DES'            => '0',
        'Image::Imlib2'         => '0',
        'Test::More'            => '0',
    },
    script_files => ['bin/vnccapture'],
    sign         => 1,
);
$build->create_build_script;

META.json  view on Meta::CPAN

   "name" : "Net-VNC",
   "prereqs" : {
      "configure" : {
         "requires" : {
            "Module::Build" : "0.38"
         }
      },
      "runtime" : {
         "requires" : {
            "Class::Accessor::Fast" : 0,
            "Crypt::DES" : 0,
            "Image::Imlib2" : 0,
            "Test::More" : 0
         }
      }
   },
   "provides" : {
      "Net::VNC" : {
         "file" : "lib/Net/VNC.pm",
         "version" : "0.40"
      }

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Net-VNC
provides:
  Net::VNC:
    file: lib/Net/VNC.pm
    version: 0.40
requires:
  Class::Accessor::Fast: 0
  Crypt::DES: 0
  Image::Imlib2: 0
  Test::More: 0
resources:
  license: http://dev.perl.org/licenses/
version: 0.40

lib/Net/VNC.pm  view on Meta::CPAN

package Net::VNC;
use strict;
use warnings;
use base qw(Class::Accessor::Fast);
use Crypt::DES;
use Image::Imlib2;
use IO::Socket::INET;
use bytes;
__PACKAGE__->mk_accessors(
    qw(hostname port username password socket name width height depth save_bandwidth
        hide_cursor server_endian
        _pixinfo _colourmap _framebuffer _cursordata _rfb_version
        _bpp _true_colour _big_endian _image_format
        )
);

lib/Net/VNC.pm  view on Meta::CPAN

        my $realkey;

        #    warn unpack('b*', $key);
        foreach my $byte ( split //, $key ) {
            $realkey .= pack( 'b8', scalar reverse unpack( 'b8', $byte ) );
        }

        #    warn unpack('b*', $realkey);

        my $cipher = Crypt::DES->new($realkey);
        my $response;
        my $i = 0;
        while ( $i < 16 ) {
            my $word = substr( $challenge, $i, 8 );

            #        warn "$i: " . length($word);
            $response .= $cipher->encrypt($word);
            $i += 8;
        }