Password system

Kan du måske uddybe lidt nærmere??

:)

Går ud fra at du arbejder med db!?!

Nej, egentlig ikk :)

Istedet for at man fx skriver:

const
  ID = 'Bruger';
  PW = 'Hejsa';

så skriver man evt.:

  ID = Form2.Edit1.Text;
  PW = Form2.Edit2.Text;

Nu ved jeg godt dette ikk kan lade sig gøre, men... :)

Hvis du gør det kan du jo have et id-nummer på hver bruger (kan ikke ændres). Når man så logger ind gemmes dette id i en variabel. Så kan du ændre brugernavn og password vha sql. Noget med

"Update * FROM dinTabel WHERE Id =" Id-variabel

hmm, hvordan havde du tænkt dig at ID og PW skulle gemmes når programmet er afsluttet?

Hmm, jeg arbejder jo ikk med sql. Håbede nemlig på, at dette kunne lade sig gøre uden

Så er der en god grund til at lære det her ;)

Jeg kan ikke se hvordan du vil gemme oplysningerne om brugeren uden at komme uden om db når det drejer sig om Brugeradskillelse.

:)

Fik denne lille programbid leveret engang her på E:
var
st:string;
{$R *.res}

begin
  Application.Initialize;
  st := inputbox('Password', 'Please enter password:', '');
if st <> '123' then exit;

  Application.CreateForm(TForm1, Form1);
  Application.Run;

Muligheden for at ændre st kunne måske være via en ini-fil ? jeg har ikke selv spekuleret over det, men det lyder da sjovt.Snowball har lavet nogle gode svar
i spm. om inifiler - check evt denne emnegruppe

Snowballs eks:

Kan ikke lige finde spm.et og det handler om databaser, men det kan da være du kan
se jer igennem at lave lidt tilpasninger.Koden ku jeg finde til snowballs ini-file
program, hvor man vel osse kan modifisere variabler ?:

implementation

Uses Inifiles;
{$R *.DFM}

const
  DEF_CONN1 = 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=';
  DEF_DBPATH = 'database1.mdb';
  DEF_CONN2 = ';Mode=ReadWrite;Persist Security Info=True';

procedure TForm1.SaveSettings;
var
  IniFile : TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
  IniFile.WriteString('Main','DBPath',Edit1.Text);
  IniFile.Free;
end;

procedure TForm1.LoadSettings;
var
  IniFile : TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
  Edit1.Text := IniFile.ReadString('Main','DBPath',DEF_DBPATH);
  IniFile.Free;
  If FileExists(Edit1.Text) Then Begin
    ADOConnection1.Connected := False;
    ADOConnection1.ConnectionString := DEF_CONN1 + Edit1.Text + DEF_CONN2;
    ADOConnection1.Connected := True;
    Label2.Caption := 'Forbundet til databasen';
  End
  Else Begin
    ADOConnection1.Connected := False;
    Label2.Caption := 'Ikke forbundet til databasen';
  End;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveSettings;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  LoadSettings;
end;

end.

Jeg fandt sgu selv ud af det :) - det er nok ikk lige den mest optimale løsning, men den virker!
Jeg lader alligevel tråden være åben, hvis der nu kom nogle andre gode forslag

Ini filen som gemmer brugernavn og adgangskode kunne krypteres med:

Her i eksemplet bruger jeg en Richedit og gemmer i txt format som er krypteret


function TForm2.EnDeCrypt(const Value : String) : String;
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;

procedure TForm2.Luk2Click(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile('inet.txt');

RichEdit1.Text := EnDeCrypt(RichEdit1.Text);
Form2.RichEdit1.Lines.SaveToFile('inet.txt');

RichEdit1.Lines.LoadFromFile('inet.txt');
RichEdit1.Text := EnDeCrypt(RichEdit1.Text);

hov...det gik vist lidt for hurtigt her er den igen..

function TForm2.EnDeCrypt(const Value : String) : String;
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;

procedure TForm2.Luk2Click(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile('inet.txt');

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RichEdit1.Text := EnDeCrypt(RichEdit1.Text);
Form2.RichEdit1.Lines.SaveToFile('inet.txt');

procedure TForm2.FormShow(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('inet.txt');
RichEdit1.Text := EnDeCrypt(RichEdit1.Text);

//stone

Helt sikkeet Stone !

Det var en del bedre end det jeg havde lavet. Det var det samme princip, men .txt var ikk krypteret :)

Har ikke lige læst alle svarende igennem, men hvad med at lave en Form hvorfra man kan loade sin "brugerprofil" ind og så derfra ændre tingene og så gemme dem.

her er et eksempel

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    function EnDeCrypt(const Value : String) : String;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.EnDeCrypt(const Value : String) : String;
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;


procedure TForm1.FormShow(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('inet.txt');
RichEdit1.Text := EnDeCrypt(RichEdit1.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RichEdit1.Text := EnDeCrypt(RichEdit1.Text);
Form1.RichEdit1.Lines.SaveToFile('inet.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile('inet.txt');
Close;
end;

end.

Min dovenskab fortalte at jeg ikke skulle læse det hele, men jeg har læst dit spørgsmål og nogle af de første svar. Derfor ved jeg ikke om dette er det HELT ønskede svar.
Opret et txt-dokument i samme mappe som dit program. Kald det evt. 'kode.txt'
Så laver du en memo (1) og en procedure til FormCreate:

procedure TForm1.FormCreate(Sender: TObejct);
begin
  memo1.lines.loadfromfile('kode.txt');
  if form2.edit1.text= memo1.lines[0] then //id'en er rigtig
  if form2.edit2.text= memo1.lines[1] then //password rigtig
end;

Så langt - så godt

Lav en ny form (muligvis form3)
Her laver du en edit 1, 2 og 3, en memo og en button.

I proceduren button1click:

procedure TForm1.button1click(sender: TObject);
begin
  memo1.lines.add(edit1.text);
  if edit2.text = edit3.text then
  begin
    memo1.lines.add(edit2.text)
    memo1.lines.savetofile('kode.txt);
  end;
end;

Fortsættes...

hclarsen er du gået død??
//stone

Uha, jeg havde sgu glemt alt om denne tråd! Det må I undskylde!

Jeg fandt faktisk selv ud af det, men Forfatterksl's bud er meget tæt på det jeg fandt ud af, så jeg giver da bare dig pointene :)

:-)

ja det er den lette løsning, men alle kan jo gå ind og læse koden. ydermere gemmes koden i biblioteket hvor *.exe filen er.