Return to example1.pl CVS log

Up to [local] / palm / Palm-Keyring / examples

Annotation of palm/Palm-Keyring/examples/example1.pl, Revision 1.10

1.5       andrew      1: #!/usr/bin/perl
1.10    ! andrew      2: # $RedRiver: example1.pl,v 1.9 2007/01/30 04:59:55 andrew Exp $
1.5       andrew      3: use strict;
                      4: use warnings;
                      5:
                      6: use Palm::Keyring;
                      7:
1.9       andrew      8: my $pdb = new Palm::Keyring('12345');
1.5       andrew      9:
1.9       andrew     10: my $rec = $pdb->append_Record();
1.5       andrew     11:
1.9       andrew     12: my $acct = {
1.10    ! andrew     13:        0 => { data => 'Test3' },
        !            14:        1 => { data => 'anothertestaccount' },
        !            15:        2 => { data => 'adifferentmypass' },
        !            16:        255 => { data => 'now that really roxorZ!' },
1.8       andrew     17: };
1.5       andrew     18:
1.9       andrew     19: $pdb->Encrypt($rec, $acct);
1.8       andrew     20:
1.9       andrew     21: $pdb->Write("Keys-Gtkr-example.PDB");