Beiträge von Data

Data

Spoiler anzeigen

[autoit]

#include
#include
#include
#include
#include
#include #Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 215, 96, 192, 124)
$Input1=GUICtrlCreateInput("", 80, 24, 121, 21)
$Label1 = GUICtrlCreateLabel("name", 16, 24, 30, 17)
$Label2 = GUICtrlCreateLabel("vorname ", 16, 56, 48, 17)
$Input2=GUICtrlCreateInput("", 80, 56, 121, 21)
$SendButton=GUICtrlCreateButton ("Send", 10, 70)GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Select
Case $GUI_EVENT_CLOSE
Exit Case $nmsg=$SendButton $Name = GUICtrlRead ($Input1)
$Vorname = GUICtrlRead ($Input2)
_INetMail ($Empfaenger, $Betreff, $Text)
EndSelect
WEnd

[/autoit]

So, die $Name und $Vorname enthalten jetzt den aus dem Input gelesenen Text. Bei INetMail musst du nur noch die $ setzen.
Ich hoffe, das hilft dir weiter .
Mfg. Lt. Cmdr. Data

Data

Hallo, ich will meine alte Textverschlüsselung mit "Crypt.au3" updaten. Den größten Teil hab' ich schon fertig.
Ich habe aber ein Problem mit dem entschlüsseln. Der Quelltext ist:

Spoiler anzeigen

[autoit]

#cs************************************************************************
***************************************************************************
**** ****
**** Name: Kizzys Encryption/Decryption Tool ****
**** Funktion: Textver-/ entschl�sselung auf Basis von RC4 ****
**** Autor: Bierm�nnsche PC-Manufakturen/Keziah Biermann ****
**** Mit freundlicher Unterst�tzung von: Cartan 12 & name 22 ****
**** ****
***************************************************************************
#ce************************************************************************

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>
#include <string.au3>
#include <file.au3>
#include <INet.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
;#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt( "TrayIconHide", 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_Main()
Func _Main()
Local $VerschID, $EntschID, $msg, $option = 0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$WinMain = GUICreate ( "Kizzys Encryption/Decryption Tool", 490, 380, (-1),(-1), (-1))
;GUICtrlCreatePic ("Hintergrund.jpeg", 0, 0, 490, 380)
GUISetBkColor(0xBB0000)
$EditText = GuiCtrlCreateEdit('Bitte geben Sie Ihren zu verschl�sselnden Text ein.',5,5,380,310)
$InputPass = GuiCtrlCreateInput('',5,320,100,20, 0x21)
;$InputLevel = GuiCtrlCreateInput("5", 110, 320, 52,20, BitOR ($ES_NUMBER, $ES_CENTER))
$StartButton = GUICtrlCreateButton ( "Start", 267, 320, 120, 35)
GUICtrlCreateLabel ( "Algorythmus", 122, 342)
GUICtrlCreateLabel ( "Passwort", 32, 342)
;GUICtrlCreateLabel ("PasswHash", 200, 342)
$filemenu = GuiCtrlCreateMenu ("Datei")
$helpmenu = GuiCtrlCreateMenu ("Hilfe")
$hilfe = GuiCtrlCreateMenuitem ("Hilfe",$helpmenu)
GUICtrlCreateMenuItem("",$helpmenu)
$aboutitem = GuiCtrlCreateMenuitem ("�ber",$helpmenu)
$open=GUICtrlCreateMenuItem ( "�ffnen...", $filemenu,0)
$save=GUICtrlCreateMenuItem ("Sichern...", $filemenu,1)
GUICtrlCreateMenuItem ("",$filemenu,2)
$exititem = GUICtrlCreateMenuItem ("Programm beenden",$filemenu,3)
$ClearAll = GUICtrlCreateButton ( "Felder leeren", 395, 210, 90, 35, (-1), 0x2000)
$Feedback=GUICtrlCreateButton ( "Feedback", 395, 320, 90, 35)
$CryptAlgo=GUICtrlCreateCombo ("AES 128 Bit", 110, 320, 80, 16)
GUICtrlSetData ($CryptAlgo, "AES 192 Bit|AES 256 Bit|DES|Triple-DES|RC2|RC4")
;$HashAlgo=GUICtrlCreateCombo ("MD2", 200, 320, 56, 16)
;GUICtrlSetData ($HashAlgo, "MD4|MD5|SHA1")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Open1=GUICtrlCreateButton ( "Datei �ffnen...", 395, 255, 90)
$Save1=GUICtrlCreateButton ( "Datei sichern...", 395, 285, 90)

[/autoit] [autoit][/autoit] [autoit]

GuiCtrlCreateGroup("Modus", 395, 5, 90, 65)
$VerschID = GuiCtrlCreateRadio("verschl�sseln", 400, 20, 80);ID 18
GuiCtrlSetState($VerschID, $GUI_CHECKED)
$EntschID = GuiCtrlCreateRadio("entschl�sseln", 400, 45, 80);ID 19
GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

[/autoit] [autoit][/autoit] [autoit]

GuiSetState()

[/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit]

$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $ClearAll
GUICtrlSetData ( $EditText, "")
GuiCtrlSetData ( $InputPass, "")
GUICtrlSetData ( $InputLevel, "")

Case $msg =$Feedback
_INetMail ( "biermaennsche.pc.manufakturen@googlemail.com", "KDE-Tool Feedback", "")
If @error = 1 Then
MsgBox (12, "Feedback Fehler", "Die Feedbackfunktion konnte nicht gestartet werden. Wenn Sie immer noch ein Feedback abgeben wollen, senden Sie bitte eine E-Mail, mit Betreff ""KDE-Tool Feedback"" an: ""biermaennsche.pc.manufakturen@googlemail.com""")
EndIf

