Undgå at læse .txt fil.

Kryptering er nok en god ting.

Der findes jo mange muligheder: 3DES, AES etc..

Men skal der bare obfuskeres lidt saa:

function encrypt(tekst,kode:string):string;
var
  I: integer;
begin
  for I := 1 to length(tekst) do
  begin
    tekst[I] := chr(ord(tekst[I])+ord(kode[(I mod length(kode))+1]));
  end;
  result := tekst;
end;

function decrypt(tekst,kode:string):string;
var
  I: integer;
begin
  for I := 1 to length(tekst) do
  begin
    tekst[I] := chr(ord(tekst[I])-ord(kode[(I mod length(kode))+1]));
  end;
  result := tekst;
end;

og saa

WriteLn(F, encrypt(password, 'dinhemmeligekey'));

og

ReadLn(F, Password);
Password := decrypt(Passwortd, 'dinhemmeligekey');

Og pas på at du ikke regner med at alt er i orden, bare du krypterer den password-fil. Jeg kender ikke ønsket til din sikkerhed, men det password kan sikkert findes alligevel, på anden vis, uanset hvordan du krypterer din fil.

Hva mener du med "'dinhemmeligekey'"?

Og skriv det som et svar, sådan du kan få dine point.

MvH. HenseWG

Det programmet bruger til at kryptere og dekryptere med.

Du kunne overveje nogle non-printable tegn for at undgå at folk dumper EXE filen og
læser key.

Som jeg antydede med "obfuskeres lidt" og som Erik Jacobsen understregede, så er dette
ikke ægte security - kun en simpel forhindring mod at læse password ved at type filen.

Og et svar.

Om igen.

Man kunne vel også lave dem med en MD5 streng, dvs. at man ud fra passwordet laver en MD5 streng som så gemmes i txt filen, på den måde står selve passwordet ingen steder og selv om man kikker direkte i EXE filen kan det ikke findes.

Dvs. at hvis man glemmer sit password så findes der ingen mulighed for at finde det frem igen, eneste mulighed er at oprette et nyt password.

At gemme som MD5 er rigtigt godt hvis det kun skal bruges til at checke et password
med. Men man kan ikke hente det og bruge det til et andet program.

En mulighed, på linje med arnes "obfusk" er, at køre det gennem UPX-pakkeren. Dermed pakkes exe-filen (fylder 20-30% af oprindelig størrelse) og der kan intet læses ud fra den. Når programmet køres, pakkes det ud direkte til hukommelsen og man mærker overhovedet ikke operationen - i nogle situationer vil man måske endda mærke en forbedring af starthastigheden.

Sikkerheden vil være god hvis det forudsættes at brugeren intet kender til UPX.

Det betyder at du skal linke din txt-fil til exe-filen og via LoadRessource hente oplysningerne. Du skal lave en rc-fil hvori du angiver txt-filen, oversætte den vha brcc32 og inkludere den i dit program vha. {$R <filnavn>}.

Det bliver aldrig en pæn løsning. Prøv i stedet at installere denne pakke:

  http://www.cityinthesky.co.uk/cryptography.html

Heri er hvad du har brug for af hasher, phasers og hvad ved jeg. Det er den pakke jeg plejer at bruge.

Hvis du vil bruge MD5 og har Indy installeret så findes der allerede en MD5 funktion i denne.

Tak for alle henvendelserne, der er masser at tage fat i.

Smid svar, så i kan dele point.

Mvh. HenseWG

hrc, kunne jeg måske få dig til at sende en form for "Step-by-step" guide, om hvordan man bruger DCPcrypt til min mail (hvg@hense.dk) da jeg aldrig har brugt trejde-parts komponenter/software?

Jeg har fået UPX til ay du'.

**Jeg har fået UPX til at fungere.

der er ikke nogen der har lagt svar. Arne får point og denne tråd er lukket.

Jeg fandt lidt kode her. Det er fra login-delen i et meget gammelt program jeg stykkede sammen. Ville måske lave det anderledes i dag. Fordelen med eksemplet er, at  objekterne oprettes og slettes i proceduren. Her er det hele samlet.

Har noget simplere liggende et eller andet; sender når jeg finder.

procedure TBookClass.ReadBook(aTreeView : TTreeView; aExpandTree : boolean);
var
  bLoginOK : boolean;

  // To test that I've written what I intended...
  procedure DumpUncrypted(aStream : TStream);
  var
    OldPos : integer;
    TestStream : TFileStream;
  begin
    TestStream := TFileStream.Create(fFileName + '.dmp',fmCreate);
    try
      OldPos := aStream.Position;
      aStream.Position := 0;
      TestStream.CopyFrom(aStream,aStream.Size);
      aStream.Position := OldPos;
    finally
      TestStream.Free;
    end; // try
  end;

var
  BookStream : TFileStream;
  CryptStream : TMemoryStream;
  TreeNode : TTreeNode;
  Iterations : integer;
  frmLogin : TfrmLogin;
begin
  if not FileExists(fFileName) then
    raise exception.CreateFmt('Password library %s was not found',[fFileName]);

  bLoginOK := false;
  Iterations := 0;

  frmLogin := TfrmLogin.Create(Application.MainForm);
  try
    repeat
      inc(Iterations);

      if frmLogin.ShowModal = mrOK then begin
        fLoginUser := frmLogin.User;
        fLoginPwd := frmLogin.Pwd;
      end // if
      else
        raise ECancelException.Create('Cancelled opening password library');

      fMonster := TDCP_blowfish.Create(nil); // The infamous cryptation object

      BookStream := TFileStream.Create(fFileName,fmOpenRead);
      CryptStream := TMemoryStream.Create;
      aTreeView.Items.BeginUpdate;
      try
        try
          aTreeView.Items.Clear;

          {$ifdef CRYPT}
            fMonster.InitStr(fLoginUser+fLoginPwd,TDCP_sha1);
            fMonster.DecryptStream(BookStream,CryptStream,BookStream.Size);

          {define debug}
          {$ifdef debug}
            DumpUncrypted(CryptStream);
          {$endif}

            fMonster.Burn;
            CryptStream.Position := 0;
            Traverse(CryptStream, nil);
          {$else}
            BookStream.Position := 0;
            Traverse(BookStream, nil);
          {$endif}

          TreeNode := aTreeView.Items.GetFirstNode;
          if aExpandTree and assigned(TreeNode) then
            TreeNode.Expand(true);
        except // Ignore exceptions... I think...
          on E: ECancelException do
            raise;
        end; // try
      finally
        aTreeView.Items.EndUpdate;
        CryptStream.Free;
        BookStream.Free;
        fMonster.Free;
      end; // try
    until bLoginOK or (Iterations = 3);
  finally
    frmLogin.Free;
  end; // try
  if not bLoginOK then
    Raise exception.Create('There has been 3 unsuccessfull attempts and'#13#10+
                          'opening the book has been cancelled');
end;