Image

head

code

item

root

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

README

use v6;

need Red::Attr::Column;
use Crypt::AnyPasswordHash:ver<0.1.2+>;



RedX::HashedPassword - store and use hashed passwords in the database


=begin code

use Red;
use RedX::HashedPassword;

model User {
    has Int $.id        is serial;
    has Str $.username  is column;
    has Str $.password  is password handles <check-password>;
}

...

User.^create( username => 'user', password => 'password'); # password is saved as a hash

...

my User $user = User.^rs.first( *.username eq 'user' );

$user.check-password('password');  # True


=end code


This provides a mechanism for L<Red|https://github.com/FCO/Red> to store a password
as a cryptographic hash in the database, such that someone who gains access to the
database cannot see the plain text password that may have been entered by a user.


The primary interface provided is the C<is password> trait that should be
applied to the column attribute in your model definition that you want to store the
hashed password in, this takes care of hashing the password before it is stored in
the database, on retrieval ("inflation") it also applies a role that provides a method
C<check-password> that checks a provided plaintext password against the stored hash.
You can make this appear to be a method of your (for example,) User model by applying
the C<handles <check-password>> trait to your column attribute.


The hashing algorithm used will be the best one provided by
L<Crypt::AnyPasswordHash|https://github.com/jonathanstowe/Crypt-AnyPasswordHash>
which has two implications, firstly the default provider is
L<Crypt::Libcrypt|https://github.com/jonathanstowe/Crypt-Libcrypt>
if no other supported hashing module is installed, this will attempt
to use the mechanism suggested by the C<libcrypt> but if this can't
be determined, it will fall back to SHA-512 which seems to be the best
commonly provided algorithm, except on C<MacOS> where the C<libcrypt>
only appears to support the "heritage" DES algorithm - which has been
considered insecure for most of this century, so you probably don't want
to use this in production on MacOS for the timebeing without installing
one of the other modules supported by C<Crypt::AnyPasswordHash>.
The second implication is that, if you are going to access the hashed
password from multiple hosts, you should ensure that you have the same
hashing module installed on all the hosts in order that they can all
verify the same methods.



module RedX::HashedPassword {

    my role CryptedPasswordColumn {
        method check-password(Str $password --> Bool ) {
            check-password(self.Str, $password);
        }
    }

    sub deflate(Str $password is raw --> Str) {
        if $password !~~ CryptedPasswordColumn  {
            $password = hash-password($password) but CryptedPasswordColumn;
        }
        else {
            $password;
        }
    }

    sub inflate(Str $password) {
        $password but CryptedPasswordColumn
    }

    multi sub trait_mod:<is> ( Attribute $attr, :$password! --> Empty ) is export {
        $attr does Red::Attr::Column({ :&inflate, :&deflate });
    }
}
# vim: expandtab shiftwidth=4 ft=raku


HashedPassword

=begin code :lang<raku>

use Redis;

my $redis = Redis.new("127.0.0.1:6379");
$redis.set("key", "value");
say $redis.get("key");
say $redis.info;
$redis.quit;

=end code


Redis provides a Raku interface to the
L<Redis|https://en.wikipedia.org/wiki/Redis> server.


=begin code :lang<raku>

method new(Str $server?, Str :$encoding?, Bool :$decode_response?)

=end code


=begin code :lang<raku>

method exec_command(Str $command, *@args) returns Any

=end code


This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.


Redis

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


README

NAME

SYNOPSIS

DESCRIPTION

METHODS

new

exec_command

AUTHORs

COPYRIGHT AND LICENSE

Redis v0.1.2

Authors

License

Dependencies

Test Dependencies

Provides

Documentation