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: decrypt.t,v 0.1 2008/01/10 14:54:00 infernale Exp $
10
11use warnings;
12use strict;
13
14use Cisco::Hash qw(decrypt);
15
16my $e = 'cisco';
17my $d = decrypt('1511021F0725');
18
19print "1..1\n";
20
21print $d =~ /^$e$/ ? "ok 1" : "not ok 1"; print "\n";