Generieren einer SessionID

[Siechfred]

Tag Christian.

Fein, darf ich mir die sub "klauen"?
Selbstverstaendlich, ist doch OpenSource (direkt aus dem Classic Forum
entnommen).

Ich habe es etwas abgewandelt:

sub _create_SID {
  my $rmid = $ENV{HTTP_X_FORWARDED_FOR} || $ENV{REMOTE_ADDR} || '654.546.654.546';
  $rmid =~ tr/./0/;
  $rmid = pack("a[12]",$rmid);
  my @chars = split // => 'aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0123456789-_';
  my $id = '';
  $id .= $chars[$_] foreach split // => $rmid;
  $id .= $chars[rand @chars] for 1..4;
  return $id;
}

Das liefert mir eine 16-stellige SessionID. Dann kann ich ja weiterbasteln :)

Siechfred