wep.pl



NAME

wep.pl <seed> <length>


DESCRIPTION

Generate Wep key with MD5 digest of <seed> truncated to <length> characters.


COPYRIGHT

Copyright 2010 Etienne LEMEE <coding AT etilem DOT net>

This piece of code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.


#!/usr/bin/perl -w

use strict;
use Digest::MD5 qw/md5_hex/;

@ARGV > 1 or die <<"USAGE";

$0 <seed> <length>

generate Wep key with MD5 digest of <seed> truncated to <length> characters
USAGE

print uc substr md5_hex(shift), 0, shift;