Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Dateien verschlüsselt abspeichern (https://www.delphipraxis.net/79667-dateien-verschluesselt-abspeichern.html)

gothic_mike 26. Okt 2006 13:49

Re: Dateien verschlüsselt abspeichern
 
Hallo,

Zitat:

Zitat von Andreas L.
Hi,
ich möchte die Konfigurationsdateien einer meiner Projekte nicht editierbar machen.
...
Weiß da jemand was?

versuchs mal mit DataFile von hier: http://www.degisy.com/download.php
ganz unten auf der Seite...

Mavarik 26. Okt 2006 13:55

Re: Dateien verschlüsselt abspeichern
 
Zitat:

Zitat von gothic_mike
versuchs mal mit DataFile von hier: http://www.degisy.com/download.php
ganz unten auf der Seite...

Delphi-Quellcode:
  P := pBuf;
  if( FCodeKey <> '' )then
  for I := 0 to BufLen - 1 do
  begin
   P^ := Byte(FCodeKey[1 + ((I - 1) mod Length(FCodeKey))]) xor P^;
   inc(P);
  end;
Ist so irgendwie das gleiche was ich geschrieben hatte.. Nur mit viel Stream overhead für alle Copy/Paste programmierer...

Frank :stupid:

HalloDu 26. Okt 2006 14:24

Re: Dateien verschlüsselt abspeichern
 
Wir hatten doch gestern einen Thread zum Thema Verschlüsselung. Vielleich hilft dir der ja.
Der Thread zum Thema Verschlüsselung

torud 6. Mär 2007 20:05

Re: Dateien verschlüsselt abspeichern
 
Zitat:

Zitat von gothic_mike
versuchs mal mit DataFile von hier: http://www.degisy.com/download.php
ganz unten auf der Seite...

Ich habe mir das mal gezogen, aber ich werde da einfach nicht schlau draus???
Wie kommt das zum Einsatz und wie binde ich es ein?

Ich habe erstmal die pas-Datei in meinen Programmpfad kopiert, aber ich kann einfach nicht darauf zugreifen. Mit installieren ist da nix. Bin ich so doof, oder was mache ich da falsch!?

Klaus01 6. Mär 2007 20:26

Re: Dateien verschlüsselt abspeichern
 
Vielleicht so:

in den uses DataFile miteinbinden.

Dann eine Variable deklarieren:

Delphi-Quellcode:
var
  TestFile: TDataFile
später im Programmtext
Delphi-Quellcode:
  TestFile:= TDataFile.create("FileName");
Grüße
Klaus


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:41 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz