Tilfældigt password

Hej allesammen

Jeg kunne godt tænke mig et stykke kode, der kan sammensætte et tilfældigt password med 8-10 tegn og med følgende tegn:

abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ123456789

sproget er lidt ligegyldigt, men helst noget PHP eller javascript.

Her kommer lige lidt Delphi-kode jeg hurtigt lavede da jeg selv skulle bruge nogle skumle passwords

<pre>
unit uMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

const
Chars = 'aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ1234567890';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i, Basis, Ekstra: integer;
s: string;
begin
Basis := 7;
Ekstra := Basis + Random(4);
s := '';
for i := 0 to Ekstra do
begin
s := s + Chars[Random(Length(Chars))];
end;
Edit1.Text := s;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Button1.Click;
end;

end.
</pre>

En gang i mellem giver den godt nok et tomt password eller et der kun er på et par tegn...

Har prøvet den, men kan ikk få det til at virke... hva er der galt??? min kode ser således ud:

<?php

$lenght = "8"; [b]En slå fejl her. Skal være $length[/b]
$chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"; 

for ($i=0; $i<$length; $i++) { 
$int = rand(0, strlen($chars)-1); 
$password .= substr($chars, $int, 1); 
} 
echo "$password";

?>

Tjek altid syntaks

// Kasper

Hej allesammen

Jeg kunne godt tænke mig et stykke kode, der kan sammensætte et tilfældigt password med 8-10 tegn og med følgende tegn:

abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ123456789

sproget er lidt ligegyldigt, men helst noget PHP eller javascript.


Her kommer lige lidt Delphi-kode jeg hurtigt lavede da jeg selv skulle bruge nogle skumle passwords

<pre>
unit uMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

const
Chars = 'aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ1234567890';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i, Basis, Ekstra: integer;
s: string;
begin
Basis := 7;
Ekstra := Basis + Random(4);
s := '';
for i := 0 to Ekstra do
begin
s := s + Chars[Random(Length(Chars))];
end;
Edit1.Text := s;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Button1.Click;
end;

end.
</pre>

En gang i mellem giver den godt nok et tomt password eller et der kun er på et par tegn...

Jeg har ikk Delphi eller lign... det skal være et sprog der kan læses af en browser... men gerne et serversprog...

Min server understøtter bl. a. PHP og ASP, så gerne noget i det. (Helst PHP)

//Emilbp

-| I am just... Me!! |-

[Redigeret d. 21/04-04 15:24:36 af Emil Bjerglund Pedersen]

http://www.udvikleren.dk/thread.php?techid=6&f=6&t=1566

læs og brug

// Kasper

http://www.udvikleren.dk/thread.php?techid=6&f=6&t=1566

læs og brug

// Kasper

Har prøvet den, men kan ikk få det til at virke... hva er der galt??? min kode ser således ud:

<?php

$lenght = "8"; 
$chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"; 

for ($i=0; $i<$length; $i++) { 
$int = rand(0, strlen($chars)-1); 
$password .= substr($chars, $int, 1); 
} 
echo "$password";


?>

Den skriver ikk noget... den viser kun en blank side

hva er der galt???

Jeg har også prøvet Ronni Egeris's eksempel, men det gav samme resultat

//Emilbp

-| I am just... Me!! |-

[Redigeret d. 21/04-04 17:43:50 af Emil Bjerglund Pedersen]