Posts

Showing posts from May 23, 2010

Mikrotik IPSec Performance Study

Image
Sample network is implemented with similar devices and the Internet connection simulated via Lan connectivity. Two end hosts provide the transfer and reviver functionality. Network Setup. The test environment designed as explained in the diagram 1.0. Test Setup Figure 1.0 End Host Configuration- Table 1.0 End Point 1 End point 2 Microsoft windows XP Professional SP3 CPU count 2 1.87 GB RAM 3.00GHz 100Mbps Realtek RTL8139/810x Family Fast Ethernet NIC Microsoft windows XP Professional SP3 CPU count 1 1.47GB RAM 3.06GHz 100Mbps Realtek RTL8139 Family PCI Fast Ethernet NIC Router Configuration - Table 1.1 Router 1 Speed 264 MHz 264 MHz Memory 30MB RAM 30MB RAM HD 128 MB 64 MB RouterOS 3.30 RouterOS 3.20 Workload: Hashing algorithm parameter is fixed to SHA and changed the encrypt...

Automatic FTP upload when content changed in folder - perl script

This was rudimentary script needed to edit more, but found interesting . #! perl -slw use strict; use Win32::ChangeNotify; use threads; #monitoring path. my $path = 'c:\folder'; my $notify = Win32::ChangeNotify->new( $path, 0, 'FILE_NAME' ); my %last; @last{ glob $path . '\*' } = (); my $count = 0; while( 1 ) { next unless $notify->wait( 10_000 ); # Check every 10 seconds $notify->reset; print $/, 'Something changed'; my @files = glob $path . '\*'; if( @files> scalar keys %last ) { my %temp; @temp{ @files } = (); delete @temp{ keys %last }; #print for keys %temp; my $k; my $v; while ( ($k,$v) = each %temp ) { my $thr1 = threads->create(\&load, $k,$count); } } else { print "A non-deletion or creation change occured"; } undef %last; @last{ @files } = (); $count = $count +1; } sub load { my...