AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Datei verschlüsseln

Ein Thema von strom · begonnen am 28. Mär 2015 · letzter Beitrag vom 28. Mär 2015
Antwort Antwort
strom

Registriert seit: 23. Aug 2008
Ort: Keine Ergebnisse gefunden
290 Beiträge
 
#1

Datei verschlüsseln

  Alt 28. Mär 2015, 09:07
Hallo würde gerne eine Datei verschlüsseln!
So, dass das lesen der Datei als (.txt) nicht möglich ist.

Datei schreiben:

Delphi-Quellcode:
procedure TForm1.BitBtn6Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.Add(Edit4.Text);
    List.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Alert.dat');
  finally
    List.Free;
  end;
end;


Datei lesen: (in Delphi (Edit4 bzw. Edit5) sollte man die Daten aber wieder im Klartext lesen können.

[DELPHI]
procedure TForm1.dat_lesenTimer(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'alert.dat');
    if List.Count>0 then
      Edit4.Text:=List[0];
    List.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'setting.dat');
    if List.Count>0 then
      Edit5.Text:=List[0];
      ClientSocket.Host:= Edit5.Text;
      ClientSocket.Active := true;
      dat_lesen.Enabled := false;
  finally
    List.Free;
  end;
end;
[/DELPHI]
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 10:02
Und die Forensuche hat keinen Treffer zu "Verschlüsselung" geliefert?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#3

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 10:04
Näääääää, da findet man doch nie was.


Wenn es einfach nur nicht lesbar sein soll, dann könnte man auch billig "komprimieren" und schon sieht man auch nix mehr.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
wendelin

Registriert seit: 29. Dez 2010
Ort: Nürnberg
121 Beiträge
 
Delphi 7 Enterprise
 
#4

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 12:28
Hi,
was ist Deine Frage ?

Schau dir mal mein kleines Prog. ' Crypto-Tool ' an.

wendelin
Wolfgang
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#5

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 14:09
Du könntest nach dem SaveToFile die Funktion EncryptFile() aufrufen. Besser wäre es natürlich, die Datei schon verschlüsselt zu erstellen, sodass die Daten nie im Klartext auf der Festplatte landen.

Eventuell musst du die Funktion noch aus der dll importieren, in einem neueren Delphi könnte sie schon eingebunden sein.

Aber deine Frage lässt einige Punkte offen, sodass ich nicht weiß, ob dieses die beste Lösung darstellt.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 14:50
Ich würde mir das ganze Konzept noch einmal überlegen. Ständiges Neuladen einer Datei per Timer erscheint mir wenig optimal.
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.123 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 15:39
Ich habe damit noch nicht gearbeitet, daher ist die Frage ggf. dumm, aber um mit dem File oder mit einen File aus einem entsprechenden Directory zu arbeiten, muss ich den File immer erst decrypten oder kann ich beim Open ein Flag setzen?

Mavarik
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#8

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 17:24
Ich habe damit noch nicht gearbeitet, daher ist die Frage ggf. dumm, aber um mit dem File oder mit einen File aus einem entsprechenden Directory zu arbeiten, muss ich den File immer erst decrypten oder kann ich beim Open ein Flag setzen?
Soweit ich weiß: Nein. Beim erzeugen des Windows-Benutzerkontos wird ein Master-Schlüssel generiert. Der wird verschlüsselt (Kontopasswort) auf der Festplatte gespeichert. Wenn du nun verlangst, dass eine Datei verschlüsselt sein soll, dann wird diese mit dem Master-Schlüssel verschlüsselt. Man kommt also nur heran, wenn man mit dem richtigen Benutzerkonto eingeloggt ist. Ist das der Fall, werden die Dateien on-the-fly beim Zugriff ver- und entschlüsselt.
Die Anwendung kann wohl noch ein zusätzliches Geheimnis verwenden, um Zugriff durch andere Anwendungen zu verhindern.
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#9

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 17:39
Die Anwendung kann wohl noch ein zusätzliches Geheimnis verwenden, um Zugriff durch andere Anwendungen zu verhindern.
Wie funktioniert das? Im MSDN Artikel habe ich dazu auf die Schnelle nichts gefunden.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Datei verschlüsseln

  Alt 28. Mär 2015, 17:43
https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx
Markus Kinzler
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz