Arsip: Random Password text


by doditali in Articles more 15 years ago 1688
Mudah-mudahan tip ini dapat membantu anda dalam membuat password yg acak (random)
function RandomPassword(PLen: Integer): string;
var
str: string;
begin
Randomize;
//caracter yang akan muncul (secara random)
str    := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
Result := '';
repeat
Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = PLen)
end;

untuk melihat hasilnya, disini saya pake komponen label dan button

procedure TForm1.tbl_BuatPasswordClick(Sender: TObject);
begin
//merandom 10 caracter utk dijasikan password
lbl_Hasil.Caption := RandomPassword(10);
end;

pada saat anda mengklik button tsb, nanti pada label akan muncul 10 caracter yg random sepert ini : kqewxOIfhK

Silahkan dicoba.

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com