ngcp-panel/lib/NGCP/Panel/Template/Plugin/DeviceConfig.pm

package NGCP::Panel::Template::Plugin::DeviceConfig;
use parent 'Template::Plugin';
use Crypt::RC4;

sub new {
	my ($class, $context) = @_;

	# set error via base ::error()
	# return $class->error("foo") if($foo)

	bless {
		_CONTEXT => $context,
	}, $class;	
}

sub innovaphone_pwdgen {
	my ($self, $user, $pass, $plain) = @_;
	my $key = $user;
	my $pad = 16 - (length $user) % 16;
	$key .= "\0" x $pad;
	$key .= $pass;
	$pad = 16 - (length $pass) % 16;
	$key .= "\0" x $pad;
	my $rc4 = Crypt::RC4->new($key);
	my $cipher = $rc4->RC4($plain);
	my $hexcipher = unpack("H*", $cipher);
	return $hexcipher;	
}


1;