SID per Perl generieren - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von Dirkus (7 Beiträge) am Montag, 4.Februar.2002, 17:07.
    SID per Perl generieren

      Hallo,

      wie kann man eine einmalige SID (möglichst kompliziert) per Perl möglichst einfach generieren? Gibt es da wie in PHP eine Funktion? Oder Beispiele in der LIB?

      $SID=time; erscheint mir doch etwas zu einfach ;-)

      Weiß jemand von Euch etwas besseres?

      Dirk ;-)


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Dirkus (7 Beiträge) am Montag, 4.Februar.2002, 17:07.
    SID per Perl generieren

      Hallo,

      wie kann man eine einmalige SID (möglichst kompliziert) per Perl möglichst einfach generieren? Gibt es da wie in PHP eine Funktion? Oder Beispiele in der LIB?

      $SID=time; erscheint mir doch etwas zu einfach ;-)

      Weiß jemand von Euch etwas besseres?

      Dirk ;-)

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 4.Februar.2002, 17:53.
    Re: SID per Perl generieren

      hab hier wasgefunden - stammt zwar von php sollte aber auch in Perl funzen - ist aber nicht getestet

      $session_code_length=13;
      rand(time());
      $Puddle="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
          for($index=0; $index < $session_code_length; $index++)
    {
        $sid.=substr($Puddle, (rand()%(length($Puddle))), 1);
    }

      Sander

     Antworten

    Beitrag von Dirkus (7 Beiträge) am Montag, 4.Februar.2002, 18:04.
    @sander: nicht ganz

      Funzt nicht ganz ;-)

      aber so gehts:

      <perl>
$session_code_length=13;
      rand(time());
      $Puddle="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
       
      for($index=0; $index < $session_code_length; $index++)
    {
        $sid.=substr($Puddle, rand(length($Puddle)), 1);
    }
out $sid;
</perl>

      Danke.
      Dirk

     Antworten


     
 Liste der Einträge von 50550 bis 50700:Einklappen Zur Eingabe 
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge

Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.06s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!