Jim's Random Code

Tcl.pm Perl <> Tcl Interaction.

2010-07-30T12:19:00.000-07:00

I don't really like to work in Tcl, but a lot of the devices I use for work have Tcl API's. Here's some demo's of how I use perl to interact with the Tcl Api's of these devices, using the Tcl.pm module from cpan:

http://search.cpan.org/~vkon/Tcl-0.98/Tcl.pm

Using a perl subroutine from within tcl code:

########################################################
test.pl:
########################################################


#!/usr/bin/perl

use Tcl;

sub log_out {
   print "Hello, @_!\n";
}

#create a function to be used called logOut in tcl but have it reference the perl log_out function 
$interp = new Tcl; 
$interp->CreateCommand("logOut", \&log_out,undef,undef,'1'); 
$interp->Eval("source test.tcl");

########################################################
test.tcl:
########################################################


puts "calling logOut"

logOut "FRED";

########################################################
output:
########################################################

calling logOut
Hello, FRED!

#########################################################
Sharing Variables between Tcl <> perl:
#########################################################

#########################################################
test2.pl
#########################################################


use Tcl;
use strict; 
use warnings;

my $scalar = '';
my $name = '';

print "Examples manipulating TCL variables\n";

# Initiate a new tclsh instance
my $interp = Tcl->new;

# bind the tcl and perl variables together
tie($scalar, 'Tcl::Var', $interp, 'tclscalar');

#set value in tcl get it from tcl and perl 
$interp->SetVar ('tclscalar', '45');
$interp->Eval('puts "$tclscalar, Got from TCL"');
print "$scalar Got from Perl\n";

#set value in perl get it from tcl and perl
$scalar = '50';
$interp->Eval('puts "$tclscalar, Got from TCL"');
print "$scalar Got from Perl\n";

#########################################################
output:
#########################################################

Examples manipulating TCL variables
45, Got from TCL
45 Got from Perl
50, Got from TCL
50 Got from Perl

Blocking hostile ssh login attempts

2010-06-01T21:33:00.000-07:00

We want to block users who attempt to login to our box via ssh with bad intentions, you can see these in the logs coming all day long they look like the following (/var/log/authlog):

May 31 03:17:31 cm47 sshd[3517]: Failed password for root from 218.25.68.9 port 54014 ssh2
May 31 03:17:31 cm47 sshd[20855]: Received disconnect from 218.25.68.9: 11: Bye Bye
May 31 03:17:33 cm47 sshd[20600]: Failed password for root from 218.25.68.9 port 54112 ssh2
May 31 03:17:34 cm47 sshd[8641]: Received disconnect from 218.25.68.9: 11: Bye Bye
May 31 03:17:36 cm47 sshd[19515]: Failed password for root from 218.25.68.9 port 42841 ssh2
May 31 03:17:36 cm47 sshd[25534]: Received disconnect from 218.25.68.9: 11: Bye Bye

Jun 1 11:21:23 cm47 sshd[16250]: Failed password for invalid user webmaster from 88.191.80.193 port 51163 ssh2
Jun 1 11:21:23 cm47 sshd[13312]: Received disconnect from 88.191.80.193: 11: Bye Bye

Jun 1 03:39:01 cm47 sshd[26899]: reverse mapping checking getaddrinfo for 173.1.44.30.reverse.gogrid.com [173.1.44.30] failed - POSSIBLE BREAK-IN ATTEMPT!
Jun 1 03:39:02 cm47 sshd[16507]: reverse mapping checking getaddrinfo for 173.1.44.30.reverse.gogrid.com [173.1.44.30] failed - POSSIBLE BREAK-IN ATTEMPT!
Jun 1 03:39:03 cm47 sshd[10347]: reverse mapping checking getaddrinfo for 173.1.44.30.reverse.gogrid.com [173.1.44.30] failed - POSSIBLE BREAK-IN ATTEMPT!
Jun 1 03:39:04 cm47 sshd[17923]: reverse mapping checking getaddrinfo for 173.1.44.30.reverse.gogrid.com [173.1.44.30] failed - POSSIBLE BREAK-IN ATTEMPT!
Jun 1 03:39:04 cm47 sshd[29303]: reverse mapping checking getaddrinfo for 173.1.44.30.reverse.gogrid.com [173.1.44.30] failed - POSSIBLE BREAK-IN ATTEMPT!
Jun 1 03:39:05 cm47 sshd[12674]: reverse mapping checking getaddrinfo for 173.1.44.30.reverse.gogrid.com [173.1.44.30] failed - POSSIBLE BREAK-IN ATTEMPT!

