[BlueLeaf1336]> PROGRAM> Natural Born Junk>

簡易パスワード発生器

historyTOP

2002/10/29:作成

memoTOP

本当に簡易。

codeTOP

(*
    =================================================
    簡易パスワード発生器
    =================================================
*)
function EasyPassword(pLength: integer = 8): string;
const
    //パスワードで使用する文字です。
    SOURCE = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
var
    i: integer;
    SrcLen: integer;
begin
    //長さを適当に調節します。適当です。
    if pLength < 6  then pLength := 6;
    if pLength > 20 then pLength := 20;
    //返却値を初期化します。
    Result := '';
    //ループ内で使用する、文字列の長さを求めておきます。
    SrcLen := Length(SOURCE);
    //指定された長さのランダムっぽい文字列を
    for i := 0 to pLength - 1 do
    begin
        //ランダムっぽい位置にある文字を1文字ずつ取り出すことでつくっていきます。
        Result := Result + SOURCE[Random(SrcLen) + 1];
    end;

end;

(*
    +++++++++++++++++++++++++++++++++++++++++++++++++++++++
    テスト
    +++++++++++++++++++++++++++++++++++++++++++++++++++++++
*)
procedure TForm1.Button9Click(Sender: TObject);
var
    i: integer;
begin
    //20回パスワードを作成しています。
    for i := 0 to 19 do
    begin
        ShowResult(EasyPassword(20));
    end;
end;

EOFTOP