FileCrypter v1.0

[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;

[Chrissi91]

Okay

wollen wir auch hoffen 8)

[Danniolo]

schön gehofft? Ich hab die neue Version (falls es euch noch interessiert) schon vor über nem Monat hochgeladen.

[Triples]

Zitat von Danniolo:

schön gehofft? Ich hab die neue Version (falls es euch noch interessiert) schon vor über nem Monat hochgeladen.

Hi Danniolo
nettes prog,ich wollte deinen source code mal testen und mußte festellen obwohl ich deine mit gelieferten kompos entpackt habe ,und ins lib verzeichnis kopiert habe kommt trotzdem immer noch beim öfnen der Projeckt datei mit Delphi7 diese Error meldung!

Zitat:

Class TBFH Not found?was mache ich falsch?
Danke schon mal für deine hilfe!
Oder haste diese datei vergessen?
Gruß
triples

[Delphijunkie2006]

Verschlüsselung ist immer sinnvoll,

noch ne Frage zu dem GIMP, kann man damit auch gute Buttons machen und wenn auf welche Seite muß ich gehen?

[mkinzler]

Zitat:

welche Seite muß ich gehen?

Fertig benutzbar Installer findest du auf SourceForge

[Delphijunkie2006]

Nein, ich meinte in GImp selber, eine Anleitung und einen Link, wie ich schöne Buttons hinbekomme.

[Luckie]

@Delphijunkie2006. Klär dies bitte in einem separatem Thread in der "Klatsch und Tratsch" Sparte, das hat hier nichts zu suchen.

[Danniolo]

@ Triples: Sorry, aber ich dachte keiner interessiert sich mehr hierfür.
Der Fehler ist mir auch aufgefallen, ich werde den Source sofort nochmal mit funktionierenden Kompos nachreichen

[Triples]

Zitat von Danniolo:

@ Triples: Sorry, aber ich dachte keiner interessiert sich mehr hierfür.
Der Fehler ist mir auch aufgefallen, ich werde den Source sofort nochmal mit funktionierenden Kompos nachreichen

Hi schön das du dich meldest
Est mal ein lob zu deinem tool,es funzt super und sagt mir echt zu
Ich werde mal gucken obs nun klapen möchte!
Ps ich ediere später das posting noch mal zum Featback
Ps ist ja noch der alte source ohne Compo,aber ich kann warten

[ichbins]

vielleicht solltest du ja einen Button "Registry-Einträge entfernen" hinzufügen.

Achja, ein Programm namens FileCrypter gibts hier schon von Luckie