Help for this page

Select Code to Download


  1. or download this
    use Crypt::Blowfish;

...
print "Encrypted packet: $p2\n";
$p3 = $cipher->decrypt($p2);
print "Decrypted back to: $p3\n";
  2. or download this
    Key: [;'.]94-31==-%&@!^+].
Plaintext packet: .WildMaN (00 57 69 6c  64 4d 61 4e)
Encrypted packet: ..Y..D.. (02 b2 59 1f  f3 44 86 aa)
Decrypted back to: .WildMaN (00 57 69 6c  64 4d 61 4e)