░▒▓████████████████████████████████▓▒░ ░▒▓█ ▓▒░ ░▒▓█ ~ S W A M P ~ ▓▒░ ░▒▓█ ▓▒░ ░▒▓████████████████████████████████▓▒░
pplmvsvm
LOCATION:
/usr/share/doc/libauthen-sasl-perl/examples
☗ ROOT
↻ REFRESH
✎ CARVE FLESH
EDITING: compat_pl
#!/usr/bin/perl # short script to check compatability with previous Authen::SASL library use lib 'lib'; use Authen::SASL; my $sasl = Authen::SASL->new('CRAM-MD5', password => 'fred'); $sasl->user('gbarr'); $initial = $sasl->initial; $mech = $sasl->name; print "$mech;", unpack("H*",$initial),";\n"; print unpack "H*", $sasl->challenge('xyz'); print "\n";
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📄 compat_pl
?
363 B
2023-09-24 17:15
EDIT
📄 example_pl
?
887 B
2023-09-24 17:15
EDIT