Code: Alles auswählen
;Dies ist ein (kleines und sehr einfaches) Programm zur Dateiverschlüsselung (hat aber bei größeren Dateien noch Probleme).
;Beim Ver- und Entschlüsseln wird Das Passwort in den Verschlüsselungsalgorithmus mit eingebunden, was bedeutet, das verschlüsselte Dateien
;mit jedem Passwort "entschlüsselt" werden können, ohne dass eine Fehlermeldung ausgegeben wird :-). Allerdings steht bei einem falschen Passwort
;in den "entschlüsselten" Dateien nur Schwachsinn.
;Benötigt Version 4.00 oder muss für niedrigere Versionen massiv umgeschrieben werden.
File$=ProgramParameter() ;unterstützt das Standardmäßige Öffnen der ".krypt"-Dateien nach einmaligem Eintrag durch das "Öffnen mit..."-Menü von Windows:
;als Programm exe-Datei des Kompilierten Quellcodes angeben und das Häkchen von "Dateityp immer mit dem ausgewählten Programm öffnen" setzen.
Enumeration
#Window ;Hauptfenster
#Dateiname ;Gadget für Pfad und Namen der zu verschlüsselnden Datei
#PT
#Passwort ;Input-Gadget für das zukünftige Passwort
#Select ;Dateiauswahlgadget
#Mode ;Auswahlgadget für Ver-/Entschlüsselung
#Start ;Startgadget
#Progress ;Fortschrittsanzeige
#Text
#File1
#File2
EndEnumeration
Procedure Krypt(Datei$,Passwort$,Modus$)
If ReadFile(#File1,Datei$) ;Lesendes Öffnen der zu verschlüsselnden Datei
Attributes=GetFileAttributes(Datei$) ;Einlesen der Dateiattribute
Length=Lof(#File1) ;Bestimmung der Dateilänge
SetGadgetAttribute(#Progress,#PB_ProgressBar_Maximum,Length) ;Umstellung der Fortschrittsanzeige
Enumeration #PB_Compiler_EnumerationValue
#Attribute
#Schreibschutz
#Versteckt
#Systemdatei
#Ok
EndEnumeration
OpenWindow(#Attribute,0,0,120,100,"Krypt - Attribute",#PB_Window_WindowCentered,WindowID(#Window)) ;Fenster für zukünftige Datei-Attribute
StickyWindow(#Attribute,1)
AddKeyboardShortcut(#Attribute,#PB_Shortcut_Return,#Ok)
CreateGadgetList(WindowID(#Attribute))
CheckBoxGadget(#Schreibschutz,10,10,100,20,"Schreibschutz") ;Schreibschutz-Optionsgadget
If Attributes & #PB_FileSystem_ReadOnly
SetGadgetState(#Schreibschutz,1)
EndIf
CheckBoxGadget(#Versteckt,10,30,100,20,"Versteckt") ;Versteckt-Optionsgadget
If Attributes & #PB_FileSystem_Hidden
SetGadgetState(#Versteckt,1)
EndIf
CheckBoxGadget(#Systemdatei,10,50,100,20,"Systemdatei") ;Systemdatei-Optionsgadget
If Attributes & #PB_FileSystem_System
SetGadgetState(#Systemdatei,1)
EndIf
ButtonGadget(#Ok,10,73,100,20,"OK")
Repeat
StickyWindow(#Attribute,1)
event=WaitWindowEvent()
Select event
Case #PB_Event_Menu
Select EventMenu()
Case #Ok ;Return-Taste wurde gedrückt
Goto OK
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case #Ok
OK: ;Einstellungen zwischenspeichern und fortfahren
Schreibschutz=GetGadgetState(#Schreibschutz)
Versteckt=GetGadgetState(#Versteckt)
Systemdatei=GetGadgetState(#Systemdatei)
Break
EndSelect
EndSelect
ForEver
CloseWindow(#Attribute)
Select Modus$
Case "verschlüsseln"
Value=1 ;Wert zur Verschlüsselung im Algorithnus
Case "entschlüsseln"
Value=-1 ;Wert zur Entschlüsselung im Algorithnus
EndSelect
File$=Datei$
If Value=1 ;von hier an bis zursprungmarke "Again:" findet die Überprüfung statt, ob es sich um eine verschlüsselte Datei handelt (Dateierweiterungs-basiert)
V:
If GetExtensionPart(File$)<>"krypt"
New$=File$+".krypt"
Else
MessageRequester("Krypt! - ACHTUNG","Da die Datei bereits verschlüsselt ist, wird der Modus von "+Chr(34)+"verschlüsseln"+Chr(34)+" auf "+Chr(34)+"entschlüsseln"+Chr(34)+" umgestellt.")
Value=-1
Goto E
EndIf
ElseIf Value=-1
E:
If GetExtensionPart(File$)="krypt"
New$=Left(File$,Len(File$)-6)
Else
MessageRequester("Krypt! - ACHTUNG","Da die Datei noch nicht verschlüsselt ist, wird der Modus von "+Chr(34)+"entschlüsseln"+Chr(34)+" auf "+Chr(34)+"verschlüsseln"+Chr(34)+" umgestellt.")
Value=1
Goto V
EndIf
EndIf
Again:
If CreateFile(#File2,New$)<>0 ;Erstellen der neuen Datei
Else
Res=MessageRequester("Krypt! - ERROR","Fehler beim Erstellen der Datei "+Chr(34)+New$+Chr(34)+" !"+Chr(10)+"Möglicherweise ist der Datenträger schreibgeschützt oder Sie besitzen"+Chr(10)+"keine Berechtigungen die Datei in diesem Ordner zu erstellen."+Chr(10)+"Möchten Sie die Datei in ein anderes Verzeichnis "+Modus$+" ?",#PB_MessageRequester_YesNo)
If Res=#PB_MessageRequester_Yes
Path$=PathRequester("Krypt! - Neuen Pfad auswählen",GetPathPart(New$))
New$=Path$+GetFilePart(New$)
Goto Again
Else
ProcedureReturn 0
EndIf
EndIf
SetGadgetText(#Text,UCase(Mid(Modus$,1,1))+Mid(Modus$,2,2)+"schlüsselung läuft...") ;Aktualisierung im Hauptfenster
If Passwort$<>""
Passwortlength=Len(Passwort$)
While Eof(#File1)=0 ;solange das Ende der Datei noch nicht erreicht ist...
Byte=ReadByte(#File1) ;Byte aus Originaldatei einlesen
Byte=(Byte+Value*(Asc(Mid(Passwort$,i,1))+Length))%256 ;Bytewert verändern(eigentliche Verschlüsselung):Modulo 256 von (Bytewert+/-Asciiwert des Buchstabens des Passwortes an der Stelle i +/- Orginaldateilänge)
WriteByte(#File2,Byte) ;schreiben des veränderten Wertes in die neue Datei
pos+1 ;Zeiger in den Dateien erhöhen
If pos % 1000=0
Delay(10)
EndIf
SetGadgetState(#Progress,pos) ;Fortschrittsanzeige aktualisieren
i+1 ;Zeiger im Passwort erhöhen
If i>Passwortlength ;Wenn Zeiger>Passwortlänge...
i=1 ;von vorn anfangen
EndIf
Wend
Else ;ohne Passwort:
While Eof(#File1)=0
Byte=ReadByte(#File1)
Byte=(Byte+Value*Length)%256 ;Modulo 256 von (Bytewert+/-Originaldateilänge)
WriteByte(#File2,Byte)
pos+1
If pos % 1000=0
Delay(10)
EndIf
SetGadgetState(#Progress,pos)
Wend
EndIf
SetGadgetText(#Text,"Krypt!") ;Fertig!!!
SetGadgetState(#Progress,0)
SetGadgetText(#Passwort,"")
CloseFile(#File1)
CloseFile(#File2)
If Schreibschutz=1
NA=#PB_FileSystem_ReadOnly
EndIf
If Versteckt=1
NA|#PB_FileSystem_Hidden
EndIf
If Systemdatei=1
NA|#PB_FileSystem_System
EndIf
SetFileAttributes(New$,NA) ;Dateiattribute setzen
If MessageRequester("Krypt! - FERTIG",UCase(Mid(Modus$,1,1))+Mid(Modus$,2,2)+"schlüsselung abgeschlossen."+Chr(10)+"Soll die Originaldatei gelöscht(!) werden ?",#PB_MessageRequester_YesNo)=#PB_MessageRequester_Yes ;Nachfrage zum löschen der Originaldatei
SetFileAttributes(Datei$,0)
If DeleteFile(Datei$)=0 ;Originaldatei löschen
MessageRequester("Krypt! - ERROR","Originaldatei konnte nicht gelöscht werden. Möglicherweise ist der Datenträger schreibgeschützt oder Sie besitzen"+Chr(10)+"keine Berechtigungen die Datei zu löschen.")
Else
SetGadgetText(#Dateiname,"")
EndIf
EndIf
ProcedureReturn 1
Else
MessageRequester("Krypt! - ERROR","Fehler beim öffnen der Datei "+Chr(34)+Datei$+Chr(34)+" !"+Chr(10)+"Bitte überprüfen Sie, ob die Datei vorhanden ist.")
ProcedureReturn 0
EndIf
EndProcedure
OpenWindow(#Window,0,0,450,100,"Krypt!",#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
AddKeyboardShortcut(#Window,#PB_Shortcut_Return,#Start)
CreateGadgetList(WindowID(#Window))
StringGadget(#Dateiname,10,10,250,20,File$)
TextGadget(#PT,10,43,50,20,"Passwort :")
StringGadget(#Passwort,65,40,195,20,"",#PB_String_Password)
ButtonGadget(#Select,270,10,170,20,"Datei auswählen")
ComboBoxGadget(#Mode,270,40,105,20)
AddGadgetItem(#Mode,0,"verschlüsseln")
AddGadgetItem(#Mode,1,"entschlüsseln")
SetGadgetState(#Mode,0)
ButtonGadget(#Start,385,40,55,20,"Krypt!")
ProgressBarGadget(#Progress,10,70,430,12,0,1000)
TextGadget(#Text,10,83,430,20,"Krypt!")
Repeat
event=WaitWindowEvent()
Select event
Case #PB_Event_Menu
Select EventMenu()
Case #Start
Goto Enter
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case #Select
File$=OpenFileRequester("Krypt!","","Alle Dateien (*.*)|*.*",0)
SetGadgetText(#Dateiname,File$)
SetActiveGadget(#Dateiname)
Case #Dateiname
If GetExtensionPart(GetGadgetText(#Dateiname))="krypt"
SetGadgetState(#Mode,1)
Else
SetGadgetState(#Mode,0)
EndIf
SetGadgetText(#Text,"Dateiname : "+GetGadgetText(#Dateiname))
Case #Start
Enter:
File$=GetGadgetText(#Dateiname)
Passwort$=GetGadgetText(#Passwort)
Mode$=GetGadgetText(#Mode)
Is=Krypt(File$,Passwort$,Mode$)
If Is=0
MessageRequester("Krypt! - ERROR","Vorgang fehlgeschlagen!")
EndIf
EndSelect
EndSelect
Until event=#PB_Event_CloseWindow
