CODE

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
btnGen: TButton;
passtxt: TEdit;
usage: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
tbL: TTrackBar;
us: TLabel;
user: TEdit;
procedure btnGenClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function RandomPassword(PLen: Integer): string;
var
str: string;
begin
Randomize;
str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()';
Result := '';
repeat
Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = PLen)
end;

procedure TForm1.btnGenClick(Sender: TObject);
var
struse : string;
txtFile : TextFile;
i : Integer;
begin
If usage.text = '' then
begin
ShowMessage('No Usage was given!');
end
else
begin
i := tbL.Position;
passtxt.Text := RandomPassword(i);
AssignFile(txtFile, usage.Text + '.txt');
rewrite(txtFile);
write(txtFile, 'Usage: ' + usage.Text);
writeln(txtFile);
write(txtFile, 'User: ' + user.Text);
writeln(txtFile);
write(txtFile, 'Password: ' + passtxt.Text);
closefile(txtFile);
end;
end;
end.