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