Arsip: Random Password text


by doditali in Articles more 19 years ago 2493
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.

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

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