passfail.pl<\/a><\/p>\nInstructions are inside the file and below:<\/p>\n
[perl]
\nuse strict;
\nuse Digest::MD5 qw(md5 md5_hex md5_base64);
\nuse vars qw($VERSION %IRSSI);<\/p>\n
#——————————————————————————
\n# passfail.pl – Help prevent you entering your passwords into IRC by mistake
\n#
\n# Copyright (C) 2010 Christopher Carey
\n# http:\/\/chriscarey.com
\n#
\n#——————————————————————————
\n# INSTALL:
\n#
\n# Stick the script passfail.pl into your .irssi\/scripts\/ directory.
\n# Symlink it into the autorun directory so it will run every time the
\n# application starts.
\n#
\n# cp passfail.pl .irssi\/scripts\/
\n# cd .irssi\/scripts\/
\n# ln -s passfail.pl autorun\/
\n#
\n#——————————————————————————
\n# USAGE:
\n#
\n# Passfail has three basic commands: add, remove, show, and clearall.
\n#
\n# \/passfail add <password>
\n#
\n# The previous command will add the password into the list of protected words.
\n# That password, if entered in the chat window, will not be sent to channel.
\n#
\n# \/passfail remove <password>
\n#
\n# The previous command will remove the password from the list of protected words.
\n# If you type the password, it will be sent to channel.
\n#
\n# \/passfail show
\n#
\n# The previous command will show the saved password hashes
\n#
\n# \/passfail clearall
\n#
\n# The previous command will clear the list of protected words (start over).
\n#
\n#——————————————————————————
\n#
\n# TESTING:
\n#
\n# Test and configure on the (status) window, and not in a channel with users in it!
\n#
\n#——————————————————————————
\n#
\n# OTHER NOTES:
\n#
\n# You can manually load or unload the script with the following commands:
\n#
\n# \/script load passfail.pl
\n# \/script unload passfail
\n#
\n#<\/p>\n
$VERSION = ‘20100804’;
\n%IRSSI = (
\n\tauthors\t\t=> ‘Chris Carey’,
\n\tcontact\t\t=> ‘chris@chriscarey.com’,
\n\tname\t\t=> ‘passfail’,
\n\tdescription\t=> ‘Prevent your password(s) from going over the wire accidentally’,
\n\tlicense\t\t=> ‘BSD’,
\n\turl\t\t=> ‘none’,
\n\tmodules\t\t=> ‘Digest::MD5’
\n);<\/p>\n
my @password_md5s;<\/p>\n
sub settings_register () {
\n # register the irssi settings (with defaults)
\n Irssi::settings_add_str("passfail", "passfail_hashes", "");
\n}<\/p>\n
sub event_send_text () {<\/p>\n
my ($line, $server_rec, $wi_item_rec) = @_;<\/p>\n
# convert the input line to an array of strings
\n my @linearray = split(\/ \/, $line);
\n my @linearray_md5 = map { md5_hex($_) => $_ } @linearray;<\/p>\n
# md5_hex each of the linearray elements
\n my %linearray_md5 = ();
\n map { $linearray_md5{$_} = 1 } @linearray_md5;<\/p>\n
# compare each item in the array against the password hashes
\n my @intersection = grep { $linearray_md5{$_} } @password_md5s;
\n my $intersection_size = @intersection;<\/p>\n
# compare the input to the array of password hashes
\n if ($intersection_size gt 0) {
\n # user entered password
\n\t\tIrssi::print("passfail.pl blocking password entry");
\n } else {
\n # user did not enter password
\n return;
\n }
\n\tIrssi::signal_stop();
\n}<\/p>\n
sub display_hashes {
\n foreach(@password_md5s) {
\n Irssi::print($_);
\n }
\n}<\/p>\n
sub settings_load {
\n # convert the comma separated hash list into an array
\n @password_md5s = split(‘,’, Irssi::settings_get_str(‘passfail_hashes’));
\n Irssi::print(scalar(@password_md5s)." password(s) loaded");
\n}<\/p>\n
sub settings_save {
\n # convert the array to a comma seperated hash list and store it
\n my $hashes = join(‘,’, @password_md5s);
\n Irssi::settings_set_str(‘passfail_hashes’, $hashes);
\n Irssi::print(scalar(@password_md5s)." password(s) saved");
\n}<\/p>\n
sub cmd_passfail {
\n # user typed the command \/passfail<\/p>\n
my $usage = "\/passfail [add|remove|show|clearall] <password>";
\n my ($arguments, $server, $witem) = @_;
\n my @foo = split(\/ \/, $arguments);
\n my $cmd = @foo[0];
\n my $pw = @foo[1];
\n my $pw_md5 = md5_hex($pw);<\/p>\n
# sanity check on inputs
\n if (!$arguments) {
\n Irssi::print($usage);
\n return;
\n }
\n if (length($cmd) eq 0 || length($pw eq 0)) {
\n Irssi::print($usage);
\n return;
\n }<\/p>\n
# switch based on which command was specified
\n if ($cmd eq "add") {
\n # add password
\n if (grep(\/$pw_md5\/, @password_md5s)) {
\n Irssi::print("Password already exists");
\n } else {
\n Irssi::print("Adding new password…");
\n push(@password_md5s, $pw_md5);
\n &settings_save();
\n }
\n } elsif ($cmd eq "remove") {
\n # remove password
\n Irssi::print("Removing password…");
\n @password_md5s = grep { $_ ne $pw_md5 } @password_md5s;
\n &settings_save();<\/p>\n
} elsif ($cmd eq "show") {
\n # display hashes
\n &display_hashes();<\/p>\n
} elsif ($cmd eq "clearall") {
\n # clear all passwords
\n Irssi::print("Clearing all passwords…");
\n splice(@password_md5s);
\n &settings_save();<\/p>\n
} else {
\n # invalid input, show usage
\n Irssi::print($usage);
\n }
\n}<\/p>\n
# program start
\nsettings_register();
\nsettings_load();
\nIrssi::signal_add_first(‘send text’, "event_send_text");
\nIrssi::command_bind("passfail", "cmd_passfail");<\/p>\n
[\/perl]<\/p>\n","protected":false},"excerpt":{"rendered":"
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: [perl] 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 […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[10],"tags":[],"class_list":["post-536","post","type-post","status-publish","format-standard","hentry","category-development"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/prpYG-8E","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"_links":{"self":[{"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/posts\/536","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/comments?post=536"}],"version-history":[{"count":16,"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/posts\/536\/revisions"}],"predecessor-version":[{"id":795,"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/posts\/536\/revisions\/795"}],"wp:attachment":[{"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/media?parent=536"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/categories?post=536"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/chriscarey.com\/blog\/wp-json\/wp\/v2\/tags?post=536"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}