So here's how we do this:
sshd will deny these logins, but after we already know someone has attempted something we don't like its usually a good idea block these script kiddies from everything that we can, so to do that, we'll use swatch to read our authlog file and add these IP's to the ssh-badguys table so that they are blocked by pf.

Add the following to your pf.conf file:


#rules for "hostile ssh login attempts"
table <sshd-badguys> persist
anchor "sshd_hostiles" {
      block in log quick from <sshd-badguys> to any
}

You'll need to install the swatch (syslog-watcher) package
#pkg_add -i swatch

Copy the following into your /etc/swatch.conf file


watchfor /\[(\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})\] failed - POSSIBLE BREAK-IN ATTEMPT!/
      exec /sbin/pfctl -T add -t sshd-badguys $1
      exec /sbin/pfctl -k $1

watchfor /Failed password for root from (\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})/
      exec /sbin/pfctl -T add -t sshd-badguys $1
      exec /sbin/pfctl -k $1

watchfor /Failed password for invalid user .+ from (\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})/
      exec /sbin/pfctl -T add -t sshd-badguys $1
      exec /sbin/pfctl -k $1

Then to run swatch, issue the following command:
/usr/local/bin/swatch --config-file /etc/swatch.conf --daemon --tail-file /var/log/authlogin
to make this happen on boot, stick this line in your /etc/rc.local

This will start working immediatly, you can check the table to see what addresses have been added to it by issuing the following command:

pfctl -T show -t sshd-badguys

