home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / _StringEncrypt.au3 < prev    next >
Encoding:
Text File  |  2004-12-30  |  2.4 KB  |  47 lines
  1. #include <guiconstants.au3>
  2. #include <string.au3>
  3. ; GUI and String stuff
  4. $WinMain = GuiCreate('Encryption tool', 400, 400)
  5. ; Creates window
  6. $EditText = GuiCtrlCreateEdit('',5,5,380,350)
  7. ; Creates main edit
  8. $InputPass = GuiCtrlCreateInput('',5,360,100,20, 0x21)
  9. ; Creates the password box with blured/centered input
  10. $InputLevel = GuiCtrlCreateInput(1, 110, 360, 50, 20, 0x2001)
  11. $UpDownLevel = GUICtrlSetLimit(GuiCtrlCreateUpDown($inputlevel),10,1)
  12. ; These two make the level input with the Up|Down ability
  13. $EncryptButton = GuiCtrlCreateButton('Encrypt', 170, 360, 105, 35)
  14. ; Encryption button
  15. $DecryptButton = GuiCtrlCreateButton('Decrypt', 285, 360, 105, 35)
  16. ; Decryption button
  17. GUICtrlCreateLabel('Password', 5, 385)
  18. GuiCtrlCreateLabel('Level',110,385)
  19. ; Simple text labels so you know what is what
  20. GuiSetState()
  21. ; Shows window
  22.  
  23. Do
  24.    $Msg = GuiGetMsg()
  25.    If $msg = $EncryptButton Then
  26.       GuiSetState(@SW_DISABLE,$WinMain) ; Stops you from changing anything
  27.       $string = GuiCtrlRead($EditText) ; Saves the editbox for later
  28.       GUICtrlSetData($EditText,'Please wait while the text is Encrypted/Decrypted.') ; Friendly message
  29.       GuiCtrlSetData($EditText,_StringEncrypt(1,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
  30.       ; Calls the encryption. Sets the data of editbox with the encrypted string
  31.       ; The encryption starts with 1/0 to tell it to encrypt/decrypt
  32.       ; The encryption then has the string that we saved for later from edit box
  33.       ; It then reads the password box & Reads the level box
  34.       GuiSetState(@SW_ENABLE,$WinMain) ; This turns the window back on
  35.    EndIf
  36.    If $msg = $DecryptButton Then
  37.       GuiSetState(@SW_DISABLE,$WinMain) ; Stops you from changing anything
  38.       $string = GuiCtrlRead($EditText) ; Saves the editbox for later
  39.       GUICtrlSetData($EditText,'Please wait while the text is Encrypted/Decrypted.') ; Friendly message
  40.       GuiCtrlSetData($EditText,_StringEncrypt(0,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
  41.       ; Calls the encryption. Sets the data of editbox with the encrypted string
  42.       ; The encryption starts with 1/0 to tell it to encrypt/decrypt
  43.       ; The encryption then has the string that we saved for later from edit box
  44.       ; It then reads the password box & Reads the level box
  45.       GuiSetState(@SW_ENABLE,$WinMain) ; This turns the window back on
  46.    EndIf
  47. Until $msg = $GUI_EVENT_CLOSE ; Continue loop untill window is closed