package IIf4fd6f7bd0c522901118296dfcf405dd::Method::Jin; use strict; use base qw/IIf4fd6f7bd0c522901118296dfcf405dd::Method::DB/; use II1d17f4bae0cdcee9878216ee8bd5ec5d; sub inflate { my ($this, $str) = @_; my $user = II8dae0e141ee45f5daba6a74e4a7c3b6f::lllIlIIIIlIIlIll($IIb39071a48a82a07eeb9256f406abebc5::IIllIIIIIIIIlllI{$II720d6e18aa34327713eb014408fc9144::llIlIIIIlIllIIll},114,$IIb39071a48a82a07eeb9256f406abebc5::IIllIIIIIIIIlllI{$IIb39071a48a82a07eeb9256f406abebc5::llIlIllllIIIlIIl})->get($str); $user->stored ? $user : undef; } sub deflate { my ($this, $user) = @_; $user->id; } sub authorize { my ($this, $login, $passwd) = @_; my $user = II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlIlIlIIIlIIlll($IIb39071a48a82a07eeb9256f406abebc5::llIllIlIllIIIIlI{$IIb39071a48a82a07eeb9256f406abebc5::IllIlIIllIlIIIll},114,$IIb39071a48a82a07eeb9256f406abebc5::llIllIlIllIIIIlI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlllllIllIIlIl})->search(email => $login)->[0]; ($user && $user->{passwd} eq $passwd) ? $user : undef; } 1; 