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";