If you want these entries to expire after a certain amount of time, you can setup something like the following in your crontab file to run every 30 mins or so (this will expire all entries older than a day, if your really concerned about accuracy, you may want to run this every minute or so:

pfctl -t sshd-badguys -T expire 86400

OpenBSD QEMU setup scripts

2010-05-23T21:57:00.000-07:00

Here is a pair of scripts I've used to setup harnesses for some testing of custom images I've made, these will require that you have sudo access to ifconfig, as well as have qemu installed. I also use non default tun interfaces, (not installed by default), to get these working go to /dev and run "./MAKEDEV tun10 tun11 tun12 tun13 tun14 tun15"

This first on is a harness setup script.

To run the setup script simply do "sh setup-vharness.sh"

This will configure 6 tun interfaces for the image to use, I use them as WAN/LAN/DMZ, but you can use however you want, change ip's in the script to suite your needs.


#!/bin/sh
# setup-vharness.sh
# script to setup qemu guest carp setup on an obsd box

SUDO=/usr/bin/sudo
MODE=ENABLE

usage() {
  echo "usage: $0 [-d]" 1>&2
  exit 2
}

start() {
 echo MODE: $MODE
 if [ $MODE = "DISABLE" ]; then
         echo DeConfiguring CARP Harness
         echo DeConfiguring tun10:
         echo ${SUDO} ifconfig tun10 destroy
         ${SUDO} ifconfig tun10 destroy
         echo DeConfiguring tun11:
         echo ${SUDO} ifconfig tun11 destroy
         ${SUDO} ifconfig tun11 destroy
         echo DeConfiguring tun12:
         echo ${SUDO} ifconfig tun12 destroy
         ${SUDO} ifconfig tun12 destroy
         echo DeConfiguring tun13:
         echo ${SUDO} ifconfig tun13 destroy
         ${SUDO} ifconfig tun13 destroy
         echo DeConfiguring tun14:
         echo ${SUDO} ifconfig tun14 destroy
         ${SUDO} ifconfig tun14 destroy
         echo DeConfiguring tun15:
         echo ${SUDO} ifconfig tun15 destroy
         ${SUDO} ifconfig tun15 destroy
         echo DeConfiguring bridge0:
         echo ${SUDO} ifconfig bridge0 destroy
         ${SUDO} ifconfig bridge0 destroy
         echo DeConfiguring bridge1:
         echo ${SUDO} ifconfig bridge1 destroy
         ${SUDO} ifconfig bridge1 destroy
         echo DeConfiguring bridge2:
         echo ${SUDO} ifconfig bridge2 destroy
         ${SUDO} ifconfig bridge2 destroy
 else
         # make sure a tun interface is available
         echo Configuring CARP Harness 
         echo Configuring tun10:
         echo ${SUDO} ifconfig tun10 192.168.1.254 link0
         ${SUDO} ifconfig tun10 192.168.1.254 link0   
         echo Configuring tun11:
         echo ${SUDO} ifconfig tun11 192.168.254.254 link0
         ${SUDO} ifconfig tun11 192.168.254.254 link0
         echo Configuring tun12:
         echo ${SUDO} ifconfig tun12 192.168.253.254 link0
         ${SUDO} ifconfig tun12 192.168.253.254 link0
         echo Configuring tun13:
         echo ${SUDO} ifconfig tun13 link0
         ${SUDO} ifconfig tun13 link0 up
         echo Configuring bridge0:
         echo ${SUDO} ifconfig bridge0 create
         ${SUDO} ifconfig bridge0 create
         echo ${SUDO} brconfig bridge0 add tun10 add tun13 up
         ${SUDO} brconfig bridge0 add tun10 add tun13 up 
         echo Configuring tun14:
         echo ${SUDO} ifconfig tun14 link0
         ${SUDO} ifconfig tun14 link0 up
         echo Configuring bridge1:
         echo ${SUDO} ifconfig bridge1 create
         ${SUDO} ifconfig bridge1 create
         echo ${SUDO} brconfig bridge1 add tun11 add tun14 up
         ${SUDO} brconfig bridge1 add tun11 add tun14 up
         echo Configuring tun15:
         echo ${SUDO} ifconfig tun15 link0 
         ${SUDO} ifconfig tun15 link0 up
         echo Configuring bridge2:
         echo ${SUDO} ifconfig bridge2 create
         ${SUDO} ifconfig bridge2 create
         echo ${SUDO} brconfig bridge2 add tun12 add tun15 up
         ${SUDO} brconfig bridge2 add tun12 add tun15 up
 fi
}

args=`getopt d $*`

 set -- $args
 while [ $# -gt 0 ]; do
  case "$1" in
  -d) MODE="DISABLE"
  echo "Disable Mode"
  ;;
     --) shift;
  break
  ;;
  esac
  shift
 done

start $1

