[Cascavel-pm] "Carregar" session id.

fernandolouis em terra.com.br fernandolouis em terra.com.br
Quinta Janeiro 31 04:48:03 PST 2008


Minha dica é a seguinte:

Utilize a função de espalhamento, conhecida como MD5 (do módulo "Digest")

faça uma função pegando: "time" e "$pid", se possível também pegue o nome do usuário.

Com essa três informações pode-se criar um sessionID com o "md5_hex" do Digest:MD5

usando a função md5_hex a possibilidade de criar um mesmo sessionID é de 2**128 (dois na cento e vinte e oito)

[]s,
Fernando

  ----- Original Message ----- 
  From: Rafael Lebrao Martins 
  To: cascavel-pm em pm.org 
  Sent: Wednesday, January 30, 2008 11:03 AM
  Subject: [Cascavel-pm] "Carregar" session id.


  Bom dia, pessoal. Criei um código para gerar um session id, mas agora não sei 
  como "carregar" esse id em todos os códigos do programa, permitindo o acesso apenas
  se o id estiver contido na url. 

  Esse código gera o ID:

  #!/usr/bin/perl

  use warnings;
  use strict;
  use CGI qw ( :standard);
  use CGI::Session qw/-ip-match/;

  my $file = '/var/www/cgi-bin/imm/sid.txt';
  open( SID, '>', "$file" );

  my $path_sessoes = '/tmp';
  my $login;
  my $session =
    new CGI::Session( "driver:File", undef, { 'Directory' => "$path_sessoes" } );
  $session->param( 'teste_tmg', "$login" );
  $session->param( '_IDLE_EXPIRY' => time + 1800 );
  $session->expire('+1d');
  my $sid = $session->id();

  print( SID "$sid" );
  close(SID);




------------------------------------------------------------------------------


  _______________________________________________
  Cascavel-pm mailing list
  Cascavel-pm em pm.org
  http://mail.pm.org/mailman/listinfo/cascavel-pm
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080131/114e2e8a/attachment.html 


Mais detalhes sobre a lista de discussão Cascavel-pm