Ente Isla

use strict;
use Irssi;

use vars qw($VERSION %IRSSI);

$VERSION = '1.03';
%IRSSI = (
  authors     => 'Yarukinasu',
  contact     => 'yarukinasu@tormail.org',
  name        => 'Ente Isla',
  description => 'This script will Ente Isla.',
  license     => 'Public Domain'
);

my $eng = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
my $ei  = 'azyxewvtisrlpnomqkjhugfdcbAZYXEWVTISRLPNOMQKJHUGFDCB';

sub cmd_ei {
  my ($data, $server, $witem) = @_;

  my $echo = 0;

  if ($data =~ /-echo/i) {
    $data =~ s/-echo//i;
    $echo = 1;
  }

  $data =~ s/\s+$//;

  if ($data) {
    my $res = '';

    for (my $i = 0; $i < length($data); $i++) {
      if (index($eng, substr($data, $i, 1)) == -1) {
        $res .= substr($data, $i, 1);
      } else {
        $res .= substr($ei, index($eng, substr($data, $i, 1)), 1);
      }
    }

    if ($echo) {
      $server->print($witem->{name}, $res, MSGLEVEL_CRAP);
    } else {
      $server->command(join('', 'msg ', $witem->{name}, ' ', $res));
    }
  }
}

Irssi::command_bind('ei', 'cmd_ei');