✏️ 正在编辑: compat_pl
路径:
/usr/share/doc/libauthen-sasl-perl/examples/compat_pl
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
#!/usr/bin/env 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";
💾 保存文件
← 返回文件管理器