Guten Tag Allerseits!
Wie ihr schon im ThreadTitle gelesen habt, arbeite ich grade an einem Datei Verschlüsselungs Script.
Mit Txt Dateien geht das ja schon wunderbar; mit allen anderen allerdings nicht
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <File.au3>
$Form1 = GUICreate("Lenny's FileCrypter", 632, 345, 194, 132, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Lenny's.jpg", 0, 0, 632, 150, BitOR($SS_NOTIFY, $SS_SUNKEN, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), $GUI_WS_EX_PARENTDRAG)
$Button1 = GUICtrlCreateButton("Datei zum Verschlüsseln wählen", 40, 160, 243, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Datei zum Entschlüsseln wählen", 344, 160, 243, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("Pfad", 40, 200, 545, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Slider1 = GUICtrlCreateSlider(344, 240, 238, 45, BitOR($TBS_AUTOTICKS, $TBS_BOTH))
GUICtrlSetLimit(-1, 3, 1)
$Label1 = GUICtrlCreateLabel("Wählen sie den Grad der Verschlüsselung:", 40, 248, 298, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Progress1 = GUICtrlCreateProgress(40, 304, 294, 17)
$Button3 = GUICtrlCreateButton("Close me.", 352, 304, 227, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TrayTip("Info", "Wählen sie den Grad der Verschlüsselung.", 5, 1)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ToolTip("")
_verschluesseln()
Case $Button2
ToolTip("")
_entschluesseln()
Case $Button3
Exit
Case $Slider1
$position = GUICtrlRead($Slider1)
If $position = 1 Then $txt = "Leicht"
If $position = 2 Then $txt = "Mittel"
If $position = 3 Then $txt = "Schwer"
ToolTip($txt)
EndSwitch
WEnd
Func _verschluesseln()
$postion = 0
$position = GUICtrlRead($Slider1)
$Ort = FileOpenDialog("Datei zum Verschlüsseln auswählen", "", "Alle Dateien (*.*)", 1)
If @error Then Exit
GUICtrlSetData($Input1, $Ort)
[/autoit] [autoit][/autoit] [autoit]$Datei = FileOpen($Ort, 16)
$FSize = FileGetSize($Ort)
_FileCreate($Ort & ".lfc")
For $s = 1 To 1000000000000 Step 1
$line1 = FileReadLine($Datei, $s)
If @error = -1 Then
$linecounter = $s
ExitLoop
EndIf
Next
$setting = 100 / $linecounter
For $i = 1 To $linecounter
$line = FileReadLine($Datei, $i)
$postion += $setting
GUICtrlSetData($Progress1, $postion)
If @error = -1 Then $i = 500000
$Text = _StringEncrypt(1, $line, "test", $position)
[/autoit] [autoit][/autoit] [autoit]$newop = FileOpen($Ort & ".lfc", 1)
FileWrite($newop, $Text & @CRLF)
FileClose($newop)
Next
FileClose($Datei)
;~ FileDelete($Ort)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($Progress1, 0)
EndFunc ;==>_verschluesseln
Func _entschluesseln()
[/autoit] [autoit][/autoit] [autoit]$postion = 0
$position = GUICtrlRead($Slider1)
$Ort = FileOpenDialog("Wählen sie die Datei zum DeCrypten aus", "", "Lenny File Crypter (*.lfc)", 1)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($Input1, $Ort)
[/autoit] [autoit][/autoit] [autoit]$Datei = FileOpen($Ort, 4)
For $s = 1 To 1000000000000 Step 1
$line1 = FileReadLine($Datei, $s)
If @error = -1 Then
$linecounter = $s
ExitLoop
EndIf
Next
$setting = 100 / $linecounter
;~ MsgBox(0, "", $linecounter)
$string1 = StringTrimRight($Ort, 4)
_FileCreate($string1)
For $i = 1 To $linecounter
$postion += $setting
GUICtrlSetData($Progress1, $postion)
$line = FileReadLine($Datei, $i)
;~ MsgBox(0, "", $line)
$Text = _StringEncrypt(0, $line, "test", $position)
;~ MsgBox(0, "", $Text)
$newop = FileOpen($string1, 1 +
FileWrite($newop, $Text)
FileClose($newop)
Next
FileClose($Datei)
FileDelete($Ort)
GUICtrlSetData($Progress1, 0)
EndFunc ;==>_entschluesseln
1. Es ist kompliziert
2. Es dauert lange
3. Das ist mir aber relativ egal am wichtigsten ist mir Punkt 4
4. Wenn ich eine Datei gecryptet habe, und sie wieder entcrypten will, ist die nur nohc halb so groß wie vorher.
Erkennt StringEncrypt keine Leerzielen ? Oder wodran könnte es liegen ?
Vielen Dank im Vorraus,
LG,
Lenny