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;