Case $msg = $aboutitem
Msgbox(64,"�ber","Kizzys Encryption/Decryption Tool - RC4 Text - En-/Decrypter Version: 2.0" &@CRLF&@CRLF&@CRLF& "Copyright: �2010-2020, Bierm�nnsche PC-Manufakturen/Keziah Biermann" &@CRLF&@CRLF& "E-Mail: biermaennsche.pc.manufakturen@googlemail.com")
Case $msg = $Hilfe
MsgBox (64, "Hilfe", "Passwort: Das Passwort mit dem der Text Verschl�sselt wurde." & @CRLF & @CRLF & "Level: Das Level mit dem der Text verschl�sselt wurde. Das bei der Verschl�sselung verwandte Level muss auch zur Entschl�sselung verwendet werden. Wenn Sie mehr als 30.000 Zeichen entschl�sseln wollen, nutzen Sie bitte die ""Datei �ffnen...""-Funktion im Datei-Men�.")
Case $msg = $open Or $msg = $Open1
If $option = 0 Then
$OpenExplorer = FileOpenDialog ("Datei �ffnen...", @MyDocumentsDir, "Einfaches Textdokument (*.txt)",1)
$EncryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$EncryptString )
EndIf
If $option = 1 Then
$OpenExplorer = FileOpenDialog ("Datei �ffnen...", @MyDocumentsDir, "RC4-verschl�sselter Text (*.txt), (*.cpt)",1)
$EncryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$EncryptString )
EndIf

Case $msg = $exititem
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $StartButton
;~~
GuiCtrlSetState( $EditText,$GUI_DISABLE)
GUICtrlSetState($InputPass,$GUI_DISABLE )
GUICtrlSetState( $CryptAlgo,$GUI_DISABLE)
;GUICtrlSetState($HashAlgo, $GUI_DISABLE )
GUICtrlSetState( $StartButton,$GUI_DISABLE)
GUICtrlSetState($filemenu,$GUI_DISABLE )
GUICtrlSetState( $Open1,$GUI_DISABLE)
GUICtrlSetState($Save1, $GUI_DISABLE)
GUICtrlSetState( $VerschID, $GUI_DISABLE)
GUICtrlSetState($EntschID, $GUI_DISABLE )
GUICtrlSetState( $ClearAll, $GUI_DISABLE)
; Stops you from changing anything
;~~
$string = GuiCtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText,'Bitte warten Sie, w�hrend Ihr verschl�sselter Text mit Ihrem Passwort '&@CRLF&'und RC4 verschl�sselt wird.')
; Friendly message
If GUICtrlRead($CryptAlgo) = "AES 128 Bit" Then
$iALG_ID = 0x0000660e
EndIf
If GUICtrlRead($CryptAlgo) = "AES 192 Bit" Then
$iALG_ID = 0x0000660f
EndIf
If GUICtrlRead($CryptAlgo) = "AES 256 Bit" Then
$iALG_ID = 0x00006610
EndIf
If GUICtrlRead($CryptAlgo) = "DES" Then
$iALG_ID = 0x00006601
EndIf
If GUICtrlRead($CryptAlgo) = "Triple-DES" Then
$iALG_ID = 0x00006603
EndIf
If GUICtrlRead($CryptAlgo) = "RC2" Then
$iALG_ID = 0x00006602
EndIf
If GUICtrlRead($CryptAlgo) = "RC4" Then
$iALG_ID = 0x00006801
EndIf
#cs
If GUICtrlRead($HashAlgo) = "MD2" Then
$iHashALG_ID = 0x00008001
EndIf
If GUICtrlRead($HashAlgo) = "MD4" Then
$iHashALG_ID = 0x00008002
EndIf
If GUICtrlRead($HashAlgo) = "MD5" Then
$iHashALG_ID = 0x00008003
EndIf
If GUICtrlRead($HashAlgo) = "SHA1" Then
$iHashALG_ID = 0x00008004
EndIf
#ce
If $option = 0 Then
$vCryptKey=_Crypt_DeriveKey (GUICtrlRead($InputPass), GUICtrlRead($CryptAlgo), 0x00008003)
GuiCtrlSetData($EditText,_Crypt_EncryptData(GUICtrlRead($EditText), $vCryptKey, $iALG_ID))
_Crypt_DestroyKey($vCryptKey)
Else
$vCryptKey=_Crypt_DeriveKey (GUICtrlRead($InputPass), GUICtrlRead($CryptAlgo), 0x00008003)
GuiCtrlSetData($EditText,_Crypt_DecryptData(GUICtrlRead($EditText), $vCryptKey, $iALG_ID))
_Crypt_DestroyKey($vCryptKey)
EndIf
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GuiCtrlSetState( $EditText,$GUI_ENABLE)
GUICtrlSetState($InputPass,$GUI_ENABLE )
;GUICtrlSetState($HashAlgo,$GUI_ENABLE )
GUICtrlSetState($CryptAlgo,$GUI_ENABLE)
GUICtrlSetState($StartButton,$GUI_ENABLE )
GUICtrlSetState($filemenu,$GUI_ENABLE )
GUICtrlSetState( $Open1,$GUI_ENABLE)
GUICtrlSetState($Save1, $GUI_ENABLE)
GUICtrlSetState($VerschID, $GUI_ENABLE)
GUICtrlSetState($EntschID, $GUI_ENABLE)
GUICtrlSetState($ClearAll, $GUI_ENABLE)
; This turns the window back on
Case $msg = $save Or $msg = $Save1
If $option = 0 Then
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "RC4-verschl�sselter Text (.cpt)", 16)
If @error<>1 Then
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".cpt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".cpt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
EndIf
EndIf
If $option = 1 Then
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "Einfaches Textdokument (.txt)", 16)
If @error <> 1 Then
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".txt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".txt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
EndIf

