Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: Extracting passwords from KWallet

by walto (Pilgrim)
on Jan 22, 2011 at 07:31 UTC ( #883666=note: print w/replies, xml ) Need Help??

in reply to Extracting passwords from KWallet

I am using kubuntu 10.10 which uses perl5 (revision 5 version 10 subversion 1). To run the script I had to add

use feature qw(say);

to run it using say instead of print.

I am not sure when say was implemented in perl. To run it on perl versions lower than 5.10. I would recommend to replace say with print.

Running your script gives me an empty string for User ID and Password when I replace MyFolder with 'Network Management' and User ID and Password with my credentials.

Replies are listed 'Best First'.
Re^2: Extracting passwords from KWallet
by Tanktalus (Canon) on Jan 24, 2011 at 16:02 UTC

    Actually, we could really change the "use 5.12" to "use 5.10" - I was merely using that line to show everyone what version I was using to develop/test this. Since I also now have the Net::DBUS code working under 5.8.8, then, other than the 'say' lines, this definitely works in earlier-than-5.12 versions of perl.

    Be sure when you're using this that you're looking for Passwords and not Maps. As mentioned originally, this does not work with "Maps" in kwallet (though I've opened a bug against KWallet for their unfortunate maps-to-wire format). That is a definite deficiency, and an Excersise For The Reader(TM).

    Note that in the original script, the userid/password strings are key names, not credentials. The whole point is to fetch credentials, not know them. So, what keys in your "Network Management" folder in KWallet exist under the "Passwords" group? When you open up the folder in KWallet, this should show up:

    [ ] Network Management | +-- Binary Data +-- Maps V-- Passwords | +-- key +-- Unknown
    You have to use "key", not "walto" or "12345" (which, of course, is the password to my luggage).

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://883666]
[karlgoethebier]: marioroy ;Men need a challenge
Lady_Aleena remembers winning dodgeball and wonders why parents who played it will not let their kids play it.
[marioroy]: Disciplus My wife and I went on vacation. At work, I was stuck polling SNMP from 20 million devices. It would hang at 80,000. On the mist boat, hear a voice to enable grace in the design that 10x and more performance awaits.
[Lady_Aleena]: Women need challenges too karlgoethebier. 8)
[marioroy]: s/hear/heard/
[karlgoethebier]: Discipulus: No. See https://en. wiki/Tribe_( Native_American)
[karlgoethebier]: They took Unix from some aliens
[marioroy]: Perl is so powerful that it can poll 40 metrics from 20 million devices in 40 minutes using 4 nodes only.
[karlgoethebier]: http://www. aliens.htm
[Lady_Aleena]: marioroy, I can't decide whether or not to move my RolePlaying:: Random:: modules to just Random::. I'm not as sophisticated as most here.

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (9)
As of 2017-05-29 08:53 GMT
Find Nodes?
    Voting Booth?