Jump to content

File Encryption Include File


Guest Guidosoft
 Share

Recommended Posts

Guest Guidosoft

http://www.autoitscript.com/fileman/users/public/Guidosoft/ - the script is on that crapy web page. I will be making new versions.

With this script you can easily encrypt strings using currently 3 different methods but later version will have more control over these methods and much more encryptions.

If you need a more secure encryption, I suggest you combine a bunch of them into an algorithim, a single encryption.

However, you yourself must process the files if you want to encrypt a file. You have to read the string and then encrypt it with my include file.

So far I have 3 encryption methods:

Columnar Transposition

Character Substitution

PlainText Table Cordinates

Read the include file comments to learn more.

So what do you think.

Will this be of any help to any of you??? I will be posting an example soon.

Edited by Guidosoft
Link to comment
Share on other sites

Guest Guidosoft

Here is a quick example. It requires the GUI version of AutoIt however. This paticular script, shows an example of a week encryption however.

;Script: Encryption Example
;Author: Guido Arbia
;Requirements: AutoIt v3 Unstable GUI

#include <GuiConstants.au3>
#Include "D:\AutoIt\Encryptor.AU3"
Dim $WS_OVERLAPPEDWINDOW = 0xCF0000, $WS_VISIBLE = 0x10000000, $WS_CLIPSIBLINGS = 0x04000000

GuiCreate("Real Quick Encrypt", 214, 165,(@DesktopWidth-214)/2, (@DesktopHeight-165)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Group_1 = GuiCtrlCreateGroup("Source File", 10, 10, 200, 50)
$Group_2 = GuiCtrlCreateGroup("Destination File", 10, 70, 200, 50)
$txtDest = GuiCtrlCreateInput("", 20, 90, 180, 20)
$txtSource = GuiCtrlCreateInput("", 20, 30, 180, 20)
$btnEncode = GuiCtrlCreateButton("Encode", 10, 130, 80, 30)
$btnDecode = GuiCtrlCreateButton("Decode", 110, 130, 80, 30)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
   Case $msg = $btnEncode
      Encrypt()
   Case $msg = $btnDecode
      Decrypt()
    Case Else
    ;;;
    EndSelect
WEnd
Exit

Func Encrypt()
   $FSize = FileGetSize(GuiRead($txtSource))
   $SFile = FileOpen(GuiRead($txtSource),0)
   $DFile = FileOpen(GuiRead($txtDest),1)
   
   For $I = 1 to $FSize step 9
      $Line = FileRead($SFile,9)
      $Line = ColumnarTranspose($Line,3)
      FileWrite($DFile,$Line)
   Next
   
   FileClose($SFile)
   FileClose($DFile)
EndFunc

Func Decrypt()
   $FSize = FileGetSize(GuiRead($txtSource))
   $SFile = FileOpen(GuiRead($txtSource),0)
   $DFile = FileOpen(GuiRead($txtDest),1)
   
   For $I = 1 to $FSize step 9
      $Line = FileRead($SFile,9)
      $Line = ColumnarDetranspose($Line,3)
      FileWrite($DFile,$Line)
   Next
   
   FileClose($SFile)
   FileClose($DFile)
EndFunc
Edited by Guidosoft
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...