[Release]Script verschlüssler

[Âgent Smîth]

Es tut mit sehr leid ich wusste nicht das dies schon im AutoIT Ordner Exestiert

So Sry ich lass das Pic und den Download mal drinnen

[gimpy14]

thx

[amnesi]

öhhmmm gibts sowas denn nicht als beispielscript in der autoit hilfe?

[Âgent Smîth]

KP wüsste nicht wo

[Andman]

VT nicht dabei
Hab's mal für dich checken lassen;

[Âgent Smîth]

Danke

[-TaddeL-]

Cool , funktioniert das auch für HTML ? also für die .htm dateien

[ZaZiZu]

Thx, dass du ein Example aus dem AutoIt Ordner hier rein stellst

[Âgent Smîth]

? Aus was?

[amnesi]

aus dem Autoit Ordner

[lolkop]

das ganze wäre deutlich beeindruckender, wenn du nicht nur die _StringEncrypt funktion genutzt hättest :P

btw du bist hier in der coding sektion. wenn du hier programme postest, dann nur mit source. willst du releases posten, tuhe dies bitte im release thread.

[ZaZiZu]

Originally Posted by lolkop

das ganze wäre deutlich beeindruckender, wenn du nicht nur die _StringEncrypt funktion genutzt hättest :P

und das label nicht so sehr verschieben würdest, das original sah ordentlicher aus
€dit: uns source ist nicht nötig denke ich, hast es sicherlich schon gesehen und das gleiche bemerkt wie ich

@lolkop: schau dir pls an, 27 views und keine einzige antwort.

[Mozo_]

Hmmm beispielscript .. Naja nicht wirklich dein release nech

 Spoiler

Pfad: \AutoIt3\Examples\GUI\Advanced\ecrypt.au3

PHP Code:

;====================================================
;============= Encryption Tool With GUI =============
;====================================================
; AutoIt version: 3.0.103
; Language:       English
; Author:         "Wolvereness"
;
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <String.au3>
;#include files for encryption and GUI constants

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
    Local $WinMain, $EditText, $InputLevel, $InputPass, $UpDownLevel
    Local $EncryptButton, $DecryptButton, $string
    #forceref $UpDownLevel
;~~
    $WinMain = GUICreate('Encryption tool', 400, 400)
    ; Creates window
;~~
    $EditText = GUICtrlCreateEdit('', 5, 5, 380, 350)
    ; Creates main edit
;~~
    $InputPass = GUICtrlCreateInput('', 5, 360, 100, 20, 0x21)
    ; Creates the password box with blured/centered input
;~~
    $InputLevel = GUICtrlCreateInput(1, 110, 360, 50, 20, 0x2001)
    $UpDownLevel = GUICtrlSetLimit(GUICtrlCreateUpdown($InputLevel), 10, 1)
    ; These two make the level input with the Up|Down ability
;~~
    $EncryptButton = GUICtrlCreateButton('Encrypt', 170, 360, 105, 35)
    $DecryptButton = GUICtrlCreateButton('Decrypt', 285, 360, 105, 35)
    ; Encryption/Decryption buttons
;~~
    GUICtrlCreateLabel('Password', 5, 385)
    GUICtrlCreateLabel('Level', 110, 385)
    ; Simple text labels so you know what is what
;~~
    GUISetState()
    ; Shows window
;~~

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $EncryptButton
                ; When you press Encrypt
;~~
                GUISetState(@SW_DISABLE, $WinMain)
                ; Stops you from changing anything
;~~
                $string = GUICtrlRead($EditText)
                ; Saves the editbox for later
;~~
                GUICtrlSetData($EditText, 'Please wait while the text is Encrypted/Decrypted.')
                ; Friendly message
;~~
                GUICtrlSetData($EditText, _StringEncrypt(1, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel)))
                ; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
                GUISetState(@SW_ENABLE, $WinMain)
                ; This turns the window back on
;~~
            Case $DecryptButton
                ; When you press Decrypt
;~~
                GUISetState(@SW_DISABLE, $WinMain)
                ; Stops you from changing anything
;~~
                $string = GUICtrlRead($EditText)
                ; Saves the editbox for later
;~~
                GUICtrlSetData($EditText, 'Please wait while the text is Encrypted/Decrypted.')
                ; Friendly message
;~~
                GUICtrlSetData($EditText, _StringEncrypt(0, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel)))
                ; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
                GUISetState(@SW_ENABLE, $WinMain)
                ; This turns the window back on
;~~
        EndSwitch
    WEnd
EndFunc   ;==>_Main