EndIf
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $VerschID
$option = 0

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $EntschID
$option = 1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSelect
WEnd
EndFunc ;==>_Main

[/autoit] [autoit][/autoit] [autoit]

#cs
Mit frndl. Unterst�tzung von:
Cartan12,
name22
#ce
#include-once

[/autoit] [autoit][/autoit] [autoit][/autoit]

Vielen Dank schon mal im Voraus.
P. S. : Die "?" einfach ignorieren, die stehen für die Umlaute.

Data

Cartan12 Vielleicht ist die Do...Until-Schleife Schuld. Könnte das sein.

@Alle Aber den Haken, weshalb es manchmal klappt und manchmal nicht (also bei der *.exe) hab ich immer noch nich gefunden. An der veralteten AutoIt Version kanns ja nicht liegen. Der Compiler setzt es ja korekt um.

Data

peethebee
Gute Idee... werd' ich machen

Data

Mahagon Oh gut zu wissen... Danke!

Data

P. S. : Der Transport zum MAC hat die Umlaute gekillt. Ignoriert diese "?"-Symbole einfach!
Aber "BlockInput" hab' ich nicht angewandt.

Data

Tut mir leid, ihr paranoiden, kleinen ****

War natürlich nicht ernst gemeint. Hab' einfach nicht d'ran gedacht.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <INet.au3>
$Width = 385
$High = 145
GUICreate ("Bierm�nnsche PC-Manufakturen - Produkt Downloader", $Width, $High)
$URL1 = "http://biermaennsche@biermaennsche.bplaced.net/Software/KDE-Tool%20%20%20V%202.0%20-%20Setup.cab"
$URL2 = "http://biermaennsche@biermaennsche.bplaced.net/Software/Attribut%20Changer.cab"
$URL3 = "http://biermaennsche@biermaennsche.bplaced.net/Software/SysInfo%20Tool%20-%20Setup.cab"
$HK = 15
$BK = 10
$Breite = $Width -20
$Hoehe = 35
GUICtrlCreateGroup ("Kizzys Verschl�sselungs Tool", $BK, $HK-5, $Breite, $Hoehe)
GUICtrlCreateLabel("Lizenzschl�ssel", $BK+5, $HK +10, 75,15)
GUICtrlCreateInput("ZLM79-B6FLK-9OP91-JGH75-JXD6T", $BK+90, $HK+10, 178, 15, (-1), 0x0800)
$DownloadButton1=GUICtrlCreateButton ("Download now!", $BK + 280, $HK +5, 80, 22)
GUICtrlCreateGroup ("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateGroup ("AttribChanger", $BK, $HK+40-5, $Breite, $Hoehe)
GUICtrlCreateLabel("Lizenzschl�ssel", $BK+5, $HK +50,75,15)
GUICtrlCreateInput("ZLM79-B6FLK-9OP91-JGH75-JXD6T", $BK+90, $HK+50, 178,15, (-1), 0x0800)
$DownloadButton2=GUICtrlCreateButton ("Download now!", $BK + 280, $HK +45, 80, 22)
GUICtrlCreateGroup ("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateGroup ("SysInfo Tool", $BK, $HK+80-5, $Breite, $Hoehe)
GUICtrlCreateLabel("Lizenzschl�ssel", $BK+5, $HK +90,75,15)
GUICtrlCreateInput("ZLM79-B6FLK-9OP91-JGH75-JXD6T", $BK+90, $HK+90, 178, 15, (-1), 0x0800)
$DownloadButton3=GUICtrlCreateButton ("Download now!", $BK + 280, $HK +85, 80, 22)
GUICtrlCreateGroup ("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateLabel("�2010-2020 by Bierm�nnsche PC-Manuafkturen/Keziah Biermann", $BK+2, $High-15)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $DownloadButton1
$Pfad1=FileSaveDialog ("Download speichern unter...", @MyDocumentsDir, "Cabinett-Archiv (*.cab)",16)
If @error = 1 Then
ExitLoop
EndIf

$Size1 = InetGetSize ( $URL1 )
$MsgBox1 = MsgBox ( 52, "Download wirklich starten?", "M�chten Sie den Download wirklich starten? Sie k�nnen ihn nur abbrechen, in dem Sie dieses Programm und alle anderen Downloads in diesem Programm beenden. Der Download ist "&$Size1&" Bytes gro�."&@CRLF&@CRLF&"M�chten Sie wirklich fortfahren?")
If $MsgBox1 <> 6 Then
MsgBox (16, "Download abgebrochen", "Der Download wurde abgebrochen. Das Programm wird nun beendet.")
Exit
EndIf

InetGet ( $URL1 , $Pfad1, 0, 1)
If @InetGetBytesRead = -1 Then
MsgBox (16, "Fehler", "Der Download ist fehlgeschlagen. Bitte versuchen Sie es manuell, in dem Sie """&$URL1&""" in ihrem Browser aufrufen. Trotz der Fehlermeldung, dass Sie keinen Zugriff haben, sollte der Download starten.")
Else
MsgBox (64, "Download abgeschlossen", "Der Download wurde erfolgreich abgeschlossen. Die Datei wurde in """&$Pfad1&""" gespeichert. Vielen Dank, dass Sie sich f�r Software von den Bierm�nnschen PC-Manufakturen entschieden haben.")
EndIf
Do
GUICreate ("Programm l�dt", 200, 100)
GUICtrlCreateLabel ("Das Programm l�dt... Bitte warten. Schon "&@InetGetBytesRead&" Bytes von "&$Size1&" geladen",10,10)
GUIDelete()
Until @InetGetActive = 0

Case $msg = $DownloadButton2
$Pfad2=FileSaveDialog ("Download speichern unter...", @MyDocumentsDir, "Cabinett-Archiv (*.cab)",16)
If @error = 1 Then
ExitLoop
EndIf
$Size2 = InetGetSize ( $URL2 )
$MsgBox2 = MsgBox ( 52, "Download wirklich starten?", "M�chten Sie den Download wirklich starten? Sie k�nnen ihn nur beenden, in dem Sie dieses Programm und alle anderen Downloads in diesem Programm beenden. Der Download ist "&$Size2&" Bytes gro�."&@CRLF&@CRLF&"M�chten Sie wirklich fortfahren?"
If $MsgBox2 <> 6 Then
MsgBox (16, "Download abgebrochen", "Der Download wurde abgebrochen. Das Programm wird nun beendet.")
Exit
EndIf

InetGet ( $URL2 , $Pfad2, 0, 1)

[/autoit] [autoit][/autoit] [autoit]

If @InetGetBytesRead = -1 Then
MsgBox (16, "Fehler", "Der Download ist fehlgeschlagen. Bitte versuchen Sie es manuell, in dem Sie """&$URL2&""" in ihrem Browser aufrufen. Trotz der Fehlermeldung, dass Sie keinen Zugriff haben, sollte der Download starten.")

EndIf
Do
GUICreate ("Programm l�dt", 200, 100)
GUICtrlCreateLabel ("Das Programm l�dt... Bitte warten. Schon "&@InetGetBytesRead&" Bytes von "&$Size2&" geladen", 10, 10)
GUIDelete()
Until @InetGetActive = 0

MsgBox (64, "Download abgeschlossen", "Der Download wurde erfolgreich abgeschlossen. Die Datei wurde in """&$Pfad2&""" gespeichert. Vielen Dank, dass Sie sich f�r Software von den Bierm�nnschen PC-Manufakturen entschieden haben.")

Case $msg = $DownloadButton3
$Pfad3=FileSaveDialog ("Download speichern unter...", @MyDocumentsDir, "Cabinett-Archiv (*.cab)",16)
If @error = 1 Then
ExitLoop
EndIf
$Size3 = InetGetSize ( $URL3 )
$MsgBox3 = MsgBox ( 52, "Download wirklich starten?", "M�chten Sie den Download wirklich starten? Sie k�nnen ihn nur beenden, in dem Sie dieses Programm und alle anderen Downloads in diesem Programm beenden. Der Download ist "&$Size3&" Bytes gro�."&@CRLF&@CRLF&"M�chten Sie wirklich fortfahren?"
If $MsgBox3 <> 6 Then
MsgBox (16, "Download abgebrochen", "Der Download wurde abgebrochen. Das Programm wird nun beendet.")
Exit
EndIf

InetGet ( $URL3 , $Pfad3, 0, 1)
If @InetGetBytesRead = -1 Then
MsgBox (16, "Fehler", "Der Download ist fehlgeschlagen. Bitte versuchen Sie es manuell, in dem Sie """&$URL3&""" in ihrem Browser aufrufen. Trotz der Fehlermeldung, dass Sie keinen Zugriff haben, sollte der Download starten.")

EndIf

[/autoit] [autoit][/autoit] [autoit]

Do
GUICreate ("Programm l�dt", 200, 100)
GUICtrlCreateLabel ("Das Programm l�dt... Bitte warten. Schon "&@InetGetBytesRead&" Bytes von "&$Size3&" geladen",10,10)
GUIDelete()
Until @InetGetActive = 0

MsgBox (64, "Download abgeschlossen", "Der Download wurde erfolgreich abgeschlossen. Die Datei wurde in """&$Pfad3&""" gespeichert. Vielen Dank, dass Sie sich f�r Software von den Bierm�nnschen PC-Manufakturen entschieden haben.")

Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

[/autoit]

Data

Hallo, ich brauche einen Alternativtester für mein Programm. Es stellt zur Auswahl, welches meiner anderen Programme man laden will. Ich kann es selbst nicht testen, da ich aus Sicherheitsgründen nur mit MacOSX ins Netz gehe und auf diesem OS läuft mein Programm logischerweise nicht . Mein Windows ist nicht Internetreif. Natürlich sind die Dateien, die ihr laden würdet, keine Viren .

Ach ja... Die geladenen Programme dürft ihr natürlich auch nutzen und Weitergeben ist erwünscht!

Data

Ich hab ein Problem mit

[autoit]

FileSetAttrib

[/autoit]

.
Hier ist mein Script.

Spoiler anzeigen

[autoit]

#include
#include
#RequireAdmin
opt("TrayIconHide", 1)
$Breite = 335
$Hoehe = 144

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Attribut-Changer", $Breite + 60, $Hoehe, -1, -1, -1, 0x00000010)
GUISetState ( $GUI_ACCEPTFILES)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateMenu ( "Programm", 1)
$Exit = GUICtrlCreateMenuItem ( "Programm Beenden", 1)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateMenu ("Hilfe", 2)
$Hilfe = GUICtrlCreateMenuItem ( "Hilfe", 2)
GUICtrlCreateMenuItem ( "", 2)
$Ueber = GUICtrlCreateMenuItem ("�ber", 2)

[/autoit] [autoit][/autoit] [autoit]

$Datei = GUICtrlCreateInput( """Datei ausw�hlen...""", 10, $Hoehe - 134, $Breite, 20, (-1))
GUICtrlSetState ( $Datei, $GUI_ACCEPTFILES )
$FileRead = GUICtrlCreateButton( "...", $Breite + 20, $Hoehe -135, 30, 22)

[/autoit] [autoit][/autoit] [autoit]

$Buttons = $Breite - 130
$ButtonsHigh = $Hoehe - 30

[/autoit] [autoit][/autoit] [autoit]

$OKButton = GUICtrlCreateButton( "OK", $Buttons, $ButtonsHigh, 80, 22)
$CancelButton = GUICtrlCreateButton( "Abbrechen", $Buttons + 100, $ButtonsHigh, 80, 22)

[/autoit] [autoit][/autoit] [autoit]

$CHKBX = $Hoehe -94
$CHKBXW = 20

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateGroup ( "Standard-Attribute", $CHKBXW - 10, $CHKBX - 15, 118, 100)
$Schreibgeschuetzt=GUICtrlCreateCheckbox("Schreibgesch�tzt", $CHKBXW, $CHKBX)
$Versteckt=GUICtrlCreateCheckbox("Versteckt", $CHKBXW, $CHKBX + 20)
$Archiv =GUICtrlCreateCheckbox("Archiv", $CHKBXW, $CHKBX + 40)
$Normal =GUICtrlCreateCheckbox("Normal", $CHKBXW, $CHKBX + 60)
GUICtrlCreateGroup ("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateGroup ( "Netzwerk-Attribute", $CHKBXW + 246, $CHKBX - 15, 118, 40)
$Offline =GUICtrlCreateCheckbox("Offline", $CHKBXW + 256, $CHKBX)
GUICtrlCreateGroup ("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateGroup ( "System-Attribute", $CHKBXW + 118, $CHKBX - 15, 118, 60)
$Temporaer =GUICtrlCreateCheckbox("Tempor�r", $CHKBXW + 128, $CHKBX)
$System =GUICtrlCreateCheckbox("System", $CHKBXW+ 128, $CHKBX + 20)
GUICtrlCreateGroup ("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateGroup ("", $CHKBXW + 246, $CHKBX +22, 118, 23)
GUICtrlCreateLabel ( "IP: "&@IPAddress1, $CHKBXW +256, $CHKBX +30, 100, 13)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$R = 0
$H = 0
$A = 0
$N = 0
$O = 0
$T = 0
$S = 0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg=GUIGetMsg()
Select
Case $msg = $Schreibgeschuetzt
$R = 1
Case $msg = $Versteckt
$H = 1
Case $msg = $Archiv
$A = 1
Case $msg = $Normal
$N = 1
Case $msg = $Offline
$O = 1
Case $msg = $Temporaer
$T = 1
Case $msg = $System
$S = 1
Case $msg=$OKButton
GUICtrlSetState ( $Datei, $GUI_DISABLE )
GUICtrlSetState ( $FileRead, $GUI_DISABLE )

GUICtrlSetState ( $Schreibgeschuetzt, $GUI_DISABLE )
GUICtrlSetState ( $Versteckt, $GUI_DISABLE )
GUICtrlSetState ( $Archiv, $GUI_DISABLE )
GUICtrlSetState ( $Normal, $GUI_DISABLE )
GUICtrlSetState ( $Offline, $GUI_DISABLE )
GUICtrlSetState ( $Temporaer, $GUI_DISABLE )
GUICtrlSetState ( $System, $GUI_DISABLE )
$File = GUICtrlRead ( $Datei )

If $R = 1 Then
FileSetAttrib ( $File, "+R" )
Else
FileSetAttrib ($File, "-R")
EndIf
If $H = 1 Then
FileSetAttrib ( $File, "+H" )
Else
FileSetAttrib ($File, "-H")
EndIf
If $A = 1 Then
FileSetAttrib ( $File, "+A" )
Else
FileSetAttrib ($File, "-A")
EndIf
If $N = 1 Then
FileSetAttrib ( $File, "+N" )
Else
FileSetAttrib ($File, "-N")
EndIf
If $O = 1 Then
FileSetAttrib ( $File, "+O" )
Else
FileSetAttrib ($File, "-O")
EndIf
If $T = 1 Then
FileSetAttrib ( $File, "+T" )
Else
FileSetAttrib ($File, "-T")
EndIf
If $S = 1 Then
FileSetAttrib ( $File, "+S" )
Else
FileSetAttrib ($File, "-S")
EndIf
GUICtrlSetState ( $Datei, $GUI_ENABLE )
GUICtrlSetState ( $FileRead, $GUI_ENABLE )

GUICtrlSetState ( $Schreibgeschuetzt, $GUI_ENABLE )
GUICtrlSetState ( $Versteckt, $GUI_ENABLE )
GUICtrlSetState ( $Archiv, $GUI_ENABLE )
GUICtrlSetState ( $Normal, $GUI_ENABLE )
GUICtrlSetState ( $Offline, $GUI_ENABLE )
GUICtrlSetState ( $Temporaer, $GUI_ENABLE )
GUICtrlSetState ( $System, $GUI_ENABLE )
Case $msg =$FileRead
$Set=FileOpenDialog ( "Datei �ffnen...", @MyDocumentsDir, "Alle Dateien (*.*)")
GUICtrlSetData ( $Datei, $Set )

Case $msg =$GUI_EVENT_CLOSE Or $msg=$CancelButton
Exit

EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

Ach ja... Mein Menü taucht nicht auf (ich weiß, dass ich die Aktionen noch nicht geschrieben hab'). Wahrscheinlich bin ich nur zu **** um den Fehler zu finden, aber wäre nett, wenn mir jemand helfen könnte.

Ach ja, beim Datentransfer zu meinem MAC, hats die Umlaute gekillt. Denkt euch einfach die logische Warheit .

Data

Vielen Dank an euch beide.
Ich bin wirklich gerührt

Habt ihr etwas dagegen, wenn ich eure Forumbezeichnungen im "Über" erwähne. (Mit freundlicher Unterstützung von: Cartan12, name22)

Data

Danke. Ach ja [Blockierte Grafik: http://www.autoit.de/wcf/icon/onlineS.png] Cartan12, du hast in deiner Beschreibung einen Schreibfehler drin':

Zitat

... und näturlich AutoIt ...

Ich hoffe, es funktioniert.

Data

Das stell' ich mal mein mein Script Online:

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>
#include <string.au3>
#include <file.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt( "TrayIconHide", 1)

[/autoit] [autoit][/autoit] [autoit]

_Main()
Func _Main()
Local $VerschID, $EntschID, $msg

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$WinMain = GUICreate ( "Kizzys Encryption/Decryption Tool", 490, 420)
$EditText = GuiCtrlCreateEdit('Bitte geben Sie Ihren zu verschlüsselnden Text ein.',5,5,380,350)
$InputPass = GuiCtrlCreateInput('',5,360,100,20, 0x21)
$InputLevel = GuiCtrlCreateInput("5", 110, 360, 52,20)
$StartButton = GUICtrlCreateButton ( "Start", 167, 360, 220, 35)
GUICtrlCreateLabel ( "Level", 122, 382)
GUICtrlCreateLabel ( "Passwort", 32, 382)
$filemenu = GuiCtrlCreateMenu ("Datei")
$exititem = GuiCtrlCreateMenuitem ("Programm beenden",$filemenu,3)
$helpmenu = GuiCtrlCreateMenu ("?")
$hilfe = GuiCtrlCreateMenuitem ("Hilfe",$helpmenu)
$aboutitem = GuiCtrlCreateMenuitem ("über",$helpmenu)
$open=GUICtrlCreateMenuItem ( "öffnen...", $filemenu,0)
$save=GUICtrlCreateMenuItem ("Sichern...", $filemenu,1)

[/autoit] [autoit][/autoit] [autoit]

GuiCtrlCreateGroup("Modus", 395, 5, 90, 65)
$VerschID = GuiCtrlCreateRadio("verschlüsseln", 400, 20, 80);ID 17
GuiCtrlSetState(17, $GUI_CHECKED)
$EntschID = GuiCtrlCreateRadio("entschlüsseln", 400, 45, 80);ID 18
GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

[/autoit] [autoit][/autoit] [autoit]

GuiSetState()

[/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit]

$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Select
Case $MSG = $GUI_EVENT_CLOSE
Exit

Case $msg = $aboutitem
Msgbox(64,"Über","Kizzys Encryption/Decryption Tool - RC4 Text-En-/Decrypter Version: 2.0" &@CRLF&@CRLF&@CRLF& "Copyright: ©2010-2020, Biermännsche PC-Manufakturen/Keziah Biermann" &@CRLF&@CRLF& "E-Mail: biermaennsche.pc.manufakturen@googlemail.com")
Case $msg = $Hilfe
MsgBox (0, "Hilfe", "Passwort: Das Passwort mit dem der Text Verschlüsselt wurde." & @CRLF & @CRLF & "Level: Das Level mit dem der Text verschlüsselt wurde. Das bei der Verschlüsselung verwandte Level muss auch zur Entschlüsselung verwendet werden. Wenn Sie mehr als 30.000 Zeichen entschlüsseln wollen, nutzen Sie bitte die ""Datei öffnen...""-Funktion im Datei-Menü.")
Case $msg = $VerschID
Select
Case $msg = $open
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "Einfaches Textdokument (*.txt)",1)
$EncryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$EncryptString )
Case $msg = $exititem
ExitLoop

Case $msg = $StartButton
;~~
GuiCtrlSetState( $EditText,$GUI_DISABLE)
GUICtrlSetState($InputPass,$GUI_DISABLE )
GUICtrlSetState($InputLevel,$GUI_DISABLE )
GUICtrlSetState($StartButton,$GUI_DISABLE )
GUICtrlSetState($filemenu,$GUI_DISABLE )
GUICtrlSetState( $helpmenu,$GUI_DISABLE)
; Stops you from changing anything
;~~
$string = GuiCtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText,'Bitte warten Sie, während Ihr verschlüsselter Text mit Ihrem Passwort '&@CRLF&'und RC4 verschlüsselt wird.')
; Friendly message
;~~
GuiCtrlSetData($EditText,_StringEncrypt(1,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GuiCtrlSetState( $EditText,$GUI_ENABLE)
GUICtrlSetState($InputPass,$GUI_ENABLE )
GUICtrlSetState($InputLevel,$GUI_ENABLE )
GUICtrlSetState($StartButton,$GUI_ENABLE )
GUICtrlSetState($filemenu,$GUI_ENABLE )
GUICtrlSetState( $helpmenu,$GUI_ENABLE)
; This turns the window back on
Case $msg = $save
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "RC4-verschlüsselter Text (.cpt)", 16)
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".cpt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".cpt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect

Exit
Case $msg = $EntschID
Select
Case $msg = $open
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "RC4-verschlüselter Text (*.cpt), (*.txt)", 1)
$DecryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$DecryptString )
Case $msg = $exititem
ExitLoop

Case $msg = $StartButton
;~~
GuiCtrlSetState( $EditText,$GUI_DISABLE)
GUICtrlSetState($InputPass,$GUI_DISABLE )
GUICtrlSetState($InputLevel,$GUI_DISABLE )
GUICtrlSetState($StartButton,$GUI_DISABLE )
GUICtrlSetState($filemenu,$GUI_DISABLE )
GUICtrlSetState( $helpmenu,$GUI_DISABLE)
; Stops you from changing anything
;~~
$string = GuiCtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText,'Bitte warten Sie, während Ihr verschlüsselter Text mit Ihrem Passwort '&@CRLF&'und RC4 entschlüsselt wird.')
; Friendly message
;~~
GuiCtrlSetData($EditText,_StringEncrypt(0,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GuiCtrlSetState( $EditText,$GUI_ENABLE)
GUICtrlSetState($InputPass,$GUI_ENABLE )
GUICtrlSetState($InputLevel,$GUI_ENABLE )
GUICtrlSetState($StartButton,$GUI_ENABLE )
GUICtrlSetState($filemenu,$GUI_ENABLE )
GUICtrlSetState( $helpmenu,$GUI_ENABLE)
; This turns the window back on
Case $msg = $save
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "Einfaches Textdokument (.txt)", 16)
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".txt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".txt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $GUI_EVENT_CLOSE
Exit
Exit
EndSelect
WEnd
EndFunc ;==>_Main

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;While 1
; $msg = GUIGetMsg()

; If $msg = $GUI_EVENT_CLOSE Then ExitLoop
;Wend

[/autoit] [autoit][/autoit] [autoit][/autoit]

Data

Durch dich bin ich schon deutlich weitergekommen, aber jetzt hab ich ein neues Problem.
Siehe hier .

Data

Ich habe jetzt ein weiteres Problem:
Wie kann ich es schaffen, dass sie Auswahl in einer RadioBox das gesamte Programm beeinflusst? Z. B. wenn ich die Radiobox auswähle, soll sich der "Datei öffnen..."-Dialog anpassen. Wenn ich die "verschlüsseln"-RadioBox auswähle, soll der "Datei öffnen..."-Dialog *.txt-Dateien öffnen (das mit dem *.txt-Filter hab' ich schon hingekriegt ). Wenn ich die "entschlüsseln"-RadioBox auswähle soll es *.cpt und *.txt-Dateien öffnen.
Ich hab es schon mit einer

[autoit]

Case

[/autoit]

-Schleife in einer

[autoit]

Case

[/autoit]

-Schleife probiert. Und mit einem "If-clause", der Variablen setzt.
Hta aber nicht funktioniert

[autoit]

Case

[/autoit]

a la

Spoiler anzeigen

[autoit]

While 1
$msg=GuiGetMsg( )
Select
Case $msg=$EnschID
Select
Case;...
Case;...
EndSelect
EndSelect
WEnd
Exit
;RadioBox schon erstellt, mit den richtigen Variablen ($VerschID, $EntschID

[/autoit]

Wo liegt mein Problem?
Und wenn man keine

[autoit]

Case

[/autoit]

-Schleife in einer

[autoit]

Case

[/autoit]

-Schleife machen kann, wie umgehe ich das Problem?

Mit frndl. Grüßen, Ihr Lieutnant Commander Data

Data

Ist das besser?
So MÜSSTE es eigentlich starten.

Ach ja,

Zitat

PS: Ein Script dieser "Größenordnung" ist es wohl noch nicht wert kopiert zu werden.

noch nicht...;)

Data

Ich wollte mal ein kleines Verschlüsselungstool auf Basis der, bereits in AutoIt integrierten, "_StringEncrypt" - Funktion schreiben.
Die verschlüsseln/entschlüsseln-Auswahl soll mithilfe einer RadioBox getätigt werden. Ich habe jedoch Probleme mit der Assoziierung und finde einfach nicht den Fehler. Natürlich bin ich auch für Verbesserungsvorschläge offen.

Spoiler anzeigen

[autoit]

#include
#include
#include

Opt( "TrayIconHide", 1)

_Main()
Func _Main()
Local $VerschID, $EntschID, $msg

Opt( "TrayIconHide", 1)

$WinMain = GUICreate ( "Kizzys Encryption/Decryption Tool", 490, 420)
$EditText = GuiCtrlCreateEdit('Bitte geben Sie Ihren zu verschlüsselnden Text ein.',5,5,380,350)
$InputPass = GuiCtrlCreateInput('',5,360,100,20, 0x21)
$InputLevel = GuiCtrlCreateInput("5", 110, 360, 52,20)
$StartButton = GUICtrlCreateButton ( "Start", 167, 360, 220, 35)
GUICtrlCreateLabel ( "Level", 122, 382)
GUICtrlCreateLabel ( "Passwort", 32, 382)
$filemenu = GuiCtrlCreateMenu ("Datei")
$exititem = GuiCtrlCreateMenuitem ("Programm beenden",$filemenu,3)
$helpmenu = GuiCtrlCreateMenu ("?")
$hilfe = GuiCtrlCreateMenuitem ("Hilfe",$helpmenu)
$aboutitem = GuiCtrlCreateMenuitem ("über",$helpmenu)
$open=GUICtrlCreateMenuItem ( "Datei öffnen...", $filemenu,0)
$save=GUICtrlCreateMenuItem ("Datei sichern unter...", $filemenu,1)

GuiCtrlCreateGroup("Modus", 395, 5, 90, 65)
$VerschID = GuiCtrlCreateRadio("verschlüsseln", 400, 20, 80);ID 17
GuiCtrlSetState(17, $GUI_CHECKED)
$EntschID = GuiCtrlCreateRadio("entschlüsseln", 400, 45, 80);ID 18
GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

GuiSetState()

While 1
$msg = GUIGetMsg()

Select
Case $MSG = $GUI_EVENT_CLOSE
Exit

Case $msg = $aboutitem
Msgbox(64,"über","Kizzys Encryption/Decryption Tool - RC4 Text-En-/Decrypter Version: 2.0" &@CRLF&@CRLF&@CRLF& "Copyright: ©2010-2020, Biermännsche PC-Manufakturen/Keziah Biermann" &@CRLF&@CRLF& "E-Mail: biermaennsche.pc.manufakturen@googlemail.com")
Case $msg = $Hilfe
MsgBox (0, "Hilfe", "Passwort: Das Passwort mit dem der Text Verschlüsselt wurde." & @CRLF & @CRLF & "Level: Das Level mit dem der Text verschlüsselt wurde. Das bei der Verschlüsselung verwandte Level muss auch zur Entschlüsselung verwendet werden. Wenn Sie mehr als 30.000 Zeichen entschlüsseln wollen, nutzen Sie bitte die ""Datei öffnen...""-Funktion im Datei-Menü.")
Case GUICtrlRead($VerschID) = $GUI_CHECKED
Case $msg = $open
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "Einfaches Textdokument (*.txt)",1)
$EncryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$EncryptString )
Case $msg = $exititem
ExitLoop

Case $msg = $StartButton
;~~
GuiCtrlSetState( $EditText,$GUI_DISABLE)
GUICtrlSetState($InputPass,$GUI_DISABLE )
GUICtrlSetState($InputLevel,$GUI_DISABLE )
GUICtrlSetState($StartButton,$GUI_DISABLE )
GUICtrlSetState($filemenu,$GUI_DISABLE )
GUICtrlSetState( $helpmenu,$GUI_DISABLE)
; Stops you from changing anything
;~~
$string = GuiCtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText,'Bitte warten Sie, während Ihr verschlüsselter Text mit Ihrem Passwort '&@CRLF&'und RC4 verschlüsselt wird.')
; Friendly message
;~~
GuiCtrlSetData($EditText,_StringEncrypt(1,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GuiCtrlSetState( $EditText,$GUI_ENABLE)
GUICtrlSetState($InputPass,$GUI_ENABLE )
GUICtrlSetState($InputLevel,$GUI_ENABLE )
GUICtrlSetState($StartButton,$GUI_ENABLE )
GUICtrlSetState($filemenu,$GUI_ENABLE )
GUICtrlSetState( $helpmenu,$GUI_ENABLE)
; This turns the window back on
Case $msg = $save
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "RC4-verschlüsselter Text (.cpt)", 16)
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".cpt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".cpt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop

Exit
Case GUICtrlRead($EntschID) = $GUI_CHECKED
Case $msg = $open
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "RC4-verschlüsselter Text (*.cpt), (*.txt)", 1)
$DecryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$DecryptString )
Case $msg = $exititem
ExitLoop

Case $msg = $StartButton
;~~
GuiCtrlSetState( $EditText,$GUI_DISABLE)
GUICtrlSetState($InputPass,$GUI_DISABLE )
GUICtrlSetState($InputLevel,$GUI_DISABLE )
GUICtrlSetState($StartButton,$GUI_DISABLE )
GUICtrlSetState($filemenu,$GUI_DISABLE )
GUICtrlSetState( $helpmenu,$GUI_DISABLE)
; Stops you from changing anything
;~~
$string = GuiCtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText,'Bitte warten Sie, während Ihr verschlüsselter Text mit Ihrem Passwort '&@CRLF&'und RC4 entschlüsselt wird.')
; Friendly message
;~~
GuiCtrlSetData($EditText,_StringEncrypt(0,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GuiCtrlSetState( $EditText,$GUI_ENABLE)
GUICtrlSetState($InputPass,$GUI_ENABLE )
GUICtrlSetState($InputLevel,$GUI_ENABLE )
GUICtrlSetState($StartButton,$GUI_ENABLE )
GUICtrlSetState($filemenu,$GUI_ENABLE )
GUICtrlSetState( $helpmenu,$GUI_ENABLE)
; This turns the window back on
Case $msg = $save
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "Einfaches Textdokument (.txt)", 16)
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".txt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".txt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop

Exit

Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $GUI_EVENT_CLOSE
EndSelect
WEnd
EndFunc ;==>_Main/autoit]

P. S. : Da ich Anfänger bin, bitte ich um eine verständliche Schilderung meines Fehlers!!! Ach ja... Übertreiben ist nicht notwendig.
P. P. S. : Ich bemerkte gerade, dass leider das Layout des *.au3-Scripts nicht übernommen wurde. Und Weiterverwendung ist nur dann erlaubt, wenn ich angemessen darüber informiert werde und mein Name (Keziah Biermann) im "Über" erscheint. Die Infos bitte an: "biermaennsche.pc.manufakturen@googlemail.com".

Beiträge von Data

GUI Inputbox auslesen und als E-Mail Absenden!

Probleme mit Textverschlüsselung und "crypt.au3"

Brauche Alternativ-Tester

Brauche Alternativ-Tester

Brauche Alternativ-Tester

Brauche Alternativ-Tester

Brauche Alternativ-Tester

Brauche Alternativ-Tester

Problem mit FileSetAttrib

Probleme mit RadioBox-Zuordnung

Probleme mit RadioBox-Zuordnung

Probleme mit RadioBox-Zuordnung

Probleme mit RadioBox

Probleme mit RadioBox-Zuordnung

Probleme mit RadioBox

Probleme mit RadioBox