view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
any of the Un*x variants (however, I have not tested it on a 64 bit integer
machine - there may be some problems there...)
In addition, being that I'm very down on Windows, I won't bother testing
on this platform. However, since both MAD and LAME should compile under
Windows, I'm guessing that this module could probably be coaxed to work.
If anyone out there does manage to get this working under Windows, please
let me know any special instructions, and I'll include this information.
Also, if there are any code changes, please send me the patches. Note:
if the libraries require patching, please send the patches to the respective
authors, and not me, as I'm not maintaining those libraries.
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
lib/Audio/Nama/Assign.pm view on Meta::CPAN
logpkg(__FILE__,__LINE__,'logcarp',"didn't expect scalar here") if ref $h{data} eq 'SCALAR';
logpkg(__FILE__,__LINE__,'logcarp',"didn't expect code here") if ref $h{data} eq 'CODE';
# print "data: $h{data}, ", ref $h{data}, $/;
if ( ref $h{data} !~ /^(HASH|ARRAY|CODE|GLOB|HANDLE|FORMAT)$/){
# we guess object
$class = ref $h{data};
logpkg(__FILE__,__LINE__,'debug',"I found an object of class $class");
}
$class = $h{class};
$class .= "::" unless $class =~ /::$/; # SKIP_PREPROC
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
mpg123/readers.c view on Meta::CPAN
return 0;
bytes = (fr->framesize+8)*(num+2);
/* Buffered mode is a bit trickier. From the size of the buffered
* output audio stream we have to make a guess at the number of frames
* this corresponds to.
*/
if(param.usebuffer)
bytes += (long)(xfermem_get_usedspace(buffermem) /
(buffermem->buf[0] * buffermem->buf[1]
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/Audio/Radio/XM/PCR.pm view on Meta::CPAN
foreach my $channel (keys %{$self->{'channels'}}) {
if ($channel != $current_channel) {
$self->{'channels'}->{$channel}->{'last_update'} = 0;
}
}
# Iterate - We're out of sync so make a guess
my $last_channel = 1;
while ($self->{'full_refresh'}->{'completed'} == 0) {
for (my $channel = 1; $channel < 256; $channel++) {
next if $channel == $current_channel;
next if !defined $self->{'channels'}->{$channel};
view release on metacpan or search on metacpan
Encryption, Script Command, and Digital Signature objects.
- ASF: Fixed handling of multiple WM/Picture tags.
0.03 2009-04-11 14:30:00
- Fixed big-endian GUID issues with ASF.
- (libid3tag) Updated to latest config.guess.
0.02 2009-04-10 17:15:00
- ASF (WMA/WMV) parsing support.
- Improved directory structure.
- Added build instructions for Win32.
view release on metacpan or search on metacpan
lib/Audio/TagLib/FileRef.pm view on Meta::CPAN
=item I<L<File|Audio::TagLib::File> create(PV $fileName, BOOL
$readAudioProperties = TRUE, L<PV|Audio::TagLib::AudioProperties>
$audioPropertiesStyle = "Average")> [static]
A simple implementation of file type guessing. If $readAudioProperties
is true then the audio properties will be read using
$audioPropertiesStyle. If $readAudioProperties is false then
$audioPropertiesStyle will be ignored.
B<NOTE> You generally shouldn't use this method, but instead the
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
view release on metacpan or search on metacpan
# create a captcha. Image filename is "$token.png"
my $token = $captcha->generate_code($number_of_characters);
# check for a valid submitted captcha
# $code is the submitted letter combination guess from the user
# $token is the submitted token from the user (that we gave them)
my $results = $captcha->check_code($code,$token);
# $results will be one of:
# 1 : Passed
# 0 : Code not checked (file error)
=item C<$results = $captcha-E<gt>check_code($code,$token);>
check for a valid submitted captcha
$code is the submitted letter combination guess from the user
$token is the submitted token from the user (that we gave them)
If the $code and $token are correct, the image file and database entry will be removed.
view release on metacpan or search on metacpan
lib/Authen/HOTP.pm view on Meta::CPAN
sub hotp
{
my ($secret, $c, $digits) = @_;
# guess hex encoded
$secret = join("", map chr(hex), $secret =~ /(..)/g)
if $secret =~ /^[a-fA-F0-9]{32,}$/;
$c = new Math::BigInt ($c)
unless ref $c eq "Math::BigInt";
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
=head1 DESCRIPTION
This module provides an interface to create crypto-strong PIN numbers
for applications such as calling cards that require a number that is
difficult to guess and that might convey hidden information.
It is based on templates, that define how the resulting PIN number
will be constructed by combining the following components:
=over
view release on metacpan or search on metacpan
examples/oo_interface.pl view on Meta::CPAN
salt_hex => $salt_hex,
hash_hex => $hash_hex
);
if ( $auth->match($clear_passphrase) ) {
print "That's a match. Hmf! A lucky guess!\n";
}
else {
print "Not even close!\n";
}
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/Authen/Passphrase.pm view on Meta::CPAN
One timing attack that is very obviously feasible over the network is to
determine which of several passphrase hashing algorithms is being used.
This can potentially distinguish between classes of user accounts,
or distinguish between existing and non-existing user accounts when an
attacker is guessing usernames. To obscure this information requires
an extreme restriction of the timing channel, most likely by explicitly
pausing to standardise the amount of time spent on authentication.
This defence also rules out essentially all other timing attacks.
=head1 PASSPHRASE ENCODINGS
view release on metacpan or search on metacpan
lib/Authen/PluggableCaptcha/Tutorial.pm view on Meta::CPAN
Yes. it renders directly on this example 'Generate a Captcha' above.
I think there is some confusion in this tutorial because i do 2 things that are a little odd:
a- i run through the captcha generator to pull a new valid key, this way i can use a new example and have a key validate
b- i run through the captcha validator while i can 'guess' an obviously wrong answer. The way the system is structured, a solution is only provided when you try to validate the captcha. That is because you might want to 'Render' an existing sound/...
To display a CAPTCHA, you just create a new object and call the render method , passing in a challenge class and render class. You can call the render method as often as you'd like. Currently, the module will transparently validate the key in order...
=head3 You actually need to validate the key before check for a correct answer. But couldn't that data be stored on the backend?
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
SimplePam.pm view on Meta::CPAN
}
else
{
# $state not defined
# This means that we got an unknow message.
# guessing blindly
warn "Don't know what to do about '$pam_message' .\n";
print "DEBUG: 'done' guess flag is $done\n";
if ($done == 0)
{
$answer = $old_password;
warn "Trying to give the OLD password.\n";
view release on metacpan or search on metacpan
inc/ExtUtils/AutoInstall.pm view on Meta::CPAN
_check_lock(); # check for $UnderCPAN
if (@Missing and not ($CheckOnly or $UnderCPAN)) {
require Config;
print "*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n" if eval '$>';
}
print "*** $class configuration finished.\n";
chdir $cwd;
inc/ExtUtils/AutoInstall.pm view on Meta::CPAN
_load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath(Cwd::cwd());
view release on metacpan or search on metacpan
lib/AutoCode/MarshalRoot.pm view on Meta::CPAN
return $self;
}else{
my %params = @args;
@params{map{lc $_}keys $params}=values %params;
my $private = $params{$selector}||$params{"-$selector"};
$private ||= $class->_guess_private(@args);
$class->throw("Unknown $selector given") unless $private;
my $private_module="$marshal\::$private";
return undef unless($class->_load_module($private_module);
return $private_module->new(@args);
}
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
share/INSTALL.tt view on Meta::CPAN
familar to people who are familiar with using the GNU autotools
('./configure' and friends...). See the section titled "Customizing
the Installation" for information regarding special options for this
package.
The `configure' shell script attempts to guess correct values for
various system-dependent variables used during compilation. It uses
those values to create a `Makefile' in each directory of the package.
It may also create one or more `.h' files containing system-dependent
definitions. Finally, it creates a shell script `config.status' that
you can run in the future to recreate the current configuration, and a
share/INSTALL.tt view on Meta::CPAN
There may be some features `configure' cannot figure out automatically,
but needs to determine by the type of machine the package will run on.
Usually, assuming the package is built to be run on the _same_
architectures, `configure' can figure that out, but if it prints a
message saying it cannot guess the machine type, give it the
`--build=TYPE' option. TYPE can either be a short name for the system
type, such as `sun4', or a canonical name which has the form:
CPU-COMPANY-SYSTEM
view release on metacpan or search on metacpan
lib/Autodia/Diagram.pm view on Meta::CPAN
print STDERR "Diagram.pm : add_class : ignoring duplicate class",
$class->Name, "\n";
# warn Dumper (original_class=>$self->{"packages"}{"class"}{$class->Name});
return $self->{"packages"}{"class"}{$class->Name};
}
# note : when running benchmark.pl this seems to appear which I guess is a
# scoping issue when calling autodial multiple times - odd, beware if using
# mod_perl or something similar, not that it breaks anything but you never know
$class->Set_Id($self->_object_count);
$self->_package_add($class);