Decryption

[zax]

Need some helps in decrypting a file. I have a decode for the encryption ( a to z i just shown few of it)

a = ab

b = sd

c = we

d = fs

How it can be done?

[herewasplato]

Need some helps in decrypting a file. I have a decode for the encryption ( a to z i just shown few of it)

a = ab

b = sd

c = we

d = fs

How it can be done?

Take a look at StringSplit, For/Next and Switch/Case/EndSwitch.

[Erik.]

Whit this script you can encrypt and decrypt files, you can use it into your script.

expandcollapse popup

;====================================================
;============= Encryption Tool With GUI ============= 
;====================================================
; This script is made to encrypt and decrypt file's whit as password nothing
; Made by Erik
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
#include <guiconstants.au3>
#include <string.au3>
#Include <GUIConstants.au3>
#Include <GuiListView.au3>
#Include <File.au3>
#include <Date.au3>
#include <Array.au3>
#include <Date.au3>

$WinMain = GuiCreate('Encryption tool', 300, 100)

$EditText = GuiCtrlCreateEdit('',1,1,1,1)

$InputLevel = GuiCtrlCreateInput(1, 10, 10, 50, 20, 0x2001)
$UpDownLevel = GUICtrlSetLimit(GuiCtrlCreateUpDown($inputlevel),10,1)

$EncryptButton = GuiCtrlCreateButton('Encrypt', 65, 10, 105, 35)
$DecryptButton = GuiCtrlCreateButton('Decrypt', 180, 10, 105, 35)

GuiCtrlCreateLabel('Level',10,35)

GuiSetState()


Do
   $Msg = GuiGetMsg()
   If $msg = $EncryptButton Then

      GuiSetState(@SW_DISABLE,$WinMain)

      $string = FileOpenDialog("Select a file to encrypt","C:\","All (*.*)")
      $fileopen = FileRead($string)

      GuiCtrlSetData($EditText,_StringEncrypt(1,$fileopen,"nothing",GuiCtrlRead($InputLevel)))
      FileDelete($string)
        If Not FileExists($string) Then
            _FileCreate($string)
        EndIf
      Sleep(500)
      FileWrite($string,GUICtrlRead($EditText))

      GuiSetState(@SW_ENABLE,$WinMain)

   EndIf
   If $msg = $DecryptButton Then
     
      GuiSetState(@SW_DISABLE,$WinMain)
     
      $string = FileOpenDialog("Select a file to de crypt","C:\","All (*.*)")
      $fileopen = FileRead($string)

      GuiCtrlSetData($EditText,_StringEncrypt(0,$fileopen,"nothing",GuiCtrlRead($InputLevel)))
      FileDelete($string)
      If Not FileExists($string) Then
            _FileCreate($string)
      EndIf
      Sleep(500)
      FileWrite($string,GUICtrlRead($EditText))
      
      GuiSetState(@SW_ENABLE,$WinMain)

   EndIf
Until $msg = $GUI_EVENT_CLOSE