AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte FileCrypter v1.0
Thema durchsuchen
Ansicht
Themen-Optionen

FileCrypter v1.0

Ein Thema von Danniolo · begonnen am 7. Nov 2005 · letzter Beitrag vom 2. Apr 2006
Antwort Antwort
Seite 1 von 3  1 23      
Danniolo
Wie der Name "FileCrypter v1.0" schon sagt, handelt es sich um ein Programm, mit
dem man Dateien ganz einfach durch ein Passwort sichern kann.
FileCrypter nutzt den 256 Bit starken Verschlüsselungsalgorythmus
"BFH" von Steffen Kirbach.

Bekannte Bugs:
- wenn man per Kontextmenü Exedateien zusammen mit anderen (Dateien) Verschlüsseln
möchte, werden die Exefiles nich in die todo Liste aufgenommen.

ToDo:
- wenn man per Kontextmenü Dateien zum Ver-/ Entschlüsseln hinzufügt ist das Programm relativ träge, mal nach einer schnellern "Mutex" Routine Ausschau halten ^^
- Verschlüsselte Archive (wie WinRar, nur statt Kompression - Verschlüsselung)
- mal ein schickeres Icon designen

So, euer Code:
Delphi-Quellcode:
//Dies ist die Function, mit der ich das Programm für alle Dateitypen
//registreirt habe:
function InstallExt2(Extension, ExtDescription, FileDescription,
OpenWith, ParamString: string; IconIndex: Integer): Boolean;
var
  Reg: TRegistry;
begin
  Result := False;
  if Extension <> 'then
  begin
    if Extension[1] <> '.then
      Extension := '.' + Extension;

    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_CLASSES_ROOT;
      if Reg.OpenKey(Extension, True) then
      begin
       Reg.WriteString('', ExtDescription);
       if Reg.OpenKey('\' + ExtDescription, True) then
       begin
         Reg.WriteString('', FileDescription);
         if Reg.OpenKey('DefaultIcon', True) then
         begin
           Reg.WriteString('', Format('%s,%d', [OpenWith, IconIndex]));
           //ab hier: wichtige Programmzeilen:
           if Reg.OpenKey('\*\shell\Verschlüsseln\Command', True) then
           begin
             Reg.WriteString('', Format('"%s" %s"', [OpenWith, ParamString]));
             Result:=True;
           end;
         end;
       end;
     end;
  finally
    Reg.Free;
  end;
end;
end;
Angehängte Dateien
Dateityp: rar filecrypter_v1.1_203.rar (165,4 KB, 82x aufgerufen)
 
cruso
 
#2
  Alt 7. Nov 2005, 15:57
Nur als Tipp: Ein schöneres Icon suchst (und findest) du besser im Internet (einfach mal bei Google schauen), denn selbst bekommt man diese nie besonders gut hin, dann die pixelorientierte Grafik ist nicht jedermanns Sache!
  Mit Zitat antworten Zitat
Benutzerbild von phXql
phXql
 
#3
  Alt 7. Nov 2005, 16:21
Zitat von cruso:
Nur als Tipp: Ein schöneres Icon suchst (und findest) du besser im Internet (einfach mal bei Google schauen), denn selbst bekommt man diese nie besonders gut hin, dann die pixelorientierte Grafik ist nicht jedermanns Sache!
Ja, DAS habe ich auch immer gedacht.

http://www.gimp.org/tutorials/Creating_Icons/
  Mit Zitat antworten Zitat
Chrissi91
 
#4
  Alt 12. Nov 2005, 15:32
Wenn ich eine Datei verschzlüssele und dann entschlüssele ist sie wiederergestellt worden, aber ich kann sie nicht mehr öffnen ... bzw. ich öffne immer das programm mit ...

ich fordere meine alten dateien zurück, sonst wirst du von meinem anwalt hören
  Mit Zitat antworten Zitat
Danniolo
 
#5
  Alt 13. Nov 2005, 11:38
Zitat von Chrissi91:
Wenn ich eine Datei verschzlüssele und dann entschlüssele ist sie wiederergestellt worden, aber ich kann sie nicht mehr öffnen ... bzw. ich öffne immer das programm mit ...

ich fordere meine alten dateien zurück, sonst wirst du von meinem anwalt hören
ARG! War mir auch aufgefallen..., nur ich hab das hier nicht wider zurückgezogen, denn ich hab ausversehen einen falschen Regeintrag vorgenommen. Werde den Anhang wohl löschen, ich schick dir demnächst ne PN, in der ich einen Weg beschreibe, die ursprünglichen Dateiverknüpfungen wiederherzustellen. sry, tut mit echt leid
  Mit Zitat antworten Zitat
Danniolo
 
#6
  Alt 13. Nov 2005, 11:47
Egal, ich poste am besten den Weg zum Wiederehrstellen der Dateiverknüpfungen hier rein:
- Benutzer muss Adminrechte haben
- Start->Ausführen->regedit
- HKEY_CLASSES_ROOT->erster Eintrag (*)->shell
- Eintrag "Verschlüsseln" löschen (rechtsklick->löschen)
- Programm auch löschen, da dieser Regeintrag jedem Programmstart vorgenommen wird
- falls Interesse vorhanden ist kann ich das Programm auch nochmal ohne diesem schwerern Bug posten...
  Mit Zitat antworten Zitat
Chrissi91
 
#7
  Alt 13. Nov 2005, 13:58
interessant ... nur versteh ich nicht ganz, wie du das geproggt hast ... könntest du vll mal den code posten? wenigstens den mit der rgistry?
  Mit Zitat antworten Zitat
Thorben77
 
#8
  Alt 13. Nov 2005, 14:40
Zitat von Chrissi91:
könntest du vll mal den code posten? wenigstens den mit der rgistry?
Sollte er eigentlich noch tun, schließlich hat er es im Open-Source-Bereich vorgestellt
  Mit Zitat antworten Zitat
Chrissi91
 
#9
  Alt 13. Nov 2005, 15:47
wir können ihn ja erpressen

wenn er ihn heute nicht postet, laden wir auf seinen funpic acc nur pornografisches und rechtsradiklaes

aber bitte im internetcafe ... sonst gibts ärger, wenn funpic die ip von uns bekommt

nein nein ... spaß beiseite ... aber source sollte trotzdem noch kommen

edit: rechtschreibfehler verbessert (cource --> source)
  Mit Zitat antworten Zitat
Danniolo
 
#10
  Alt 13. Nov 2005, 15:54
Ja, morgen werd ich den Code posten, hatte ich bis heute ja auch, aber da war dieser doofe Bug, diesen Fehler hervorgerfen hat Habt noch ein bissl Geduld (also bis morgen) dann poste ich das hier.
Versprochen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


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:26 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