1#!/usr/bin/perl -T
2##
3##
4##
5## Copyright (c) 2008, Lord Infernale.  All rights reserved.
6## This code is free software; you can redistribute it and/or modify
7## it under the same terms as Perl itself.
8##
9## $Id: encrypt.t,v 0.1 2008/01/10 14:48:00 infernale Exp $
10
11use warnings;
12use strict;
13
14use Cisco::Hash qw(encrypt);
15
16my $d = '1511021F0725';
17my $e = encrypt('cisco', 15);
18
19print "1..1\n";
20
21print $e =~ /^$d$/ ? "ok 1" : "not ok 1"; print "\n";