Password Generator

Hi domebil,

It's a nice pw gen app but you gave only binaries... there is no source as far as I can see..

Thanks domebil, but I'm not looking for compiled binaries. I need the script/code so that I can implement/modify it in my own MVD (and most likely other MVD users in their own) application.

I found some Delphi code on the Net.. Perhaps somebody can translate MVD or do something with it.

unit paswgen;

interface
uses classes;

const
  CHAR_ALPHANUM='ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
                           'abcdefghijklmnopqrstuvwxyz'+
                           '0123456789';
  CHAR_ALPHA='ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
                     'abcdefghijklmnopqrstuvwxyz';
  CHAR_NUMERIC='0123456789';

type
  TPasswordGenerator=class(TObject)
  private
    FMaxChar: word;
    FPassword: string;
    FCharacter: string;
    procedure SetMaxChar(const Value: word);
    procedure SetCharacter(const Value: string);
  public
    constructor Create;
    procedure Generate;

    //password
    property Password:string read FPassword;
    //karakter yang diijinkan
    property Character:string read FCharacter write SetCharacter;
    //panjang password
    property MaxChar:word read FMaxChar write SetMaxChar;
  end;

implementation


{ TPasswordGenerator }

constructor TPasswordGenerator.Create;
begin
  FMaxChar:=8;
  SetLength(FPassword,FMaxChar);
  FCharacter:=CHAR_ALPHANUM;
end;

procedure TPasswordGenerator.Generate;
var i,indx:word;
begin
  SetLength(FPassword,FMaxChar);
  for i:=1 to FMaxChar do
  begin
    indx:=random(length(FCharacter))+1;
    FPassword[i]:=FCharacter[indx];
  end;
end;

procedure TPasswordGenerator.SetCharacter(const Value: string);
begin
  FCharacter := Value;
end;

procedure TPasswordGenerator.SetMaxChar(const Value: word);
begin
  FMaxChar := Value;
end;

initialization
Randomize;
end.

Hi EHW,

Thank you very much..........................
Nice start.

Here is what I'm trying to do (please see the attachment) but unable to do so - beyond my current knowledge. Perhaps Dmitry can give us hand too.

Thank you soooooooo much EHW....................
Great Stuff..... truly appreciated............

Using editable tGRid instead of edit fields is a better approach. One reason I didn't use editable tGrid is that I didn't know limiting edit columns were possible or not as I wanted only 'Used' column to be editable. However, it's not a show stopper.

My intention of using 'Save' plus 'Save and Close' buttons was:
When user clicks on 'Save' button generated passwords are saved as a set, all fields and tGrid cleared except quatity and checkboxes so that it's ready to generate next passwords set.   'Save and Close' button saves generated passwords set and closes frmPwGen. I think it's my bad that I didn't make it clear. However, it's not big deal. It's fine with just usual save and close button.
I couldn't understand that as to why you have used dummy save button which saves the record before user clicks on save or save and close buttons?

'No similar characters' checkbox meant for not having same characters within same password, all characters would be unique within same password. Again, it's not that important as your code generates strong passwords with already applied properties. Nice work,  I'll take that option out.
On checkboxes I have another miss. I wanted all password construction properties checkboxes default state checked but I forgot to apply it on sample project. I changed them on MVD properties checked to true but it didn't work as they seems to be tied in within the code. Tried some alterations in code but no success.

Hi EHW,

At my end I cannot get checkboxes checked on running app. Please see image below as ref. Most likely I'm missing something?

On save front, I really don't want auto save. Save should be done when user wants to save by clicking on save button as they may be doing some test pw generations and they wouldn't want to save every test etc. Please don't misunderstand me. I'm not complaining. In fact I'm truly grateful for your all kind help. Would it be possible within your limited time to take of auto-save please?
So record is not saved after clicking on "generate passwords" button but after user clicks on "save" button - in this case button3.