inner_random_stream_key => "\346\n8\2\322\264i\5\5\274\22\377+\16tB\353\210\1\2m\2U%\326\347\355\313\313\340A\305",
kdf_parameters => {
"\$UUID" => "\311\331\363\232b\212D`\277t\r\b\301\212O\352",
- R => 6000,
+ R => num(6000),
S => "\340\377\235\255\222o\1(\226m\373\tC{K\352\f\332M\302|~P\e\346J\@\275A\227\236\366",
},
master_seed => "Z\230\355\353\2303\361\237-p\345\27nM\22<E\252\314k\20\257\302\343p\"y\5sfw ",
inner_random_stream_key => "Z\244]\373\13`\2108=>\r\224\351\373\316\276\253\6\317z\356\302\36\fW\1776Q\366\32\34,",
kdf_parameters => {
"\$UUID" => "\311\331\363\232b\212D`\277t\r\b\301\212O\352",
- R => 6000,
+ R => num(6000),
S => "l\254\250\255\240U\313\364\336\316#\254\306\231\f%U\207J\235\275\34\b\25036\26\241\a\300\26\332",
},
master_seed => "\13\350\370\214{\0276\17dv\31W[H\26\272\4\335\377\356\275N\"\2A1\364\213\226\237\303M",
inner_random_stream_key => "+\232\222\302\20\333\254\342YD\371\34\373,\302:\303\247\t\26\$\a\370g\314\32J\240\371;U\234",
kdf_parameters => {
"\$UUID" => "\311\331\363\232b\212D`\277t\r\b\301\212O\352",
- R => 6000,
+ R => num(6000),
S => "\3!\230hx\363\220nV\23\340\316\262\210\26Z\al?\343\240\260\325\262\31i\223y\b\306\344V",
},
master_seed => "\0206\244\265\203m14\257T\372o\16\271\306\347\215\365\376\304\20\356\344\3713\3\303\363\a\5\205\325",
kdf_parameters => ignore(),
kdf_parameters => {
"\$UUID" => "\311\331\363\232b\212D`\277t\r\b\301\212O\352",
- R => 6000,
+ R => num(6000),
S => "y\251\327\312mW8B\351\273\364#T#m:\370k1\240v\360E\245\304\325\265\313\337\245\211E",
},
master_seed => "\355\32<1\311\320\315\24\204\325\250\35+\2525\321\224x?\361\355\310V\322\20\331\324\"\372\334\210\233",
is $kdbx->meta->{database_name}, 'Protected Strings Test', 'Extract database name from meta';
- $kdbx->unlock;
-
my $entry = $kdbx->entries->next;
is $entry->title, 'Sample Entry', 'Get entry title';
+
+ is $entry->string_peek('Password'), 'ProtectedPassword', 'Peek at password from entry';
+ is $entry->string_peek('TestProtected'), 'ABC', 'Peek at protected string from entry';
+ $kdbx->unlock;
is $entry->username, 'Protected User Name', 'Get protected username from entry';
is $entry->password, 'ProtectedPassword', 'Get protected password from entry';
is $entry->string_value('TestProtected'), 'ABC', 'Get ABC string from entry';