Re: [Gutl-l] ayude con perl para squid help squid_db_auth
El 04/11/14 a las 15:22, maikel escribió: mira no estoy al tanto de todo lo que has hecho yo uso autenticacion contra mysql con ese mismo modulo y lo unico que tuve que hacer es ir al directorio /usr/lib/squid3/ y editar el archivo squid_db_auth luego en el squid.conf puse algunas lineas como estas auth_param basic program /usr/lib/squid3/squid_db_auth auth_param basic children 5 auth_param basic realm Proxy Cardiocentro Pediatrico William Soler auth_param basic credentialsttl 15 minute auth_param basic casesensitive on redirect_children 5 acl passwd proxy_auth REQUIRED con esto ya me autentique contra mysql El 04/11/14 a las 14:57, Arian Molina Aguilera escribió: El 04/11/14 a las 08:47, låzaro escribió: y tiene que ser con perl obligado? tengo un gestor de usuarios de squid por aqui que trabaja ruby + sqlite3 Soporta basi y digest Además, maneja los usuarios, genera claves seguras y foneticas Thread name: "Re: [Gutl-l] ayude con perl para squid help squid_db_auth" Mail number: 6 Date: Mon, Nov 03, 2014 In reply to: Ulises González Horta El vie, 31-10-2014 a las 17:51 -0400, Arian Molina Aguilera escribió: , si alguien que conozca perl pueda echarle un ojos a los enlaces que hago referencia y pueda ayudarme con esto, seguro también contribuiría a ayudar a muchos otros más. Un Salu2 y gracias. [1] https://gist.github.com/ggl/4966699 Dejame ver si entendí la idea de esto antes de que meta la pata... y aprenda un poco más de programación inútil Necesitas que lo que hay en [1] en lugar de validar las claves/usuarios en un archivo de texto lo haga en una DB Mysql, manteniendo en la medida de lo posible las mismas opciones, es eso?? -- Salu2 Ulinx Linux user 366775 "En un problema con n ecuaciones siempre habrá al menos n+1 incógnitas." -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l Lazaro ya eso lo hablamos, y me quede esperando, me dijiste que habías tenido tiempo, y que me enviarías uno que tenias para mysql. ya yo tengo importado en la bd en mysql la información exacta como la tengo en el archivo passwd, generado con htpasswd, necesito en lo posible emplear estos mismo, ya que no podría volver a generarles nuestras contraseñas a todos los usuarios, y los hash md5 están en el formado que emplea apache y no en el estándar de la función md5 de php o mysql. Buscando soluciones, me encontré con el helper squid_db_auth para autenticar squid contra bases de datos, pero emplea lo que ya he explicado en correos anteriores, y no me valida, seguí buscando y encontrar la herramientas htpasswd.pl. programada en perl, lo cual no hace dependiente de apache-tools en el servidor proxy para contar con la herramienta htpasswd y poder generar las contraseñas en el archivo passwd que emplea basic_ncsa_auth del squid3, el cual empleo en estos momentos, la idea es llevar esto a base de datos, para programar una herramienta web que pueda servir para que los usuarios puedan gestionar/cambiar su contraseña remotamente. Salu2. Si socio eso lo se, eso funciona sin problema cuando desde un inicio se emplea, y tienes la contraseñas, es decir los hash en el estándar de md5, que usa php, o mysql, pero como yo importe, migre los datos desde el archivo passwd que utilizaba la autenticación ncsa, estos hash, no validan cuando usas el helper basic_db_auth, y como esta programado en perl, mi interés y modificarlo para que si valide cuando se realiza una migración como la mía, conservando los datos,ya que mis usuarios son cientos, remotos, y por todo el país, y no puedo cambiarles la contraseña, al menos si tuviera una herramienta que vía web ellos mismo lo hicieran y de esa forma se actualizara su contraseña en la bd con el formado o estándar md5 correcto. Entiendes ahora. Un salu2 y gracias a todos por interesarse en este tema y ayudar. -- Ing. Arian Molina Aguilera Administrador de Redes y Servicios Telemáticos Linux Usuario Registrado #392892 Telfs: +53(7)2047874, +53(7)204-2710 ext 123 jabber: ar...@artex.sa Nodo Central ARTex S.A. La Habana. Cuba. -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
mira no estoy al tanto de todo lo que has hecho yo uso autenticacion contra mysql con ese mismo modulo y lo unico que tuve que hacer es ir al directorio /usr/lib/squid3/ y editar el archivo squid_db_auth luego en el squid.conf puse algunas lineas como estas auth_param basic program /usr/lib/squid3/squid_db_auth auth_param basic children 5 auth_param basic realm Proxy Cardiocentro Pediatrico William Soler auth_param basic credentialsttl 15 minute auth_param basic casesensitive on redirect_children 5 acl passwd proxy_auth REQUIRED con esto ya me autentique contra mysql El 04/11/14 a las 14:57, Arian Molina Aguilera escribió: > El 04/11/14 a las 08:47, låzaro escribió: >> y tiene que ser con perl obligado? tengo un gestor de usuarios de >> squid por aqui que trabaja ruby + sqlite3 >> >> Soporta basi y digest >> >> Además, maneja los usuarios, genera claves seguras y foneticas >> >> >> Thread name: "Re: [Gutl-l] ayude con perl para squid help squid_db_auth" >> Mail number: 6 >> Date: Mon, Nov 03, 2014 >> In reply to: Ulises González Horta >>> El vie, 31-10-2014 a las 17:51 -0400, Arian Molina Aguilera escribió: >>>> , si alguien que conozca perl pueda echarle un ojos a los >>>> enlaces que hago referencia y pueda ayudarme con esto, seguro también >>>> contribuiría a ayudar a muchos otros más. Un Salu2 y gracias. >>>> >>>> [1] https://gist.github.com/ggl/4966699 >>> Dejame ver si entendí la idea de esto antes de que meta la >>> pata... y >>> aprenda un poco más de programación inútil >>> >>> Necesitas que lo que hay en [1] en lugar de validar las claves/usuarios >>> en un archivo de texto lo haga en una DB Mysql, manteniendo en la >>> medida de lo posible las mismas opciones, es eso?? >>> >>> -- >>> Salu2 >>> >>> Ulinx >>> Linux user 366775 >>> "En un problema con n ecuaciones >>> siempre habrá al menos n+1 incógnitas." >>> >>> >>> -- >>> Este mensaje ha sido analizado por MailScanner >>> en busca de virus y otros contenidos peligrosos, >>> y se considera que está limpio. >>> >>> __ >>> Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. >>> Gutl-l@jovenclub.cu >>> https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l >> >> >> __ >> Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. >> Gutl-l@jovenclub.cu >> https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l > Lazaro ya eso lo hablamos, y me quede esperando, me dijiste que habías > tenido tiempo, y que me enviarías uno que tenias para mysql. ya yo > tengo importado en la bd en mysql la información exacta como la tengo > en el archivo passwd, generado con htpasswd, necesito en lo posible > emplear estos mismo, ya que no podría volver a generarles nuestras > contraseñas a todos los usuarios, y los hash md5 están en el formado > que emplea apache y no en el estándar de la función md5 de php o > mysql. Buscando soluciones, me encontré con el helper squid_db_auth > para autenticar squid contra bases de datos, pero emplea lo que ya he > explicado en correos anteriores, y no me valida, seguí buscando y > encontrar la herramientas htpasswd.pl. programada en perl, lo cual no > hace dependiente de apache-tools en el servidor proxy para contar con > la herramienta htpasswd y poder generar las contraseñas en el archivo > passwd que emplea basic_ncsa_auth del squid3, el cual empleo en estos > momentos, la idea es llevar esto a base de datos, para programar una > herramienta web que pueda servir para que los usuarios puedan > gestionar/cambiar su contraseña remotamente. Salu2. > -- Maikel Rivas González Admin Red Cardiocentro Pediátrico William Soler Correo enviado por el servicio de mensajería interna del Cardiocentro Pediátrico William Soler. -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
El 04/11/14 a las 08:47, låzaro escribió: y tiene que ser con perl obligado? tengo un gestor de usuarios de squid por aqui que trabaja ruby + sqlite3 Soporta basi y digest Además, maneja los usuarios, genera claves seguras y foneticas Thread name: "Re: [Gutl-l] ayude con perl para squid help squid_db_auth" Mail number: 6 Date: Mon, Nov 03, 2014 In reply to: Ulises González Horta El vie, 31-10-2014 a las 17:51 -0400, Arian Molina Aguilera escribió: , si alguien que conozca perl pueda echarle un ojos a los enlaces que hago referencia y pueda ayudarme con esto, seguro también contribuiría a ayudar a muchos otros más. Un Salu2 y gracias. [1] https://gist.github.com/ggl/4966699 Dejame ver si entendí la idea de esto antes de que meta la pata... y aprenda un poco más de programación inútil Necesitas que lo que hay en [1] en lugar de validar las claves/usuarios en un archivo de texto lo haga en una DB Mysql, manteniendo en la medida de lo posible las mismas opciones, es eso?? -- Salu2 Ulinx Linux user 366775 "En un problema con n ecuaciones siempre habrá al menos n+1 incógnitas." -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l Lazaro ya eso lo hablamos, y me quede esperando, me dijiste que habías tenido tiempo, y que me enviarías uno que tenias para mysql. ya yo tengo importado en la bd en mysql la información exacta como la tengo en el archivo passwd, generado con htpasswd, necesito en lo posible emplear estos mismo, ya que no podría volver a generarles nuestras contraseñas a todos los usuarios, y los hash md5 están en el formado que emplea apache y no en el estándar de la función md5 de php o mysql. Buscando soluciones, me encontré con el helper squid_db_auth para autenticar squid contra bases de datos, pero emplea lo que ya he explicado en correos anteriores, y no me valida, seguí buscando y encontrar la herramientas htpasswd.pl. programada en perl, lo cual no hace dependiente de apache-tools en el servidor proxy para contar con la herramienta htpasswd y poder generar las contraseñas en el archivo passwd que emplea basic_ncsa_auth del squid3, el cual empleo en estos momentos, la idea es llevar esto a base de datos, para programar una herramienta web que pueda servir para que los usuarios puedan gestionar/cambiar su contraseña remotamente. Salu2. -- Ing. Arian Molina Aguilera Administrador de Redes y Servicios Telemáticos Linux Usuario Registrado #392892 Telfs: +53(7)2047874, +53(7)204-2710 ext 123 jabber: ar...@artex.sa Nodo Central ARTex S.A. La Habana. Cuba. -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. próxima parte Se ha borrado un adjunto en formato HTML... URL: <http://listas.jovenclub.cu/pipermail/gutl-l/attachments/20141104/ad0b0b74/attachment.html> __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
El 04/11/14 a las #4, låzaro escribió: y tiene que ser con perl obligado? tengo un gestor de usuarios de squid por aqui que trabaja ruby + sqlite3 Soporta basi y digest Además, maneja los usuarios, genera claves seguras y foneticas Thread name: "Re: [Gutl-l] ayude con perl para squid help squid_db_auth" Mail number: 6 Date: Mon, Nov 03, 2014 In reply to: Ulises González Horta El vie, 31-10-2014 a las 17:51 -0400, Arian Molina Aguilera escribió: , si alguien que conozca perl pueda echarle un ojos a los enlaces que hago referencia y pueda ayudarme con esto, seguro también contribuiría a ayudar a muchos otros más. Un Salu2 y gracias. [1] https://gist.github.com/ggl/4966699 Dejame ver si entendí la idea de esto antes de que meta la pata... y aprenda un poco más de programación inútil Necesitas que lo que hay en [1] en lugar de validar las claves/usuarios en un archivo de texto lo haga en una DB Mysql, manteniendo en la medida de lo posible las mismas opciones, es eso?? -- Salu2 Ulinx Linux user 366775 "En un problema con n ecuaciones siempre habrá al menos n+1 incógnitas." -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l lazaro pudieras compartir las mieles. -- /*** *Juan Carlos Hernández Gallardo *Administrador de Red *ETE UEB Ciego de Ávila / -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. próxima parte Se ha borrado un adjunto en formato HTML... URL: <http://listas.jovenclub.cu/pipermail/gutl-l/attachments/20141104/f373a6e3/attachment.html> __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
escribe un correo a f...@hcg.sld.cu y pon en el asunto la palabra: tariche Thread name: "Re: [Gutl-l] ayude con perl para squid help squid_db_auth" Mail number: 8 Date: Tue, Nov 04, 2014 In reply to: Jessy Vidal > > El 2014-11-04 8:47 am, låzaro escribió: > >y tiene que ser con perl obligado? tengo un gestor de usuarios de > >squid por aqui que trabaja ruby + sqlite3 > > > >Soporta basi y digest > > > >Además, maneja los usuarios, genera claves seguras y foneticas > eh eh eh ?? como puedo tener eso??? > > --- > Jessy Hernandez Vidal| Telefono:8612512 > Jefe de Grupo de Informatización | email: je...@arnac.cu > Archivo Nacional de Cuba(ARNAC) | jabber: jessys...@jabber.arnac.cu > Compostela # 906 Esq. San Isidro.| web: www.arnac.cu > Habana Vieja, Cuba. | > Linux Mint 17 Qiana > Evite los virus. Use Linux o Hierva el ordenador antes de usar. > > -- > Este mensaje ha sido analizado por MailScanner > en busca de virus y otros contenidos peligrosos, > y se considera que est? limpio. > > __ > Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. > Gutl-l@jovenclub.cu > https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l -- Warning! 100'000 pelos de escoba fueron introducidos satisfactoriamente en su puerto USB. A continuación, la firma de una herramienta inútil: -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que est� limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
El 2014-11-04 8:47 am, låzaro escribió: y tiene que ser con perl obligado? tengo un gestor de usuarios de squid por aqui que trabaja ruby + sqlite3 Soporta basi y digest Además, maneja los usuarios, genera claves seguras y foneticas eh eh eh ?? como puedo tener eso??? --- Jessy Hernandez Vidal| Telefono:8612512 Jefe de Grupo de Informatización | email: je...@arnac.cu Archivo Nacional de Cuba(ARNAC) | jabber: jessys...@jabber.arnac.cu Compostela # 906 Esq. San Isidro.| web: www.arnac.cu Habana Vieja, Cuba. | Linux Mint 17 Qiana Evite los virus. Use Linux o Hierva el ordenador antes de usar. -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que est� limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
y tiene que ser con perl obligado? tengo un gestor de usuarios de squid por aqui que trabaja ruby + sqlite3 Soporta basi y digest Además, maneja los usuarios, genera claves seguras y foneticas Thread name: "Re: [Gutl-l] ayude con perl para squid help squid_db_auth" Mail number: 6 Date: Mon, Nov 03, 2014 In reply to: Ulises González Horta > > El vie, 31-10-2014 a las 17:51 -0400, Arian Molina Aguilera escribió: > > , si alguien que conozca perl pueda echarle un ojos a los > > enlaces que hago referencia y pueda ayudarme con esto, seguro también > > contribuiría a ayudar a muchos otros más. Un Salu2 y gracias. > > > > [1] https://gist.github.com/ggl/4966699 > > Dejame ver si entendí la idea de esto antes de que meta la pata... y > aprenda un poco más de programación inútil > > Necesitas que lo que hay en [1] en lugar de validar las claves/usuarios > en un archivo de texto lo haga en una DB Mysql, manteniendo en la > medida de lo posible las mismas opciones, es eso?? > > -- > Salu2 > > Ulinx > Linux user 366775 > "En un problema con n ecuaciones > siempre habrá al menos n+1 incógnitas." > > > -- > Este mensaje ha sido analizado por MailScanner > en busca de virus y otros contenidos peligrosos, > y se considera que está limpio. > > __ > Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. > Gutl-l@jovenclub.cu > https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l -- Warning! 100'000 pelos de escoba fueron introducidos satisfactoriamente en su puerto USB. A continuación, la firma de una herramienta inútil: -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que est� limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
El vie, 31-10-2014 a las 17:51 -0400, Arian Molina Aguilera escribió: > , si alguien que conozca perl pueda echarle un ojos a los > enlaces que hago referencia y pueda ayudarme con esto, seguro también > contribuiría a ayudar a muchos otros más. Un Salu2 y gracias. > > [1] https://gist.github.com/ggl/4966699 Dejame ver si entendí la idea de esto antes de que meta la pata... y aprenda un poco más de programación inútil Necesitas que lo que hay en [1] en lugar de validar las claves/usuarios en un archivo de texto lo haga en una DB Mysql, manteniendo en la medida de lo posible las mismas opciones, es eso?? -- Salu2 Ulinx Linux user 366775 "En un problema con n ecuaciones siempre habrá al menos n+1 incógnitas." -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
El 31/10/2014 a las #4, Ulises González Horta escribió:
El vie, 31-10-2014 a las 17:51 -0400, Arian Molina Aguilera escribió:
quiero modificar el helper del squid para autenticación contra bd, el
cual esta programado en perl
puedes mandar el código de este tio??
Acá esta. Sau2.
#!/usr/bin/perl
use strict;
use DBI;
use Getopt::Long;
use Pod::Usage;
use Digest::MD5 qw(md5 md5_hex md5_base64);
$|=1;
=pod
=head1 NAME
squid_db_auth - Database auth helper for Squid
=cut
my $dsn = "DBI:mysql:database=squid";
my $db_user = undef;
my $db_passwd = undef;
my $db_table = "passwd";
my $db_usercol = "user";
my $db_passwdcol = "password";
my $db_cond = "enabled = 1";
my $plaintext = 0;
my $md5 = 0;
my $persist = 0;
my $isjoomla = 0;
my $debug = 0;
my $hashsalt = undef;
=pod
=head1 SYNOPSIS
squid_db_auth [options]
=head1 DESCRIPTOIN
This program verifies username & password to a database
=over 8
=itemB<--dsn>
Database DSN. Default "DBI:mysql:database=squid"
=itemB<--user>
Database User
=itemB<--password>
Database password
=itemB<--table>
Database table. Default "passwd".
=itemB<--usercol>
Username column. Default "user".
=itemB<--passwdcol>
Password column. Default "password".
=itemB<--cond>
Condition, defaults to enabled=1. Specify 1 or "" for no condition
If you use --joomla flag, this condition will be changed to block=0
=itemB<--plaintext>
Database contains plain-text passwords
=item B<--md5>
Database contains unsalted md5 passwords
=itemB<--salt>
Selects the correct salt to evaluate passwords
=itemB<--persist>
Keep a persistent database connection open between queries.
=item B<--joomla>
Tells helper that user database is Joomla DB. So their unusual salt
hashing is understood.
=back
=cut
GetOptions(
'dsn=s' => \$dsn,
'user=s' => \$db_user,
'password=s' => \$db_passwd,
'table=s' => \$db_table,
'usercol=s' => \$db_usercol,
'passwdcol=s' => \$db_passwdcol,
'cond=s' => \$db_cond,
'plaintext' => \$plaintext,
'md5' => \$md5,
'persist' => \$persist,
'joomla' => \$isjoomla,
'debug' => \$debug,
'salt=s' => \$hashsalt,
);
my ($_dbh, $_sth);
$db_cond = "block = 0" if $isjoomla;
sub close_db()
{
return if !defined($_dbh);
undef $_sth;
$_dbh->disconnect();
undef $_dbh;
}
sub open_db()
{
return $_sth if defined $_sth;
$_dbh = DBI->connect($dsn, $db_user, $db_passwd);
if (!defined $_dbh) {
warn ("Could not connect to $dsn\n");
my @driver_names = DBI->available_drivers();
my $msg = "DSN drivers apparently installed, available:\n";
foreach my $dn (@driver_names) {
$msg .= "\t$dn";
}
warn($msg."\n");
return undef;
}
my $sql_query;
$sql_query = "SELECT $db_passwdcol FROM $db_table WHERE $db_usercol
= ?" . ($db_cond ne "" ? " AND $db_cond" : "");
$_sth = $_dbh->prepare($sql_query) || die;
return $_sth;
}
sub check_password($$)
{
my ($password, $key) = @_;
if ($isjoomla){
my $salt;
my $key2;
($key2,$salt) = split (/:/, $key);
return 1 if md5_hex($password.$salt).':'.$salt eq $key;
}
else{
return 1 if defined $hashsalt && crypt($password, $hashsalt) eq
$key;
return 1 if crypt($password, $key) eq $key;
return 1 if $md5 && md5_hex($password) eq $key;
return 1 if $plaintext && $password eq $key;
}
return 0;
}
sub query_db($) {
my ($user) = @_;
my ($sth) = open_db() || return undef;
if (!$sth->execute($user)) {
close_db();
open_db() || return undef;
$sth->execute($user) || return undef;;
}
return $sth;
}
my $status;
while (<>) {
my ($user, $password) = split;
$status = "ERR";
$user =~ s/%(..)/pack("H*", $1)/ge;
$password =~ s/%(..)/pack("H*", $1)/ge;
$status = "ERR database error";
my $sth = query_db($user) || next;
$status = "ERR unknown login";
my $row = $sth->fetchrow_arrayref() || next;
$status = "ERR login failure";
next if (!check_password($password, @$row[0]));
$status = "OK";
} continue {
close_db() if (!$persist);
print $status . "\n";
}
=pod
=head1 COPYRIGHT
Copyright (C) 2007 Henrik Nordstrom
Copyright (C) 2010 Luis Daniel Lucio Quiroz (Joomla
support)
This program is free software. You may redistribute copies of it under the
terms of the GNU General Public License version 2, or (at youropinion) any
later version.
=cut
--
Ing. Arian Molina Aguilera
Administrador de Redes y Servicios Telemáticos
Linux Usuario Registrado #392892
Telfs: +53(7)2047874, +53(7)204-2710 ext 123
jabber: ar...@artex.sa
Nodo Central ARTex S.A. La Habana. Cuba.
--
Este mensaje ha sido analizado por MailScanner
en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
__
Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba.
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
El vie, 31-10-2014 a las 17:51 -0400, Arian Molina Aguilera escribió: > quiero modificar el helper del squid para autenticación contra bd, el > cual esta programado en perl puedes mandar el código de este tio?? -- Salu2 Ulinx Linux user 366775 "En un problema con n ecuaciones siempre habrá al menos n+1 incógnitas." -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] ayude con perl para squid help squid_db_auth
El 29/10/2014 a las #4, Ulises González Horta escribió: El mié, 29-10-2014 a las 19:24 -0400, Arian Molina Aguilera escribió: Alguien que sepa programación en perl que me tire al privado necesito una ayudita. Que necesitas?? tu duda puedes ayudar a otros... quiero modificar el helper del squid para autenticación contra bd, el cual esta programado en perl, pero yo tengo la bd en mysql, exactamente igual que como tengo los usuarios y password con sus hash en md5, que importe del archivo passwd el cual se generaron con htpasswd, la herramienta del apache, ahora bien estos no me autentican con el helper squid_db_auth ya que los md5 no son los mismos que generan dicha función de mysql, o php, o cualquier otra que se ajuste al estándar, leyendo e investigando por ahí htpasswd de apache, usa su propio algoritmo md5 el cual no es estándar y ahora esas contraseñas no me funcionan, investigando más he encontrado un htpasswd.pl [1] , programado en perl, el cual funciona igual que el del apache, y usa los modulos Authen::Htpasswd [2] y Apache::Htpasswd [3] , ahora quiero que utilizando los mismo reprogramar squid_db_auth, para que la validación de los password, es decir los hash que tengo almacenado en mysql, se comporte exactamente igual que hace el htpasswd, y estos si me validen, ya que no puedo volverles a migrar la contraseña a todos los usuarios, para que vuelvan a generar en md5 con el standar que si valida, y tampoco cuento con una herramienta web para que los usuarios remotamente hagan ese cambio de contraseña y se generen los hash en md5 correctamente, si alguien que conozca perl pueda echarle un ojos a los enlaces que hago referencia y pueda ayudarme con esto, seguro también contribuiría a ayudar a muchos otros más. Un Salu2 y gracias. [1] https://gist.github.com/ggl/4966699 [2] http://search.cpan.org/~mstrout/Authen-Htpasswd-0.171/lib/Authen/Htpasswd.pm [3] http://search.cpan.org/~kmeltz/Apache-Htpasswd-1.9/Htpasswd.pm -- Ing. Arian Molina Aguilera Administrador de Redes y Servicios Telemáticos Linux Usuario Registrado #392892 Telfs: +53(7)2047874, +53(7)204-2710 ext 123 jabber: ar...@artex.sa Nodo Central ARTex S.A. La Habana. Cuba. -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
