Chris Carey

Here is a little irssi script that will help prevent you entering your passwords into IRSSI

Click here to download the script: passfail.pl

Instructions are inside the file and below:

use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use vars qw($VERSION %IRSSI);

#------------------------------------------------------------------------------
# passfail.pl - Help prevent you entering your passwords into IRC by mistake
#
# Copyright (C) 2010 Christopher Carey
# http://chriscarey.com
#
#------------------------------------------------------------------------------
# INSTALL:
#
# Stick the script passfail.pl into your .irssi/scripts/ directory.
# Symlink it into the autorun directory so it will run every time the
# application starts.
#
# cp passfail.pl .irssi/scripts/
# cd .irssi/scripts/
# ln -s passfail.pl autorun/
# 
#------------------------------------------------------------------------------
# USAGE:
#
# Passfail has three basic commands: add, remove, show, and clearall.
#
# /passfail add <password>
#
# The previous command will add the password into the list of protected words.
# That password, if entered in the chat window, will not be sent to channel.
#
# /passfail remove <password>
#
# The previous command will remove the password from the list of protected words.
# If you type the password, it will be sent to channel.
#
# /passfail show
#
# The previous command will show the saved password hashes
#
# /passfail clearall
# 
# The previous command will clear the list of protected words (start over).
#
#------------------------------------------------------------------------------
#
# TESTING:
#
# Test and configure on the (status) window, and not in a channel with users in it!
#
#------------------------------------------------------------------------------
# 
# OTHER NOTES:
#
# You can manually load or unload the script with the following commands:
#
# /script load passfail.pl
# /script unload passfail
#
#

$VERSION = '20100804';
%IRSSI = (
	authors		=> 'Chris Carey',
	contact		=> 'chris@chriscarey.com',
	name		=> 'passfail',
	description	=> 'Prevent your password(s) from going over the wire accidentally',
	license		=> 'BSD',
	url		=> 'none',
	modules		=> 'Digest::MD5'
);

my @password_md5s;

sub settings_register () {
  # register the irssi settings (with defaults)
  Irssi::settings_add_str("passfail", "passfail_hashes", "");
}

sub event_send_text () {

  my ($line, $server_rec, $wi_item_rec) = @_;

  # convert the input line to an array of strings
  my @linearray = split(/ /, $line);
  my @linearray_md5 = map { md5_hex($_) => $_ } @linearray;

  # md5_hex each of the linearray elements
  my %linearray_md5 = ();
  map { $linearray_md5{$_} = 1 } @linearray_md5;
  
  # compare each item in the array against the password hashes
  my @intersection = grep { $linearray_md5{$_} } @password_md5s;
  my $intersection_size = @intersection;

  # compare the input to the array of password hashes
  if ($intersection_size gt 0) {
    # user entered password
		Irssi::print("passfail.pl blocking password entry");
  } else {
    # user did not enter password
    return;
  }
	Irssi::signal_stop();
}

sub display_hashes {
  foreach(@password_md5s) {
    Irssi::print($_);
  }
}

sub settings_load {
  # convert the comma separated hash list into an array
  @password_md5s = split(',', Irssi::settings_get_str('passfail_hashes'));
  Irssi::print(scalar(@password_md5s)." password(s) loaded");
}

sub settings_save {
  # convert the array to a comma seperated hash list and store it
  my $hashes = join(',', @password_md5s);
  Irssi::settings_set_str('passfail_hashes', $hashes);
  Irssi::print(scalar(@password_md5s)." password(s) saved");
}

sub cmd_passfail {
  # user typed the command /passfail

  my $usage = "/passfail [add|remove|show|clearall] <password>";
  my ($arguments, $server, $witem) = @_;
  my @foo = split(/ /, $arguments);
  my $cmd = @foo[0];
  my $pw = @foo[1];
  my $pw_md5 = md5_hex($pw);

  # sanity check on inputs
  if (!$arguments) {
    Irssi::print($usage);
    return;
  }
  if (length($cmd) eq 0 || length($pw eq 0)) {
    Irssi::print($usage);
    return;
  }

  # switch based on which command was specified
  if ($cmd eq "add") {
    # add password 
    if (grep(/$pw_md5/, @password_md5s)) {
      Irssi::print("Password already exists");
    } else {
      Irssi::print("Adding new password...");
      push(@password_md5s, $pw_md5);
      &settings_save();
    }
  } elsif ($cmd eq "remove") {
    # remove password
    Irssi::print("Removing password...");
    @password_md5s = grep { $_ ne $pw_md5 } @password_md5s;    
    &settings_save();

  } elsif ($cmd eq "show") {
    # display hashes
    &display_hashes();

  } elsif ($cmd eq "clearall") {
    # clear all passwords
    Irssi::print("Clearing all passwords...");
    splice(@password_md5s);
    &settings_save();

  } else {
    # invalid input, show usage 
    Irssi::print($usage);
  }
}

# program start
settings_register();
settings_load();
Irssi::signal_add_first('send text', "event_send_text");
Irssi::command_bind("passfail", "cmd_passfail");