Crypt::OOEnigma::CommercialA commercial Enigma machine circa 1940. | |
Download |
Crypt::OOEnigma::Commercial Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Steve Baker
- Publisher web site:
- ftp://mama.indstate.edu/linux/tree
Crypt::OOEnigma::Commercial Tags
Crypt::OOEnigma::Commercial Description
A commercial Enigma machine circa 1940. Crypt::OOEnigma::Commercial is a commercial Enigma machine circa 1940.SYNOPSIS use Crypt::OOEnigma::Commercial; my $enigma = new Crypt::OOEnigma::Commercial; # or use Crypt::OOEnigma::Commercial; use Crypt::OOEnigma::Rotor; my @rotors = (); # Populate the list of Crypt::OOEnigma::Rotor Crypt::OOEnigma::Commercial->new( rotors => ); # or even use Crypt::OOEnigma::Commercial; use Crypt::OOEnigma::Rotor; use Crypt::OOEnigma::Reflector; my @rotors = () # Populate the list of Crypt::OOEnigma::Rotor my $reflector = new Crypt:OOEnigma::Reflector(params); # see relevant pod Crypt::OOEnigma::Commercial->new( rotors => , reflector => $reflector); my $cipher = $enigma->encipher($mesg); my $decode = $enigma->encipher($cipher); # self-inverse # Also, for use internally: $enigma->init(); # returns the rotors to their initial stateThis module provides a commercial Enigma machine consisting of a number of rotors and a reflector. If no Rotors are provided in the constructor, 3 default Rotors are used, each of which uses an identity substitution (ie no cipher at all in each rotor in start position 0).Normally, you should create your own rotors and use those. See the documentation for Crypt::OOEnigma::Rotor for details. Requirements: · Perl
Crypt::OOEnigma::Commercial Related Software