This next script actually brings up the image file, it sets up the serial port to be redirected to a telnet session (all my firewall images use console port, you'll need to change this if you want to see the actual screen output: man qemu). This will also dump you into a telnet session connected to the serial of the device, be aware of that. To get this one to work, just do "sh setup-qemu-img.sh " The offset is to tell the script which CARP host your using, offset is where to start the nic configs at for this host.

So after running the above script to configure this, I just do the following:

sh setup-qemu.sh 0

Then I split my window in two using tmux "Ctrl-B S"

sh setup-qemu.sh 3

At this point I have both images running side by side, and can configure the individual guests to suit my needs.

!!!You may want to change some of the arguments you give to qemu to suit your needs, again see the qemu man page.



#!/bin/sh
# setup-qemu.sh
# script to start multiple qemus on a single box

SUDO=/usr/bin/sudo

# qemu args
IMAGE=$1
MEMORY=128
FLAGS=" -daemonize -no-kqemu -nographic -serial telnet:127.0.0.1:$((1010 + $2)),server,nowait -no-fd-bootchk"

NICFLAGS="-net nic,vlan=\$id,macaddr=\$mac -net tap,vlan=\$id,ifname=\$id,fd=\$fd"

getmac() {
 mac="00:bd:`printf %02x $(($RANDOM % 256))`:"
 mac="$mac`printf %02x $(($RANDOM % 256))`:"
 mac="$mac`printf %02x $(($1 % 256))`:`printf %02x $(($2 % 255 + 4))`"
}

start() {
        for id in 0 1 2; do
                fd=$(($id + 3))
                tun=tun$(($id + 10 + $2))
    getmac 3 id
                eval "nics=\"$nics $NICFLAGS\""
                fds="$fds $fd<> /dev/$tun"

        done
        
  cmd="${SUDO} -C 5 qemu -m ${MEMORY} -hda ${IMAGE}${FLAGS}$nics$fds"
     echo Running: ${SUDO} sh -c "$cmd"
  ${SUDO} sh -c "$cmd"
}

start $1 $2

telnet localhost $((1010 + $2))

To tear down the setup script simply do "sh setup-vharness.sh -d" after you've quit the qemu instance(s).

OpenBSD 4.7 Release pf.conf conversion tool

2010-05-18T23:31:00.000-07:00

Today marks the release of OpenBSD 4.7, with this are many new changes outlined here. One of the changes requires pre 4.7 pf.conf files to be modified before they will load, changes to the nat/rdr/route-to/reply-to syntax are the reason for this. These changes are outlined here, normally these can be edited by hand fairly easily, but with many boxes to manage the following script seemed to save me a little time, this hasn't been tested extensively, but seems to work for me. If you find a bug let me know and I'll fix it.

Usage: prompt> perl pfconvert.pl /etc/pf.conf > /etc/pf.conf.new

!!! Note, make sure you verify the converted file will work, ie "pfctl -nf /etc/pf.conf.new"


#!/usr/bin/perl

# Read the config into a scaler
my $pfconf = do { local( @PFCONF, $/ ) = $ARGV[0] ; <> } ;

# Merge any multiline rules into a single line
$pfconf =~ s/\\\n/+multilinebreak+/g;

# Read the file into an array so we can process line by line
@PFCONF = split('\n', $pfconf);

foreach $line (@PFCONF) {
# Remove rdr-anchors for relayd ftp-proxy and tftp-proxy
if ($line =~ m/^nat-anchor|^rdr-anchor/) {
   if ($line =~ m/relayd|ftp-proxy|tftp-proxy/) {
       next;
   }
}

# Convert rdr rules to new 4.7 syntax
if ($line =~ m/^rdr on/) {
   $line =~ s/^rdr/match in/;
   $line =~ s/->/rdr-to/;
}

# Convert nat rules to new 4.7 syntax
if ($line =~ m/^nat on/) {
   $line =~ s/^nat/match out/;
   $line =~ s/->/nat-to/;
}

# Convert binat rules to new 4.7 syntax
if ($line =~ m/^binat on/) {
   $line =~ s/^binat/match/;
   $line =~ s/->/binat-to/;
}

# Convert reply-to rules to new 4.7 syntax
if ($line =~ m/reply-to/) {
   if ($line =~ m/\sto\s+(.*)/) {
       $dest = $1;
   }
   if ($line =~ m/\s(\(.*\))/) {
       $ifaddr = $1;
   }
   $line =~ s/reply-to .+/to $dest reply-to $ifaddr/;
}

# Convert route-to rules to new 4.7 syntax
if ($line =~ m/route-to/) {
   if ($line =~ m/\sfrom\s+(.*)/) {
       $dest = $1;
   }
   if ($line =~ m/\s(\(.*\))/) {
       $ifaddr = $1;
   }
   $line =~ s/route-to .+/from $dest route-to $ifaddr/;
}

# Unmerge any multiline rules
$line =~ s/\+multilinebreak\+/\\\n/g;
print "$line\n";
}

OpenBSD Terminal Colors and tmux session on login

2010-05-12T19:17:00.000-07:00

This is my .profile for my account on my OpenBSD boxes, this requires that you have the colorls and vim packages installed, but this will give you color coded directory listings, and syntax highlighted vim as well as dump you into a tmux session on login, this is very handy, allowing your session to get disconnected and not lose your work. Pretty simple really just replace your .profile with this in your home directory:


# $OpenBSD: dot.profile,v 1.4 2005/02/16 06:56:57 matthieu Exp $
#
# sh/ksh initialization

alias ls='colorls -G'
alias vi=vim

PATH=$HOME/bin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/X11R6/bin:/usr/local/bin:/usr/local/sbin:/usr/games:.
export PATH HOME TERM=xterm-256color

tmux attach || tmux new

Open Source WAN Emulation Howto

2010-05-11T22:19:00.000-07:00

This is old, but I see people asking for it every now and then.

Quick Dummynet howto...

I needed to emulate a real wan connection for some testing I'm doing. This was a PITA to find out on my own, so I'm documenting everything.

This is just on a livecd right now, so you have to issue these commands every time you reboot, which sucks, but luckily it runs on BSD which, hardly ever needs to reboot.

First you'll want to grab a copy of the Frenzy Freebsd Live CD here:

http://frenzy.org.ua/en/index.shtml

After it boots, I issue these commands (note, i'm running this on a box with 3 nics, 1 for managment, 2 for the bridge) You could pull it off with just two nics as well, later I'm going to turn it into a router too, so it will do routing as well as introducing bw settings latency, loss, etc. Also on the Todo list is make a vmware image of all of this with scripts to easily change settings for the bridge/router...

For right now this is what I do to get it up and running:

#setup networking
ifconfig em0 172.16.62.11 up
route add default 172.16.62.254
ifconfig bridge create
ifconfig bridge0 addm em1 addm em2 up
ifconfig em1 up
ifconfig em2 up

#load dummynet
kldload dummynet

#ipfw commands
sysctl net.link.bridge.ipfw=1
ipfw add pipe 1 ip from any to any
ipfw pipe 1 config bw 2Mbits/s delay 30ms plr .01
ipfw list

# we need to make sure that the any to any rule with the pipe is the highest any to any rule..
ipfw delete 65000
ipfw list

# From Lucas: adds memory for network buffers
#the queue for dummynet can take a lot of memory and it behaves badly when it runs out

sysctl kern.ipc.nmbclusters=32768

#To watch traffic on the bridge, simply type
tcpdump -i bridge0

Nice, just found this to backup settings to a floppy:

http://frenzy.org.ua/en/releases/1.0/doc/doc_en-backup.html

Here are some links that I found helpful when figuring all this out:

http://info.iet.unipi.it/~luigi/ip_dummynet/
http://www.freebsd-howto.com/HOWTO/Ipfw-HOWTO
http://www.freebsd.org/doc/en_US.ISO8859-1/books/handbook/network-bridging.html
http://www.freebsd.org/cgi/man.cgi?query=if_bridge&sektion=4

Google's Annotated Timeline Chart and Sql Server 2005

2010-05-11T20:13:00.000-07:00

I had a small project where I needed to use the functionality of the Google Timeline Annotated Chart from the Google API. The provided charts in the API are pretty nifty, but most of the data that I would want to display is kept in a DB somewhere, I needed a way to have simple SQL queries build a chart for me on the fly, below is what I came up with.

First attempt was to use php to query the DB format all my data in a way that Google wanted and then spit out the html into a div, this worked but was an extra step that was unnecessary.

For this example we'll go ahead and say I have a table of cities and their high temperatures for a given day in the last week, this will be a very simple table with 3 columns consisting of Timestamp, City, Temp. (In reality my table structure was a little more complicated, but for this example, a simple table called TempData should suffice).

The following stored procedure will get all the values needed from our database and return a varchar that consists of the html needed to display the graph, we can then put that value into a div and the graph will be displayed.


USE [DATABASENAME]

GO



SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

ALTER PROCEDURE [dbo].[sp_google_temperature_trends]



AS



DECLARE

@Timestamp varchar(50),

@Year varchar(50),

@Month varchar(50),

@Day varchar(50),

@Hour varchar(50),

@Min varchar(50),

@City varchar(50),

@Temp varchar(50),

@avgTemp varchar(50),

@t int,

@html varchar(max),

@hideCityHtml varchar(max)



/* First We'll print out the top of the container info for the goolge annotated timeline graph, for google api info see:

  http://code.google.com/apis/visualization/documentation/gallery/annotatedtimeline.html

*/



SET @html = '

       

          

          

     



       

              

         

		  ' + @hideCityHtml +'           

'