Stantheman

Information Warfare Research Project (IWRP)

The Information Warfare Research Project (IWRP) is being run by the Navy (SPAWAR).

Advanced Technologies International (ATI) won the contract to lead the consortium. This process is called "Other Transaction Authority" (OTA), which is why a contractor can lead the process of interacting with other companies.

IWRP website: https://www.theiwrp.org/ ATI website: https://www.ati.org/

The list of companies being subcontracted(?) to was released in the Federal Register:

Stantheman

2 Twelve Solutions, Arlington, VA
Aeronix, Inc., Melbourne, FL
Applied Engineering Concepts, Inc., Eldersburg, MD
Applied Signals Intelligence, Inc., Sterling, VA
Applied Technical Systems, Inc., Silverdale, WA
Aquabotix Technology Corporation, Fall River, MA
Aspen Consulting Group, Inc., Point Pleasant, NJ
AT&T Government Solutions, Inc., Vienna, VA
Atlantic CommTech Corp., Norfolk, VA
Avineon, Inc., McLean, VA

Stantheman

#!/usr/bin/python
import gameClass
import time

def mainMenu():
	clearScreen()
	print "			     Welcome to the Blackjack table! Please select an option below"
	print "			========================================================================="
	print "			==============================(1) New Game =============================="
	print "			==============================(2)   Exit   =============================="

Stantheman

wget -r -nd -np --spider http://URL_GOES_HERE 2>&1 | perl -ne '$size += $1 if $_ =~ m/^Length: (\d+)/; END{print $size . "\n";}'

Stantheman

#!/usr/bin/perl
use strict;
use warnings;
use Data::Printer;
use Fuse;

my $mountpoint='/opt/stan/badidea';
Fuse::main(
	mountpoint=>$mountpoint, 
	mountopts=>"allow_other",

Stantheman

#!/usr/bin/env perl
use strict;
use warnings;
use Benchmark qw( timethese cmpthese ) ;

my $a=10;

*b = *a;
my $ref = \$a;

Stantheman

#!/usr/bin/env perl
use strict;
use warnings;
use Benchmark qw( timethese cmpthese ) ;

my $r = timethese( -10, {
  val => sub {
    my @arr;
    push @arr, $_ for (1..10000);
  },

Stantheman

#!/bin/bash
# Sean Connery voice maker

# shhhay the word
function connify {
	word=$1
	word=$(sed -E 's/(s|ch)/shhhh/g' <<< $word)
	echo -n "$word "
}

Stantheman

Benchmark: running sed, substr_if for at least 20 CPU seconds...
       sed: 21 wallclock secs (21.10 usr +  0.00 sys = 21.10 CPU) @ 1937388.20/s (n=40878891)
 substr_if: 21 wallclock secs (21.22 usr +  0.03 sys = 21.25 CPU) @ 2412531.58/s (n=51266296)
               Rate       sed substr_if
sed       1937388/s        --      -20%
substr_if 2412532/s       25%        --

Stantheman

# running 5.10.0, but according to http://perldoc.perl.org/perl5160delta.html#Performance-Enhancements, these benchmarks might be out of sync:
# Assignment to substr in void context is now more than twice its previous speed. Instead of creating and returning a special lvalue scalar that is then assigned to, substr modifies the original string itself.
# substr no longer calculates a value to return when called in void context.

Benchmark: running l_substr, sed, substring for at least 10 CPU seconds...
  l_substr: 11 wallclock secs (10.30 usr +  0.01 sys = 10.31 CPU) @ 1455470.71/s (n=15005903)
       sed: 10 wallclock secs (10.35 usr +  0.04 sys = 10.39 CPU) @ 433279.21/s (n=4501771)
 substring: 11 wallclock secs (10.44 usr +  0.01 sys = 10.45 CPU) @ 2926646.89/s (n=30583460)
               Rate       sed  l_substr substring
sed        433279/s        --      -70%      -85%