Meta tags:
Headings (most frequently used words):
-
Text of the page (most frequently used words):
sasl (83), server (64), irssi (63), print (49), net (33), data (30), mech (25), sasl_auth (24), sub (23), else (19), return (18), msglevel_clienterror (16), send_raw_now (13), cap (10), out (10), file (10), command_bind (10), args (9), caps (9), user (9), tosend (8), elsif (8), length (8), key (8), shift (7), tag (7), connected (7), password (7), signal_add (7), event (7), f_priv (7), pubkey (7), arg (7), subcmd (6), end (6), authenticate (6), item (6), f_name (6), pub (6), use (5), get_irssi_dir (5), nick (5), clicap (5), signal_stop (5), buffer (5), step (5), not (5), address (4), defined (4), 400 (4), event_saslend (4), for (4), set (4), keys (4), auth (4), open (4), close (4), crypt (4), ecc (4), ecdsa (4), private (4), your (4), version (3), challenge_size (3), jilles (3), multi (3), prefix (3), irssi_abspath (3), timeout (3), supported (3), unknown (3), mechanism (3), encode_base64 (3), event_saslfail (3), cmd_sasl_show (3), nets (3), cmd_sasl_save (3), cmd_sasl_load (3), eval (3), new (3), keygen (3), f_pub (3), cmdchar (3), cmd (3), keyfile (3), grawity (2), cap_sasl (2), authentication (2), server_connected (2), event_cap (2), enabled (2), event_authenticate (2), subout (2), substr (2), sasl_disconnect_on_fail (2), from (2), cmd_sasl (2), cmd_sasl_set (2), chmod (2), 0600 (2), plain (2), loaded (2), cmd_sasl_mechanisms (2), mechanisms (2), join (2), nist256p (2), challenge (2), found (2), is_private (2), sig (2), sign_hash (2), witem (2), msglevel_clientnotice (2), please (2), priv (2), export_key_raw (2), public_compressed (2), could (2), write (2), nickserv (2), settings (2), cannot (2), the (2), perl (2), cryptx (2), module (2), missing (2), strict, mime, base64, vars, constant, authors, michael, tharp, gxti, tjoelker, mantas, mikulėnas, contact, gmail, com, name, description, implements, and, enables, license, gplv2, url, http, ircv3, atheme, org, extensions, env, home, chat_type, irc, requesting, req, ack, now, timeout_add_once, 7500, attempted, start, nak, refused, list, currently, unless, decode_base64, while, last, piece, was, exactly, bytes, have, send, some, padding, indicate, done, need, this, see, settings_get_bool, disconnecting, disconnect, continuing, anyway, server_find_tag, timed, command_runsub, added, delete, deleted, entry, usage, networks, printf, saved, couldn, access, chomp, split, sort, settings_add_bool, signal_add_first, 903, 904, 905, 906, 907, load, save, show, external, require, connect, first, refusing, overwrite, generating, keypair, generate_key, prime256v1, export_key_pem, wrote, settings_get_str, cmdchars, msg, updating, submitting, command, update, submit, select, specify, path, using, named, parameters, pkcs, are, yet, vim,
Text of the page (random words):
use strict use irssi use mime base64 use vars qw version irssi use constant challenge_size 32 version 1 11 irssi authors michael tharp gxti jilles tjoelker jilles mantas mikulėnas grawity contact grawity gmail com name cap_sasl pl description implements sasl authentication and enables cap multi prefix license gplv2 url http ircv3 atheme org extensions sasl 3 1 my sasl_auth my mech sub irssi_abspath my f shift f s env home if f m f irssi get_irssi_dir f return f sub timeout sub server_connected my server shift if uc server chat_type eq irc server send_raw_now cap ls sub event_cap my server args nick address _ my subcmd caps tosend sasl tosend sasl sasl_auth server tag if args s s subcmd uc 1 caps 2 if subcmd eq ls tosend multi prefix if caps multi prefix i tosend sasl if caps sasl i defined sasl tosend s server print clicap supported by server caps if server connected if tosend eq server send_raw_now cap end else server print clicap requesting tosend server send_raw_now cap req tosend irssi signal_stop elsif subcmd eq ack server print clicap now enabled caps if caps sasl i sasl buffer sasl step 0 if mech sasl mech server send_raw_now authenticate sasl mech irssi timeout_add_once 7500 timeout server tag else server print sasl attempted to start unknown mechanism sasl mech elsif server connected server send_raw_now cap end irssi signal_stop elsif subcmd eq nak server print clicap refused caps if server connected server send_raw_now cap end irssi signal_stop elsif subcmd eq list server print clicap currently enabled caps irssi signal_stop sub event_authenticate my server args nick address _ my sasl sasl_auth server tag return unless sasl mech sasl mech sasl buffer args return if length args 400 my data sasl buffer eq decode_base64 sasl buffer my out mech sasl mech sasl data if defined out out out eq encode_base64 out while length out 400 my subout substr out 0 400 server send_raw_now authenticate subout if length out server send_raw_now authenticate out else last piece was exactly 400 bytes we have to send some padding to indicate we re done server send_raw_now authenticate else server send_raw_now authenticate sasl buffer irssi signal_stop sub event_saslend my server args nick address _ my data args data s s need this to see it jilles server print data if server connected server send_raw_now cap end sub event_saslfail my server args nick address _ my data args data s s if irssi settings_get_bool sasl_disconnect_on_fail server print data disconnecting from server msglevel_clienterror server disconnect else server print data continuing anyway if server connected server send_raw_now cap end sub timeout my tag shift my server irssi server_find_tag tag if server server connected server print sasl authentication timed out msglevel_clienterror server send_raw_now cap end sub cmd_sasl my data server item _ if data ne irssi command_runsub sasl data server item else cmd_sasl_show _ sub cmd_sasl_set my data server item _ if my net u p m data s s s s if mech uc m sasl_auth net user u sasl_auth net password p sasl_auth net mech uc m irssi print sasl added net m sasl_auth net user else irssi print sasl unknown mechanism m msglevel_clienterror elsif data s net 1 if defined sasl_auth net delete sasl_auth net irssi print sasl deleted net else irssi print sasl no entry for net else irssi print sasl usage sasl set sub cmd_sasl_show my data server item _ my nets keys sasl_auth for my net nets irssi print sasl net sasl_auth net mech sasl_auth net user irssi print sasl no networks defined if nets sub cmd_sasl_save my data server item _ my file irssi get_irssi_dir sasl auth if open my fh file chmod 0600 file for my net keys sasl_auth printf fh s t s t s t s n net sasl_auth net user sasl_auth net password sasl_auth net mech close fh irssi print sasl auth saved to file else irssi print sasl couldn t access file sub cmd_sasl_load my data server item _ my file irssi get_irssi_dir sasl auth if open my fh chomp my net u p m split t _ 4 m plain if mech uc m sasl_auth net user u sasl_auth net password p sasl_auth net mech uc m else irssi print sasl unknown mechanism m msglevel_clienterror close fh irssi print sasl cap_sasl version auth loaded from file sub cmd_sasl_mechanisms irssi print sasl mechanisms supported join sort keys mech irssi settings_add_bool server sasl_disconnect_on_fail 1 irssi signal_add_first server connected server_connected irssi signal_add event cap event_cap irssi signal_add event authenticate event_authenticate irssi signal_add event 903 event_saslend irssi signal_add event 904 event_saslfail irssi signal_add event 905 event_saslend irssi signal_add event 906 event_saslfail irssi signal_add event 907 event_saslend irssi command_bind sasl cmd_sasl irssi command_bind sasl load cmd_sasl_load irssi command_bind sasl save cmd_sasl_save irssi command_bind sasl set cmd_sasl_set irssi command_bind sasl show cmd_sasl_show irssi command_bind sasl mechanisms cmd_sasl_mechanisms mech plain sub my sasl data _ my u sasl user my p sasl password return join 0 u u p mech external sub my sasl data _ return sasl user if eval require crypt pk ecc my mech ecdsa nist256p challenge mech ecdsa nist256p challenge sub my sasl data _ my u sasl user my f sasl password f irssi_abspath f if f f irssi print sasl key file f not found msglevel_clienterror return my pk eval crypt pk ecc new f if pk pk is_private irssi print sasl no private key in file f msglevel_clienterror return my step sasl step if step 1 if length data challenge_size my sig pk sign_hash data return u 0 u 0 sig elsif length data return else return u 0 u elsif step 2 if length data challenge_size return pk sign_hash data else return irssi command_bind sasl keygen sub my data server witem _ my print server sub server print shift shift msglevel_clientnotice sub irssi print shift shift msglevel_clientnotice my net server server tag data if length net irssi print sasl please connect to a server first msglevel_clienterror return my f_name lc sasl ecdsa net f_name s _ g my f_priv irssi get_irssi_dir f_name key my f_pub irssi get_irssi_dir f_name pub if e f_priv print sasl refusing to overwrite f_priv msglevel_clienterror return print sasl generating keypair for net my pk crypt pk ecc new pk generate_key prime256v1 my priv pk export_key_pem private my pub encode_base64 pk export_key_raw public_compressed if open my fh f_priv chmod 0600 f_priv print fh priv close fh print sasl wrote private key to f_priv else print sasl could not write f_priv msglevel_clienterror return if open my fh f_pub print fh pub n close fh else print sasl could not write f_pub msglevel_clienterror my cmdchar substr irssi settings_get_str cmdchars 0 1 my cmd msg nickserv set pubkey pub if server print sasl updating your irssi settings sasl_auth net user server nick sasl_auth net password f_name key sasl_auth net mech mech cmd_sasl_save _ print sasl submitting pubkey to nickserv server command cmd else print sasl update your irssi settings print p cmdchar sasl set net f_name key mech print sasl submit your pubkey to net print p cmdchar cmd irssi command_bind sasl pubkey sub my data server witem _ my arg server server tag data my f if length arg irssi print sasl please select a server or specify a keyfile path msglevel_clienterror return elsif arg m f arg else if sasl_auth arg mech eq mech f sasl_auth arg password else f lc sasl ecdsa arg f s _ g f f key f irssi_abspath f if e f irssi print sasl keyfile f not found msglevel_clienterror return my pk eval crypt pk ecc new f if pk pk is_private irssi print sasl no private key in file f msglevel_clienterror irssi print keys using named parameters or pkcs 8 are not yet supported msglevel_clienterror return my pub encode_base64 pk export_key_raw public_compressed irssi print sasl loaded keyfile f irssi print sasl your pubkey is pub else irssi command_bind sasl keygen sub irssi print sasl cannot sasl keygen as the perl cryptx module is missing msglevel_clienterror irssi command_bind sasl pubkey sub irssi print sasl cannot sasl pubkey as the perl cryptx module is missing msglevel_clienterror cmd_sasl_load vim ts 4 sw 4
|